#VRML V2.0 utf8
#
# DYNAMIC MODEL PROTOS
# 

PROTO FSM [
   field       SFVec3f   position 0 0 0
   exposedField SFBool   input  FALSE
   eventIn     SFString  set_state 
   field       SFString  start_state  ""
   field       MFNode    states []
   field       MFNode    transitions []
   eventIn     SFFloat   set_clock
]
{
   Transform {
      translation IS position
      children [
         Group {children IS states}
         Group {children IS transitions}
      ] #children
   } #Transform
   DEF Fsm_Run Script {
      eventIn      SFFloat  set_clock IS set_clock
      eventIn      SFString set_state IS set_state
      field        SFString start_state IS start_state
      field        SFString state ""
      field        MFNode   states IS states
      field        MFNode   transitions IS transitions
      url "javascript:
         function initialize() {
            state = start_state;
         }
         function set_clock(value,ts) {
            for(i=0;i<states.length;i++) 
               states[i].set_clock = value;
            for(i=0;i<transitions.length;i++)
               transitions[i].set_clock = value;
            if (state=='s1') {
                states[0].set_enabled = TRUE;
                states[1].set_enabled = FALSE;
                states[2].set_enabled = FALSE;
            } 
            else
               if (state=='s2') {
                  states[0].set_enabled = FALSE;
                  states[1].set_enabled = TRUE;
                  states[2].set_enabled = FALSE;
               } 
               else {
                  states[0].set_enabled = FALSE;
                  states[1].set_enabled = FALSE;
                  states[2].set_enabled = TRUE;
               }
         }
         function set_state(value,ts) { 
            state = value;
         }
      " #javascript
   } #DEF Fsm_Run
} #PROTO FSM

PROTO FSM_STATE [
   eventIn      SFFloat  set_clock
   exposedField SFBool   enabled FALSE
   field        SFNode   node NULL
   field        SFNode   nodeG NULL
   field        MFNode   audio          []
   exposedField MFNode   geometry       []
   field        MFString   behavior     ""
]
{
   Transform {
      children [
         Group {children IS audio}
         Group {children IS geometry}
         DEF S Script {
            eventIn SFFloat set_clock IS set_clock
            field   SFNode  node IS node
            field   SFNode  nodeG IS nodeG
            url IS behavior
         } #DEF S
      ] #children
   } #Transform
} #PROTO FSM_STATE

PROTO FSM_TRANSITION [
   eventIn      SFFloat  set_clock
   exposedField SFBool   enabled      FALSE
   eventOut     SFString state_changed 
   field        SFNode   from       NULL
   field        SFNode   to         NULL
   field        SFNode   fsm        NULL
   field        SFNode   object     NULL
   exposedField MFNode   geometry   []
   field        MFString behavior   ""
]
{
   Group { 
      children [
         Group {children IS geometry}
         DEF S Script {
            eventIn  SFFloat  set_clock IS set_clock
            eventOut SFString state_changed IS state_changed
            field    SFNode   from IS from
            field    SFNode   to IS to
            field    SFNode   fsm IS fsm
            field    SFNode   object IS object
            url IS behavior
         } #Script
      ] #children
   } #Group
} #PROTO FSM_TRANSITION

PROTO INPUT [
   eventIn      SFTime   touched
   eventOut     SFBool   enabled
   eventOut     SFBool   isActive
   eventOut     SFBool   state_changed
   field        SFBool   state      FALSE
]
{
   DEF Input_Switch Script {
      eventIn  SFTime touched  IS touched
      eventOut SFBool enabled  IS enabled
      eventOut SFBool isActive IS isActive
      field    SFBool state       FALSE
      eventOut SFBool state_changed  IS state_changed
      url "javascript:
         function touched(value,ts) {
            if(state) {
               state = FALSE;
               state_changed = state;
            }
            else {
               state = TRUE;
               state_changed = state;
            }
            isActive = state;
         }
      " #javascript
   } #DEF Input_Switch
} #PROTO INPUT

#
# OBJECT PROTOS
# 
PROTO TANK [
   exposedField SFFloat  transparency   0.0
   field        SFVec3f  text_position  -1 1 0
   field        MFString name           "State"
   field        SFVec3f  position 0 0 0
]
{
   Group {
      children [
         Transform {
            translation IS position
            children Billboard {
               children Transform {
                  translation IS text_position
                  children Shape {
                     geometry Text {string IS name}
                  } #Shape
               } #Transform
            } #Billboard
         } #Transform Text
         Transform {
            translation IS position
            children  Shape {
               appearance Appearance {material Material {
                  diffuseColor 1.0 0.0 0.0
                  transparency IS transparency}}
               geometry Sphere {}
            } #Shape
         } #Transform Sphere
      ] #children
   } #Group
} #PROTO TANK 

PROTO PIPE [
   field        SFVec3f  local_frame 0 0 0
   field        SFVec3f  translation 0 0 0
   field        SFRotation  rotation 0 0 1 3.14
   field        SFVec3f  cylinder_translation 0 0 0
   field        SFVec3f  cone_translation     0 0 0
   field        SFRotation  cone_rotation        0 0 0 0
]
{
   Group {
      children [
         Transform { 
            translation IS local_frame
            children
               Transform { 
                  translation IS translation
                  rotation IS rotation
                  children [
                     Transform { 
                        translation IS cylinder_translation
                        children  Shape { 
                           appearance Appearance { material 
                              DEF MAT Material { diffuseColor 0 0.7 0 } }
                           geometry Cylinder { radius 0.25 height 1} 
                        } #Shape
                     } #Transform
                     Transform { 
                        translation IS cone_translation
                        rotation IS cone_rotation
                        children  Shape {
                           appearance Appearance { material USE MAT }
                           geometry Cone { bottomRadius 0.45 height 1} 
                        } #Shape
                     } #Transform
                  ] #children
               } #Transform
         } #Transform
      ] #children
   } #Group
} #PROTO PIPE