// Last edited on 2009-07-22 17:17:34 by stolfilocal

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

#declare objQuadrado = 
	box {
		< -1.0, -1.0, -1.0 >, <  5.0, 5.0, 5.0  >
		pigment {
			color rgb < 1.0, 1.0, 0.0 >
		}
		translate < 1, 1, 1 >
		scale  1.0/6.0
	}
 
#declare objCone = 
	cone {
		< 2.5, -0.5, -0.9 >, 2.0
		< 2.5, 4.5, -0.9 >, 0.01
		pigment {
			color rgb < 0.0, 1.0, 0.0 >
		} 
		translate < 1, 1, 1 >
		scale  1.0/6.0
	}

#declare tijolo =
	union {
	  	object { objQuadrado } 
	  object { objCone }
	}

#macro sierp(n)
	#if(n = 0)
	object { tijolo } 
	#else
		union{
			object { tijolo translate < 0, 0, 0 > }
			object { tijolo translate < 1, 1, 0 > }
			object { sierp(n - 1) translate < 1, 0, 0 > }
			object { sierp(n - 1) translate < 0, 1, 0 > }
			scale < 0.5, 0.5, 0.5 >
		}
	#end
#end

#declare N = 5;

object { sierp(N)}  

// Original camera parameters:
// #local cam_ctr = < 0.5, 0.5, 0.5 >
// #local cam_vec = < 0.5, 1.5, -3.5 >
// #local cam_sky = y

#include "camlight.inc"
camlight(< 0.5, 0.5, 0.5 >,<-25,15,-35>,3.5,y,1.0)