Listing A—sphere.wrl

DEF sphere Transform

{

       translation 0 0 0

 

       children

       [

              Shape

              {

                     appearance Appearance

                     {

                           material Material

                           {

                                  diffuseColor 1 1 1


                           }

                     }

 


 

                     geometry Sphere

                     {

                           radius 1

                     }

              }

       ]

}