// Last edited on 2009-07-22 15:45:28 by stolfilocal
// Processed by remove-cam-lights

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

#declare raio = 2.000;

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

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

#declare cinza = 
  texture {
    pigment { color rgb < 0.80, 0.80, 0.80 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

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

#declare verde= 
  texture {
    pigment { color rgb < 0.20, 0.80, 0.20 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

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

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

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

#declare marron = 
  texture {
    pigment { color rgb < 0.54, 0.27, 0.07 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare cubo_vazado =
  
    difference{
      object{
        box {
          < 0.00, 0.00, 0.00 >,
          < 10.00, 10.0, 10.00 >
          texture { azul }
        }
      }
      object{
        box{
          < 0.50, -0.05, 0.50 >,
          < 4.50, 10.05, 9.00 >
          texture { branco }
        }
      } 
      object{
        box{
          < 0.51, -0.20, 5.50 >,
          < 9.50, 10.05, 9.50 >
          texture { branco }
        }
      }
    }
  

#declare tam = 1/2;

#macro monta_cubo(n)
  #if(n = 0)
    object{cubo_vazado}
  #else

    union{
      object{cubo_vazado}
      union{
        object{monta_cubo(n-1) translate<0,0,0>}
        object{monta_cubo(n-1) translate<0,0,10>}
        object{monta_cubo(n-1) translate<10,0,10>}
        scale<tam, 1, tam>
      }
    }
    
  #end
#end

object{ monta_cubo(2) }

// Original camera parameters:
// #local cam_ctr = <5.00,5.00,5.00>
// #local cam_vec = (<10.00,-15.00,10.00>-<5.00,5.00,5.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<5.00,5.00,5.00>,<4,10,3>,22.0,z,1.0)