vrmlpad

 DEF Ti40 TimeSensor {  cycleInterval 5  }

DEF Si40 ScalarInterpolator {
  key [  0 1 ]
 keyValue [  0 1  ] }

 DEF Sc40 Script {
  eventIn SFFloat transaniin
 eventOut SFVec2f transaniout
 url "javascript:
 function transaniin(value)
{transaniout = new SFVec2f(-(-value),-(value));}"
  }   

 ROUTE Ti40.fraction_changed TO Si40.set_fraction
ROUTE Si40.value_changed TO Sc40.transaniin
ROUTE Sc40.transaniout TO Nomdelatexture.translation

#VRML V2.0 utf8
NavigationInfo {
  type    "EXAMINE"
}
Transform {    rotation 0.3 1 0 1.4
children [
DEF touch TouchSensor {}
DEF dad_Extrusion1 Transform {
children [
DEF Extrusion1 Shape {
appearance Appearance {
       material DEF Red_mat Material {
       ambientIntensity 0.200
       shininess 0.200
          diffuseColor 1.0 0.0 0.0
       emissiveColor .3 0.0 0.0   }
               }
geometry IndexedFaceSet {
                   solid TRUE
                   creaseAngle 0.524
                   coord DEF coords  Coordinate {
                      point [     valeurs du node 1
                
                      ]
                   }
                   coordIndex [  valeurs
                
                   ]
               }
            }
         ]
      }
      Transform { translation 2 0 0     scale 1 1.3 1
         children [
            USE dad_Extrusion1
         ]
      }
      Transform { translation 4 0 0
         children [
            USE dad_Extrusion1
         ]
      }

      Transform { translation 6 -1 0
         children [
            USE dad_Extrusion1
         ]
      }

      Transform { translation -4 -4 0     rotation 0 0 1 1   scale 1 .8 1
         children [
            USE dad_Extrusion1
         ]
      }
      Transform {    scale .9 .9 .5
         children   Shape {
             appearance   Appearance {
               material USE Red_mat
   
             }
             geometry   Sphere { radius 5 }
         }
         translation   3 -8 0
      }

   ]
}
DEF time TimeSensor {
   cycleInterval 3.5
}
DEF coordinterp CoordinateInterpolator {
   key [
      0  .5    1
   ]
   keyValue [
     valeurs du node 1 
  ########
       valeurs du node 2
   
  #######
   valeurs     du node 1
   
   ]
}
ROUTE touch.touchTime TO time.startTime
ROUTE time.fraction_changed TO coordinterp.set_fraction
ROUTE coordinterp.value_changed TO coords.point