// Last edited on 2005-01-06 00:16:58 by stolfi
// Processed by remove-cam-lights

#include "colors.inc"

sky_sphere {
  pigment {
    gradient y
    color_map {
      [0.0 rgb <0.6,0.7,1.0>]
      [0.7 rgb <0.0,0.1,0.8>]
    }
  }
}

plane {
  y, -15
  pigment { color rgb <0.7,0.5,0.3> }
}

#declare noh =
sphere {
      <0,0,0>, 1
      pigment {color Red}
}

#declare aresta =
cylinder {
  <0,0,0>, <0,2.2,0>, 0.15
  pigment {color Blue}
}

#macro minhaArvore(h)
  #if (h>1)
      object {
 noh
        translate <(h-1)*-2,h*-2.8,0>
      }
      object {
        aresta
        rotate -45*z
        translate <(h-1)*-2,h*-2.6,0>
      }
      object {
        aresta
        rotate 45*z
        translate <(h-1)*2,h*-2.6,0>
      }
      object {
 noh
        translate <(h-1)*2,h*-2.8,0>
      }

      minhaArvore(h-1)
      minhaArvore(h-1)
  #else
    object {
      noh
      translate<0,-3,0>
    }
  #end
#end

minhaArvore(5)

#include "camlight.inc"
camlight(<0,0,0>,<0,6,-30>,1.00,y,1.0)