// Last edited on DATE TIME by USER
// Processed by remove-cam-lights

#include "eixos.inc"
#include "retalho.inc"
#include "camlight.inc"

#declare muro =
texture{
     pigment{ brick color rgb<1, 1, 1> color rgb<0.9,0.3,0.1>
              brick_size <0.25, 0.0525, 0.125 >
              mortar 0.01
     }
     normal { wrinkles 0.75 scale 0.01}
     finish { diffuse 0.9 phong 0.2}
}

#declare cristal =
texture{
    pigment{ color rgbf < 0, 0.9, 0.9, 0.9 > }
    finish{ diffuse 0.9 ambient 0.1 }
}

#macro meiosofa()

                #local A = array[4][4];

                #local A[0][0] = <6,2,0>;
                #local A[0][1] = <4,1,0>;
                #local A[0][2] = <2,1,0>;
                #local A[0][3] = <0,2,0>;

                #local A[1][0] = <6,2,2>;
                #local A[1][1] = <4,1,2>;
                #local A[1][2] = <2,1,2>;
                #local A[1][3] = <0,2,2>;

                #local A[2][0] = <6,2,5>;
                #local A[2][1] = <4,1,5>;
                #local A[2][2] = <2,1,5>;
                #local A[2][3] = <0,2,5>;

                #local A[3][0] = <6,2,10>;
                #local A[3][1] = <4,1,10>;
                #local A[3][2] = <2,1,10>;
                #local A[3][3] = <0,2,10>;

                #local B = array[4][4];

                #local B[0][0] = <6,2,0>;
                #local B[0][1] = <4,1,0>;
                #local B[0][2] = <2,1,0>;
                #local B[0][3] = <0,2,0>;

                #local B[1][0] = <6,4,-2>;
                #local B[1][1] = <4,2,-2>;
                #local B[1][2] = <2,2,-2>;
                #local B[1][3] = <0,4,-2>;

                #local B[2][0] = <6,8,-2>;
                #local B[2][1] = <4,4,-2>;
                #local B[2][2] = <2,4,-2>;
                #local B[2][3] = <0,8,-2>;

                #local B[3][0] = <6,12,-4>;
                #local B[3][1] = <4,10,-4>;
                #local B[3][2] = <2,10,-4>;
                #local B[3][3] = <0,12,-4>;

                #local C = array[4][4];

                #local C[0][0] = <6,12,-4>;
                #local C[0][1] = <4,10,-4>;
                #local C[0][2] = <2,10,-4>;
                #local C[0][3] = <0,12,-4>;

                #local C[1][0] = <6,12,-8>;
                #local C[1][1] = <4,10,-8>;
                #local C[1][2] = <2,12,-8>;
                #local C[1][3] = <0,12,-8>;

                #local C[2][0] = <6,12,-10>;
                #local C[2][1] = <4,10,-10>;
                #local C[2][2] = <2,10,-10>;
                #local C[2][3] = <0,12,-10>;

                #local C[3][0] = <6,16,-14>;
                #local C[3][1] = <4,14,-14>;
                #local C[3][2] = <2,14,-14>;
                #local C[3][3] = <0,16,-14>;

        union{
                object{
                        retalho(A[0][0],A[0][1],A[0][2],A[0][3],
                                                                        A[1][0],A[1][1],A[1][2],A[1][3],
                                                                        A[2][0],A[2][1],A[2][2],A[2][3],
                                                                        A[3][0],A[3][1],A[3][2],A[3][3],
                                                                        0.001, cristal, texture{ pigment{color rgb<1,0,0>}})

                }

                object{
                        retalho(B[0][0],B[0][1],B[0][2],B[0][3],
                                                                        B[1][0],B[1][1],B[1][2],B[1][3],
                                                                        B[2][0],B[2][1],B[2][2],B[2][3],
                                                                        B[3][0],B[3][1],B[3][2],B[3][3],
                                                                        0.001, cristal, texture{ pigment{color rgb<1,0,0>}})

                }

                object{
                        retalho(C[0][0],C[0][1],C[0][2],C[0][3],
                                                                        C[1][0],C[1][1],C[1][2],C[1][3],
                                                                        C[2][0],C[2][1],C[2][2],C[2][3],
                                                                        C[3][0],C[3][1],C[3][2],C[3][3],
                                                                        0.001, cristal, texture{ pigment{color rgb<1,0,0>}})

                }

        }

#end

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

union{

        object { meiosofa()}
        object { meiosofa() translate<-6,0,0>}

}

#declare centro_cena = < 0,0,0 >;
#declare raio_cena = 30.0;
#declare dir_camera = < 2       , 2, 1 >;
#declare dist_camera = 30.0;
#declare intens_luz = 1.00;

camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)