www.pudn.com > vrmlExample.rar > TURNJ.WRL

#VRML V2.0 utf8 
 
Viewpoint 
{ 
	position 0 0 15 
	orientation 0 0 1 0 
	fieldOfView 0.8 
} 
 
Background 
{ 
		skyColor	[	0 	0 	0.2, 
					0.1 	0.1 	0.8, 
					0.7 	0.8 	0.9 
				] 
		skyAngle 	[1 	1.57] 
		groundColor 	[	0.0 	0.0 	0.0, 
					0.5 	0.4 	0.3, 
					0.3 	0.3 	0.3 
				] 
		groundAngle 	[1	1.57] 
} 
 
DEF mybox Transform 
{ 
	children 
	[ 
		DEF touch TouchSensor{} 
		Shape 
		{ 
			appearance Appearance 
			{ 
				material Material 
				{ 
					diffuseColor 1 0 0 
				} 
			} 
			geometry Box{} 
		} 
	] 
} 
 
DEF Time1 TimeSensor  
{  
  cycleInterval 1  
} 
 
DEF turn1 OrientationInterpolator  
{ 
  key      [ 0,  1.0] 
  keyValue [ 0 1 0 -1.57, 0 1 0 1.57] 
} 
 
DEF Time2 TimeSensor {  
  cycleInterval 1  
} 
 
DEF turn2 OrientationInterpolator  
{ 
  key      [ 0, 1.0] 
  keyValue [ 0 1 0 1.57, 0 1 0 -1.57] 
} 
 
 
 
DEF go Script  
{ 
 
	eventIn  SFTime toucht 
	eventOut SFTime turntime1 
	eventOut SFTime turntime2 
	field 	 SFBool status FALSE 
 
	url "turnj.class" 
 
} 
 
 
 
ROUTE touch.touchTime	 		TO go.toucht 
ROUTE go.turntime1 		TO Time1.set_startTime 
ROUTE go.turntime2 		TO Time2.set_startTime 
ROUTE Time1.fraction_changed 	TO turn1.set_fraction 
ROUTE turn1.value_changed 		TO mybox.set_rotation 
ROUTE Time2.fraction_changed 	TO turn2.set_fraction 
ROUTE turn2.value_changed		TO mybox.set_rotation