NavigationInfo{ type "EXAMINE" }
  Background{ skyColor .5 .5 1}
  
  PROTO Tree3[
   field SFInt32 order 3
   field SFVec3f TrunkSc 1 1 1
   field SFVec3f BranchSc .5 .5 .5
   field SFRotation Rot 1 0 0 1 ]{
  DEF ROOT Transform{ scale 4 4 4 translation 0 -4 0 children[]}
  DEF Polyhedron Script {
    eventOut MFNode new_f
    field SFNode ROOT USE ROOT
    field SFInt32 MaxIt IS order
    field SFRotation Rot IS Rot
    field SFVec3f TrunkSc IS TrunkSc
    field SFVec3f BranchSc IS BranchSc
    directOutput TRUE
  url ["javascript:
  function initialize(){ 
    str =
  'DEF L0 Shape{ appearance Appearance{ material Material{} '+
  'texture ImageTexture{ url \"leaf.png\" }} '+
  'geometry IndexedFaceSet{ solid FALSE '+
  'coord Coordinate{ point[0 1 0,.7 1.5 -.5,0 2 -1,-.7 1.5 -.5]} '+
  'texCoord TextureCoordinate{ point[0 0,1 0,1 1,0 1]} coordIndex[0 1 2 3]}} '+
  'Transform{ rotation 0 1 0 3.14 translation 0 1 0 children USE L0} '+
  'DEF B0 Shape{ appearance Appearance{ material Material{ emissiveColor .5 .5 0}} '+
  'geometry IndexedLineSet{ coord Coordinate{ point[0 0 0,0 2 0]} '+
  'coordIndex[0 1]}}';
    for ( i= 1; i<=MaxIt; i++)
      str = 'Transform{ translation 0 1 0 children '+
  'DEF s'+i+' Transform{ scale '+BranchSc+' children[ '+  str  +
  ']} } Transform{ scale .5 .5 .5 children trunk{}} '+
  'DEF g'+i+' Transform{ rotation '+Rot+' translation 0 1 0 children USE s'+i+'} '+
  'Transform{ rotation 0 1 0 2.09 children USE g'+i+'} '+
  'Transform{ rotation 0 1 0 -2.09 children USE g'+i+'}';
    new_f = Browser.createVrmlFromString(
  'PROTO trunk[]{Transform{ scale '+TrunkSc+' children[ '+
  'Shape{ appearance Appearance{ material Material{ diffuseColor 1 1 1} '+
  'texture ImageTexture{ url \"birch.png\" } } '+
  'geometry IndexedFaceSet{ coord Coordinate{ '+
  'point[.2 0 0,.1 0 -.17,-.1 0 -.17,-.2 0 0,-.1 0 .17,.1 0 .17, '+
  '.1 2 0,.05 2 -.09,-.05 2 -.09,-.1 2 0,-.05 2 .09,.05 2 .09]} '+
  'coordIndex[0 1 7 6 -1 1 2 8 7 -1 2 3 9 8 -1 3 4 10 9 -1 4 5 11 10 -1 5 0 6 11] '+
  'texCoord TextureCoordinate{ '+
  'point[0 0,.2 0,.3 0,.4 0,.6 0,.8 0,1 0, 0 1,.2 1,.3 1,.4 1,.6 1,.8 1,1 1]} '+
  'texCoordIndex[0 1 8 7 -1 1 2 9 8 -1 2 3 10 9 -1 3 4 11 10 -1 4 5 12 11 -1 5 6 13 12] '+
  ' creaseAngle 2}}]}} ' + str );
    ROOT.addChildren = new_f;
  }
  "]}
  }
  
  Tree3{order 5 }