/*

tp01
Filipe Ramos de Castro
RA032849

*/

#include "camlight.inc"
#declare centro_cena = < 0.00, 0.00, 0.00 >;
#declare raio_cena = 10.0;
#declare dir_camera = < 14.00, 7.00, 4.00 >;
#declare dist_camera = 16.0;
#declare intens_luz = 1.00;
camlight(centro_cena, raio_cena, dir_camera, dist_camera , z, intens_luz)

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

#declare tx_vidro = 
  texture{
    pigment{ color rgb < 0.85, 0.95, 1.00 > filter 0.70 }
    finish{ diffuse 0.03 reflection 0.25 ambient 0.02 specular 0.25 roughness 0.005 }
  }

#declare body =
  sphere {
    <0,0,0>, 2.0
    pigment { color rgb <1,0,0> }
  }

#declare wheel =
  sphere {
    <0,0,0>, 0.45
    pigment { color rgb <0.5,0.5,0.5> }
  }

#declare cano =
  cylinder {
    < 0.00, 1.00, -1.00 >,
    < 0.00, 2.75, -1.00 >,
    0.2
    pigment { color rgb <0,1,0> }
  }

#declare antena = 
  cylinder {
    < 0.00, -1.00, 1.00 >,
    < 0.00, -1.00, 2.75 >,
    0.02
    pigment { color rgb <0,0,1> }
  }

#declare mirror =
  cone {
    <2,0,-0.25>, 0.25,
    <2.5,0,-0.25>, 0.15
    pigment { color rgb <0,1,0> }
    texture { tx_vidro }
  }

#declare intern_space =
  box {
    <-0.5,-2,1>,
    <1,2,0>
    pigment { color rgb <1,1,1> }
  }

union{
  difference{
    object{ body }
    object { intern_space rotate 100*z}
  }
  object{ antena }
  object { cano } 
  object { wheel translate <0.5,-1,-2.0> }
  object { wheel translate <-0.5,-1,-2.0> }
  object { wheel translate <0.5,1,-1.75> }
  object { wheel translate <-0.5,1,-1.75> }
  object { mirror }
}