DEF Toggle Script { 
       field SFBool on TRUE 
       eventIn  SFBool set_active 
       eventOut SFBool on_changed 
       url "vrmlscript: 

  function set_active( b, ts ) { 
      if ( b  == FALSE ) return; 
      if ( on == TRUE ) on = FALSE; 
      else on = TRUE; 
      on_changed = on; 
  }" 
}

DEF ColorSelector Script { 
        field    SFColor onColor  1.0 1.0 1.0 
        field    SFColor offColor 0.0 0.0 0.0 
        eventIn  SFBool  set_selection 
        eventOut SFColor color_changed 
        url "vrmlscript: 
             function set_selection( b, ts ) { 
                 if ( b == TRUE )  color_changed = onColor; 
                 else  color_changed = offColor; 
             }" 
     } 
ROUTE Toggle.on_changed TO colorSelector.set_selection 
ROUTE ColorSelector.color_changed TO BulbMaterial.set_emissive