lg-creations

#VRML V2.0 utf8
  DEF Background1 Background {
  skyAngle [
    1.48353
  ]
  skyColor [
    1.0 0.0 0.0
    0.67451 0.24314 0.34902
  ]
  groundAngle [
  ]
  groundColor [
    0.0 0.0 0.0
  ]
  }
Transform {    translation 0 1 0
  children   [
     DEF prox ProximitySensor {size 5 5  5}
     Collision {   collide   FALSE
        children [
           Shape {  appearance Appearance {material Material {transparency .8}}
               geometry   Box   {        size 5 5 5}
           }
        ]
     }
  ]
}
Viewpoint {
   position   0 2 10
   description "Entry"
}

Group {
  children [
      DEF SWITCH Switch {
    whichChoice 0
    choice [  DEF un Inline {url "http://dumenieu.free.fr/vrml/zik/diamsparamour2.wrl"}
   DEF   deux Inline {url "http://dumenieu.free.fr/vrml/zik/diamsparamour3.wrl"}
      ]
      }
    ]
}

DEF SCRIPT Script {   
  eventIn SFBool clicked
  eventOut SFInt32 which
  field SFInt32 num 0
  url "vrmlscript:
function clicked(val) {
  if(val) {
      num = (num + 1) % 2;
      which = num;
  }
}"

}

ROUTE prox.isActive TO SCRIPT.clicked
ROUTE SCRIPT.which TO SWITCH.whichChoice