// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

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

#declare raio = 2.000;

#declare cor_Amarela = <1, 0.8, 0.1>;

#declare tinta_Azul =
  texture {
    pigment { color rgb < 0.00, 0.00, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_Verde =
  texture {
    pigment { color rgb < 0.00, 1.00, 1.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_Vermelha =
  texture {
    pigment { color rgb < 1.00, 0.00, 0.00 > }
    finish { diffuse 0.8 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare galho = cylinder{<0,0,0>,<0,0,8>,1 texture{tinta_Vermelha}}

#declare folha = sphere{<0,0,0>,3 texture{tinta_Verde}}

#declare G=seed(99999);

#macro SubArvore(n,posX,posY,posZ)
  union{
    #if (n=1)
      object {folha translate <posX,posY,posZ>}
    #else
      object {folha translate <posX,posY,posZ>}
      #if (rand(G)>0.5)
        object {galho rotate 45*y translate <posX,posY,posZ>}
        object {galho rotate -45*y translate <posX,posY,posZ>}
        #local posX1 = posX + 8*sin(45);
        #local posY1 = posY;
        #local posZ1 = posZ + 8*sin(45);
        #local posX2 = posX - 8*sin(45);
        #local posY2 = posY;
        #local posZ2 = posZ + 8*sin(45);
      #else
        object {galho rotate 45*x translate <posX,posY,posZ>}
        object {galho rotate -45*x translate <posX,posY,posZ>}
        #local posX1 = posX;
        #local posY1 = posY + 8*sin(45);
        #local posZ1 = posZ + 8*sin(45);
        #local posX2 = posX;
        #local posY2 = posY - 8*sin(45);
        #local posZ2 = posZ + 8*sin(45);
      #end

      object {SubArvore((n-1),posX1,posY1,posZ1)}
      object {SubArvore((n-1),posX2,posY2,posZ2)}
    #end
  }
#end

object{SubArvore(4,0,0,0)}

#include "camlight.inc"
camlight(<0,0,0>,<40,100,24>,1.00,z,1.0)