// Last edited on 2009-07-23 17:32:59 by stolfilocal
// Processed by remove-cam-lights

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

#declare texturametal = 
  texture {
    pigment { color rgb < 0.9, 0.9, 0.9 > filter 0}
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare basico = difference {   
    union { 
        object { box {  <0,0,0>,  <4,4,4>  texture { texturametal }   } }
        object { box {  <0,0,0>,  <4,4,4>  texture { texturametal }  translate<8,0,0>   } }
        object { box {  <0,0,0>,  <4,4,4>  texture { texturametal }  translate<0,0,8>   } }
        object { box {  <0,0,0>,  <4,4,4>  texture { texturametal }  translate<8,0,8>   } }
        object { box {  <4,0,0>,  <8,2,1>  texture { texturametal }   } }
        object { box {  <4,0,0>,  <8,2,1>  texture { texturametal }  translate<0,0,11>  } }
        object { box {  <0,0,4>,  <1,2,8>  texture { texturametal }   } }
        object { box {  <0,0,4>,  <1,2,8>  texture { texturametal }  translate<11,0,0> } }
    }
    union {
        object { box {  <5,1,-20>,  <6,5,20>  texture { texturametal }   } }
        object { box {  <7,1,-20>,  <8,5,20>  texture { texturametal }   } } 
        object { box {  <-20,1,5>,  <20,2,6>  texture { texturametal }   } }
        object { box {  <-20,1,7>,  <20,2,8>  texture { texturametal }   } }
    }
}

#macro sierp(n)
 #if (n=0)
    basico
 #else
    #declare escala = 1/3;
  union{         
         object{ basico }   
   object{ sierp(n-1) scale<escala,escala,escala> translate<0,4,0> }
   object{ sierp(n-1) scale<escala,escala,escala> translate<8,4,0> }
   object{ sierp(n-1) scale<escala,escala,escala> translate<0,4,8> }
   object{ sierp(n-1) scale<escala,escala,escala> translate<8,4,8> }
  }
 #end
 
#end

#declare N = 2;

sierp(N)

 

// Original camera parameters:
// #local cam_ctr = <0.00,7.00,0.00>
// #local cam_vec = (<10,20,30>-<0.00,7.00,0.00>)
// #local cam_sky = (1*y)

#include "camlight.inc"
camlight(<4.00,1.00,4.00>,<10,5,7>,30.0,y,1.0)