#VRML V2.0 utf8

# Par antoine PASQUAY, le 11 03 2003

DEF reglage Transform {
	rotation 0 1 0 1
	children [
		Shape {
			geometry Cylinder {
			}
			appearance Appearance {
				material Material {
					diffuseColor 0 0 .72
					specularColor .5 .5 .5
					emissiveColor 0 0 .13
					ambientIntensity 0
				}
			}
		}
		DEF	captRG CylinderSensor {
			offset 1
			maxAngle 6
		}
	]
}
Transform {
	translation	0 1.5 0
	children [
		Shape {
			geometry DEF affichage Text { string "1"
			}
		}
	] 
}
DEF convert Script {
	eventIn	SFRotation rot
	eventOut MFString duree
	url	"javascript: function rot(val){
		duree[0] = Math.floor(100*val[3])/100 ;
	}
	"
}    
ROUTE captRG.rotation_changed TO reglage.rotation 
ROUTE captRG.rotation_changed TO convert.rot
ROUTE convert.duree	TO affichage.string