#VRML V2.0 utf8

DEF kera Transform{
  translation 1 0 0
  children[
   Shape{
    geometry Sphere{ radius 0.5}
   }
   DEF sensor1 TouchSensor{}
  ]
}

DEF skript1 Script{
    eventIn SFBool vajutus
    eventOut SFVec3f asukoht
    url[
      "javascript:
        kx=-2;
        function vajutus(asend){
          if(asend){
            asukoht=new SFVec3f(kx, 0.5, 0);
            kx+=0.2;
          }
        }      
      "
    ]
}

ROUTE sensor1.isActive TO skript1.vajutus
ROUTE skript1.asukoht TO kera.set_translation