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

background{ color rgb <0.75,0.8,0.85> }

#declare azul = <0.1,0.2,0.9>;
#declare branco = <1,1,1>;

#macro arvore(n,xis_ant,ze_ant)
 #local xis1 = 50*rand(s);
 #local xis2 = -20*rand(s);

 #local ze1 = 5*rand(s);
 #local ze2 = -6*rand(s);
 #if (n=1)
  sphere {<xis_ant,k*n,ze_ant>,2  pigment {color branco}}
 #else
  union {
   #if (n=5)
    box {<3,k*n+3,3>,<-3,(k*n)-3,-3> pigment {color branco}}
   #else
    sphere {<xis_ant,k*n,ze_ant>,2  pigment {color branco}}
   #end
   cylinder{<xis_ant,k*n,ze_ant>,<xis1,k*(n-1),ze1>,0.5 pigment {color azul}}
   arvore(n-1,xis1,ze1)
   cylinder{<xis_ant,k*n,ze_ant>,<xis2,k*(n-1),ze2>,0.5 pigment {color azul}}
   arvore(n-1,xis2,ze2)
  }
 #end
#end

#declare n=5;
#declare k=20 ;
#declare s=seed(12345);
object {arvore(n,0,0)}

#include "camlight.inc"
camlight(<13,50,3>,<-13,-20,97>,1.00,y,1.0)