#VRML V2.0 utf8 native NURBS surface, Evgeny Demidov, 13 August 2001

NavigationInfo{ type "EXAMINE" }
Background{ skyColor 1 1 1}

PROTO NURBSdemo[
 field MFVec3f cPoint [-1 -1 0,1 -1 0,  -1 1 0,0 0 1.41]
 field SFInt32 uDim 2
 field SFInt32 vDim 2 ]{
Transform{ scale 2 2 2 children[
 Shape{ appearance Appearance{ material Material{ diffuseColor 1 1 1 transparency .2}}
  geometry NurbsSurface{ 
   uDimension IS uDim  vDimension IS vDim
   controlPoint IS cPoint 
   uOrder 4  vOrder 4
   uKnot[0 0 0 0 1 1 1 1]  vKnot[0 0 0 0 1 1 1 1]
#   uTessellation 32   vTessellation 32
   solid FALSE }}
 Shape{ appearance Appearance{ material Material{ emissiveColor 0 0 1} }
  geometry DEF grid IndexedLineSet{ coord Coordinate{ point IS cPoint} } }
]}

DEF SCR Script{
 field SFInt32 uDim IS uDim
 field SFInt32 vDim IS vDim
 field SFNode grid USE grid
 directOutput TRUE
url ["javascript:

function initialize() { 
 c = new MFInt32();
 t= t1 =0;
 for (i= 0; i< vDim; i++){
  for (j= 0; j< uDim; j++) c[t++] = t1++;
  c[t++] = -1;}
 for (i= 0; i< uDim; i++){
  t1= i;
  for (j= 0; j< vDim; j++){
   c[t++] = t1;  t1 += uDim;}
  c[t++] = -1;}
 grid.set_coordIndex = c;
}
"]}

}
NURBSdemo{ uDim 4 vDim 4
cPoint[
   -1,0,-1, -.5,.5,-1, .5,.5,-1, 1,0,-1,
   -1,.5,-.5, -.5,1,-.5, .5,1,-.5, 1,.5,-.5,
   -1,.5,.5, -.5,1,.5, .5,1,.5, 1,.5,.5,
   -1,0,1, -.5,.5,1, .5,.5,1, 1,0,1]
}