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

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

#declare objTorrePonta =
	cone {
		< -4.0, 2.0, 0.0 >, 0.01 
		< -4.0, 0.0, 0.0 >, 0.8
		pigment { color rgb < 1.0, 1.0, 0.0 > }
	}

#declare objTorreBase = 
	cylinder {
		< -4.0, 0.0, 0.0 >, < -4.0, -4.0, 0.0 >, 0.8
		pigment { color rgb < 1.0, 1.0, 0.0 > }
	}

#declare objMiniTorrePontCone =
	  cone {
	  < -3.0, 1.5, 0.0 >, 0.01 
	  < -3.0, 0.0, 0.0 >, 0.4
	  pigment { color rgb < 1.0, 1.0, 0.0 > }
	}

#declare objMiniTorrePontQuadr = 
	  	box {
		< -2.2, 0.0, -0.3 >, <  -1.7, 0.7, 0.2 >
		pigment { color rgb < 1.0, 1.0, 0.0 > }
	}


#declare objMiniTorreBase =
	cylinder {
		< -3.0, 0.0, 0.0 >, < -3.0, -4.0, 0.0 >, 0.4
		pigment {
			color rgb < 1.0, 1.0, 0.0 >
		}
	}

/*object { objMiniTorrePontQuadr }*/

#declare objTorreMaior = 
	union {
		object { objTorrePonta}  
		object { objTorreBase }
	}

#declare objTorreMenor = 
	union {
		object { objMiniTorreBase }
		object { objMiniTorrePontCone }
	}

#macro sierp1(n)
	#if(n = 0)
	object { objTorreMaior } 
	#else
		union{
			object { objTorreMaior translate < 0, 0, 0 > }
			object { objTorreMaior translate < 6, 0, 0 > }
		}
	#end
#end

#macro sierp2(n)
	#if(n = 0)
	object { objTorreMenor } 
	#else
		union{
			object { objTorreMenor translate < 0, 0, 0 > }
			object { objTorreMenor translate < 0.8, 0, 0 > }
			object { objTorreMenor translate < 1.6, 0, 0 > }
			object { objTorreMenor translate < 2.4, 0, 0 > }
			object { objTorreMenor translate < 3.2, 0, 0 > }
			object { objTorreMenor translate < 4.0, 0, 0 > }
		}
	#end
#end

#declare N1 = 2;
#declare N2 = 6;

object { sierp1(N1) }  
object { sierp2(N2) }

/* Falta chamar a ponta da torre aleatoriamente, as janelas e forma lateral */

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <0,3,-10>
// #local cam_sky = y

#include "camlight.inc"
camlight(<0,0,0>,<10,5,10>,20.0,y,1.0)