Value Inversion

#VRML V2.0 utf8

DirectionalLight { intensity .1 }
NavigationInfo { headlight FALSE }

DEF TIMER TimeSensor {
   cycleInterval 2
   loop TRUE
}

Shape { 
   appearance Appearance { material Material {} }
   geometry Sphere {}
}		

DEF LIGHT DirectionalLight { 
   direction 0 -1 -1 
   color 1 0 0
}

DEF ENGINE Script {
   eventIn SFFloat now
   eventOut SFFloat intensity
   url "vrmlscript:

function now(val) {
   intensity = 1 - val;
}
"
}
ROUTE TIMER.fraction_changed TO ENGINE.now
ROUTE ENGINE.intensity TO LIGHT.intensity