DEF TIMER TimeSensor{cycleInterval 5.333 numLoops -1}Transform{rotation 1 0 0 .6
children[Shape{appearance Appearance{material Material{diffuseColor 1 0 0}}
geometry IndexedFaceSet{coord DEF Box-COORD Coordinate{point[-1 -1 1 -1 1 1 1 1 1
1 -1 1 -1 -1 -1 -1 1 -1 1 1 -1 1 -1 -1]}}}Shape{appearance Appearance{material
Material{diffuseColor 1 0 0}}geometry IndexedFaceSet{coord USE Box-COORD
coordIndex[0 3 2 1 -1]}}Shape{appearance Appearance{material Material{
diffuseColor 1 0 0}}geometry IndexedFaceSet{coord USE Box-COORD coordIndex[1 2 6
5 -1]}}]}Transform{translation -3 0 0 children Shape{appearance Appearance{
material Material{emissiveColor 1 1 1}}geometry PointSet{coord DEF POINTS-COORD
Coordinate{point[0 1 0 0 -1 0]}}}}Transform{translation 3 0 0 children Shape{
appearance Appearance{material Material{emissiveColor 1 1 1}}geometry PointSet{
coord USE POINTS-COORD}}}Transform{translation -4 0 0 children Shape{appearance
Appearance{material Material{emissiveColor 1 1 1}}geometry IndexedLineSet{coord
DEF LINES-COORD Coordinate{point[0 1 0 0 -1 0]}coordIndex[0 1 -1]}}}Transform{
translation 4 0 0 children Shape{appearance Appearance{material Material{
emissiveColor 1 1 1}}geometry IndexedLineSet{coord USE LINES-COORD coordIndex[0 1
-1]}}}DEF MYINTERP CoordinateInterpolator{key[0 .5 1]keyValue[-1 -1 1 -1 1 1 1 1
1 1 -1 1 -1 -1 -1 -1 1 -1 1 1 -1 1 -1 -1 -2 -2 2 -2 2 2 2 2 2 2 -2 2 -2 -2 -2 -2
2 -2 2 2 -2 2 -2 -2 -1 -1 1 -1 1 1 1 1 1 1 -1 1 -1 -1 -1 -1 1 -1 1 1 -1 1 -1 -1]
}Route TIMER.fraction To MYINTERP.fraction Route MYINTERP.value To
Box-COORD.point DEF MYINTERP2 CoordinateInterpolator{key[0 .5 1]keyValue[0 1 0 0
-1 0 0 .1 0 0 -.1 0 0 1 0 0 -1 0]}Route TIMER.fraction To MYINTERP2.fraction
Route MYINTERP2.value To POINTS-COORD.point Route MYINTERP2.value To
LINES-COORD.point