//----Standard-Branch-Element----
//-------------------------------
//----------including------------
//----Standard-Branch-Texture----

#declare branch_mat = material {  
  texture {
    pigment {rgb <.4,.4,.35>}
    normal {granite 1 scale .25*<.25,.25,.25>}
    finish {ambient 0}
    }
  }

#macro element (ori, old_rad, fin, rad)
  union {
    cone {ori, old_rad, fin, rad}
    sphere {ori, old_rad}
    material {branch_mat}
    }
#end
