DEF l4 Layer3D
  { 
     translation 0.5 0.5
     size 0.4 0.4
  
     childrenLayer [
                  USE l1
                  USE l2
                  USE l3
     ]
  }
  
  DEF Timer1         TimeSensor
  {
          cycleInterval 10
  }
  
  DEF S Script {
  
          eventIn SFFloat anim
  
          field SFNode l USE l1
          directOutput TRUE
  
          url "vrmlscript:
  
          function anim(f) {
                  l.translation = new SFVec2f(f*0.6, 0.5 * (1.0+Math.sin(f*2*Math.PI)));
                  f*=2;
                  if (f>1) f = 1.0 - (f-1);
                  l.translation = new SFVec2f(0.05+f*0.5, 0.05 +f *0.5);
          }
          "
  
  }
  ROUTE TS.touchTime TO Timer1.set_startTime
  ROUTE Timer1.fraction_changed TO S.anim