rotCylinder_0.wrl source
#VRML V2.0 utf8

Viewpoint {}
NavigationInfo {
type "EXAMINE"
}

# 円柱
DEF Cyl-Tf Transform {
children [
Shape {
appearance Appearance {
material Material {
diffuseColor 1 1 0
}
}
geometry Cylinder {}
}
DEF ThS TouchSensor {}
]
}

# アニメ
DEF OI OrientationInterpolator {
key [ 0.0 0.25 0.5 0.75 1.0 ]
keyValue [
1 0 0 0.0,
1 0 0 1.5708
1 0 0 3.1416
1 0 0 4.7124
1 0 0 6.2832
]
}

DEF TiS TimeSensor {
cycleInterval 5
}

# スクリプト
DEF Sc Script {
eventIn SFBool isActive_ThS
eventOut SFTime startTime
eventOut SFTime stopTime
url "javascript:
function isActive_ThS (val,et) {

if (val) startTime = et;
else stopTime = et;

}
"
}

ROUTE ThS.isActive TO Sc.isActive_ThS
ROUTE Sc.startTime TO TiS.startTime
ROUTE Sc.stopTime TO TiS.stopTime

ROUTE TiS.fraction_changed TO OI.set_fraction
ROUTE OI.value_changed TO Cyl-Tf.rotation