NavigationInfo{ type "EXAMINE" }
  Background{ skyColor .5 .5 1}
  
  EXTERNPROTO Tree[
  field SFInt32 order
  field SFVec3f TrunkSc
  field SFVec3f BranchSc
  field SFRotation Rot ] "@vr-vrml-math-BirchT.wrl#Tree3"
  
  Transform{ scale 1 1 1 translation 0 -1 0 children[
   Tree{order 3}]}
  
  Transform{ scale 2 2 2 children[
   Shape{ appearance
    Appearance{ material Material{ diffuseColor 0 1 0 transparency .25}}
    geometry DEF scrIFS IndexedFaceSet{ coord DEF scrCoord Coordinate{}
    creaseAngle 2}}]
  }
  
  DEF INIT Script{
    field SFNode scrIFS USE scrIFS
    field SFNode scrCoord  USE scrCoord
    directOutput TRUE
  url ["javascript:
  function initialize() { 
    var n=10;
    stepTh=3.142/(n-1);
    stepFi=2.*3.1416/n;
    var k=0;
    var p = new MFVec3f();  p.length = n*n;
    for (var j= 0; j< n; j++)
      for (var i= 0; i< n; i++) {
        fi=i*stepFi;   theta=j*stepTh;
        r=1.+.3*(Math.random()-.5);    t=r*Math.sin(theta);
        p[k].x=t*Math.sin(fi);
        p[k].y=Math.cos(theta);
        p[k++].z=t*Math.cos(fi); }
    var c = new MFInt32( );  c.length = 8*(n-1)*n;
    k=0;
    for (var j= 0; j< n-1; j++) {
      for (var i= 0; i< n-1; i++) {
        c[k++] = i+n*j+1;  c[k++] = i+n*j;  c[k++] = i+n*j+n;  c[k++] = -1;
        c[k++] = i+n*j+n;  c[k++] = i+n*j+n+1;  c[k++] = i+n*j+1;  c[k++] = -1;}
      c[k++] = n*j;  c[k++] = n*j+n-1;  c[k++] = n*j+n+n-1;  c[k++] = -1;
      c[k++] = n*j+n+n-1;  c[k++] = n*j+n;  c[k++] = n*j;  c[k++] = -1; }
    scrCoord.set_point = p;
    scrIFS.set_coordIndex = c;
  }"]
  }