VRML: Color Rollover

#VRML V2.0 utf8

Group {
   children [
      DEF TOUCH TouchSensor {}
      Shape { 
	 appearance Appearance { material DEF MAT Material { diffuseColor 1 1 0 } }
	 geometry Sphere {}
      }		
     ]
}

DEF SCRIPT Script {
   eventIn SFBool isOver
   eventOut SFColor color
   url "vrmlscript:

// boolean into a color
function isOver(val) {
   if(val) { color = new SFColor(1,0,0); }
   else { color = new SFColor(0,0,1); }
}"

}

ROUTE TOUCH.isOver TO SCRIPT.isOver
ROUTE SCRIPT.color TO MAT.diffuseColor

(world)