PROTO TextureModeller[
   field SFInt32 n 0
   field SFInt32 m 0
   field MFString urlImg ""
   field MFVec2f texCoord []
   field MFVec3f points [] ]{
  Transform{ scale 3 3 3 children[
  # --- model
  Transform{ scale .7 .7 .7 translation .5 -.2 0 children[ Shape{
   appearance Appearance{ material Material{ diffuseColor 1 1 1}
    texture ImageTexture { url IS urlImg}}
   geometry DEF spIFS IndexedFaceSet{ coord DEF spCoord Coordinate{}
    texCoord DEF TC TextureCoordinate{} creaseAngle 1 solid FALSE} }
  ]}
  # ---
  Transform{ translation -1 -.5 0 children[ Shape{
   appearance Appearance{ material Material{ diffuseColor 1 1 1}
    texture ImageTexture { url IS urlImg}}
   geometry IndexedFaceSet{
   coord Coordinate{ point[0 0 0, 1 0 0, 1 1 0, 0 1 0]}
   coordIndex[0 1 2 3] solid FALSE} }
   DEF PS PlaneSensor{}
  ]}
  Transform{ translation -1 -.5 0 children[ Shape{
   appearance Appearance{ material Material{ emissiveColor 1 1 1 } }
   geometry DEF Net IndexedLineSet{ coord DEF NetCoord Coordinate{} } }
  ]}
  Transform{ translation -1.3 .2 0 children[ Shape{
   appearance Appearance{ material Material{ diffuseColor 1 0 0} }
   geometry Sphere{ radius .1}}
   DEF tsPrint TouchSensor{}]
  }
  Transform{ translation -1.3 -.2 0 children[ Shape{
   appearance Appearance{ material Material{ diffuseColor 0 1 0} }
   geometry Sphere{ radius .1}}
   DEF tsOut TouchSensor{}]
  }
  ]}
  DEF SCR Script{
   eventIn SFVec3f setXY
   eventIn SFBool Print
   eventIn SFBool Out
   field SFNode Net USE Net
   field SFNode NetCoord USE NetCoord
   field SFNode spIFS USE spIFS
   field SFNode spCoord USE spCoord
   field SFNode TC USE TC
   field SFInt32 n IS n
   field SFInt32 m IS m
   field MFVec2f texCoord IS texCoord
   field MFVec3f points IS points
  
   directOutput TRUE
  url ["javascript:
  
  function initialize() { 
  // Modeller
   eps = .001; nm = n*m;
   c = new MFInt32(); c.length = 2*nm+n+m+1;
   pm = new MFVec3f(); pm.length = nm;
   if (texCoord.length == 0){
    stX=1./(n-1); stY=1./(m-1);
    y=0; t=0;
    for (j=0; j < m; j++){
     x=0;
     for (i=0; i< n; i++){
      texCoord[t] = new SFVec2f(x,y);
      pm[t++] = new SFVec3f(x,y,eps);
      x += stX;}
     y += stY;}}
   else
    for (t=0; t< nm; t++) pm[t] = new SFVec3f(texCoord[t].x,texCoord[t].y,eps);
   NetCoord.set_point = pm;
   t=0;
   for (j=0; j < m; j++){
    for (i=0; i< n; i++) c[t++] = n*j + i;
    c[t++] = -1;}
   c[t++] = -1;
   for (i=0; i< n; i++){
    for (j=0; j < m; j++) c[t++] = n*j + i;
    c[t++] = -1;}
   Net.set_coordIndex = c;
  
  // Splinse Grid
   num = 7;  n2=n+2; m2=m+2; n3=3*n;
   n1=n-1; m1=m-1; num1=num-1; ns=n1*num1+1; ms=m1*num1+1;
   p  = new MFVec3f();  p.length = m2*n2;
   cp = new MFVec3f(); cp.length = 9*m*n;
   sp = new MFVec3f(); sp.length = ns*(m1*num1+1);
   tc = new MFVec2f(); tc.length = m2*n2;
   ct = new MFVec2f(); ct.length = 9*m*n;
   st = new MFVec2f(); st.length = ns*(m1*num1+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;
   step=1.0/(num-1);
   for (i= 0; i< num; i++){
    u = i*step; 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;}
   tp=0; t=n2;
   for (j=0; j < m; j++){
    p[t++] = points[tp].add( points[tp].subtract(points[tp+1]) );
    for (i=0; i< n; i++) p[t++] = points[tp++];
    p[t++] = points[tp-1].add( points[tp-1].subtract(points[tp-2]) );
   }
   n2m1=n2*(m+1)+1; nm1=n*(m-1); nm2=n*(m-2);
   for (i=0; i < n; i++){
    p[i+1] = points[i].add( points[i].subtract(points[i+n]) );
    p[i+n2m1] = points[i+nm1].add( points[i+nm1].subtract(points[i+nm2]) );
   }
   ip=n2+1; ic=n3+1;
   for (j=0; j < m; j++){
    for (i=0; i< n; i++){
     du = p[ip+1].subtract(p[ip-1]).divide(6);
     dv = p[ip+n2].subtract(p[ip-n2]).divide(6);
     cp[ic] = p0 = p[ip++];
     cp[ic+1] = p0.add(du); cp[ic-1] = p0.subtract(du);
     cp[ic+n3] = p0.add(dv); cp[ic-n3] = p0.subtract(dv);
     cp[ic+1+n3] = p0.add(du).add(dv); cp[ic-1+n3] = p0.subtract(du).add(dv);
     cp[ic+1-n3] = p0.add(du).subtract(dv);
     cp[ic-1-n3] = p0.subtract(du).subtract(dv);
     ic +=3;}
    ip +=2; ic += 2*n3;
   }
   for (j=0; j < m1; j++){
    for (i=0; i < n1; i++){
     ic=3*(j*n3+i)+n3+1;
     p0 = cp[ic++]; p1 = cp[ic++]; p2 = cp[ic++]; p3 = cp[ic]; ic += n3-3;
     p4 = cp[ic++]; p5 = cp[ic++]; p6 = cp[ic++]; p7 = cp[ic]; ic += n3-3;
     p8 = cp[ic++]; p9 = cp[ic++]; p10 = cp[ic++]; p11 = cp[ic]; ic += n3-3;
     p12 = cp[ic++]; p13 = cp[ic++]; p14 = cp[ic++]; p15 = cp[ic];
     is=(j*ns+i)*num1;
     for (l= 0; l< num; l++) for (k= 0; k< num; k++){
    d = p0.multiply(b0[k]).add(p1.multiply(b1[k]))
     .add(p2.multiply(b2[k])).add(p3.multiply(b3[k])).multiply(b0[l]);
    d = d.add(p4.multiply(b0[k]).add(p5.multiply(b1[k]))
     .add(p6.multiply(b2[k])).add(p7.multiply(b3[k])).multiply(b1[l]));
    d = d.add(p8.multiply(b0[k]).add(p9.multiply(b1[k]))
     .add(p10.multiply(b2[k])).add(p11.multiply(b3[k])).multiply(b2[l]));
    sp[is+l*ns+k] = d.add(p12.multiply(b0[k]).add(p13.multiply(b1[k]))
     .add(p14.multiply(b2[k])).add(p15.multiply(b3[k])).multiply(b3[l]));
     }
    }
   }
   spCoord.set_point = sp;
   setTex();
   s = new MFInt32();  s.length = 8*(ns-1)*(ms-1);
   k=0;
   for (j= 0; j< ms-1; j++)
    for (i= 0; i< ns-1; i++) {
     s[k++] = i+ns*j+1; s[k++] = i+ns*j; s[k++] = i+ns*(j+1); s[k++] = -1;
     s[k++] = i+ns*(j+1); s[k++] = i+ns*(j+1)+1; s[k++]=i+ns*j+1; s[k++]=-1;}
   spIFS.set_coordIndex = s;
  }
  
  function setTex() { 
   tp=0; t=n2;
   for (j=0; j < m; j++){
    tc[t++] = texCoord[tp].add( texCoord[tp].subtract(texCoord[tp+1]) );
    for (i=0; i< n; i++) tc[t++] = texCoord[tp++];
    tc[t++] = texCoord[tp-1].add( texCoord[tp-1].subtract(texCoord[tp-2]) );
   }
   n2m1=n2*(m+1)+1; nm1=n*(m-1); nm2=n*(m-2);
   for (i=0; i < n; i++){
    tc[i+1] = texCoord[i].add( texCoord[i].subtract(texCoord[i+n]) );
    tc[i+n2m1] = texCoord[i+nm1].add( texCoord[i+nm1].subtract(texCoord[i+nm2]) );
   }
   ip=n2+1; ic=n3+1;
   for (j=0; j < m; j++){
    for (i=0; i< n; i++){
     tu = tc[ip+1].subtract(tc[ip-1]).divide(6);
     tv = tc[ip+n2].subtract(tc[ip-n2]).divide(6);
     ct[ic] = t0 = tc[ip++];
     ct[ic+1] = t0.add(tu); ct[ic-1] = t0.subtract(tu);
     ct[ic+n3] = t0.add(tv); ct[ic-n3] = t0.subtract(tv);
     ct[ic+1+n3] = t0.add(tu).add(tv);
     ct[ic-1+n3] = t0.subtract(tu).add(tv);
     ct[ic+1-n3] = t0.add(tu).subtract(tv);
     ct[ic-1-n3] = t0.subtract(tu).subtract(tv);
     ic +=3;}
    ip +=2; ic += 2*n3;
   }
   for (j=0; j < m1; j++){
    for (i=0; i < n1; i++){
     ic=3*(j*n3+i)+n3+1;
     t0 = ct[ic++]; t1 = ct[ic++]; t2 = ct[ic++]; t3 = ct[ic]; ic += n3-3;
     t4 = ct[ic++]; t5 = ct[ic++]; t6 = ct[ic++]; t7 = ct[ic]; ic += n3-3;
     t8 = ct[ic++]; t9 = ct[ic++]; t10 = ct[ic++]; t11 = ct[ic]; ic += n3-3;
     t12 = ct[ic++]; t13 = ct[ic++]; t14 = ct[ic++]; t15 = ct[ic];
     is=(j*ns+i)*num1;
     for (l= 0; l< num; l++) for (k= 0; k< num; k++){
    d = t0.multiply(b0[k]).add(t1.multiply(b1[k]))
     .add(t2.multiply(b2[k])).add(t3.multiply(b3[k])).multiply(b0[l]);
    d = d.add(t4.multiply(b0[k]).add(t5.multiply(b1[k]))
     .add(t6.multiply(b2[k])).add(t7.multiply(b3[k])).multiply(b1[l]));
    d = d.add(t8.multiply(b0[k]).add(t9.multiply(b1[k]))
     .add(t10.multiply(b2[k])).add(t11.multiply(b3[k])).multiply(b2[l]));
    st[is+l*ns+k] = d.add(t12.multiply(b0[k]).add(t13.multiply(b1[k]))
     .add(t14.multiply(b2[k])).add(t15.multiply(b3[k])).multiply(b3[l]));
     }
    }
   }
   TC.set_point = st;
  }
  
  function setXY(val){
   val.z = eps;
   t=0; mLen=1.;
   for (t=0; t< nm; t++){
    len = pm[t].subtract(val).length();
    if (len < mLen ){ mt = t; mLen = len;}
   }
   pm[mt] = val;
   NetCoord.set_point = pm;
  }
  
  function Print(val){
   if(val) for (t=0; t< nm; t++) print(pm[t].x +'  '+ pm[t].y);
  }
  
  function Out(val){
   if(val){
    for (t=0; t< nm; t++) texCoord[t] = new SFVec2f(pm[t].x, pm[t].y);
    setTex();
   }
  }
  "]}
  ROUTE PS.trackPoint_changed TO SCR.setXY
  ROUTE tsPrint.isActive TO SCR.Print
  ROUTE tsOut.isActive TO SCR.Out
  }
  
  NavigationInfo{ type "EXAMINE" }
  Background{ skyColor .5 .5 1}
  Viewpoint{ position 0 0 8}
  
  TextureModeller{ n 5 m 7 urlImg "local/chaos/25.jpg"
   points[
  -0.514562 -1.058253 0
  -0.368931 -1.058253 0.242718
  0.031416 -1.058253 0.208538
  0.466020 -1.058253 0.271845
  0.621360 -1.058253 0
  
  -0.613834 0.000000 0
  -0.417274 0.000000 0.251426
  0.001080 0.000000 0.230549
  0.485236 0.000000 0.284181
  0.663587 0.000000 0
  
  -0.433567 0.495145 0
  -0.298888 0.495145 0.189008
  0.002066 0.495145 0.273078
  0.318306 0.495145 0.211936
  0.460628 0.495145 0
  
  -0.499656 0.834952 0
  -0.388349 0.834952 0.242718
  -0.009709 0.836939 0.331630
  0.398058 0.834952 0.271845
  0.527494 0.834952 0
  
  -0.563106 1.140699 0.166905
  -0.427184 1.135922 0.398058
  -0.009708 1.135922 0.349515
  0.407767 1.135922 0.427185
  0.572816 1.141057 0.171276
  
  -0.526243 1.407767 0
  -0.322436 1.374663 0.236938
  -0.015606 1.392720 0.244965
  0.313696 1.383692 0.263655
  0.515733 1.407767 0
  
  -0.218060 1.572816 0
  -0.213906 1.539712 0.113569
  -0.022843 1.506608 0.217449
  0.172062 1.539712 0.123843
  0.182650 1.572816 0
   ]
  # texCoord[ 0 0, 1 0, 0 1, 1 1]
  }