lg-creations

        #VRML V2.0 utf8

PROTO BlaxxunZone [
   eventIn        MFNode  addEvents
   eventIn        MFNode  removeEvents
   exposedField    MFNode  events []
   eventOut        MFNode  events_added
   eventOut        MFNode  events_removed
]

{
}

PROTO SharedEvent [
   exposedField SFString    name "event"
   exposedField SFString    type      "SFTime"
   exposedField SFString    toNickname    ""
   exposedField SFString    toGroup  ""
   eventIn  SFBool    boolFromServer

   eventIn  SFFloat  floatFromServer
   eventIn  SFInt32  int32FromServer

   eventIn  SFString  stringFromServer
   eventIn  SFTime    timeFromServer
   eventIn  SFVec2f  vec2fFromServer
   eventIn  SFVec3f  vec3fFromServer
   eventOut  SFBool    boolToServer

   eventOut  SFFloat  floatToServer
   eventOut  SFInt32  int32ToServer

   eventOut  SFString  stringToServer
   eventOut  SFTime    timeToServer
   eventOut  SFVec2f  vec2fToServer
   eventOut  SFVec3f  vec3fToServer
   eventIn  SFBool    set_bool

   eventIn  SFFloat  set_float
   eventIn  SFInt32  set_int32

   eventIn  SFString  set_string
   eventIn  SFTime    set_time
   eventIn  SFVec2f  set_vec2f
   eventIn  SFVec3f  set_vec3f
   eventOut  SFBool    bool_changed
 
   eventOut  SFFloat  float_changed
   eventOut  SFInt32  int32_changed

   eventOut  SFString  string_changed
   eventOut  SFTime    time_changed
   eventOut  SFVec2f  vec2f_changed
   eventOut  SFVec3f  vec3f_changed
   eventOut  SFBool    initialized
]
{
   Script {
      eventIn  SFBool    boolFromServer IS  boolFromServer
   
      eventIn  SFFloat  floatFromServer    IS  floatFromServer
      eventIn  SFInt32  int32FromServer    IS  int32FromServer
   
      eventIn  SFString  stringFromServer    IS  stringFromServer
      eventIn  SFTime    timeFromServer      IS  timeFromServer
      eventIn  SFVec2f  vec2fFromServer    IS  vec2fFromServer
      eventIn  SFVec3f  vec3fFromServer    IS  vec3fFromServer
      eventOut  SFBool    boolToServer  IS  boolToServer
   
      eventOut  SFFloat  floatToServer  IS  floatToServer
      eventOut  SFInt32  int32ToServer  IS  int32ToServer
   
      eventOut  SFString  stringToServer      IS  stringToServer
      eventOut  SFTime    timeToServer  IS  timeToServer
      eventOut  SFVec2f  vec2fToServer  IS  vec2fToServer
      eventOut  SFVec3f  vec3fToServer  IS  vec3fToServer
      eventIn  SFBool    set_bool  IS  set_bool
   
      eventIn  SFFloat  set_float      IS  set_float
   
      eventIn  SFString  set_string    IS  set_string
      eventIn  SFTime    set_time  IS  set_time
      eventIn  SFVec2f  set_vec2f      IS  set_vec2f
      eventIn  SFVec3f  set_vec3f      IS  set_vec3f
      eventOut  SFBool    bool_changed  IS  bool_changed

      eventOut  SFFloat  float_changed  IS  float_changed
      eventOut  SFInt32  int32_changed  IS  int32_changed
   
      eventOut  SFString  string_changed      IS  string_changed
      eventOut  SFTime    time_changed  IS  time_changed
      eventOut  SFVec2f  vec2f_changed  IS  vec2f_changed
      eventOut  SFVec3f  vec3f_changed  IS  vec3f_changed
      eventOut  SFBool    initialized    IS  initialized
      url "vrmlscript:
      function initialize( time ) { initialized = TRUE;}
      function boolFromServer (value, time) { bool_changed = value; }
      
      function floatFromServer (value, time) { float_changed = value; }
      function int32FromServer (value, time) { int32_changed = value; }
   
      function stringFromServer (value, time) { string_changed = value; }
      function timeFromServer (value, time) { time_changed = time; }
      function vec2fFromServer (value, time) { vec2f_changed = value; }
      function vec3fFromServer (value, time) { vec3f_changed = value; }
      function set_bool (value, time) { boolToServer = value; }
   
      function set_float (value, time) { floatToServer = value; }
      function set_int32 (value, time) { int32ToServer = value; }
   
      function set_string (value, time) { stringToServer = value; }
      function set_time (value, time) { timeToServer = value; }
      function set_vec2f (value, time) { vec2fToServer = value; }
      function set_vec3f (value, time) { vec3fToServer = value; }
      "
   }
}

DEF SharedZone BlaxxunZone { #instance of the blaxxun PROTO BlaxxunZone
   events [
      DEF sharedson SharedEvent{ name "son"

             
      }


      
   ]
}




    Transform { children [
Transform { translation 0 1 0  children [


        DEF Box1 Shape {
      appearance Appearance {
        texture DEF MP3 MovieTexture {
        url "dernier.mid"
        loop  FALSE
        startTime -1
        stopTime  0
        }
        material DEF Red_mat Material {
        ambientIntensity 0.200
        shininess 0.200
        diffuseColor 0.5 0.5 0.5
        emissiveColor 0.0 0.0 0.0
        specularColor 0.0 0.0 0.0
        }
      }
      geometry Box {
        size 1.0 1.0 0.05
      }




  }




DEF TSson TouchSensor{ } ]





}




] }


    DEF son Script {
  field    SFNode      snd    USE  MP3
field    SFBool      state    FALSE
field    SFTime      pause    0
eventIn  SFTime      startAt0
directOutput        TRUE
url "vrmlscript:
 function startAt0( stime ) {
 state = TRUE;
 snd.set_startTime = stime;
 snd.set_stopTime = 0;
 }
"
}

     ROUTE TSson.touchTime TO sharedson.set_time
ROUTE sharedson.time_changed TO son.startAt0