Animating Viewpoints

#VRML V2.0 utf8

NavigationInfo { type "EXAMINE" }


Viewpoint { 
   description "Start"
}

DEF MOVEME Transform {
   children [
      Shape { 
	 appearance DEF APP Appearance { material Material {} }
	 geometry Sphere {}
      }
      DEF BALLVIEW Viewpoint {
	 description "Ball View"
	 position 0 0 1.1
	 orientation 0 1 0  3.14
      }
     ]
}

Shape {
   appearance USE APP
   geometry Box {}
}

DEF TIMER1 TimeSensor { 
   cycleInterval 1
   loop TRUE
}

DEF MOVER PositionInterpolator {
   key [ 0 .5 1 ]
   keyValue [ 0 2 -10,  0 2 0, 0 2 -10 ]
}

ROUTE TIMER1.fraction_changed TO MOVER.set_fraction
ROUTE MOVER.value_changed TO MOVEME.translation


mrl