#VRML V2.0 utf8

# The Collection of Protos for DeepMatrixIP9 Multi-user system.
# As long as you leave the original eventIns, eventOuts and exposedFields alone
# you can add your own and modify the scripts as needed! Always remember to test your 
# work! Never assume anything!
# See the code of "Matrix","BlackSun","Chess","Desert Treasure Hunt" and "Seven Emerald Tablets"!

# Walker - MANDATORY! It replaces the ProximitySensor, default NavigationalInfo, and default Viewpoint Nodes.
# It does all the controlling of the user's avatar. Does the 'Beam-to' and 'Ghost' work.
# Provides governing of the output of the user's position and orientation so the two networks
# local and global are not flooded with values.
# Provides the default NavigationalInfo and Viewpoint Nodes! 
# Provides the BeamTo and Ghost features!
# Provides a HUD capability.
# It can be modified to suit needs - but remember to test the modifications!
PROTO Walker [
#  set_navigation - values set by Java EAI and also internally by the Proto's scripts.
eventIn SFInt32 set_navigation
# set_Wakeup - is called by the Java EAI during loading
# It runs a short animated viewpoint to make sure the ProximitySensor sends the correct values to the network and user!
eventIn SFBool set_Wakeup
# setBeamTo - is called by the Java EAI to deliver the position and orientation of the target user or object for beam to.
eventIn MFFloat setBeamTo
# set_bind - binds the Ghost viewpoint for viewing user's avatar
eventIn SFBool set_bind
# navCycleTime - a time stamp given when NavigationInfo type has been changed.
eventOut SFTime	navCycleTime
# primer_time - time stamp given during initial loading.
eventOut SFTime primer_time
# ghostBindTime - ghostIsBound - outputs from the Ghost Viewpoint -bound when a user views their avatar. 
eventOut SFTime	ghostBindTime
eventOut SFBool	ghostIsBound
# beamBindTime - beamIsBound - outputs from the Beamto Viewpoint -bound when beaming to an object or person.
eventOut SFTime	beamBindTime
eventOut SFBool	beamIsBound
# ProximitySensor fields size -be sure to change the 0s to values when it is instanced!
# Just treat the Walker Proto instance as a ProximitySensor!
exposedField SFVec3f size 0 0 0
exposedField SFBool enabled TRUE
exposedField SFVec3f center 0 0 0
eventOut SFTime enterTime
eventOut SFTime exitTime
eventOut SFBool isActive
# orientation_changed and position_changed are observered by the Java EAI
# Values change by the cycleInterval field below.
eventOut SFRotation orientation_changed
eventOut SFVec3f position_changed
#  rotation_changed and translation_changed are for continuous output from the ProximitySensor for Scripts and HUDs
eventOut SFRotation rotation_changed
eventOut SFVec3f translation_changed
# cycleInterval governs the output from the ProximitySensor
exposedField SFTime cycleInterval .4
# for modifying the user's position and orientation when necessary
eventIn SFVec3f set_viewpoint_position
eventIn SFRotation set_viewpoint_orientation
exposedField SFString protoName "Walker"
# NavigationInfo stuff	Just treat the Walker Proto as a NavigationInfo Node  with these!
exposedField SFFloat set_speed 3
# type - this field is observered the Java EAI for changes.
exposedField MFString type [
"WALK"
"ANY"
]
exposedField MFFloat avatarSize [
.25 1.6 .75
]
exposedField SFBool headlight TRUE
exposedField SFFloat visibilityLimit 0
# isBound - boolean output for when the NavigationInfo Node is bound.
eventOut SFBool isBound
# set_navbind - is called by the Java EAI to bind the NavigationInfo during the user's initial entry.
eventIn SFBool set_navbind
# The default on entry viewpoint fields for the world. Just treat the Walker Proto as a Viewpoint Node  with these!
exposedField SFBool jump TRUE
exposedField SFString description "Entry"
exposedField SFRotation vporientation 0 1 0 0
exposedField SFVec3f vpposition 0 0 0
exposedField SFFloat fieldOfView .785
# isVpBound - Entry viewpoint bind state
eventOut SFBool isVpBound
# bindTime - Entry viewpoint bind time
eventOut SFTime bindTime
# bAnimVp - set to FALSE is a work-around for some worlds that require a short animated Viewpoint
# on the user's initial entry to register the user's position and orientation with the Java EAI observers.
field SFBool bAnimVp FALSE
# vpbind - not only binds the entry Viewpoint but sets up a the small animation for it.
eventIn SFBool vpbind
# setVpbind2 - just only binds the Entry Viewpoint and does nothing else.
eventIn SFBool setVpbind2
# bAnim - set to TRUE is a work-around for some worlds that require a short animated Viewpoint
# to register the user's position and orientation with the Java EAI observers when the Entry viewpoint is bound TRUE
# either by selection from the client's GUI or by a Script. It's setting as TRUE has to be determined by builder by testing.
# See the MatrixViewpoint2 Proto as well. 
field SFBool bAnim FALSE
# navigation_info_changed observed by Java EAI for both speed and changes in headlight and collision.
eventOut SFFloat navigation_info_changed
# changes world Collision 
exposedField SFBool collide TRUE
# masterCollide duplicates the "WALKRESTRICTED" type of blaxxun navigation.
# when TRUE collision cannot be turned off! 
# A world builder  must set the type field above to collision only navigation types like "WALK","FLY" and "LOOKAT"!
exposedField SFBool masterCollide FALSE
# collision_state is meant to be read by scripts to determine initial collision state of the world on load.
eventOut SFBool collision_state
# bInitCollide IS the initial collision state desired by the builder!
# It is sent to the above collision_state eventOut during initial loading,
# Default setting is TRUE. 
field SFBool bInitCollide TRUE
]
{
Group {
children [
DEF WalkNav NavigationInfo {
avatarSize IS avatarSize
headlight IS headlight
speed IS set_speed
type IS type
visibilityLimit IS visibilityLimit
set_bind IS set_navbind
isBound IS isBound
}
DEF Col Collision {
collide	IS collide
}
DEF MCol Collision {
collide	IS masterCollide
}
DEF Tms TimeSensor {
cycleInterval IS cycleInterval
}
DEF Bb ProximitySensor {
center IS center
enabled IS enabled
size IS size
enterTime IS enterTime
exitTime IS exitTime
isActive IS isActive
}
DEF EntryVp Viewpoint {
fieldOfView IS fieldOfView
jump IS jump
orientation IS vporientation
position IS vpposition
#set_bind IS vpbind
bindTime IS bindTime
isBound IS isVpBound
}
DEF GhostVp Viewpoint {
bindTime IS	ghostBindTime
isBound	IS ghostIsBound
}
DEF BeamVp Viewpoint {
bindTime IS	beamBindTime
isBound	IS beamIsBound
}
DEF BufferTms TimeSensor {
loop TRUE
}
DEF NavTms TimeSensor {
cycleTime IS navCycleTime
}
DEF WakeupTms TimeSensor {
cycleInterval .8
}
DEF WakeupOI OrientationInterpolator {
key [
0 .5 1
]
}
DEF WakeupPI PositionInterpolator {
key [
0 .5 1
]
}
DEF Sc Script {
eventIn	SFFloat	speedUpdate 
eventIn	SFBool set_headlightState
eventIn	SFBool set_collisionState
eventIn	SFBool set_masterCollisionState
eventIn	SFBool setVpbind2 IS setVpbind2
eventIn	SFBool setVpbind IS	vpbind
eventIn	SFBool reset_bool
eventIn SFBool set_bufferActive
eventIn SFBool set_Wakeup IS set_Wakeup
eventIn SFTime set_enterTime
eventIn SFBool set_navbind IS set_navbind
eventIn SFInt32 set_navigation IS set_navigation
eventIn MFFloat setBeamTo IS setBeamTo
eventIn SFBool set_active2
eventIn SFBool set_bind IS set_bind
eventIn SFBool set_active3
eventIn SFBool set_bool
eventIn SFBool set_bool2
eventIn	SFVec3f	set_viewpoint_position	IS set_viewpoint_position
eventIn	SFRotation set_viewpoint_orientation IS	set_viewpoint_orientation
eventIn SFRotation set_rotation
eventIn SFVec3f set_vec3f
eventOut SFBool	collision_state IS collision_state
eventOut SFTime primer_time IS primer_time
eventOut SFVec3f translation_changed IS translation_changed
eventOut SFRotation rotation_changed IS rotation_changed
eventOut SFVec3f position_changed IS position_changed
eventOut MFNode	nodes_changed
eventOut SFString message_changed
eventOut SFFloat navigation_info_changed IS	navigation_info_changed
eventOut SFRotation orientation_changed IS orientation_changed
directOutput TRUE
field SFString sName ""
field SFBool bAnim IS bAnim
field SFBool bAvalon FALSE
field SFBool bAnimVp IS bAnimVp
field SFNode MCol USE MCol
field SFNode BufferTms USE BufferTms
field SFNode WakeupOI USE WakeupOI
field SFNode WakeupPI USE WakeupPI
field SFNode WakeupTms USE WakeupTms
field SFNode EntryVp USE EntryVp
field SFNode WalkNav USE WalkNav
field SFNode NavTms USE	NavTms
field SFNode GhostVp USE GhostVp
field SFNode BeamVp USE BeamVp
field SFNode Tms USE Tms
field SFNode Bb USE Bb
field SFNode Sc USE	Sc
field SFInt32 posct 0
field SFInt32 iHL 0
field SFInt32 iCL 0
field SFInt32 iMC 0
field SFBool bInitCollide IS bInitCollide
field SFRotation rot 0 0 1 0
field SFRotation rot2 0 0 1 0
field SFRotation rot3 0 0 1 0
field SFRotation rot4 0 1 0 3.14
field SFRotation rot5 0 1 0 0
field SFVec3f pos 0 0 0
field SFVec3f pos2 0 0 0
field SFVec3f pos3 0 0 4
field SFVec3f posHUD 0 0 -4
field SFVec3f pos4 0 0 -5
field SFVec3f pos5 0 0 0
field MFString OrigNav []
field SFBool bGhostHUD FALSE
field SFBool Bstate FALSE
field SFBool Tstate FALSE
field SFVec3f Halfway_pos 0 0 0
field SFRotation Halfway_rot 0 1 0 0
field SFBool Pstate FALSE
field SFBool Rstate FALSE
field SFString Navchange ""
field MFString preNav []
field MFString navtypes []
url "javascript:
function speedUpdate(v){ navigation_info_changed = v; }
function set_masterCollisionState(v){
if(!v){ navigation_info_changed = -6.0; 
	  set_navigation(13);
    }
else { navigation_info_changed = -5.0; 
	   set_navigation(12);
        }
}
function set_headlightState(v){
if(!v){ 
      navigation_info_changed = -2.0;
      iHL = 9;
            }
else { 
      navigation_info_changed = -1.0;
      iHL = 8;
      }
    }
function set_collisionState(v){
if(!MCol.collide){
if(!v){ 
       navigation_info_changed = -4.0;
       set_navigation(11);
       }
else { 
       navigation_info_changed = -3.0;
       set_navigation(10);
       }
 }
}
function set_viewpoint_position(v){ position_changed = v; translation_changed = v; }
function set_viewpoint_orientation(v){ orientation_changed = v; rotation_changed = v; }
function setVpbind2(v){ if(v){ EntryVp.set_bind = true; }}
function setVpbind(v){ if(v){ 
 collision_state = bInitCollide;
 EntryVp.set_bind = true;
 EntryVp.position = WakeupPI.keyValue[2];
 EntryVp.orientation = WakeupOI.keyValue[2];
 EntryVp.set_bind = v;
if(OrigNav[0]!='NONE'){ WalkNav.type = OrigNav;	}
if(bAnim){ 
WakeupTms.startTime = ts;
     }
   }
 }
function set_bufferActive(v,ts){
if(v){ EntryVp.set_bind = true;
if(!bAnimVp){ set_Wakeup(v,ts);} 
primer_time = ts; 
BufferTms.loop = false;}
} 
function set_Wakeup(v,ts){
sName = Browser.getName();
if(sName=='Avalon'&&WalkNav!=null){ 
bAvalon = true; 
Browser.addRoute(Sc,'nodes_changed',WalkNav,'navigator'); 
nodes_changed = Browser.createVrmlFromString('SpaceNavigator {}');
Browser.addRoute(Sc,'message_changed',Sc.nodes_changed[0],'message');
}
WakeupPI.keyValue[0] = EntryVp.position;
Halfway_pos = EntryVp.position;
Halfway_pos[1] += .3;
WakeupPI.keyValue[1] = Halfway_pos;
WakeupPI.keyValue[2] = EntryVp.position;
WakeupOI.keyValue[0] = EntryVp.orientation ;
OrigNav = WalkNav.type;
Halfway_rot = EntryVp.orientation;
Halfway_rot[3] += .1;
WakeupOI.keyValue[1] = Halfway_rot;
WakeupOI.keyValue[2] = EntryVp.orientation;
WakeupTms.startTime = ts;
}
function set_navigation(v,ts){ 
if(v<7){
if(v==0){ Navchange = 'EXAMINE'; }
if(v==1){ Navchange = 'WALK'; }
if(v==2){ Navchange = 'FLY'; }
if(v==3){ Navchange = 'FREEFLY'; }
if(v==4){ Navchange = 'LOOKAT';	}
if(v==5){ Navchange = 'PAN'; }
if(v==6){ Navchange = 'SLIDE'; }
navtypes = new MFString(Navchange);
var iCt = 1;
for( var a = 0; a<WalkNav.type.length; a +=1 ){
if(WalkNav.type[a]!=Navchange&&(WalkNav.type[a].indexOf(' ')==-1||WalkNav.type[a]=='')){
navtypes[iCt]= WalkNav.type[a]; iCt +=1;
}
}
WalkNav.type = navtypes; 
WalkNav.set_bind = true;
NavTms.startTime = ts;
  }
else {
if(bAvalon){ 
if(v==7){ message_changed = 'straightenUp'; }
if((v==8||v==9)&&v!=iHL){ message_changed = 'toggleHeadlight'; iHL = v; }
if((v==10||v==11)&&v!=iCL){ message_changed = 'toggleCollision';iCL = v; 
if(v==10){
collision_state = true;
}
if(v==11){
collision_state = false;
}
}
if(v==12){
preNav = WalkNav.type;
WalkNav.type = new MFString('WALK');
WalkNav.set_bind = true;
NavTms.startTime = ts;
if(iCL==11){ message_changed = 'toggleCollision'; 
collision_state = true;
iCL = 10;             
 }
iMC = 12;
}
if(v==13){
if(iMC==12){
WalkNav.type = preNav;
WalkNav.set_bind = true;
NavTms.startTime = ts;
}
}
}
}
}
function setBeamTo(v,ts){ 
pos5 = new SFVec3f(v[0],v[1],v[2]);
rot5 = new SFRotation(v[3],v[4],v[5],v[6]);
var vm = new VrmlMatrix();
vm.setTransform(pos4,rot4); 
var vm2 = new VrmlMatrix();
vm2.setTransform(pos5, rot5 );
vm = vm.multRight(vm2);
vm.getTransform(BeamVp.position,BeamVp.orientation);
if( Math.abs(rot5[1])<.98 ){
set_navigation( 0 );
}
else {
set_navigation( 2 );
}
BeamVp.set_bind = true;
}
function set_bind(v,ts){
Bstate = v; 
print(' set_bind: ' + Bstate );
if(v){
var vm = new VrmlMatrix();
vm.setTransform(pos3,rot3); 
var vm2 = new VrmlMatrix();
vm2.setTransform(pos2, rot2 );
vm = vm.multRight(vm2);
vm.getTransform(GhostVp.position,GhostVp.orientation);
GhostVp.set_bind = true;
}
}
function set_enterTime(v){ position_changed  = pos2 = pos;  orientation_changed  = rot2 = rot; }
function set_vec3f(v,ts){ translation_changed = pos = v; Pstate = true; if(Tstate==false){ Tms.startTime = ts;}} 
function set_rotation(v,ts){ rotation_changed = rot = v; Rstate = true; if(Tstate==false){ Tms.startTime = ts;}}
function set_bool(v,ts){
Tstate = v;
if(Tstate==true&&Rstate==true&&!Bstate){
 rot2 = rot;
 orientation_changed  = rot2; 
Rstate = false;
}  
var fY = Math.abs(pos[1]-pos2[1]);
var fX = Math.abs(pos[0]-pos2[0]);
var fZ = Math.abs(pos[2]-pos2[2]);
if(Tstate==true&&Pstate==true&&!Bstate&&(.005<fY||.005<fX||.005<fZ)){
 pos2 = pos;
position_changed = pos2; 
Pstate = false;
}
}
function set_active3(v){ if(!v){ GhostVp.position = pos; GhostVp.orientation = rot; GhostVp.set_bind = true; }}
"
}
]
}
ROUTE WalkNav.speed	TO Sc.speedUpdate
ROUTE WalkNav.headlight	TO Sc.set_headlightState
ROUTE MCol.collide TO Sc.set_masterCollisionState
ROUTE Col.collide TO Sc.set_collisionState
ROUTE WakeupTms.fraction_changed TO WakeupOI.set_fraction
ROUTE WakeupOI.value_changed TO EntryVp.set_orientation
ROUTE WakeupTms.fraction_changed TO WakeupPI.set_fraction
ROUTE WakeupPI.value_changed TO EntryVp.set_position
ROUTE BufferTms.isActive TO Sc.set_bufferActive
ROUTE Tms.isActive TO Sc.set_bool
ROUTE Bb.orientation_changed TO Sc.set_rotation
ROUTE Bb.position_changed TO Sc.set_vec3f
}

# MatrixViewpoint - This is just a Proto'd of the standard Viewpoint Node.
# It has been Proto'd because the Viewpoint's description field 
# is not an exposedField and cannot be read by the Java EAI!
# To get your Viewpoints listed in the Java EAI GUI chat client you
# MUST use the MatrixViewpoint Proto instead of Viewpoint.
# Just simply change the Node's name 'Viewpoint' to 'MatrixViewpoint':
# DEF My_Entry Viewpoint { description "Entry" } 
#              to 
# DEF My_Entry MatrixViewpoint { description "Entry" }
PROTO MatrixViewpoint [ 
exposedField SFVec3f position 0 0 10
exposedField SFRotation orientation 0 0 1 0
eventIn SFBool set_bind
exposedField SFBool jump TRUE
eventOut SFTime bindTime
exposedField SFFloat fieldOfView 0.785398
exposedField SFString description ""
eventOut SFBool isBound
]
{
Group { 
children
Viewpoint { position IS position, orientation IS orientation set_bind IS	set_bind jump IS jump
bindTime IS	bindTime fieldOfView IS	fieldOfView	isBound	IS isBound
}
}
}

#MatrixViewpoint2 - Same as 'MatrixViewpoint' above except it provides very short
# animated viewpoints as a work around for certain worlds that when a Viewpoint is bound
# the new position and orientation are not read correctly by the EAI observers.

PROTO MatrixViewpoint2 [ 
exposedField SFVec3f position 0 0 10
exposedField SFRotation orientation 0 0 1 0
eventIn SFBool set_bind
exposedField SFBool jump TRUE
eventOut SFTime bindTime
exposedField SFFloat fieldOfView 0.785398
exposedField SFString description ""
eventOut SFBool isBound
field SFBool bAnim FALSE
]
{
Group { 
children [
DEF WakeupOI OrientationInterpolator {
key [
0 .5 1
]
}
DEF WakeupPI PositionInterpolator {
key [
0 .5 1
]
}
DEF	Tms TimeSensor {cycleInterval .8 }

DEF Vp Viewpoint { position IS position, orientation IS orientation set_bind IS	set_bind jump IS jump
bindTime IS	bindTime fieldOfView IS	fieldOfView	isBound	IS isBound
}
DEF	Sc Script {
eventIn	SFTime set_bind
field SFNode Vp USE	Vp
field SFNode Tms USE Tms
field SFBool bAnim IS bAnim
field SFNode WakeupOI USE WakeupOI
field SFNode WakeupPI USE WakeupPI
mustEvaluate TRUE
directOutput TRUE
url	"javascript:
function set_bind(v,ts){if(bAnim){
WakeupOI.keyValue[0] = Vp.orientation;
WakeupOI.keyValue[1] = new SFRotation( Vp.orientation.getAxis(), (Vp.orientation[3] + .2) ); 
WakeupOI.keyValue[2] = Vp.orientation;
WakeupPI.keyValue[0] = Vp.position;
WakeupPI.keyValue[1] = new SFVec3f( (Vp.position[0]+.1),(Vp.position[1]+.1),(Vp.position[2]+.1) ); 
WakeupPI.keyValue[2] = Vp.position;
Tms.startTime = ts;}}
"
}
]}
ROUTE Vp.bindTime TO Sc.set_bind
ROUTE Tms.fraction_changed TO WakeupOI.set_fraction
ROUTE Tms.fraction_changed TO WakeupPI.set_fraction
ROUTE WakeupOI.value_changed TO	Vp.orientation
ROUTE WakeupPI.value_changed TO	Vp.position	
}

# Matrix_Sound - Provides a way to play mp3 files with InstantPlayer
# It will also play VorbisSPI, AU, and AIFF  files 
# It is essentially a pseudo-Sound Node, so you can treat it like one as most of its parameters are the same.
# It tracks users using a pair of ProximitySensors and therefore uses boxes rather
# than the sophisticated elipsoid Spheres of the Sound Node	for changing the volume/intensity
# of the sound.	
# It will not do pitch at the present time!
# IMPORTANT HINT: If you use Matrix_Sound and want your audio clip to play when the user enters the room
# (assuming the viewpoint has fallen into the maxFront and maxBack parameter range) you MUST instance the Matrix_Sound Proto
# above the Walker instance in the scene graph: 
# Wrong:   Group {
#                 children [
#                 Walker { }
#                 Matrix_Sound { }
#                 ]}
# Right:  Group {
#                children [
#                 Matrix_Sound { }
#                 Walker { }
#                 ]} 
PROTO Matrix_Sound [
exposedField SFFloat intensity .8
exposedField SFVec3f direction 0 0 1
exposedField SFFloat   maxBack	50
exposedField SFFloat   maxFront 50
exposedField SFFloat   minBack	25
exposedField SFFloat   minFront 25
exposedField SFFloat   priority .8
exposedField MFString audio_url [""]
exposedField SFBool loop FALSE
eventOut SFRotation player_commands
eventOut SFVec3f position_changed
eventOut SFTime	duration_changed
eventIn	SFBool set_active
eventIn	SFBool set_bdirection
exposedField SFTime	startTime 0.0
eventIn SFTime pauseTime
eventIn SFTime resumeTime
exposedField SFTime	stopTime 0.0
exposedField SFVec3f location 0 0 0
exposedField SFTime cycleInterval .4
exposedField SFInt32 whichChoice -1
exposedField SFColor diffuseColor1 0.8 0.8 0.8
exposedField SFColor diffuseColor2 0.8 0.8 0.8
exposedField SFFloat pitch 1
eventOut SFInt32 player_changed
eventIn SFInt32 player_state
eventOut SFBool isActive
eventOut MFFloat parameter_commands
]
{ Group	{
children [
DEF	Snd Sound {
direction IS direction
maxBack	IS maxBack
maxFront IS	maxFront
minBack	IS minBack
minFront IS	minFront
intensity IS intensity
source  DEF Ac AudioClip	{ pitch IS pitch url IS audio_url }
}
DEF TMS3 TimeSensor { startTime IS startTime isActive IS isActive }
DEF	LTMS TimeSensor { enabled FALSE loop IS loop stopTime IS stopTime }
DEF	TMS2 TimeSensor	{ cycleInterval .4 }
DEF	TMS TimeSensor { cycleInterval IS cycleInterval enabled FALSE }
DEF Tr Transform {
translation	IS location
children [
DEF	Prox ProximitySensor { enabled FALSE }
DEF Sw1 Switch { 
whichChoice	IS whichChoice
choice [
DEF BxTr1 Transform {
children 
Collision {
collide	FALSE
children
Shape {
appearance Appearance { material Material { diffuseColor IS diffuseColor1 transparency	.7 }}
geometry Box { size 1 1 1 }}
}}]}
DEF Tr2 Transform {
children [ 
DEF Prox2 ProximitySensor { enabled FALSE }
DEF Sw2 Switch { 
whichChoice	IS whichChoice 
choice [
DEF BxTr2 Transform {
children
Collision {
collide	FALSE
children
Shape {
appearance Appearance { material Material { diffuseColor IS diffuseColor2   transparency	.7 }}
geometry Box { size 1 1 1 }}}
}]}
]}
] }
DEF	Sc Script {
eventIn	SFFloat	set_pitch
eventIn	SFVec3f	set_direction
eventIn	SFTime min_enter
eventIn	SFTime min_exit
eventIn	SFBool enable_TMS
eventIn	SFFloat	set_volume
eventIn	SFFloat set_maxBack
eventIn	SFFloat	set_maxFront
eventIn	SFFloat	set_minBack
eventIn	SFFloat	set_minFront
eventIn	SFBool set_loop 
eventIn	SFBool set_active
eventIn	MFString audio_url 
eventIn	SFTime startTime 
eventIn	SFTime pauseTime IS	pauseTime
eventIn	SFTime resumeTime IS resumeTime
eventIn	SFTime stopTime 
eventIn	SFInt32	player_state IS	player_state
eventIn	SFBool set_bdirection IS set_bdirection
eventIn	SFVec3f	set_position
field SFNode Sw1 USE Sw1
field SFNode Sw2 USE Sw2
field SFNode Snd USE Snd
field SFNode Prox USE Prox
field SFNode Prox2 USE Prox2
field SFNode BxTr1 USE BxTr1
field SFNode BxTr2 USE BxTr2
field SFNode Sc USE	Sc
field SFNode Tr USE	Tr
field SFNode Tr2 USE Tr2
field SFVec3f vdf 0 0 1
field SFBool bAct FALSE
field SFNode TMS2 USE TMS2
field SFNode TMS USE TMS
field SFBool bPos FALSE
field SFBool bLoop FALSE
field SFBool bFull FALSE
field SFBool bInner FALSE
field SFBool bMaxF FALSE
field SFBool bMinF FALSE
field SFBool bMaxB FALSE
field SFBool bMinB FALSE
field SFBool bParams FALSE
field MFRotation max_min []
field SFVec3f Pos 0 0 0
field SFBool bInit TRUE
field SFRotation PrvRot 0 1 0 0
field SFRotation RotCmd 0 1 0 0
field MFInt32 ParamState [0, 0, 0, 0 ]
field MFFloat Params [8.0 0.0 0.0 0.0 0.0 ]
field MFRotation Rot [0 1 0	0]
directOutput TRUE
eventOut MFFloat parameter_commands IS parameter_commands
eventOut SFRotation player_commands IS	player_commands
url "javascript:
function set_parameters(v){
 bAct = true;
 TMS.enabled = false;  
 TMS2.startTime = v;
}
function set_commands(v){
 TMS.enabled = false;  
 Rot[Rot.length] = RotCmd;
 TMS2.startTime = v;
  bAct = true;
}
function audio_url(v,ts){
if(v){ RotCmd = new SFRotation( 15.0, 0.0, 0.0, 0.0 ); set_commands(ts); 
 }
}
function player_state(v){
player_changed = v;
}
function set_pitch(v,ts){ RotCmd = new SFRotation( 14.0, v, 0.0, 0.0 ); set_commands(ts);}
function set_direction(v){
if(vdf!=v&&(Snd.maxFront!=Snd.maxBack&&Snd.minFront!=Snd.minBack)){ Tr.rotation = new SFRotation(vdf,v);}}

function set_bdirection(v){
if(v){
var vf1 = 0.0;
var vf2 = 0.0;
var vf3 = 0.0;
var vf4 = 1.0; 
var vf5 = 1.0; 
if(bInit){ 
Params[1] = Snd.maxFront;
Params[2] = Snd.maxBack;
Params[3] = Snd.minFront;
Params[4] = Snd.minBack;
bInit = false;
}
if(Params[1]==Params[2]&&Params[1]==Params[3]&&Params[1]==Params[4] ){
bFull = true;
vf5 = Params[1];
}
else {
if(Params[2]<Params[1]){
vf1 = (((Params[2] + Params[1])/2)-Params[2]);
if(Params[4]<Params[3]){ 
vf2 = (((Params[4] + Params[3])/2)-Params[4]);
vf3 = (vf1 - vf2)*-1;
}
if(Params[3]<Params[4]){
vf2 = (Params[4]-((Params[4] + Params[3])/2));
vf3 = (vf1 + vf2)*-1;
}
if(Params[3]==Params[4]){
vf3 = vf1*-1;
}
}
if(Params[1]<Params[2]){
vf1 = (((Params[2] + Params[1])/2)-Params[1]);
if(Params[3]<Params[4]){ 
vf2 = (((Params[4] + Params[3])/2)-Params[3]);
vf3 = (vf1 - vf2);
}
if(Params[4]<Params[3]){
vf2 = (Params[3]-((Params[4] + Params[3])/2));
vf3 = (vf1 + vf2);
}
if(Params[3]==Params[4]){
vf3 = vf1;
 }
}
if(Params[1]==Params[2]){
vf4 = Params[2];
if(Params[3]<Params[4]){ 
vf3 = ((((Params[4] + Params[3])/2)-Params[3])*-1);
vf5 = Params[3];
}
if(Params[4]<Params[3]){
vf3 = (((Params[4] + Params[3])/2)-Params[4] );
}
if(Params[3]==Params[4]){
vf3 = vf1;
 }
}
Tr2.translation[2] = vf3;
Prox.size[0] = Params[2] * 2;
Prox.size[1] = Params[2] * 2;
Prox.size[2] = Params[1] + Params[2];
BxTr1.scale[0] = Params[2] * 2;
BxTr1.scale[1] = Params[2] * 2;
BxTr1.scale[2] = Params[1] + Params[2];
bFull = false;
}
if(vdf!= Snd.direction&&(Params[1]!=Params[2]&&Params[3]!=Params[4])){ Tr.rotation = new SFRotation(vdf,Snd.direction);}
BxTr2.scale[0] = Params[4] * 2;
BxTr2.scale[1] = Params[4] * 2;
BxTr2.scale[2] = Params[3] + Params[4];;
Prox2.size[0] = Params[4] * 2;
Prox2.size[1] = Params[4] * 2;
Prox2.size[2] = Params[3] + Params[4]; 
if(bFull){
Prox2.enabled = true;
Prox.enabled = false;
}
else {
Prox2.enabled = false;
Prox.enabled = true;
  }
bParams = false;
bAct = false;
TMS.enabled = true;
 }
}

function set_volume(v,ts){ 
     var VV = 0; 
   if(1<v){ VV = 1; }
   else { VV = v; }
RotCmd = new SFRotation( 12.0, VV, 0.0, 0.0 ); 
   set_commands(ts);}
function set_maxFront(v,ts){bParams = true;Params[1] = v; print('set_mxF Params[1]: ' + Params[1]); set_parameters(ts);}
function set_maxBack(v,ts){bParams = true; Params[2] = v; print('set_mxB Params[2]: ' + Params[2]); set_parameters(ts);}
function set_minFront(v,ts){bParams = true;Params[3] = v; print('set_mnF Params[3]: ' + Params[3]); set_parameters(ts);}
function set_minBack(v,ts){bParams = true; Params[4] = v; print('set_mnB Params[4]: ' + Params[4]);  set_parameters(ts);}
function set_loop(v,ts){ 
if(v!=bLoop){  
if(v){ RotCmd = new SFRotation( 6.0, 0.0, 0.0, 0.0 );}	
else { RotCmd = new SFRotation( 7.0, 0.0, 0.0, 0.0 );} 
 set_commands(ts);
 bLoop = v; 
  }}
function enable_TMS(v,ts){ 
if(!v){ 
if(bParams){
parameter_commands = Params;
}
else {
for( var ct = 0; ct<Rot.length; ct += 1 ){
          if(Rot[ct][0]!=1.0){ 
 print('Rot length: ' + Rot.length );
 player_commands = Rot[ct];
 Rot = max_min;
         }
       } 
    if(!bInner){ 
            bAct = false;
            TMS.enabled = true; 
             }}}}
function min_enter(v){
bAct = true;	 
if(Prox.enabled){Prox.enabled = false;} 
RotCmd = new SFRotation( 13.0, 1.0, 0.0, 0.0 ); 
bInner = true;
 set_commands(v); 
}
function min_exit(v){
var foo = 0.0; 
bInner = false;
if(!bFull){
bAct = false;
if(!Prox.enabled){ Prox.enabled = true;} 
}
else {
foo = 1.0;  
}
RotCmd = new SFRotation( 13.0, 0.0, foo, 0.0 ); 
set_commands(v);
}
function startTime(v){ 
if(!bInner){ 
if(!Prox2.enabled){ Prox2.enabled = true; }
  }
else {
 bInner = false;
  }
bAct = false;
RotCmd =  new SFRotation( 2.0, 0.0, 0.0, 0.0 ); 
 set_commands(v); 
 }
function pauseTime(v){ RotCmd = new SFRotation( 3.0, 0.0, 0.0, 0.0 ); set_commands(v);}
function resumeTime(v){ RotCmd = new SFRotation( 4.0, 0.0, 0.0, 0.0 ); set_commands(v);}
function stopTime(v){ bAct = true; RotCmd = new SFRotation( 5.0, 0.0, 0.0, 0.0 ); set_commands(v); Prox2.enabled = false;  }
function set_position(v,ts){ Pos = v; bPos = true; if(!bInner&&!bAct){ TMS.startTime = ts; }}
function set_active(v,ts){	bAct = v;
 if(!bInner&&!bAct){ 
  var fY = Math.abs(PrvRot[2]-Pos[1]);
  var fX = Math.abs(PrvRot[1]-Pos[0]);
  var fZ = Math.abs(PrvRot[3]-Pos[2]);
 if(bPos&&(.005<fY||.005<fX||.005<fZ)){ PrvRot =  player_commands = new SFRotation( 1.0, Pos[0], Pos[1], Pos[2] ); }
  }
 }
"}
]}
ROUTE Ac.url TO	Sc.audio_url
ROUTE Ac.pitch TO Sc.set_pitch
ROUTE Snd.direction	TO Sc.set_direction
ROUTE TMS3.cycleTime TO	Sc.startTime
ROUTE TMS2.isActive	TO Sc.enable_TMS
ROUTE Prox.enterTime TO	Sc.startTime
ROUTE Prox.exitTime	TO Sc.stopTime
ROUTE Prox2.enterTime TO Sc.min_enter
ROUTE Prox2.exitTime TO Sc.min_exit
ROUTE Snd.maxBack TO Sc.set_maxBack
ROUTE Snd.maxFront TO Sc.set_maxFront
ROUTE Snd.minFront TO Sc.set_minFront
ROUTE Snd.minBack TO Sc.set_minBack
ROUTE Snd.intensity	TO Sc.set_volume
ROUTE LTMS.loop	TO Sc.set_loop
ROUTE LTMS.stopTime	TO Sc.stopTime
ROUTE Prox.position_changed	TO Sc.set_position
ROUTE TMS.isActive TO Sc.set_active
}

# Matrix_Gui - Modifies the appearance of the Java EAI chat client by providing 
# a title and/or a clickable anchor button to launch a html file.
PROTO Matrix_Gui [
exposedField SFBool	bButtonChoice FALSE
# bButtonChoice indicates a choice between just a label (false) or a button to act as an 
# anchor. If 'true' the url field below will be looked for, otherwise ignored.
exposedField MFString url []
exposedField SFString description ""
# description is the text message for either the label or button.
exposedField SFString backGround "default"
exposedField SFString foreGround "default"
# backGround and foreGround fields are the new respective colors for the Java GUI.
# Default means they are ignored. Otherwise standard hexdecimal 
# is used like: backGround "000000" foreGround "00FF00"
]
{
Group {
children 
Switch {
choice
Anchor {  description IS description, url IS url }
}
}
}

# Matrix_Text - Opens a special text input in the Java EAI GUI chat client to deliver strings to a world.
# Incredibly useful for delivering commands rather than using TouchSensors
PROTO Matrix_Text [ 
eventIn MFString set_matrixText
eventOut MFString matrixText_changed
]
{
Group {
children
Script {
eventIn	MFString set_matrixText IS set_matrixText
eventOut MFString matrixText_changed IS	matrixText_changed
url	"javascript:
function set_matrixText(v){
matrixText_changed = v;
}
"
}
}
}

# Matrix_Gate - From the original Geometrek DeepMatrix applet. It is used to switch rooms by clicking on a TouchSensor.
PROTO Matrix_Gate [
	    eventIn      SFBool	activate
	    eventOut     SFString	isActive
	    field        SFString	target	"" 
# The new destination room name goes in the 'target' field.
	  ]
{
 Group {
children
  Script {
    eventIn      SFBool	activate IS activate
    eventOut     SFString	isActive IS isActive
    field  SFString	target IS target
    url	"javascript:
      function activate(value) {
        if( value == true ) {
          isActive = target;
        }
      }
    "
    mustEvaluate	TRUE
  }
  }
}

# MatrixReceiveChat - Delivers the network chat to the world.
PROTO MatrixReceiveChat [
eventIn MFString set_ChatIn
eventOut MFString chat_changed
exposedField SFString protoName "MatrixReceiveChat"
]
{
Group {
children Script {
eventIn MFString set_ChatIn IS set_ChatIn
eventOut MFString chat_changed IS chat_changed
url "javascript:
function set_ChatIn(v){ chat_changed = v; }
"
mustEvaluate TRUE
}
}
}

# MatrixSendChat - Sends canned message strings to the network.
PROTO MatrixSendChat [
eventIn MFString set_ChatOut
eventOut MFString to_chat
exposedField SFString protoName "MatrixSendChat"
]
{
Group {
children [ 
DEF	Tms TimeSensor { cycleInterval .4 }
DEF Sc Script {
eventIn	SFBool set_active
eventIn MFString set_ChatOut IS set_ChatOut
field SFNode Tms USE Tms
field MFString new_v []
field MFString old_v []
eventOut MFString to_chat IS to_chat
url "javascript:
function set_active(v){if(!v&&0<new_v.length){ 
 to_chat = new_v; 
 new_v = old_v; } }
function set_ChatOut(v,ts){ 
for( var a = 0; a<v.length; a +=1 ){
new_v[new_v.length] = v[a];
 }
Tms.startTime = ts;
}
"
}
]}
ROUTE Tms.isActive TO Sc.set_active
}

# MatrixSendLocalChat - Sends canned message strings to the user's local chat display.
PROTO MatrixSendLocalChat [
eventIn MFString set_ChatOut
eventOut MFString to_chat
exposedField SFString protoName "MatrixSendLocalChat"
]
{
Group {
children [ 
DEF	Tms TimeSensor { cycleInterval .4 }
DEF Sc Script {
eventIn	SFBool set_active
eventIn MFString set_ChatOut IS set_ChatOut
field SFNode Tms USE Tms
field MFString new_v []
field MFString old_v []
eventOut MFString to_chat IS to_chat
url "javascript:
function set_active(v){if(!v&&0<new_v.length){ 
 to_chat = new_v; 
 new_v = old_v; } }
function set_ChatOut(v,ts){ 
for( var a = 0; a<v.length; a +=1 ){
new_v[new_v.length] = v[a];
 }
Tms.startTime = ts;
}
"
}
]}
ROUTE Tms.isActive TO Sc.set_active
}

# MatrixAvatar_Name_Url - Delivers the user's name and avatar url strings to the world.
PROTO MatrixAvatar_Name_Url [
eventIn MFString set_Av_Name_Url
eventIn SFTime set_time
eventOut SFString name_changed
eventOut SFString url_changed2
eventOut SFBool name_url_request
]
{
Group {
children Script {
eventIn SFTime set_time IS set_time
eventIn MFString set_Av_Name_Url IS set_Av_Name_Url
eventOut SFString name_changed IS name_changed
eventOut SFString url_changed2 IS url_changed2
eventOut SFBool name_url_request IS name_url_request
url "javascript:
function set_Av_Name_Url(v){ name_changed = name = v[0]; url_changed2 = url2 = v[1]; }
function set_time(v){ if(url2==c&&name==c){ name_url_request = true; } else { name_changed = name; url_changed2 = url2; }}  
"
mustEvaluate TRUE
field SFString c ""
field SFString url2 ""
field SFString name ""
}
}
}

# MatrixLights - A simple Proto for delivering a parting SFBool value to a world when a user departs. It is useful for turning off stuff that is still
# stuck in memory. It was originally made for Contact 4.4 because Contact had memory leaks that caused it to carry lights from one world to another,
# so my work-around was to simply turn those lights off!
PROTO MatrixLights [
  eventOut SFBool bool_changed
  eventIn SFBool set_bool

]
{
 Group {
children
  Script {
    eventIn SFBool set_bool IS set_bool
    eventOut SFBool bool_changed IS bool_changed
    mustEvaluate	TRUE
    url "javascript:
      function set_bool(v){ bool_changed = v;}
    "
  }
 }
}

# MatrixWorld - Same idea as the above MatrixLights -except this is for delivering a simple 
# boolean to a world right after the scenegraph has been read.
 PROTO MatrixWorld [
  eventOut SFBool bool_changed
  eventIn SFBool set_bool
  eventOut SFTime time_changed

]
{
 Group {
children
  Script {
    eventIn SFBool set_bool IS set_bool
    eventOut SFTime	time_changed IS	time_changed
    eventOut SFBool bool_changed IS bool_changed
    mustEvaluate	TRUE
    url "javascript:
      function set_bool(v,ts){ bool_changed = v;time_changed = ts;}
    "
  }
 }
}

# NetworkSFBool - An example of the basic shared event Proto.
# This can be written for any valid VRML field either SF or MF!
PROTO NetworkSFBool [
field SFBool localCopy TRUE
# 'localCopy' just delivers the event to the user's scene graph.
eventIn SFBool set_value
# 'set_value' The incoming event that is to be shared
eventOut SFBool value_tonet
# 'value_tonet' The event to be shared goes to the server from the senders computer.
eventIn SFBool value_fromnet
#  'value_fromnet' The event has been delivered across the network from the server.
eventOut SFBool value_changed
#  'value_changed' Event heads to its destiny/goal/action on the local scene graph.
exposedField SFString tag ""
# All important tag gives each event its own identity.
# For persistence storage on the server:
# Suffix with '_F' for forever: "BigEvent_F"
# Suffix with '_P' for while populated: "BigEvent_P"
# Suffix with '_C' to clear events:  "BigEvent_C" 
exposedField SFBool echo TRUE
# 'echo' Tells the server to deliver the event to the original sender as well
# as everyone else
exposedField SFBool cont FALSE
# Sets up a Java thread to only send intervals at determined intervals and to
# ignore others. Useful for PlaneSensors, SphereSensors, ProximitySensors and 
# CylinderSensors -any VRML sensor that delivers continous output. 
# default output for DeepMatrixIP9 is four tenths of a second.
]
{
Group {
children Script {
eventIn SFBool set_value IS set_value
eventIn SFBool value_fromnet IS value_fromnet
eventOut SFBool value_changed IS value_changed
eventOut SFBool value_tonet IS value_tonet
url "javascript:
function set_value(value) {
value_tonet = value;
if( localCopy == true )
value_changed = value;
}
function value_fromnet(value) {
value_changed = value;
}
"
mustEvaluate TRUE
field SFBool localCopy IS localCopy
}
}
} 

# CtrlTime - Basic LOCK Proto so only one user controls a particular event.
# This IS controlled at the server, so it's hard to cheat!
# The server knows who is really in control of an event!
PROTO CtrlTime [
		eventIn	SFTime set_control
# 'set_control' is where the TouchSensor or time stamp to claim the lock is ROUTE'd!
        eventOut SFTime	control_time
# 'control_time' is read by the EAI and uses that time stamp to send the user's name
# to the server to claim the event.
	    eventIn      SFString	set_lock
# 'set_lock' is where the lock holder's name is delivered from the EAI client.
        eventIn	     SFString   set_name
# 'set_name' delivers the end user's name before the lock is claimed.
# Duplicates 'MatrixAvatar_Name_Url' in that way.
        eventOut      SFString  lock_changed
# 'lock_changed' delivers the lock holder's name to the scene.
	  ]
{
  Script {
    eventIn      SFTime	set_control IS set_control
    eventIn      SFString set_lock IS set_lock
    eventIn	     SFString set_name IS set_name
    field SFString owner ""
    field SFString name ""
    field SFString empty ""
    eventOut SFTime	control_time IS	control_time
    eventOut SFString  lock_changed IS lock_changed
    url	"javascript:
      function set_name(v){ 
        name = v; print('name is : ' + v);
      }
      function set_lock(v){
      lock_changed = v;	print('lock is : ' + v);
      }
      function set_control(v) { 
       control_time = v; 
      }
    "
    mustEvaluate	TRUE
  }
}

# CtrlNetworkSFBool - This combines as a shortcut of sorts into one Proto both the CtrlTime
# and NetworkSFBool Proto. All the above annotations for those two Protos apply.
# See the "chess.wrl" for implementation of this Proto.
PROTO CtrlNetworkSFBool [
	    eventIn      SFString	set_lock
        eventIn	     SFString   set_name
        eventOut      SFString  lock_changed
        eventIn	SFTime set_control
        eventOut SFTime	control_time
		eventIn      SFBool	set_value
	    eventIn      SFBool	value_fromnet
	    eventOut     SFBool	value_changed
	    eventOut     SFBool	value_tonet
	    exposedField SFString	tag	""
	    exposedField SFBool	echo	TRUE
	    exposedField SFBool	cont	FALSE
	    field        SFBool	localCopy	TRUE
		eventOut SFString name_changed
	  ]
{
  Script {
    eventIn      SFTime	set_control IS set_control
    eventIn      SFString set_lock IS set_lock
    eventIn	     SFString set_name IS set_name
	eventIn      SFBool	set_value IS set_value
    eventIn      SFBool	value_fromnet IS value_fromnet
    field SFString owner ""
    field SFString name ""
    field SFString empty ""
    eventOut SFTime	control_time IS	control_time
    eventOut SFString  lock_changed IS	lock_changed
    eventOut SFString   name_changed IS	name_changed
    eventOut     SFBool	value_changed IS value_changed
    eventOut     SFBool	value_tonet IS value_tonet
    field        SFBool	localCopy IS localCopy
    url	"javascript:
      function set_name(v){ 
        name = v; 
        name_changed = name;
      }
      function set_lock(v){
      lock_changed = v;	
      }
      function set_control(v) { 
       control_time = v; 
      }
      function set_value(value) {
        value_tonet = value;
        if( localCopy == true){
          value_changed = value;
        }
      }
      function value_fromnet(value) {
        value_changed = value;
      }
    "
    mustEvaluate	TRUE
  }
}

# PlaneSensorFilter - This Proto is a govenor for ProxmitySensors, PlaneSensors, CylinderSensors, SphereSensors
# Any Sensors that provide continous output. 
# It provides the same sort of protection for the network as the 'SFBool cont TRUE'	field
# of Network or CtrlNetwork Protos except it also protects the LOCAL network between Instant Player
# and Java as well!
# Running a continous stream of events over the local network would put a drag on performance!
# This Proto is instanced BETWEEN the Network or CtrlNetwork and the Sensor!
# So you ROUTE from the outputing sensor to the instance of the PlaneSensorFilter and then ROUTE
# to the Network or CtrlNetwork!
# See the 'chess.wrl' for implementation and use for the shared chess pieces movements.
PROTO PlaneSensorFilter [
  eventIn SFBool set_active
# 'set_active' You ROUTE the isActive eventOut of your Sensor to this
# so it sends the final value to the network. 
  eventIn SFVec3f set_value
# 'set_value' Input from the Sensor.
  eventOut SFVec3f value_changed
# 'value_changed' Output to the Network Node
]
{
  Script {
    eventIn SFBool set_active IS set_active
    eventIn SFVec3f InSc IS set_value
    eventOut SFVec3f OutSc IS value_changed
    field SFVec3f pos 0 0 0
    field SFTime  gov 0.4
# Our default value of four tenths of a second for network values!
    field SFTime  tsv 0.0
    url "javascript:
      function set_active(v){;
 if(!v){ OutSc = pos;}
    }
      function InSc(value,ts) { 
    if(gov<(ts-tsv)){    
         pos = value;
         OutSc = pos; 
         tsv = ts; }
   }
    "
  }
}

# CtrlRemove - A special lock Proto system so one person can control/free/reset all locks of a world.
# It was written for the DesertTreasureHunt	world, but never used.
# I decided to keep it and its Java class because it could prove useful down the road.
# Consequently it has been untested. 
PROTO CtrlRemove [
exposedField SFString tag ""
eventIn SFString set_name
eventIn SFString set_locks_control
eventIn SFTime clear_time
eventOut SFInt32 control_time
eventOut SFString name_changed
eventOut SFString locks_control_changed
eventIn SFInt32 set_control
eventOut SFInt32 locks_control
 ]
{
Group {
children
Script {
eventIn	SFTime clear_time IS clear_time
eventIn	SFInt32 set_control IS set_control
eventIn	SFString set_name IS set_name
eventIn	SFString set_locks_control IS set_locks_control
eventOut SFString locks_control_changed IS locks_control_changed
eventOut SFInt32 locks_control IS locks_control
eventOut SFString name_changed IS name_changed
mustEvaluate TRUE
url	"javascript:
function set_name(v){ name_changed = v; }
function set_locks_control(v){ locks_control_changed = v; }
function set_control(v){ locks_control = v;}
"}
}
}

# PrimeMover is a HUD that controls the positioning and rotation of backpack objects.
PROTO PrimeMover [
field SFTime rate .4
eventIn SFVec3f set_position2
eventIn SFRotation set_rotation2
eventIn SFVec3f set_start_position
eventIn SFRotation set_start_rotation
eventIn MFFloat set_BeamTo
eventOut SFVec3f position_changed
eventOut SFRotation orientation_changed
eventOut SFVec3f position_changed2
eventOut SFRotation orientation_changed2
eventOut SFInt32 save_changed
exposedField SFVec3f translation 0 0 0
exposedField SFRotation rotation 0 1 0 0
exposedField SFInt32 whichChoice -1
]
{
Switch {
choice Group {
children [
Transform {
rotation IS rotation
translation IS translation
children Transform {
translation .1 -.1 -.5
scale 5e-2 5e-2 5e-2
children [
Group {
children [
Transform {
translation -2 .5 .5
children [
DEF Sphs SphereSensor {
}
DEF SphsTr Transform {
children Shape {
appearance Appearance {
material Material {
diffuseColor 0 .8 .8
}
}
geometry Sphere {
radius .5
}
}
}
]
}
Transform {
translation -2 -.5 .5
children [
DEF Y_sw Switch {
choice [
Group {
children [
DEF Yoffts TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "Yoff.jpg"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.25 .25 0, -.25 -.25 0, .25 -.25 0, .25 .25 0,
]
}
coordIndex [
0 1 2 3 -1,
]
}
}
]
}
Group {
children [
DEF Yonts TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "Yon.jpg"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.25 .25 0, -.25 -.25 0, .25 -.25 0, .25 .25 0,
]
}
coordIndex [
0 1 2 3 -1,
]
}
}
]
}
]
whichChoice 0
}
DEF X_sw Switch {
choice [
Group {
children [
DEF Xoffts TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "Xoff.jpg"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.75 .25 0, -.75 -.25 0, -.25 -.25 0, -.25 .25 0,
]
}
coordIndex [
0 1 2 3 -1,
]
}
}
]
}
Group {
children [
DEF Xonts TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "Xon.jpg"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.75 .25 0, -.75 -.25 0, -.25 -.25 0, -.25 .25 0,
]
}
coordIndex [
0 1 2 3 -1,
]
}
}
]
}
]
whichChoice 0
}
DEF Z_sw Switch {
choice [
Group {
children [
DEF Zoffts TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "Zoff.jpg"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
.25 .25 0, .25 -.25 0, .75 -.25 0, .75 .25 0,
]
}
coordIndex [
0 1 2 3 -1,
]
}
}
]
}
Group {
children [
DEF Zonts TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "Zon.jpg"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
.25 .25 0, .25 -.25 0, .75 -.25 0, .75 .25 0,
]
}
coordIndex [
0 1 2 3 -1,
]
}
}
]
}
]
whichChoice 0
}
Transform {
translation 0 -.1 0
scale .5 .5 1
children [
DEF ResetTs TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "Reset.gif"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.6 -.77 0, -.6 -1.15 0, .6 -1.15 0, .6 -.77 0,
]
}
texCoord TextureCoordinate {
point [
0 1, 0 0, 1 0, 1 1,
]
}
coordIndex [
0 1 2 -1, 0 2 3 -1,
]
texCoordIndex [
0 1 2 -1, 0 2 3 -1,
]
}
}
]
}
Transform {
translation -.59 -.1 0
scale .5 .5 1
children [
DEF AddrotTs TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "AddRot.gif"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.4 -.32 0, -.4 -.7 0, .4 -.7 0, .4 -.32 0,
]
}
texCoord TextureCoordinate {
point [
0 1, 0 0, 1 0, 1 1,
]
}
coordIndex [
0 1 2 -1, 0 2 3 -1,
]
texCoordIndex [
0 1 2 -1, 0 2 3 -1,
]
}
}
]
}
Transform {
translation -.15 -.1 0
scale .5 .5 1
children [
DEF SubrotTs TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "SubRot.gif"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.4 -.32 0, -.4 -.7 0, .4 -.7 0, .4 -.32 0,
]
}
texCoord TextureCoordinate {
point [
0 1, 0 0, 1 0, 1 1,
]
}
coordIndex [
0 1 2 -1, 0 2 3 -1,
]
texCoordIndex [
0 1 2 -1, 0 2 3 -1,
]
}
}
]
}
Transform {
translation .43 -.1 0
scale .5 .5 1
children [
DEF ReturnTs TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "Return.gif"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.7 -.32 0, -.7 -.7 0, .7 -.7 0, .7 -.32 0,
]
}
texCoord TextureCoordinate {
point [
0 1, 0 0, 1 0, 1 1,
]
}
coordIndex [
0 1 2 -1, 0 2 3 -1,
]
texCoordIndex [
0 1 2 -1, 0 2 3 -1,
]
}
}
]
}
Transform {
translation .7 -.9 0
scale 1.2 1.2 1
children [
DEF Fix TouchSensor {
}
Shape {
appearance Appearance {
texture ImageTexture {
url "Check.gif"
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
.35 .35 0, .35 -.25 0, .75 -.25 0, .75 .35 0,
]
}
texCoord TextureCoordinate {
point [
0 1, 0 0, 1 0, 1 1,
]
}
coordIndex [
0 1 2 -1, 0 2 3 -1,
]
texCoordIndex [
0 1 2 -1, 0 2 3 -1,
]
}
}
]
}
]
}
]
}
Transform {
rotation .707 .707 0 .7
children Group {
children [
Group {
children [
Shape {
appearance Appearance {
material DEF M1 Material {
diffuseColor 1 0 0
}
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.1 -.1 -.3, -.1 .101 -.3, -.1 -.1 -1, -.1 .101 -1, .1 -.1 -.3,
.1 -.1 -1, .1 .101 -.3, .1 .101 -1,
]
}
coordIndex [
3 1 6 7 -1, 6 4 5 7 -1, 7 5 2 3 -1, 2 5 4 0 -1, 2 0 1 3 -1,
]
}
}
DEF B_ts TouchSensor {
}
]
}
Group {
children [
Shape {
appearance Appearance {
material USE M1
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.3 .101 .1, -1 .101 .1, -1 -.1 .1, -.3 -.1 .1, -1 -.1 -.1,
-.3 -.1 -.1, -.3 .101 -.1, -1 .101 -.1,
]
}
coordIndex [
0 1 2 3 -1, 4 5 3 2 -1, 0 6 7 1 -1, 6 5 4 7 -1, 1 7 4 2 -1,
]
}
}
DEF L_ts TouchSensor {
}
]
}
Group {
children [
Shape {
appearance Appearance {
material USE M1
}
geometry IndexedFaceSet {
coord Coordinate {
point [
.1 -.3 .1, -.1 -.3 .1, -.1 -1 .1, .1 -1 .1, -.1 -.3 -.1, -.1 -1 -.1,
.1 -.3 -.1, .1 -1 -.1,
]
}
coordIndex [
0 1 2 3 -1, 1 4 5 2 -1, 6 7 5 4 -1, 0 3 7 6 -1, 7 3 2 5 -1,
]
}
}
DEF D_ts TouchSensor {
}
]
}
Group {
children [
Shape {
appearance Appearance {
material USE M1
}
geometry IndexedFaceSet {
coord Coordinate {
point [
1 .101 .1, .3 .101 .1, .3 -.1 .1, 1 -.1 .1, .3 .101 -.1, 1 .101 -.1,
1 -.1 -.1, .3 -.1 -.1,
]
}
coordIndex [
0 1 2 3 -1, 4 1 0 5 -1, 5 0 3 6 -1, 7 6 3 2 -1, 7 4 5 6 -1,
]
}
}
DEF R_ts TouchSensor {
}
]
}
Group {
children [
Shape {
appearance Appearance {
material USE M1
}
geometry IndexedFaceSet {
coord Coordinate {
point [
-.1 -.1 .3, .1 -.1 .3, .1 -.1 1, -.1 -.1 1, -.1 .101 1, -.1 .101 .3,
.1 .101 .3, .1 .101 1,
]
}
coordIndex [
0 1 2 3 -1, 3 4 5 0 -1, 6 5 4 7 -1, 6 7 2 1 -1, 4 3 2 7 -1,
]
}
}
DEF F_ts TouchSensor {
}
]
}
Group {
children [
Shape {
appearance Appearance {
material USE M1
}
geometry IndexedFaceSet {
coord Coordinate {
point [
.1 1 .1, -.1 1 .1, -.1 .3 .1, .1 .3 .1, .1 .3 -.1, .1 1 -.1,
-.1 .3 -.1, -.1 1 -.1,
]
}
coordIndex [
0 1 2 3 -1, 0 3 4 5 -1, 6 7 5 4 -1, 1 7 6 2 -1, 7 1 0 5 -1,
]
}
}
DEF U_ts TouchSensor {
}
]
}
Group {
children [
DEF ReturnPosTs TouchSensor {
}
Shape {
appearance Appearance {
material Material {
diffuseColor 0 1 0
}
}
geometry Box {
size .35 .35 .35
}
}
]
}

]
}
}
]
}
}
DEF Tms1 TimeSensor {
cycleInterval .4
enabled FALSE
loop TRUE
}
TimeSensor {
cycleInterval .4
}
DEF Movesc Script {
eventIn SFBool set_OverYon
eventIn SFBool set_OverYoff
eventIn SFBool set_OverXon
eventIn SFBool set_OverXoff
eventIn SFBool set_OverZon
eventIn SFBool set_OverZoff
eventIn SFBool set_returnOverPos
eventIn SFBool set_resetOverPos
eventIn SFBool add_Overrotation
eventIn SFBool sub_Overrotation
eventIn SFBool set_Overcheck
eventIn SFBool set_OverreturnRot
eventIn SFBool set_OverresetRot
eventIn SFBool set_over1
eventIn SFBool set_over2
eventIn SFBool set_over3
eventIn SFBool set_over4
eventIn SFBool set_over5
eventIn SFBool set_over6
eventIn MFFloat set_BeamTo IS set_BeamTo
eventIn SFTime set_returnPos
eventIn SFTime set_resetPos
eventIn SFTime add_rotation
eventIn SFTime sub_rotation
eventIn SFTime set_check
eventIn SFTime set_returnRot
eventIn SFTime set_resetRot
eventIn SFVec3f set_start_position IS set_start_position
eventIn SFRotation set_start_rotation IS set_start_rotation
eventIn SFRotation set_rotation
eventIn SFRotation set_rotation2 IS set_rotation2
eventIn SFVec3f set_position2 IS set_position2
eventIn SFTime set_Yon
eventIn SFTime set_Yoff
eventIn SFTime set_Xon
eventIn SFTime set_Xoff
eventIn SFTime set_Zon
eventIn SFTime set_Zoff
eventIn SFBool set_active1
eventIn SFBool set_active2
eventIn SFBool set_active3
eventIn SFBool set_active4
eventIn SFBool set_active5
eventIn SFBool set_active6
eventIn SFFloat set_float1
eventOut SFRotation offset_changed
eventOut SFInt32 save_changed IS save_changed
eventOut SFVec3f position_changed IS position_changed
eventOut SFRotation orientation_changed IS orientation_changed
eventOut SFVec3f position_changed2 IS position_changed2
eventOut SFRotation orientation_changed2 IS orientation_changed2
url "javascript:
function resetft(){ ft[0] = 0; ft[1] =0; ft[2] = 0; }
function describe( a, b){
if(a){ Browser.setDescription(b);}
else { Browser.setDescription(''); } }
function set_OverYon(v){ describe(v,'Rotation around Y axis enabled.');}
function set_OverYoff(v){ describe(v,'Click for rotation around Y axis.');}
function set_OverXon(v){ describe(v,'Rotation around X axis enabled.');}
function set_OverXoff(v){ describe(v,'Click for rotation around X axis.');}
function set_OverZon(v){ describe(v,'Rotation around Z axis enabled.');}
function set_OverZoff(v){  describe(v,'Click for rotation around Z axis.');} 
function set_returnOverPos(v){  describe(v,'Return to starting postion.');}
function set_resetOverPos(v){  describe(v,'Return to original starting position.');}  
function add_Overrotation(v){  describe(v,'Add new rotation to previous rotation.');}
function sub_Overrotation(v){  describe(v,'Subtract newest rotation.');}
function set_Overcheck(v){  describe(v,'Save current position and orientation to server.');}
function set_OverreturnRot(v){ describe(v,'Return original starting rotation.');} 
function set_OverresetRot(v){  describe(v,'Remove any rotation (default).');} 
function set_over1(v){ch = 0;  describe(v,'Increment position on Y axis.');}
function set_over2(v){ch = 1;  describe(v,'Decrement position on Y axis.');}
function set_over3(v){ch = 2;  describe(v,'Decrement position on X axis.');}
function set_over4(v){ch = 3;  describe(v,'Increment position on X axis.');}
function set_over5(v){ch = 4;  describe(v,'Decrement position on Z axis.');}
function set_over6(v){ch = 5;  describe(v,'Increment position on Z axis.');}
function set_returnPos(v){ resetft(); position_changed = cur_pos  = orig_pos;}   
function set_check(v){ if(v){ position_changed = cur_pos; orientation_changed = cur_rot;  save_changed = 1; }}
function set_resetRot(v){  
orientation_changed = cur_rot = start_rot = new SFRotation( 0, 1, 0, 0);
offset_changed = cur_rot;
}
function set_BeamTo(v,ts){ 
pos5 = new SFVec3f(v[0],v[1],v[2]);
rot5 = new SFRotation(v[3],v[4],v[5],v[6]);
var vm = new VrmlMatrix();
vm.setTransform(pos4,rot4); 
var vm2 = new VrmlMatrix();
vm2.setTransform(pos5, rot5 );
vm = vm.multRight(vm2);
vm.getTransform(position_changed,orientation_changed);
save_changed = 1;
}
function set_returnRot(v){ 
start_rot = orig_rot;
orientation_changed = start_rot; 
offset_changed = new SFRotation(0, 1, 0, 0);
}
function set_start_position(v){ 
resetft(); 
cur_pos = v;
start_pos = v; 
orig_pos = v;
}
function set_start_rotation(v){ 
start_rot = v; 
orig_rot = v;
cur_rot = v; 
position_rot = v; 
}
function set_rotation2(v){ orientation_changed2 = v;  }
function set_position2(v){ position_changed2 = v; }
function sub_rotation(v){ 
start_rot = prev_rot;
offset_changed = new SFRotation(0, 1, 0, 0);
orientation_changed = start_rot; }
function add_rotation(v){ 
prev_rot = cur_rot;
start_rot = cur_rot; 
offset_changed = new SFRotation(0, 1, 0, 0);
orientation_changed = cur_rot;
}  

function set_rotation(v,ts){
if(0<v[3]){ new_rot[3] += -.017444; }
else { new_rot[3] += -.017444;}
if(xyz[3]==0){ new_rot = new SFRotation(v[0],v[1],v[2],new_rot[3]); }
if((ts-tms)>=rate){
if(6.28<new_rot[3]){ new_rot[3] = (new_rot[3]-6.28); }
if(new_rot[3]< -6.28){ new_rot[3] = (new_rot[3]+6.28); }
print(new_rot);
var vm = new VrmlMatrix();
vm.setTransform(start_pos,new_rot); 
var vm2 = new VrmlMatrix();
vm2.setTransform(start_pos, start_rot );
vm = vm.multRight(vm2);
vm.getTransform(start_pos,cur_rot);
// cur_rot = new_rot.multiply(start_rot);
orientation_changed = cur_rot;
//print(cur_rot);
tms = ts;
}
}
function set_float1(v,ts){
if(ch==0){ ft[1] +=.01; new_flt +=.01;}
if(ch==1){ ft[1] -=.01; new_flt -=.01;}
if(ch==2){ ft[0] -=.01; new_flt +=.01;}
if(ch==3){ ft[0] +=.01; new_flt -=.01;}
if(ch==4){ ft[2] -=.01; new_flt +=.01;}
if(ch==5){ ft[2] +=.01; new_flt -=.01;}
if((ts-tms)>=rate){
new_pos = new SFVec3f(ft[0],ft[1],ft[2]); 
var vm = new VrmlMatrix();
vm.setTransform(new_pos,default_rot); 
var vm2 = new VrmlMatrix();
vm2.setTransform(cur_pos,position_rot);
vm = vm.multRight(vm2);
vm.getTransform(cur_pos);
position_changed = cur_pos;
old_flt = new_flt;  new_flt = 0.0;
resetft();
tms = ts;
}
}
function set_Yon(v){ xyz[3] =  xyz[0] = Tmss[1].whichChoice = 0;
new_rot[3] = 0.0; }
function set_Yoff(v){ xyz[2] = xyz[1] = Tmss[3].whichChoice = Tmss[2].whichChoice = 0; 
xyz[3] = xyz[0] = Tmss[1].whichChoice = 1;
new_rot = new SFRotation( 0, 1, 0, 0.0);
}
function set_Xon(v){ xyz[3] = xyz[1] = Tmss[2].whichChoice = 0;
new_rot[3] = 0.0;  }
function set_Xoff(v){ xyz[2] =  xyz[0] = Tmss[3].whichChoice = Tmss[1].whichChoice = 0;
xyz[3] = xyz[1] =  Tmss[2].whichChoice = 1; 
new_rot = new SFRotation( 1, 0, 0, 0.0);
}
function set_Zon(v){ xyz[3] =  xyz[2] = Tmss[3].whichChoice = 0; 
new_rot[3] = 0.0;  }
function set_Zoff(v){xyz[1] =  xyz[0] = Tmss[1].whichChoice = Tmss[2].whichChoice = 0;
xyz[3] = xyz[2] = Tmss[3].whichChoice = 1; 
new_rot = new SFRotation( 0, 0, 1, 0.0); Angle2 = 0.0;}
function set_active1 (v, ts)
{ 
if(v){  
resetft();
ch = 0; 
}
Tmss[0].enabled = v;  
}
function set_active2 (v, ts)
{
if(v){ 
resetft();
ch = 1;
} 
Tmss[0].enabled = v; 
}
function set_active3 (v, ts)
{
if(v){ 
resetft();
pvch = ch; 
//newDirection();
ch = 2; 
}
Tmss[0].enabled = v; 
}
function set_active4 (v, ts)
{
if(v){ 
resetft();
ch = 3; 
}
Tmss[0].enabled = v; 
}
function set_active5 (v, ts)
{
if(v){ 
resetft();
ch = 4; 
}
Tmss[0].enabled = v; 
}
function set_active6 (v, ts)
{
if(v){ 
resetft();
ch = 5; 
}
Tmss[0].enabled = v; 
}
"
directOutput TRUE
field MFNode Tmss [
USE Tms1
USE Y_sw
USE X_sw
USE Z_sw
]
field SFVec3f start_pos 0 0 0
field SFVec3f orig_pos 0 0 0
field SFVec3f new_pos 0 0 0
field SFVec3f cur_pos 0 0 0
field SFVec3f pos5 0 0 0
field SFVec3f pos4 0 0 -10
field SFInt32 ch 0
field SFInt32 num 0
field SFInt32 pvch -1
field SFFloat new_flt 0
field SFFloat old_flt 0
field SFRotation default_rot 0 1 0 0
field SFRotation new_rot 0 1 0 0
field SFRotation start_rot 0 1 0 0
field SFRotation position_rot 0 1 0 0
field SFRotation cur_rot 0 1 0 0
field SFRotation prev_rot 0 1 0 0
field SFRotation orig_rot 0 1 0 0
field SFRotation reset_rot 0 1 0 0
field SFRotation rot5 0 1 0 0
field SFRotation rot4 0 1 0 3.14
field SFFloat Angle 0
field SFFloat Angle2 0
field SFTime tms 0
field SFTime rate IS rate
field MFInt32 xyz [
0 0 0 0
]
field MFFloat ft [
0 0 0
]
field SFVec3f mv 0 0 0
}
]
}
whichChoice IS whichChoice
}
ROUTE Sphs.rotation_changed TO SphsTr.set_rotation
ROUTE Yonts.isOver TO Movesc.set_OverYon
ROUTE Yoffts.isOver TO Movesc.set_OverYoff
ROUTE Xonts.isOver TO Movesc.set_OverXon
ROUTE Xoffts.isOver TO Movesc.set_OverXoff
ROUTE Zonts.isOver TO Movesc.set_OverZon
ROUTE Zoffts.isOver TO Movesc.set_OverZoff
ROUTE ReturnPosTs.isOver TO Movesc.set_returnOverPos
ROUTE AddrotTs.isOver TO Movesc.add_Overrotation
ROUTE SubrotTs.isOver TO Movesc.sub_Overrotation
ROUTE Fix.isOver TO Movesc.set_Overcheck
ROUTE ReturnTs.isOver TO Movesc.set_OverreturnRot
ROUTE ResetTs.isOver TO Movesc.set_OverresetRot
ROUTE U_ts.isOver TO Movesc.set_over1
ROUTE D_ts.isOver TO Movesc.set_over2
ROUTE R_ts.isOver TO Movesc.set_over3
ROUTE L_ts.isOver TO Movesc.set_over4
ROUTE F_ts.isOver TO Movesc.set_over5
ROUTE B_ts.isOver TO Movesc.set_over6
ROUTE ReturnPosTs.touchTime TO Movesc.set_returnPos
ROUTE AddrotTs.touchTime TO Movesc.add_rotation
ROUTE SubrotTs.touchTime TO Movesc.sub_rotation
ROUTE Fix.touchTime TO Movesc.set_check
ROUTE ReturnTs.touchTime TO Movesc.set_returnRot
ROUTE ResetTs.touchTime TO Movesc.set_resetRot
ROUTE SphsTr.rotation_changed TO Movesc.set_rotation
ROUTE Yonts.touchTime TO Movesc.set_Yon
ROUTE Yoffts.touchTime TO Movesc.set_Yoff
ROUTE Xonts.touchTime TO Movesc.set_Xon
ROUTE Xoffts.touchTime TO Movesc.set_Xoff
ROUTE Zonts.touchTime TO Movesc.set_Zon
ROUTE Zoffts.touchTime TO Movesc.set_Zoff
ROUTE U_ts.isActive TO Movesc.set_active1
ROUTE D_ts.isActive TO Movesc.set_active2
ROUTE R_ts.isActive TO Movesc.set_active3
ROUTE L_ts.isActive TO Movesc.set_active4
ROUTE F_ts.isActive TO Movesc.set_active5
ROUTE B_ts.isActive TO Movesc.set_active6
ROUTE Tms1.fraction_changed TO Movesc.set_float1
ROUTE Movesc.offset_changed TO Sphs.set_offset
}
Walker { size 10000 10000 10000 }