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

#macro quadro(tt)

#declare tx_violet =
  texture{
    pigment{ color rgb < 0.54, 0.17, 0.88 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_yellow =
  texture{
    pigment{ color rgb < 1.0, 1.0, 0.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_green =
  texture{
    pigment{ color rgb < 0.0, 1.0, 0.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_grey =
  texture{
    pigment{ color rgb < 0.60, 0.60, 0.60 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_blue =
  texture{
    pigment{ color rgb < 0.0, 0.0, 1.0 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_foto =
        texture{
                pigment{
                        image_map{
                                jpeg "palmeiras.jpg"
                        }
                        scale <1.5,1.5,3.5>
                        rotate <0,90,0>
                }
        }

#declare tx_whopper =
        texture{
                pigment{
                        image_map{
                                jpeg "whopper.jpg"
                        }
                        translate<0.5,-0.5,0>
                        scale <1.3,1.2,1.1>
                        rotate <0,90,0>
                        translate<0.5,0.5,0>
                }
        }

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

#declare raio = 2.000;

#declare angCorpo = abs(45*sin(2*pi*tt));

#declare angCoxa = -abs(80*sin(2*pi*tt));

#declare angPeh = abs(40*sin(2*pi*tt));

#macro interpola(ta, va, tb, vb, tt)
        #local s = (tt-ta)/(tb-ta);
        ((1-s)*va + s + vb)
#end

#declare ctt = cos(2*pi*tt);

#declare stt = sin(2*pi*tt);

#declare predio_corpo =
        box{<0,0,0>, <1,2,4> texture{tx_grey} }

#declare haste =
        cone{ <0,0,0>, 0.1,
                                <0,0,1>, 0.1
                         texture{tx_yellow} }

#declare anuncio_predio =
        box{<1.01,0,0>,<1,1.5,1.5> texture{tx_foto} rotate 90*x translate<0,1.7,0.5>}

#declare predio =
        union{

#local p1 = <1,0,2>;
#local p2 = <0.5,0,1.5>;
#local p3 = <0.5,0,1>;
#local p4 = <1,0,0.5>;
#local p5 = <2,1,2>;
#local p6 = <2,1,1.5>;
#local p7 = <2,1,1>;
#local p8 = <2,1,0.5>;
#local p9 = <0,2,2>;
#local p10 = <0,2,1.5>;
#local p11 = <0,2,1>;
#local p12 = <0,2,0.5>;
#local p13 = <0.5,3,2>;
#local p14 = <1,3,1.5>;
#local p15 = <1,3,1>;
#local p16 = <1,3,0.5>;

                object{
                        retalho(p1,p2,p3,p4,
                                                        p5,p6,p7,p8,
                                                        p9,p10,p11,p12,
                                                        p13,p14,p15,p16,
                                                        0.01, tx_yellow, tx_whopper)
                        translate<-0.2,0.8,3> scale 0.8 }

                        object{ predio_corpo translate<0,0,-2> }
                        object{haste translate<0.5,1,2> }
                        object{anuncio_predio}
        }

object{ predio scale 0.8 translate <0,0,-0.5>}

#end

#include "retalho.inc"

quadro(clock)

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_loc = <8.00,4.00,2.00>
// #local cam_vec = <8.00,4.00,2.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,0>,5.041,<10,10,10>,9.165,z,1.2)