// Last edited on 2009-11-23 14:02:29 by stolfilocal
// Processed by remove-cam-lights

#macro eixo(ponta,cor,nome)
  union{
    sphere{ <0,0,0>, 0.02 }
    cylinder{ <0,0,0>, 0.91*ponta, 0.02 }
    cone{ 0.90*ponta, 0.06, ponta, 0.00 }
    texture{ pigment{ color rgb cor } finish{ ambient 0.5 diffuse 0.5 } }
  }
#end
#macro eixos(tamanho)
  union{
    object{ eixo( <tamanho,0,0>, <1.0,0.2,0.2>, "X") }
    object{ eixo( <0,tamanho,0>, <0.0,0.8,0.0>, "Y") }
    object{ eixo( <0,0,tamanho>, <0.3,0.3,1.0>, "Z") }
  }
#end

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

#declare tx_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.9, 0.8 > }
    finish{ diffuse 0.6 ambient 0.2 }
  }

#declare tx_azul =
  texture{
    pigment{ color rgb < 0, 0, 0 > }
    finish{ ambient 0.2 diffuse 0.3 reflection 0.5*<1,1,1> }
  }

#declare p1 = <0,0>;
#declare p2 = <1,1>;
#declare p3 = <2.5,2>;
#declare p4 = <1,3>;

#declare p5 = p4;
#declare p6 = <0.5,3.5>;
#declare p7 = <0.7,5>;

#declare p10 = <1.5,7>;
#declare p11 = <1.5,7>;

#declare p8 = (p7+p10)/2;
#declare p9 = p8;

#declare p14 = <0.5,9>;
#declare p15 = <1,11>;
#declare p16 = <2,12>;

#declare p12 = (p11+p14)/2;
#declare p13 = p12;

#declare torre1 =
lathe{
        bezier_spline
        16
        p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13,p14,p15,p16
        texture{ tx_fosca }
}

#declare q1 = <4,0>;
#declare q2 = <3,1>;
#declare q3 = <2,3>;
#declare q4 = <1,3.5>;

#declare q5 = q4;
#declare q6 = <0,3>;
#declare q7 = <-3,2.5>;
#declare q8 = <-3.5,0>;

#declare q9 = q8;
#declare q10 = <-3,-1>;
#declare q11 = <-2,-3>;
#declare q12 = <-1,-3.5>;

#declare q13 = q12;
#declare q14 = <0,-3>;
#declare q15 = <3,-2.5>;
#declare q16 = q1;

#declare torre2 =
prism{
        bezier_spline
        0.0,
        34.0,
        16,
        q1,q2,q3,q4,q5,q6,q7,q8,q9,q10,q11,q12,q13,q14,q15,q16
        texture{ tx_fosca }
}

#declare r1 = <0,3>;
#declare r2 = <2,2>;
#declare r3 = <2,2>;

#declare r6 = <0.5,3.5>;
#declare r4 = (r3+r6)/2;
#declare r5 = r4;
#declare r7 = <0.7,4>;

#declare r10 = <1.2,5>;
#declare r11 = <1.2,6>;

#declare r8 = (r7+r10)/2;
#declare r9 = r8;

#declare r14 = <0.5,9>;
#declare r15 = <1,11>;
#declare r16 = <1.4,12>;

#declare r12 = (r11+r14)/2;
#declare r13 = r12;

#declare torre3 =
lathe{
        bezier_spline
        16
        r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12,r13,r14,r15,r16
        texture{ tx_fosca }
}

#declare teto =
box{
        <-3,-10,0>,
        <10,10,1>
        texture{ tx_fosca }
}

#declare chao =
box{
        <-5,-16,0>,
        <7,16,1>
        texture{ tx_fosca }
}

#declare cena =
union{
        object{ torre3 rotate -90*x translate<4,-4,6> }
        object{ torre3 rotate -90*x translate<4,4,6> }

        object{ torre2 rotate 90*x scale 0.3 translate<0,-8,-6> }
        object{ torre2 rotate 90*x scale 0.3 translate<0,8,-6> }

        object{ torre1 rotate -90*x translate<4,13,6> }
        object{ torre1 rotate -90*x translate<4,-13,6> }

        object{ teto translate<0,0,4> }
        object{ chao translate<0,0,-7> }
}

object{ cena rotate 20*z }

// Original camera parameters:
// #local cam_ctr = <0.00,1.00,0.00>
// #local cam_loc = (4*<14.00,8.00,2.50>)
// #local cam_vec = ((4*<14.00,8.00,2.50>)-<0.00,1.00,0.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,-1.5>,21.00,<9,7,3>,90.00,z,1.2)