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

PROTO FSM [
   eventIn     SFFloat   set_clock
   eventIn     SFString  set_state
   field       SFVec3f   position 0 0 0
   field       SFString  start_state  ""
   field       MFNode    states []
   field       MFNode    transitions []
   field       SFNode    thisNodeName  NULL	   
   eventOut    SFTime    state_change_time
   exposedField SFString  old_state "S1"
   exposedField SFBool   input  FALSE
]
{
   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        MFNode   states IS states
      field        MFNode   transitions IS transitions
      field        SFString state ""
      field        SFString oldstate ""
      field       SFNode    thisNodeName IS	thisNodeName	
      eventOut     SFTime   state_change_time IS state_change_time
      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') {	   
                  if (thisNodeName.old_state =='s1'){	 
                     transitions[0].set_fill = TRUE;
                     transitions[1].set_fill = FALSE;
                     transitions[2].set_fill = FALSE;
                  }
                  else if (thisNodeName.old_state =='s3'){ 
                     transitions[0].set_fill = FALSE;
                     transitions[1].set_fill = FALSE;
                     transitions[2].set_fill = TRUE;
                  }
                  else {
                     transitions[0].set_fill = FALSE;
                     transitions[1].set_fill = FALSE;
                     transitions[2].set_fill = FALSE;
                  }
                  states[0].set_enabled = FALSE;
                  states[1].set_enabled = TRUE;
                  states[2].set_enabled = FALSE;
               }
               else {
                if (thisNodeName.old_state =='s2'){		
                     transitions[0].set_fill = FALSE;
                     transitions[1].set_fill = TRUE;
                     transitions[2].set_fill = FALSE;
                  }
                  else {
                     transitions[0].set_fill = FALSE;
                     transitions[1].set_fill = FALSE;
                     transitions[2].set_fill = FALSE;
                  }
                  states[0].set_enabled = FALSE;
                  states[1].set_enabled = FALSE;
                  states[2].set_enabled = TRUE;
               }
         }
         function set_state(value,ts) {
            state_change_time = ts;
            thisNodeName.old_state = state; 
			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     ""
   exposedField SFFloat   value 0
#   exposedField SFFloat   value 1.75
   field        SFNode   fsm NULL
]
{
   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
            field   SFNode  fsm IS fsm
            url IS behavior
         } #DEF S
      ] #children
   } #Transform
} #PROTO FSM_STATE

PROTO FSM_TRANSITION [
   eventIn      SFFloat  set_clock
   field        SFNode   from       NULL
   field        SFNode   to         NULL
   field        SFNode   fsm        NULL
   field        SFNode   object     NULL
   field     	SFNode   objectG    NULL
   field        MFString behavior   ""
   eventOut     SFString state_changed
   exposedField SFBool   state_change FALSE
   exposedField SFBool   enabled      FALSE
   exposedField SFBool   fill       FALSE
   exposedField MFNode   geometry   []
]
{
   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
            field    SFNode   objectG IS objectG
            url IS behavior
         } #Script
      ] #children
   } #Group
} #PROTO FSM_TRANSITION

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

PROTO TANK [
   eventIn      SFFloat  set_height 
   field        SFFloat  height 1
   field        SFVec3f  text_position  -1 1 0
   field        SFVec3f  tank_position 0 0 0
   field        SFVec3f  position 0 0 0
   field        SFNode   thisNodeName	NULL
   exposedField MFString name           "State"
   exposedField SFFloat  transparency   0.0
   eventIn		SFBool	 set_up 
   field        SFBool	 up	FALSE
]
{
   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 0.5 0.5 0.5
                     transparency 0.6}}
                  geometry Cylinder {}
               } #Shape
           ]
         } #Transform Sphere
         Transform {
            translation IS tank_position
            children  [
               Shape {
                  appearance Appearance {material Material {
                     diffuseColor 0 0 1
                     transparency IS transparency
                  } }
                  geometry Cylinder {}
                  geometry DEF WaterLevel Extrusion {
                      crossSection [  .87    0,  0.75342 -0.435,    0.435   -0.75342,
                            0   -.87, -0.435   -0.75342, -0.75342 -0.435,
                           -.87    0, -0.75342  0.435,   -0.435    0.75342,
                           0    .87,  0.435    0.75342,  0.75342  0.435,   .87 0]
                     spine 0 0 0
					  }
               }
           ]
         } #Transform Sphere
      ] #children
   } #Group

      DEF Anim Script {
        eventIn  SFFloat set_height IS set_height
        field    SFFloat height IS  height
        field    SFVec3f curr_height 0 -1 0
        field    SFVec3f new_height  0 -1 0
        field    MFVec3f height_out  []
        eventOut MFVec3f height_changed
        eventOut SFTime  start_anim
        eventOut SFTime  start_yanim
	    eventIn	 SFBool	 set_up IS set_up
		field    SFBool	 up IS up
        url "javascript:
          function set_up(value) {
            up = value;
		  }
          function set_height(value,ts) {
		  if (up) {
            height = value;
			}
		  if (!up) {
            height = 1.75 - value;
			}
            new_height.y = height;
            height_out[0] = curr_height;
            height_out[1] = new_height;
            height_changed = height_out;
            start_anim = ts;
            curr_height = new_height;
          }
		  "
      }
      DEF NewSpine Script {
        eventIn  SFVec3f set_spine
        eventOut MFVec3f spine_changed
        url "javascript:
          function set_spine(spine1) {
            spine_changed[1] = spine1;
          }"
      }
      DEF AnimT TimeSensor { cycleInterval 0.1}
      DEF PI PositionInterpolator {
        key [ 0.0, 1.0 ]
      }  
  ROUTE Anim.height_changed     TO  PI.keyValue
  ROUTE Anim.start_anim         TO  AnimT.startTime
  ROUTE AnimT.fraction_changed  TO  PI.set_fraction
  ROUTE PI.value_changed        TO  NewSpine.set_spine
  ROUTE NewSpine.spine_changed  TO  WaterLevel.set_spine
} #PROTO TANK

