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

PROTO god [
	eventIn      SFFloat  set_clock
	eventOut SFBool	enabled	
	eventIn	SFString state_changed 
	field MFString behavior ""
	field        SFNode   from	NULL
   field        SFNode   to		 NULL
   field        SFNode   fsm	 NULL
] {Transform {
	children [Group {}
		DEF S Script {
            eventIn  SFFloat  set_clock IS set_clock
            eventIn SFString state_changed IS state_changed
            field    SFNode   from IS from
            field    SFNode   to IS to
            field    SFNode   fsm IS fsm
			eventOut SFBool	enabled  IS	enabled
        	url IS behavior }]}
		

} 

	
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       []
   exposedField	MFVec2f	 movement []
   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 cin [

   field        MFString name           "State"
  exposedField        SFVec3f  movement 0 0 0
]{Transform {translation IS	movement
	children [ Inline {
		url	["cinderella.wrl"]
	}
]
}
}
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	0 -10 0
			 children [ Transform {scale 2 2 2
            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 [Transform {scale 2 3.5 2 translation 0 -6 0
				children Inline {
	url	["gazebo.wrl",]
} 
			} 
				Transform {	scale 0.7 0.7 0.7 translation 0 -6 0
					children [
				Shape {appearance Appearance {
					material Material {emissiveColor 1 1 0
						transparency IS	transparency
					}
				}
				geometry  Extrusion {		scale [1 1, 0.9 0.9, 0.8 0.8, 0.6 0.6, 0.01 0.01]
	 crossSection [ 4.0  0.00,   3.92 -1.38,
             2.71 -2.71,   1.38 -3.92,
             0.00 -4.00,  -1.38 -3.92,
            -2.71 -2.71,  -3.92 -1.38,
            -4.00 -0.00,  -3.92  1.38,
            -2.71  2.71,  -1.38  3.92,
             0.00  4.00,   1.38  3.92,
             2.71  2.71,   3.92  1.38,
             4.00  0.00 ] spine [0 0 0, 0 1 0, 0 2 0, 0 3 0, 0 4 0]
		}
			   	} ]
				}
						]
         } #Transform Sphere
		 
      ] #children
   } #Group

} #PROTO TANK 

PROTO PIPE [
   field        SFVec3f  local_frame 0 0 0
   field        SFVec3f  translation 0 -0.2 0
   field        SFRotation  rotation 0 0 1 0
  

]
{
   Group {
      children [
         Transform {rotation IS	rotation
            translation IS local_frame
            children
               Transform { 
                  translation IS translation
                  rotation IS rotation
                  children [
					 Transform	{ 
						  children [DEF path2  Transform { 
		children [
		Transform {	translation	0 0 -10
	children [Inline {
	url	["post.wrl",]
}]
}]}      
]
					}			 
           
   
    Transform {      children  Shape { 
                           appearance Appearance { material 
                              DEF MAT Material { diffuseColor 0 0.7 0 } }
                           geometry USE	path2
                        } #Shape
                     } #Transform
                     
                  ] #children
               } #Transform
         } #Transform
      ] #children
   } #Group
} #PROTO PIPE
#VRML V2.0 utf8