// Last edited on DATE TIME by USER
// Processed by remove-cam-lights
background{ color rgb < 0.75, 0.80, 0.85 > }

 
 


 

#declare cor_verm = <1.0 0.0 0.0>;
#declare tex_verm =
   texture {
     pigment { rgb cor_verm }
     finish {



     }
   }

#declare cor_marrom =  < 0.3, 0.30, 0.30 >;
#declare tex_marrom =
   texture {
     pigment { rgb cor_marrom }
     finish {



     }
   }

#declare seed1 = seed(0);
#declare seed2 = seed(1000);
#declare seed3 = seed(2000);

#declare seed4 = seed(100);
#declare seed5 = seed(3000);
#declare seed6 = seed(4000);

#declare fator_alt1=0.9;
#declare fator_alt2=0.9;

#declare fator_rad1=0.9;
#declare fator_rad2=0.9;

#declare cubo_min1 = <-5,-5,-5>;
#declare cubo_max2 = <15,15,15>;

#macro galho(p, ve, l, r)
 #if ((r>0.1)&(p.x>cubo_min1.x)&(p.x<cubo_max2.x)&(p.y>cubo_min1.y)&(p.y<cubo_max2.y)&(p.z>cubo_min1.z)&(p.z<cubo_max2.z))
  merge{
   cylinder { p, p+ve*l,r texture{tex_marrom}} 
   sphere { p+ve*l, r texture{tex_marrom}}
   galho(p+ve*l,vnormalize(ve+(<rand(seed1)-0.5,rand(seed2)-0.5,rand(seed3)-0.5>)),l*fator_alt1,r*fator_rad1)
   galho(p+ve*l,vnormalize(ve+(<rand(seed4)-0.5,rand(seed5)-0.5,rand(seed6)-0.5>)),l*fator_alt2,r*fator_rad2)
  }
 #else
  fruto(p,ve, r)
 #end
#end

#macro fruto(p,ve,r)
 sphere { <0,0,0>, r scale<2,3,0> translate p+0.3 texture{tex_verm}} 
#end

#macro arvore()
 galho(<0,0,0>, <0,1,0>, 3.5, 0.3)
#end









object { arvore() }

// Original camera parameters:
// #local cam_ctr = <0,5,0>
// #local cam_vec = (<5,10,35>-<0,5,0>)
// #local cam_sky = y

#include "camlight.inc"
camlight(<0,5,0>,<10,10,10>,20.0,y,1.0)