// Last edited on 2010-12-15 21:16:49 by stolfilocal
// Processed by remove-cam-lights

#macro quadro(tt)

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

#declare raio = 2.000;

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

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

#declare wingtt = cos(10*pi*tt);

#declare tinta_A =
  texture {
    pigment { color rgb < 0.55 + 0.45*ctt, 0.80, 0.55 - 0.5*ctt > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare tinta_B =
  texture {
    pigment { color rgb < 1.00, 0.80, 0.10 > }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }

#declare chassi =
   box{<0,0,0>, <4, 7, 3>}

#macro peh()
   object{ box{<-0.5,-0.5,-0.5>, <0.5, 2, 0.5>} }
#end

#macro subperna(beta)
      union{
        object{ cylinder{<0,0,0>, <0,0,4>, 0.5 } translate -3.5*z }
        object{ peh() rotate -beta*x translate -3*z }
      }
#end

#macro perna(alfa, beta)
      union{
        object{ cylinder {<0,0,0>, <0,0,3>, 0.5} translate -2.5*z  }
        object{ subperna(beta) rotate -alfa*x translate -2*z  }
        texture{tinta_B}
      }
#end

#macro carro(alfa, beta, gama, delta)
      union{
        object{ box{<0,0,0>, <4,7,3>} texture{tinta_A}} //corpo
        object{ perna(alfa, beta)
                rotate gama*x rotate -delta*z
                translate <4.5,5,1>
        }
        object{ perna(alfa, beta)
                rotate gama*x rotate (180+delta)*z
                translate <4.5,2,1>
        }
        object{ perna(alfa, beta)
                rotate gama*x rotate (delta)*z
                translate <-0.5,5,1>
        }
        object{ perna(alfa, beta)
                rotate gama*x rotate (180-delta)*z
                translate <-0.5,2,1>
        }

      }
#end

union{

        object{

                carro(90, 30, 120, 30)
        }
}

#end

quadro(clock)

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

#include "camlight.inc"
camlight(<0,0,0>,20.0,<10,10,10>,50.000,z,1.2)