// Last edited on 2009-11-22 17:31:14 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_1 =
  texture{
    pigment{ color rgb < 1, 1, 1 > }
    finish{ diffuse 0.8 ambient 0.1 specular 0.1 roughness 0.005 }
  }

#macro ColunaTipo1(h, s)

        #declare sca = 0.25;
        #declare p = array[4*h];

        #declare p[0] = <1, 0>;
        #declare p[4*h-1] = <1, (4*h-1)*sca>;
        #declare i = 1;
        #while (i < 4*h)
                #if (mod(i,4) = 1 | mod(i,4) = 2)

                        #declare p[i] = <1.5-rand(s), i*sca>;
                #end
                #declare i = i+1;
        #end

        #declare i = 3;
        #while (i+2 < 4*h)
                        #declare p[i] = (p[i-1]+p[i+2])*0.5;
                        #declare p[i+1] = p[i];
                #declare i = i+4;
        #end

lathe
{
        bezier_spline
        4*h
        #declare i = 0;
        #while (i < 4*h)
                p[i]
                #declare i = i+1;
        #end
        texture {tx_1}
        transform{rotate <90, 0, 0>}
}
#end

#macro ColunaTipo2(n, s)

        #declare p = array[4*n];

        #declare i = 1;
        #while (i < 4*n)
                #if (mod(i,4) = 1 | mod(i,4) = 2)
                        #declare a = (2*3.14156)/(4*n);

                        #declare p[i] = <cos(i*a), sin(i*a)> * (rand(s) + 0.5);
                #end
                #declare i = i+1;
        #end

        #declare i = 1;
        #while (i < 4*n)
                #if (mod(i,4) = 3)
                        #declare p[i] = (p[mod(i+(4*n)-1,4*n)]+p[mod(i+2,4*n)])*0.5;
                        #declare p[mod(i+1,4*n)] = p[i];
                #end
                #declare i = i+1;
        #end

        prism
        {
                linear_sweep
                bezier_spline
                0, 2,
                4*n,
                #declare i = 0;
                #while (i < 4*n)
                        p[i]
                        #declare i = i+1;
                #end
                texture {tx_1}
                transform{rotate <90, 0, 0>}
        }
#end

#declare templo =
union
{

        box
        {
                0,  <-1.6180339887, 1, 0.001>
                scale <20, 20, 20>
                texture {tx_1}
        }

        object
        {
                ColunaTipo2 (7, seed(0))
                transform { translate <-1, 1, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (7, seed(1))
                transform { translate <-1, 5, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (7, seed(2))
                transform { translate <-1, 9, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (7, seed(3))
                transform { translate <-1, 13, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (7, seed(4))
                transform { translate <-1, 1+26, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (7, seed(5))
                transform { translate <-1, 5+26, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (7, seed(6))
                transform { translate <-1, 9+26, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (7, seed(7))
                transform { translate <-1, 13+26, 0> scale <0.5, 0.5, 2>}
        }

        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-5, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-10, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-15, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-20, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-25, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-30, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-35, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-40, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-45, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-50, 1, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-55, 1, 0> scale <0.5, 0.5, 0.5>}
        }

        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-5, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-10, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-15, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-20, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-25, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-30, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-35, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-40, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-45, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-50, 39, 0> scale <0.5, 0.5, 0.5>}
        }
        object
        {
                ColunaTipo1 (8, seed(0))
                transform { translate <-55, 39, 0> scale <0.5, 0.5, 0.5>}
        }

        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 1, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 5, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 9, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 13, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 17, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 23, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 1+26, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 5+26, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 9+26, 0> scale <0.5, 0.5, 2>}
        }
        object
        {
                ColunaTipo2 (20, seed(0))
                transform { translate <-60, 13+26, 0> scale <0.5, 0.5, 2>}
        }

        box
        {
                <0, 0, 4>,  <-1.6180339887, 1, 5>
                scale <20, 20, 1>
                texture {tx_1}
        }
        prism
        {
    linear_sweep
    linear_spline
    0,
    1.6180339887,
    3,
    <0.5,0>, <0,2>, <-0.5,0>
    texture {tx_1}
    transform {
        rotate <0,0,90>
        translate <0,0.5,5>
        scale <20, 20, 1>
    }
  }
}

object{ templo translate <0, -10, 0> }
// object{ eixos(30) }

// Original camera parameters:
// #local cam_ctr = <0.00,0.00,4.00>
// #local cam_loc = <20,3,10>
// #local cam_vec = (<20,3,10>-<0.00,0.00,4.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<-10.00,00.00,2.00>,18.00,<9,7,2>,35.00,z,1.2)