colorchange_0.wrl source
#VRML V2.0 utf8

Viewpoint {}
NavigationInfo {
type "EXAMINE"
}

# 球
Group {
children [
Shape {
appearance Appearance {
material DEF Ball-Mt Material {
diffuseColor 1 0 0 # 赤
}
}
geometry Sphere {}
}
DEF ThS TouchSensor {}
]
}

# スクリプト
DEF Sc Script {
eventIn SFTime colorChange
eventOut SFColor ballColor
field SFColor col 0 1 0 # 緑
field SFColor blue 0 0 1 # 青
url "javascript:

var col = blue;

function colorChange () {
ballColor = col;
}

"
}

ROUTE ThS.touchTime TO Sc.colorChange
ROUTE Sc.ballColor TO Ball-Mt.diffuseColor