www.pudn.com > vrmlExample.rar > 7-3-6.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] 
} 
 
 
Transform{ 
        translation 2 0 0 
        children 
[ 
        DEF DOOR Transform 
{ 
                children 
[ 
                Shape{ 
 			appearance Appearance  
			{ 
				material DEF SphereColor1 Material  
				{ 
					diffuseColor 1 0 0  
				}  
			} 
 
			geometry Box 
			{ 
				size 4 6 0.1 
			} 
			} 
                	] 
        		} 
        DEF PROX_SENSOR ProximitySensor 
		{ 
                size 18 13 20 
        } 
        ] 
	} 
 
Transform{ 
        translation -2 0 0 
        children 
[ 
        	DEF DOOR2 Transform 
{ 
                children 
[ 
                Shape 
{ 
 			appearance Appearance  
			{ 
				material DEF SphereColor1 Material  
				{ 
					diffuseColor 1 0 0  
				}  
			} 
 
geometry Box 
{ 
size 4 6 0.1 
} 
} 
                ] 
        } 
        ] 
} 
 
 
DEF DOOR_OPEN_TIME TimeSensor 
{ 
        cycleInterval 2 
} 
 
DEF DOOR_OPEN_INTP PositionInterpolator 
{ 
        key [ 0, 1] 
        keyValue [0 0 0, 5 0 0] 
} 
 
DEF DOOR2_OPEN_INTP PositionInterpolator 
{ 
        key [ 0, 1] 
        keyValue [0 0 0,-5 0 0] 
} 
 
DEF DOOR_CLOSE_TIME TimeSensor 
{ 
        cycleInterval 2 
} 
 
DEF DOOR_CLOSE_INTP PositionInterpolator 
{ 
        key [ 0, 1] 
        keyValue [5 0 0, 0 0 0] 
} 
 
DEF DOOR2_CLOSE_INTP PositionInterpolator 
{ 
        key [ 0, 1] 
        keyValue [-5 0 0, 0 0 0] 
} 
 
ROUTE PROX_SENSOR.enterTime TO DOOR_OPEN_TIME.set_startTime 
ROUTE DOOR_OPEN_TIME.fraction_changed TO DOOR_OPEN_INTP.set_fraction 
ROUTE DOOR_OPEN_INTP.value_changed TO DOOR.set_translation 
ROUTE DOOR_OPEN_TIME.fraction_changed TO DOOR2_OPEN_INTP.set_fraction 
ROUTE DOOR2_OPEN_INTP.value_changed TO DOOR2.set_translation 
 
 
ROUTE PROX_SENSOR.exitTime TO DOOR_CLOSE_TIME.set_startTime 
ROUTE DOOR_CLOSE_TIME.fraction_changed TO DOOR_CLOSE_INTP.set_fraction 
ROUTE DOOR_CLOSE_INTP.value_changed TO DOOR.set_translation 
 
ROUTE DOOR_CLOSE_TIME.fraction_changed TO DOOR2_CLOSE_INTP.set_fraction 
ROUTE DOOR2_CLOSE_INTP.value_changed TO DOOR2.set_translation