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

#include "colors.inc"

global_settings {
  assumed_gamma 1.0
}

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>]
    }
  }
}

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

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

#declare predio =
  box {
    < -10.00, 0.0, -10 >,
    < 10.00, 35.00, 10.00 >
    pigment { Blue }
  }

#macro treco(n)
    union{
      #local i=0;
      #while (i<n)
        sphere{<10*i,10,0>,3}
 #declare i=i+1;
      #end
    }
#end

#declare objeto=
   union{
   #declare n=5;
   object{treco(n)}

}

#macro arvore(nivel,n,posx,posy,posz)
  union{
    #if(n=1)
       sphere{<posx,posy,posz>,2
       pigment{Yellow}}
       object{arvore(nivel,n+1,posx,posy,posz)}
    #else
      #if(nivel=n)
         #local espaco=n*10;
  #local inicio=posx-(espaco/2);
  #local delta = espaco/(n-1);
         #local i=0;
  #while (i<n)
     sphere{<inicio+i*delta,posy-10,posz>,2
     pigment{Yellow}}
     cylinder{<inicio+i*delta,posy-10,posz><posx,posy,posz>,0.5
              pigment {Blue}}
     #declare i=i+1;
  #end
      #else
         #local espaco=n*10;
  #local inicio=posx-(espaco/2);
  #if(n>1)
     #local delta = espaco/(n-1);
  #else
     #local delta = 0;
  #end
         #local j=0;
  #while (j<n)
     sphere{<inicio+j*delta,posy-10,posz>,2 pigment{Yellow}}
     cylinder{<inicio+j*delta,posy-10,posz><posx,posy,posz>,0.5
              pigment {Blue}}
     object{arvore(nivel,n+1,inicio+j*delta,posy-10,posz)}
     #declare j=j+1;
  #end
      #end
    #end
    }
#end

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

object{arvore(4,1,0,50,0)}

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