tut22.wrl

#VRML V2.0 utf8

WorldInfo {
 title "Floppy's VRML Guide Example 22"
	info ["(C) Copyright 1999 Vapour Technology"
 	        "vrmlguide@vapourtech.com"]
}

DEF CYCLE Script {
	eventIn SFTime touchTime
	field SFInt32 number 4
	eventOut SFInt32 output
	url "javascript:
		function initialize() {
			output = 0;
		}
		function touchTime(value, time) {
			if (output == number - 1) output = 0;
			else ++output;
		}"
}

Transform {
	translation 0 -.5 8
	children [
		DEF SENSOR TouchSensor {
		}
		Shape {
			appearance Appearance {
				material Material {
					emissiveColor 1 0 0
				}
			}
			geometry Sphere {
				radius 0.1
			}
		}
	]
}

DEF SWITCH Switch {
	whichChoice 0
	choice [
		Shape {
			appearance DEF BLUE Appearance {
				material Material {
					diffuseColor 0 0 1
				}
			}
			geometry Box {}
		}
		Shape {
			appearance USE BLUE
			geometry Sphere {}
		}
		Shape {
			appearance USE BLUE
			geometry Cone {}
		}
		Shape {
			appearance USE BLUE
			geometry Cylinder {}
		}
	]
}

ROUTE SENSOR.touchTime TO CYCLE.touchTime
ROUTE CYCLE.output TO SWITCH.whichChoice