#VRMLV2.0 utf8
##:@* proto-matrix
##@ interface
EXTERNPROTO NetworkSFBool [
                     eventIn SFBool set_value
                     eventOut SFBool value_changed
                     eventIn SFBool value_fromnet
                     eventOut SFBool value_tonet
                     exposedField SFString tag
                     exposedField SFBool   pilotOnly
                     field SFBool   localCopy
                     exposedField SFBool   echo
                     exposedField SFBool   cont
                    ]
{
   Script {
      eventIn SFBool InSc IS set_value
      eventOut SFBool OutSc IS value_changed
      eventIn SFBool netInSc IS value_fromnet
      eventOut SFBool netOutSc IS value_tonet
      field SFBool local

      directOutput TRUE
      mustEvaluate TRUE

      url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
   }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkSFColor [
  eventIn SFColor set_value
  eventOut SFColor value_changed
  eventIn SFColor value_fromnet
  eventOut SFColor value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn SFColor InSc IS set_value
    eventOut SFColor OutSc IS value_changed
    eventIn SFColor netInSc IS value_fromnet
    eventOut SFColor netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkSFFloat [
  eventIn SFFloat set_value
  eventOut SFFloat value_changed
  eventIn SFFloat value_fromnet
  eventOut SFFloat value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn SFFloat InSc IS set_value
    eventOut SFFloat OutSc IS value_changed
    eventIn SFFloat netInSc IS value_fromnet
    eventOut SFFloat netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkSFImage [
  eventIn SFImage set_value
  eventOut SFImage value_changed
  eventIn SFImage value_fromnet
  eventOut SFImage value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn SFImage InSc IS set_value
    eventOut SFImage OutSc IS value_changed
    eventIn SFImage netInSc IS value_fromnet
    eventOut SFImage netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkSFInt32 [
  eventIn SFInt32 set_value
  eventOut SFInt32 value_changed
  eventIn SFInt32 value_fromnet
  eventOut SFInt32 value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn SFInt32 InSc IS set_value
    eventOut SFInt32 OutSc IS value_changed
    eventIn SFInt32 netInSc IS value_fromnet
    eventOut SFInt32 netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkSFRotation [
  eventIn SFRotation set_value
  eventOut SFRotation value_changed
  eventIn SFRotation value_fromnet
  eventOut SFRotation value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn SFRotation InSc IS set_value
    eventOut SFRotation OutSc IS value_changed
    eventIn SFRotation netInSc IS value_fromnet
    eventOut SFRotation netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkSFString [
  eventIn SFString set_value
  eventOut SFString value_changed
  eventIn SFString value_fromnet
  eventOut SFString value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn SFString InSc IS set_value
    eventOut SFString OutSc IS value_changed
    eventIn SFString netInSc IS value_fromnet
    eventOut SFString netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkSFTime [
  eventIn SFTime set_value
  eventOut SFTime value_changed
  eventIn SFTime value_fromnet
  eventOut SFTime value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn SFTime InSc IS set_value
    eventOut SFTime OutSc IS value_changed
    eventIn SFTime netInSc IS value_fromnet
    eventOut SFTime netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkSFVec2f [
  eventIn SFVec2f set_value
  eventOut SFVec2f value_changed
  eventIn SFVec2f value_fromnet
  eventOut SFVec2f value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn SFVec2f InSc IS set_value
    eventOut SFVec2f OutSc IS value_changed
    eventIn SFVec2f netInSc IS value_fromnet
    eventOut SFVec2f netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkSFVec3f [
                      eventIn SFVec3f set_value
                      eventOut SFVec3f value_changed
                      eventIn SFVec3f value_fromnet
                      eventOut SFVec3f value_tonet
                      exposedField SFString tag
                      exposedField SFBool   pilotOnly
                      field SFBool   localCopy
                      exposedField SFBool   echo
                      exposedField SFBool   cont
                     ]
{
   Script {
      eventIn SFVec3f InSc IS set_value
      eventOut SFVec3f OutSc IS value_changed
      eventIn SFVec3f netInSc IS value_fromnet
      eventOut SFVec3f netOutSc IS value_tonet
      field SFBool local

      directOutput TRUE
      mustEvaluate TRUE

      url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
   }
}


#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkMFColor [
  eventIn MFColor set_value
  eventOut MFColor value_changed
  eventIn MFColor value_fromnet
  eventOut MFColor value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn MFColor InSc IS set_value
    eventOut MFColor OutSc IS value_changed
    eventIn MFColor netInSc IS value_fromnet
    eventOut MFColor netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkMFFloat [
  eventIn MFFloat set_value
  eventOut MFFloat value_changed
  eventIn MFFloat value_fromnet
  eventOut MFFloat value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn MFFloat InSc IS set_value
    eventOut MFFloat OutSc IS value_changed
    eventIn MFFloat netInSc IS value_fromnet
    eventOut MFFloat netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkMFInt32 [
  eventIn MFInt32 set_value
  eventOut MFInt32 value_changed
  eventIn MFInt32 value_fromnet
  eventOut MFInt32 value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn MFInt32 InSc IS set_value
    eventOut MFInt32 OutSc IS value_changed
    eventIn MFInt32 netInSc IS value_fromnet
    eventOut MFInt32 netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkMFRotation [
  eventIn MFRotation set_value
  eventOut MFRotation value_changed
  eventIn MFRotation value_fromnet
  eventOut MFRotation value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn MFRotation InSc IS set_value
    eventOut MFRotation OutSc IS value_changed
    eventIn MFRotation netInSc IS value_fromnet
    eventOut MFRotation netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkMFString [
  eventIn MFString set_value
  eventOut MFString value_changed
  eventIn MFString value_fromnet
  eventOut MFString value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn MFString InSc IS set_value
    eventOut MFString OutSc IS value_changed
    eventIn MFString netInSc IS value_fromnet
    eventOut MFString netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkMFVec2f [
  eventIn MFVec2f set_value
  eventOut MFVec2f value_changed
  eventIn MFVec2f value_fromnet
  eventOut MFVec2f value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn MFVec2f InSc IS set_value
    eventOut MFVec2f OutSc IS value_changed
    eventIn MFVec2f netInSc IS value_fromnet
    eventOut MFVec2f netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO NetworkMFVec3f [
  eventIn MFVec3f set_value
  eventOut MFVec3f value_changed
  eventIn MFVec3f value_fromnet
  eventOut MFVec3f value_tonet
  exposedField SFString tag
  exposedField SFBool   pilotOnly
  field SFBool   localCopy
  exposedField SFBool   echo
  exposedField SFBool   cont
]
{
  Script {
    eventIn MFVec3f InSc IS set_value
    eventOut MFVec3f OutSc IS value_changed
    eventIn MFVec3f netInSc IS value_fromnet
    eventOut MFVec3f netOutSc IS value_tonet
    field SFBool local

    directOutput TRUE
    mustEvaluate TRUE

    url "javascript:
      function InSc(value) {
        netOutSc = value;
        if( local == true )
          OutSc = value;
      }
      function netInSc(value) {
        OutSc = value;
      }
    "
  }
}


#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO Matrix_Gate [
                   eventIn SFBool activate
                   eventOut SFString isActive
                   field SFString target
                  ]
{
   Script {
      eventIn SFBool activateSc IS activate
      eventOut SFString isActiveSc IS isActive
      field SFString targetSc

      directOutput TRUE
      mustEvaluate TRUE

      url "javascript:
      function activateSc(value) {
        if( value == true ) {
          isActiveSc = targetSc;
        }
      }
    "
   }
}

#VRML V2.0 utf8                ##  anonymous
##@ interface
EXTERNPROTO SharedObject
[
 exposedField    SFBool        isPilot
 exposedField    SFString      name
 exposedField    MFNode        children
 exposedField    SFVec3f       position
 exposedField    SFRotation     orientation
 eventIn         SFBool        set_isVisible
 eventOut        SFBool        isVisible_changed
 exposedField    MFString       url
 exposedField    SFBool        isAvatar
 exposedField    MFNode        states
]
{
   Transform {
      translation IS position
      rotation IS orientation
      children [
         DEF Visible Switch {
            whichChoice 0
            choice [
               Transform {
                  rotation 0 1 0 3.141592 # to compensate for Camera direction
                  children IS children
               }
              ]
         }
         Group {
            children IS states
         }
         DEF Control Script {
            eventIn   SFBool   set_isVisible IS set_isVisible
            eventOut  SFBool   isVisible_changed IS isVisible_changed
            eventOut  SFInt32  choice

            mustEvaluate TRUE

            url "javascript:
      function set_isVisible( value ){
        isVisible_changed = value;
        if( value == true ){
          choice = 0;
        } else {
          choice = -1;
        }
      }"
         }
        ]
   }
   ROUTE Control.choice TO Visible.set_whichChoice
}



##</>