// Exercicio de computaçao grafica - MP004 - Stolfi
// Solange Tieko Sakaguti - Ra 007847

#include "colors.inc"

background{Gray}

light_source {
  < 4.00, 10.00, 50.00 >
  White
} 

camera {
  location  <  0.00, 0.00, 25.00 >
  right     < -1.20, 0.00, 0.00 >
  up        <  0.00, 0.00, 0.90 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  0.00, 0.00, 0.00 >
} 

#declare corpo = 
 union{
    sphere { <.5,0,0>, 2.5 scale <4,.7,.3>}//meio    
    sphere { <9.5,0,0>, 1.2 scale <1,.3,2 >}//asa tras
    sphere { <0, 0, 0>, 2.5 scale <1,.3,3>}//asa frente
    sphere { <10,.5,0>, .7 scale <1,2,.5>}//asa bico tras
    cylinder { <4,0,1.7>, <8,0,.4>, .2 pigment{Brown}}//braco remo esq
    cylinder { <4,0,-1.7>, <8,0,-.4>, .2 pigment{Brown}}//braco remo dir
    box { <3,0,-1.4>, <4,0,-2> pigment {Brown}}//pa remo dir
    box { <3,0,1.4>, <4,0,2> pigment {Brown}}//pa remo esq
    cylinder { <-3,0,-.5>, <-3,-3,-.5>, .1 pigment{Black}}//pe roda dir diant
    cylinder { <-3,0,.5>, <-3,-3,.5>, .1 pigment{Black}}//pe roda esq diant
    cylinder { <7,0,0>, <7,-2,0>, .1 pigment{Black}}//pe roda tras
    sphere { <-3,-3,-.5>, .4 pigment {Black}}//roda dir diant
    sphere { <-3,-3,.5>, .4 pigment {Black}}//roda esq diant
    sphere { <7,-2,0>, .4 pigment {Black}}// roda tras
    sphere { <-16.2,0,0>, .5 scale <.5,2,.5> pigment {Black}}//helice vert   
    sphere { <-16.2,0,0>, .5 scale <.5,.5,2> pigment {Black}}//helice horiz   
    rotate 45*x
    rotate 25*y
    rotate -30*z
    pigment {Red}
}  
  


corpo