PROTO slide-vcr [
  exposedField SFTime startTime 0
  exposedField SFTime stopTime 0
  exposedField MFString video []
  exposedField SFFloat loudness 1
  exposedField SFVec3f translation 0 0 0
  exposedField SFVec3f scale 1 1 1
  exposedField SFRotation rotation 0 1 0 0
  exposedField SFVec3f size 1 1 0.1
  ]{
  Transform {
  translation IS translation
  scale IS scale
  rotation IS rotation
  children [
  DEF root Transform {
  scale 1 1 1
  children [
  Shape {
  appearance Appearance {
  material Material { diffuseColor 1 1 1 }
  texture DEF movie MovieTexture { 
  startTime IS startTime
  stopTime IS stopTime
  loop TRUE
  url IS video
  }
  }
  geometry Box { size IS size }
  }
  DEF sound Sound { source USE movie intensity IS loudness }
  Transform {
  translation 0 0 0.2
  children [
  DEF touch TouchSensor {}
  Shape {
  appearance Appearance {
      material Material {
        diffuseColor 1 0 0
        transparency 1
        }
  }
  geometry Box { size IS size }
  
  }
  DEF script Script {
  directOutput TRUE
  eventIn SFTime touch
  field SFNode movie USE movie 
  field SFNode sound USE sound
  field SFInt32 state 0
  field SFVec3f size IS size
  field SFBool on TRUE
  url "javascript:
  function initialize() {
  // root.scale = new SFVecf(size.x,size.y,size.z);
  }
  function touch(value) {
  print('state = ' + state);
  if (state == -1) {
  } else if (state == 0)  {
          movie.startTime = value;
          movie.stopTime = 0;
          sound.intensity = 1;
          on = TRUE;
          state = 1;
  } else if (state == 1) {
          movie.stopTime = value;
          on = FALSE;
          state = 0;
  } else if (state == 3) {
          sound.intensity = 0;
          state = 1;
  } }
  "
  }
  ROUTE touch.touchTime TO script.touch  ## initially forgotten!
  
  ] }
  
  ] } ## root
  ] }
  }