colorchange_4.wrl source
#VRML V2.0 utf8

Viewpoint {}
NavigationInfo {
type "EXAMINE"
}

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

# 箱
DEF Box-Tf Transform {
translation 2 0 0
children [
Shape {
appearance Appearance {
material Material {
diffuseColor 1 1 0 # 黄
}
}
geometry Box {}
}
DEF Box-ThS TouchSensor {}
]
}

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

function colorChange () {
col = vect;
ballColor = col;
}

function translationChange () {
var col = vect;
boxTranslation = col;
}

"
}

ROUTE Ball-ThS.touchTime TO Sc.colorChange
ROUTE Box-ThS.touchTime TO Sc.translationChange
ROUTE Sc.ballColor TO Ball-Mt.diffuseColor
ROUTE Sc.boxTranslation TO Box-Tf.translation