PROTO TANK0 [
   eventIn  SFBool   tr
]
{
   Group {
      children [
         Transform {
            translation 0 -1.2 -11
            children  [
               Shape {
                  appearance  Appearance {material DEF Mat Material {
                     diffuseColor 0 0 1
                     transparency 0.0
                  } }
                  geometry Cylinder {}
                  geometry Extrusion {
                      crossSection [  .87    0,  0.75342 -0.435,    0.435   -0.75342,
                            0   -.87, -0.435   -0.75342, -0.75342 -0.435,
                           -.87    0, -0.75342  0.435,   -0.435    0.75342,
                           0    .87,  0.435    0.75342,  0.75342  0.435,   .87 0]
                    	   spine [0 0 0, 0 -1.75 0]
					  }
               }
           ]
         } #Transform Sphere
      ] #children
   } #Group
   DEF Trans Script {
       eventIn      SFBool   tr IS tr
       eventOut     SFFloat  out_tr
       url "javascript:
          function tr(value) {
            out_tr = 1;
		  }"
      }
   ROUTE Trans.out_tr  TO  Mat.set_transparency
} #PROTO TANK0

PROTO PIPE [
   field        SFVec3f  local_frame 0 0 0
   field        SFRotation frame_rotation 0 0 0 0
   field        SFVec3f  translation 0 0 0
   field        SFRotation  rotation 0 0 1 3.14
   field        SFRotation funnel_rotation 1 0 0 1.57
   field        SFVec3f  vert_cyl_translation 1.0 2.35 0
   field        SFFloat  length 4.5
   exposedField SFFloat  transparency 1.0
]
{
   Group {
      children [
         Transform {
            translation IS local_frame
            rotation IS frame_rotation
            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.13 height IS length}
                        } #Shape
                     } #Transform
                     Transform {
                        translation 0 -2.0 0 #IS cone_translation
                        #rotation IS cone_rotation
                        children  Shape {
                           appearance Appearance { material Material {
                     	                     diffuseColor 1 0 0
                     	                  }}
                           geometry Cone { bottomRadius 0.23 height 1}
                        } #Shape
                     } #Transform
                     Transform {
                        translation IS vert_cyl_translation
                        rotation 0 0 1 1.57
                     	children [
                     	   Transform {
                     	      translation 0 .97 0
                     	      children DEF Connector Shape {
                     	         appearance Appearance { material Material {
                     	            diffuseColor 1 0 0
                     	         }}
                     	         geometry Sphere {radius .18}
                              }
                     	   }
                     	   Shape {
                     	      appearance Appearance { material USE MAT }
                     	      geometry Cylinder {radius 0.13 height 1.8}
                     	   }
                     	   Transform {
                     	      rotation IS funnel_rotation
                     	      translation 0 -1.05 -.4
                     	      children [
                     	         Shape {
                     	            appearance Appearance { material USE MAT }
                     	            geometry Cylinder {radius 0.13 height .7}
                     	         }
                     	         Transform {
                     	            #rotation 0 0 1 3.14
                     	            translation 0 -.25 0
                     	            children Shape {
                     	               appearance Appearance { material Material {
                     	                     diffuseColor 1 0 0
                     	                  }}
                     	               geometry Cone { bottomRadius 0.23 height 1 }
                     	            }
                                 }
                                 Transform {
                                    translation 0 -.7 0
                     	            children [
                     	               Shape {
                     	                  appearance Appearance { material
                     	                     Material {
                     	                        diffuseColor 0 0 1
                     	                        transparency IS transparency
                     	                     }
                     	                  }
                     	                  geometry Extrusion {
                     	                     crossSection [0 .1, .03 .083, .065 .065, .083 .03,
                     	                            .1 0, .083 -.03, .065 -.065, .03 -.083, 0 -.1,
                     	                             -.03 -.087, -.065 -.065, -.087 -.03, -.1 0,
                     	                             -.087 .03, -.065 .065, -.03 .087, 0 .1]
                     	                     spine [0 0 0, 0 -.1 -.007, 0 -.2 -.02, 0 -.29 -.05, 0 -.38 -.1,
                     	                         0 -.45 -.2, 0 -.53 -.3, 0 -.6 -.6, 0 -.6 -2]
                     	                  }
                     	               }
                     	            ]
                     	         }
                     	         Transform {
                     	            translation 0 .387 -.02
                     	            children USE Connector
                     	         }
                     	      ]
                     	   }
                     	]
                     }

                  ] #children
               } #Transform
         } #Transform
      ] #children
   } #Group
} #PROTO PIPE