// Last edited on DATE TIME by USER
// Processed by remove-cam-lights
#include "colors.inc"

#declare solo =
  plane {
    <0,0,1>, -3
    pigment{checker color Black, color White}
}

#declare folha =
  sphere{
    <0,0,0>,
    1
    pigment{color Blue}

  }

#declare No =
  sphere{
    <0,0,0>,
    1
    pigment{color Blue}
}

#declare yy=0;
#declare zz=3;
#declare tam = 3;
#declare desl_y=2;
#declare desl_z=3;

#macro arvore(yy,zz,i)
  #local yy_esq=0;
  #local yy_dir=0;
  #local nzz=0;
  #local ntam=0;
  #local ni=0;

  #if(i<tam)
    union{

      object{folha translate<0,yy,zz>}

      #declare yy_esq = yy - desl_y - i;
      #declare yy_dir = yy + desl_y + i ;
      #declare nzz = zz - desl_z;
      #declare ni = i + 1;

      object{arvore(yy_esq, nzz, ni)}
      object{arvore(yy_dir, nzz, ni)}

    }
  #else
    object{No translate<0,yy,zz>}

  #end
#end

union{

object{arvore(yy,zz,1)}
}

#include "camlight.inc"
camlight(<0,0,0>,<50,0,1>,1.00,z,1.0)