#VRML V2.0 utf8
##<load file=web3d-navigate>
##:@+ bouncing ball (1)
##@ object

DEF OBJECT Transform {
scale 0.5 0.5 0.5
children [ 
Shape  {
	geometry Sphere { radius 2 }
	appearance Appearance {
		material DEF MATERIAL Material {
			diffuseColor 1 0 0
			}
		}
}
] }

##@ sensor 
DEF TIME TimeSensor { loop TRUE cycleInterval 5 } #<l++>

##@ script
DEF SCRIPT Script {   
        directOutput TRUE
        field SFNode object USE OBJECT
        field SFNode material USE MATERIAL
	field SFFloat position 0
	field SFFloat color 0.5
	eventIn SFFloat set_fraction    
	url "javascript:
##@ fraction
	function set_fraction(value) {  
		if (value < 0.5) {
			position += 0.1;
                        color = value;
		} else {
			position -= 0.1;
			color = value;
			}
		object.translation.y = position;
	        material.diffuseColor = new SFColor(color,color,1);
		}
		"
	}#<l++>
## # The script is activated by routing routing
ROUTE TIME.fraction_changed TO SCRIPT.set_fraction

##@ environment

Viewpoint { position 0 0 20 }
Background { skyColor 0.4 0.2 0.2 }

##</>