DEF SCRIPT Script {   
          directOutput TRUE
  
          field SFFloat accel IS accel
  
          field  SFTime  tick   0
  
          field SFNode object USE OBJECT
          field SFNode material USE MATERIAL
          field SFNode ground USE GROUND
          field SFFloat position 0
          field SFFloat color 0.5
  
          field SFInt32 sign 1
          field SFFloat speed 1
  
          eventIn SFFloat set_fraction    
          url "javascript: