#VRML V2.0 utf8  3D Bezier surface, Evgeny Demidov, 21 Jan 2001
# Thanks to R.J.M.Smeenk for suggestion to make CPoint PROTO

NavigationInfo{ type "EXAMINE" }
Viewpoint{ position 0 2.1 6 orientation 1 0 0 -.4}

PROTO CPoint[
 field SFInt32 Id 0
 field SFColor col 0 1 1
 eventOut SFInt32 setId
 exposedField SFVec3f translation 0 0 0 ]{
Transform{ translation IS translation  children[ Shape{
 appearance Appearance{ material Material{ diffuseColor IS col } }
 geometry Sphere{ radius .05}}
 DEF ts TouchSensor{}]
}
DEF CPscr Script{
 eventIn SFBool getTS
 eventOut SFInt32 setId IS setId
 field SFInt32 Id IS Id
 directOutput TRUE
url ["javascript: function getTS(val){ if(val) setId = Id; }"]
}
ROUTE ts.isActive TO CPscr.getTS
}
DEF N0 CPoint{ translation -1 0 -1  col 1 1 0}
DEF N1 CPoint{ translation -.5 .5 -1 Id 1}
DEF N2 CPoint{ translation .5 .5 -1  Id 2}
DEF N3 CPoint{ translation 1 0 -1  Id 3  col 1 1 0}
DEF N4 CPoint{ translation -1 .5 -.5  Id 4}
DEF N5 CPoint{ translation -.5 1 -.5  Id 5  col 1 0 1}
DEF N6 CPoint{ translation .5 1 -.5  Id 6  col 1 0 1}
DEF N7 CPoint{ translation 1 .5 -.5  Id 7}
DEF N8 CPoint{ translation -1 .5 .5  Id 8}
DEF N9 CPoint{ translation -.5 1 .5  Id 9  col 1 0 1}
DEF N10 CPoint{ translation .5 1 .5  Id 10  col 1 0 1}
DEF N11 CPoint{ translation 1 .5 .5  Id 11}
DEF N12 CPoint{ translation -1 0 1  Id 12  col 1 1 0}
DEF N13 CPoint{ translation -.5 .5 1  Id 13}
DEF N14 CPoint{ translation .5 .5 1  Id 14}
DEF N15 CPoint{ translation 1 0 1  Id 15  col 1 1 0}

PROTO Bunch[ field SFNode coor NULL]{
Transform{ children[ Shape{
 appearance Appearance{ material Material{ emissiveColor 0 1 1 } }
 geometry IndexedLineSet{ coord IS coor coordIndex[1 0 2 -1 0 3]} }
]}}
Bunch{ coor DEF bunch0 Coordinate{} }
Bunch{ coor DEF bunch1 Coordinate{} }
Bunch{ coor DEF bunch2 Coordinate{} }
Bunch{ coor DEF bunch3 Coordinate{} }

DEF spIFS Switch{ whichChoice 0 choice[ Transform{ children[ Shape{
 appearance Appearance{ material Material{ diffuseColor 1 1 1 } }
 geometry DEF spline IndexedFaceSet{ coord DEF spCoord Coordinate{}
  creaseAngle 1 solid FALSE}}
]} ]}
DEF swGrid Switch{ whichChoice 0 choice[ Transform{ children[ Shape{
 appearance Appearance{ material Material{ emissiveColor 1 1 1 } }
 geometry DEF spGrid IndexedLineSet{ coord USE spCoord } }
]} ]}
Transform{ translation 2.5 1 -2 children[ Shape{
 appearance Appearance{ material Material{ diffuseColor 1 0 0}}
 geometry Sphere{ radius .2}}
 DEF tsIFS TouchSensor{}
]}
Transform{ translation 2.5 0 -2 children[ Shape{
 appearance Appearance{ material Material{ diffuseColor 1 1 1}}
 geometry Sphere{ radius .2}}
 DEF tsGrid TouchSensor{}
]}
Transform{ translation 2.5 -1 -2 children[ Shape{
 appearance Appearance{ material Material{ diffuseColor 0 0 1}}
 geometry Sphere{ radius .2}}
 DEF tsPrint TouchSensor{}
]}
DEF Marker Transform{ children[ Shape{
 appearance Appearance{ material Material{ diffuseColor 1 1 1 transparency .3} }
 geometry Sphere{ radius .08}
}]}

PROTO Pointer[ field SFColor col 0 0 1
 exposedField SFVec3f translation 0 0 0]{
Transform{ translation IS translation  children[ Shape{
 appearance Appearance{ material Material{ diffuseColor IS col } }
 geometry Sphere{ radius .07} }
]}}
DEF ptXY Pointer{}
DEF ptXZ Pointer{ col 0 1 0}
DEF ptYZ Pointer{ col 1 0 0}

Transform{ children[ Shape{
 appearance Appearance{ material Material{ diffuseColor 0 0 .9 transparency .5}}
 geometry DEF plane IndexedFaceSet{
 coord Coordinate{ point[-2 -2 -2,2 -2 -2,2 2 -2,-2 2 -2]}
 coordIndex[0 1 2 3] solid FALSE} }
 Shape{ appearance Appearance{ material Material{ emissiveColor 0 0 1} }
 geometry DEF grid IndexedLineSet{ coord Coordinate{
 point[-2 -2 -1.99,2 -2 -1.99,-2 -1 -1.99,2 -1 -1.99,-2 0 -1.99,2 0 -1.99,
 -2 1 -1.99,2 1 -1.99,-2 2 -1.99,2 2 -1.99,  -2 -2 -1.99,-2 2 -1.99,
 -1 -2 -1.99,-1 2 -1.99,0 -2 -1.99,0 2 -1.99, 1 -2 -1.99,1 2 -1.99,
 2 -2 -1.99,2 2 -1.99]}
 coordIndex[0 1 -1 2 3 -1 4 5 -1 6 7 -1 8 9 -1 10 11 -1 12 13 -1 14 15 -1
 16 17 -1 18 19]} }
 DEF tsXY PlaneSensor{}
]}
Transform{ rotation 1 0 0 -1.57 children[ Shape{
 appearance Appearance{ material Material{ diffuseColor .8 .8 .8 transparency .5}}
 geometry USE plane }
 Shape{ appearance Appearance{ material Material{ emissiveColor .5 .5 .5} }
 geometry USE grid}
 DEF tsXZ PlaneSensor{}
]}
Transform{ rotation 0 1 0 1.57 children[ Shape{
 appearance Appearance{ material Material{ diffuseColor 1 0 0 transparency .5}}
 geometry USE plane }
 Shape{ appearance Appearance{ material Material{ emissiveColor .9 0 0} }
 geometry USE grid}
 DEF tsYZ PlaneSensor{}
]}

DEF SCR Script{
 eventIn SFVec3f setXY
 eventIn SFVec3f setYZ
 eventIn SFVec3f setXZ
 eventIn SFInt32 getId
 eventIn SFBool setIFS
 eventIn SFBool setGrid
 eventIn SFBool Print
 field SFNode Marker USE Marker
 field SFNode ptXY USE ptXY
 field SFNode ptYZ USE ptYZ
 field SFNode ptXZ USE ptXZ
 field SFNode N0 USE N0
 field SFNode N1 USE N1
 field SFNode N2 USE N2
 field SFNode N3 USE N3
 field SFNode N4 USE N4
 field SFNode N5 USE N5
 field SFNode N6 USE N6
 field SFNode N7 USE N7
 field SFNode N8 USE N8
 field SFNode N9 USE N9
 field SFNode N10 USE N10
 field SFNode N11 USE N11
 field SFNode N12 USE N12
 field SFNode N13 USE N13
 field SFNode N14 USE N14
 field SFNode N15 USE N15
 field SFNode spline USE spline
 field SFNode swGrid USE swGrid
 field SFNode spGrid USE spGrid
 field SFNode spCoord USE spCoord
 field SFNode bunch0 USE bunch0
 field SFNode bunch1 USE bunch1
 field SFNode bunch2 USE bunch2
 field SFNode bunch3 USE bunch3
 field SFNode spIFS USE spIFS
 directOutput TRUE

 ## globals
 field MFNode Ni []
 field SFVec3f mark 0 0 0
 field MFVec3f p []
 field SFVec3f posXY 0 0 0
 field SFVec3f posXZ 0 0 0
 field SFVec3f posYZ 0 0 0 
 field SFInt32 num 0
 field SFInt32 iN 0
 field MFFloat b0 []
 field MFFloat b1 []
 field MFFloat b2 []
 field MFFloat b3 []

 field SFInt32 swi 0
 field SFInt32 swg 0

url ["javascript:

function initialize() { 
 var st,i,j;

 Ni = new MFNode(N0,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15);
 mark = new SFVec3f(0, 0, 0);

 p = new MFVec3f(new SFVec3f(-1,0,-1),new SFVec3f(-.5,.5,-1),
  new SFVec3f(.5,.5,-1),new SFVec3f(1,0,-1),
  new SFVec3f(-1,.5,-.5),new SFVec3f(-.5,1,-.5),
  new SFVec3f(.5,1,-.5),new SFVec3f(1,.5,-.5),
  new SFVec3f(-1,.5,.5),new SFVec3f(-.5,1,.5),
  new SFVec3f(.5,1,.5),new SFVec3f(1,.5,.5),
  new SFVec3f(-1,0,1),new SFVec3f(-.5,.5,1),
  new SFVec3f(.5,.5,1), new SFVec3f(1,0,1) );
 posXY = new SFVec3f(0, 0, -2);
 posXZ = new SFVec3f(0, -2, 0);
 posYZ = new SFVec3f(-2, 0, 0);
 num = 10; st = 1./(num-1);
 var c = new MFInt32();  c.length = 2*num*(num+1);
 b0 = new MFFloat();  b0.length = num;
 b1 = new MFFloat();  b1.length = num;
 b2 = new MFFloat();  b2.length = num;
 b3 = new MFFloat();  b3.length = num;
 var nn1 = num*(num+1);
 for (i= 0; i< num; i++){
  for (j= 0; j< num; j++){
   c[i*(num+1)+j] = i*num + j;
   c[nn1+i*(num+1)+j] = j*num + i;}
  c[(i+1)*(num+1)-1] = c[nn1+(i+1)*(num+1)-1] = -1;
  u = i*st; u1 = 1-u; u12 = u1*u1; u2 = u*u;
  b0[i] = u1*u12; b1[i] = 3*u*u12; b2[i] = 3*u2*u1; b3[i] = u*u2;}
 spGrid.set_coordIndex = c;
 var s = new MFInt32();  s.length = 8*(num-1)*(num-1);
 k=0;
 for (j= 0; j< num-1; j++)
  for (i= 0; i< num-1; i++) {
   s[k++] = i+num*j+1; s[k++] = i+num*j; s[k++] = i+num*(j+1); s[k++] = -1;
   s[k++] = i+num*(j+1); s[k++] = i+num*(j+1)+1; s[k++]=i+num*j+1; s[k++]=-1;}
 spline.set_coordIndex = s;
 iN = 15;
 setXYZ(p[iN]);
 swi = 0;  swg = 0;
}

function getId( Id ){ iN = Id; setXYZ(p[iN]);}
function setXYZ(val){
 mark.x = posXZ.x = posXY.x = val.x;
 mark.y = posXY.y = posYZ.y = val.y;
 mark.z = posXZ.z = posYZ.z = val.z;
 Marker.set_translation = mark;
 ptXY.set_translation = posXY;
 ptXZ.set_translation = posXZ;
 ptYZ.set_translation = posYZ;
 p[iN].x = val.x; p[iN].y = val.y; p[iN].z = val.z;
 Ni[iN].set_translation = p[iN];
 var pt = new MFVec3f(); pt.length = num*num;
 t = 0;
 for (j= 0; j< num; j++) for (i= 0; i< num; i++){
  d = p[0].multiply(b0[i]).add(p[1].multiply(b1[i]))
   .add(p[2].multiply(b2[i])).add(p[3].multiply(b3[i])).multiply(b0[j]);
  d = d.add(p[4].multiply(b0[i]).add(p[5].multiply(b1[i]))
   .add(p[6].multiply(b2[i])).add(p[7].multiply(b3[i])).multiply(b1[j]));
  d = d.add(p[8].multiply(b0[i]).add(p[9].multiply(b1[i]))
   .add(p[10].multiply(b2[i])).add(p[11].multiply(b3[i])).multiply(b2[j]));
  pt[t++] = d.add(p[12].multiply(b0[i]).add(p[13].multiply(b1[i]))
   .add(p[14].multiply(b2[i])).add(p[15].multiply(b3[i])).multiply(b3[j])); }
 spCoord.set_point = pt;
 bunch0.set_point = new MFVec3f(p[0],p[1],p[4],p[5]);
 bunch1.set_point = new MFVec3f(p[3],p[2],p[6],p[7]);
 bunch2.set_point = new MFVec3f(p[12],p[8],p[9],p[13]);
 bunch3.set_point = new MFVec3f(p[15],p[10],p[11],p[14]);
}
function setXY(val){ setXYZ(new SFVec3f(val.x,val.y,mark.z));}
function setYZ(val){ setXYZ(new SFVec3f(mark.x,val.y,-val.x));}
function setXZ(val){ setXYZ(new SFVec3f(val.x,mark.y,-val.y));}
function setIFS(val){ if(val){ swi = (swi+1)%2; spIFS.set_whichChoice = swi;}}
function setGrid(val){ if(val){ swg = (swg+1)%2; swGrid.set_whichChoice = swg;}}
function Print(val){ if(val) for(i=0; i<16; i++) print( p[i] );}
"]
}
ROUTE N0.setId TO SCR.getId
ROUTE N1.setId TO SCR.getId
ROUTE N2.setId TO SCR.getId
ROUTE N3.setId TO SCR.getId
ROUTE N4.setId TO SCR.getId
ROUTE N5.setId TO SCR.getId
ROUTE N6.setId TO SCR.getId
ROUTE N7.setId TO SCR.getId
ROUTE N8.setId TO SCR.getId
ROUTE N9.setId TO SCR.getId
ROUTE N10.setId TO SCR.getId
ROUTE N11.setId TO SCR.getId
ROUTE N12.setId TO SCR.getId
ROUTE N13.setId TO SCR.getId
ROUTE N14.setId TO SCR.getId
ROUTE N15.setId TO SCR.getId
ROUTE tsXY.trackPoint_changed TO SCR.setXY
ROUTE tsXZ.trackPoint_changed TO SCR.setXZ
ROUTE tsYZ.trackPoint_changed TO SCR.setYZ
ROUTE tsIFS.isActive TO SCR.setIFS
ROUTE tsGrid.isActive TO SCR.setGrid
ROUTE tsPrint.isActive TO SCR.Print