EXTERNPROTO 
  Tree [
    exposedField SFVec3f translation
    exposedField SFInt32 size
    exposedField SFNode  woodtexture
    exposedField 
  SFNode  leavetexture     NULL
  ]
  {
    Transform {
      translation IS translation
      children [
        Transform {
          translation 0 1.8 0
          children 
  [
            Shape {
              appearance Appearance {
                material Material {diffuseColor 0 .6 0}
                texture IS leavetexture
              }
              geometry Sphere {
                radius 
  1
              }
            }
          ]
        }
        Shape {
          appearance Appearance {
            material Material {diffuseColor .6 .3 0}
            texture IS woodtexture
          }
          geometry Cylinder 
  {
            radius .2
            height 2
            top    FALSE
            bottom FALSE
          }
        }
      ]
    }
  }