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

#include "colors.inc"
#macro quadro(tt)

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

#declare raio = 2.000;

#declare rotacao = 360*tt*z;

#declare tx_granito =
  texture{
    pigment{
      granite
    }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
}

#declare tx_marmore =
  texture{
    pigment{
      marble
    }
    finish{ diffuse 0.9 ambient 0.1 }
    scale 2.0
}

#macro pe(angulo)
        merge {
                difference {
                        cone{
                                <0,0,0>, .25,
                                <0,0,-2>, 0
                        }
                        sphere {<0,0,0>, .5}
                        pigment{Red}
                }
                sphere {<0,0,0>, .5 pigment{Gray} }
                rotate angulo*x
        }
#end

#macro anteperna(ang_ap, ang_pe) // anteperna, pe
        merge {
                difference {
                        cone{
                                <0,0,0>, .5,
                                -3*z, .25
                        }
                        sphere {<0,0,0>, .75}
                        sphere {-3*z .5}
                        pigment{Red}
                }
                sphere {<0,0,0>, .75 pigment{Gray} }
                object{pe(ang_pe) translate -3*z}
                rotate ang_ap*x
        }
#end

#macro perna(ang_pn, ang_ap, ang_pe) // perna, anteperna, pe
        merge {
                difference {
                        cone{
                                <0,0,0>, .75,
                                -4*z, .5
                        }
                        sphere {<0,0,0>, 1}
                        sphere {-4*z .75}
                        pigment{Red}
                }
                sphere {<0,0,0>, 1 pigment{Gray} }
                object{anteperna(ang_ap, ang_pe) translate -4*z}
                rotate ang_pn*x
        }
#end

#macro chassi(pnd, apd, ped, pne, ape, pee) // perna, anteperna, pe (d = direito, e = esquerdo)
        merge {
                box{<-2,-2,-1>, <2,2,1> pigment{Blue}}
                object{perna(pnd, apd, ped) translate <-2,-1,0>}
                object{perna(pne, ape, pee) translate <2,-1,0>}
        }
#end

#macro cena(tt)
        #if(tt <= .25)
                #declare PERNA = -45+45*sin(tt*4*pi/2);
                #declare ANTE = 45-45*sin(tt*4*pi/2);
                #declare PE = 90-90*sin(tt*4*pi/2);
        #end
        #if(tt > .25 & tt <= .5)
                #declare tt2 = tt-.25;
                #declare PERNA = 0;
                #declare ANTE = 0;
                #declare PE = 0+45*sin(tt2*4*pi/2);
        #end
        #if(tt > .5 & tt <= .75)
                #declare tt2 = tt-.5;
                #declare PERNA = 0;
                #declare ANTE = 0;
                #declare PE = 45+45*sin(tt2*4*pi/2);
        #end
        #if(tt > .75 & tt <= 1)
                #declare tt2 = tt-.75;
                #declare PERNA = -45*sin(tt2*4*pi/2);
                #declare ANTE = 45*sin(tt2*4*pi/2);
                #declare PE = 90;
        #end
        object{chassi(PERNA,ANTE,PE, PERNA,ANTE,PE) translate 2*sin(2*pi*clock - pi/2)*z}

#end

merge {
        object{cena(clock) rotate 30*z scale<.8,.8,.8> }

}

#end

quadro(clock)

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_loc = <0.00,16.00,6.00>
// #local cam_vec = <0.00,16.00,6.00>
// #local cam_sky = z

#include "camlight.inc"
camlight(<0,0,0>,9.398,<10,10,10>,17.088,z,1.2)