#VRML V2.0 utf8
 
DEF EntryView Viewpoint {
   position 0 -1 10
   description "Entry View"
   jump TRUE
   orientation 1 0 0 0.3}

DEF SunView Viewpoint {
   position 6 -6 -10
   description "VERY close to the SUN"
   orientation 1 0 0 0.4}

DEF SpaceView Viewpoint {
   position 2 +100 -100
   description "Far off in space"
   # Open the angle, default is 45 degrees
   fieldOfView 2.5
   # let's look down (rotate backwards around x axis)
   orientation 1 0 0 -2
}

DEF Earth Transform {
   translation -2 0 0
   children [
      Shape {
	 appearance Appearance {
	    material Material {
	       diffuseColor 0 0 1
	    }
	 }
	 geometry Sphere {
	    radius 1.0
	 }
      }
      
      DEF Sunpointer Anchor {
	 url         "#SunView"
	 description "Jump closer to the Sun"
	 children [
	    Transform {
	       translation 4 0 -2
	       children [
		  # Let's use a simple Cone as tour guide pointer
		  # (actually should make a nice PROTO here)
		  DEF Pointer Transform {
		     rotation 1 0 0 1.7
		     children [
			Shape {
			   appearance Appearance {
			      material Material {
				 emissiveColor 1 0 0
				 shininess 1
			      }
			   }
			   geometry Cone {
			      bottomRadius 0.5
			      height 1
			   } } #Shape
		       ]
		  } #Pointer
		 ]
	    }
	   ]
      }
   ]
}

DEF Sun Transform {
   translation 2 0 -30
   children [
      Shape {
	 appearance Appearance {
	    material Material {
	       emissiveColor 1 1 0
	       shininess 1
	    }
	 }
	 geometry Sphere {
	    radius 10.0
	 }
      }
      
      DEF Spacepointer Anchor {
	 url         "#SpaceView"
	 description "Jump out to empty space"
	 children [
	    Transform {
	       translation 10 0 5
	       children  USE Pointer
	    }
	   ]
      }
     ]
}

DEF Backpointer Anchor {
   url         "#EntryView"
   description "Jump back to original"
   children [
      Transform {
	 translation 3 +98 -98
	 children USE Pointer
      }
     ]
}