// Segundo exercicio de MC930
// Eduardo Hideki Tanaka (970563)
// data: 05/10/2000

background{ color rgb < 0.00, 0.08, 0.02 > }

light_source {
  < 5.00, -7.00, 17.00 >
  color rgb < 1.00, 1.00, 1.00 >
} 

camera {
  location  <  -5.00, -7.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   <  4.00, 4.00, 4.00 >
} 

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

#declare tinta_vermelha = 
  texture {
    pigment { color rgb < 1.00, 0.10, 0.00 > }
    finish { diffuse 0.8 specular 0.5 roughness 0.005 ambient 0.1 reflection 0.8 }
  }

#declare tinta_verde = 
  texture {
    pigment { color rgb < 0.10, 0.90, 0.10 > }
    finish { diffuse 0.3 specular 0.5 roughness 0.005 ambient 0.1 }
  }


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

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

#declare roda =
  cylinder {
    < 2.00, 4.50, 2.50 >,
    < 2.00, 5.00, 2.50 >,
    1.00
    texture { tinta_marrom }
  }  

#declare corpo = 
  box {
    <0.00, -1.00, 2.00>,
    <16.00, 5.00, 5.00>
    texture { tinta_verde }
  }

#declare cabine = 
  prism {
    conic_sweep
    linear_spline
    5,
    8,
    8,
    <2,-1>, <13,-1>, <13,5>, <2,5>, <2,5>, <2,-1>, <13,-1>, <13,5> 
   // scale <1,4,1>
    texture { tinta_azul }
  }

#declare cabine2 =
  box {
    <2.00, -1.00, 5.00>,
    <13.00, 5.00, 8.00>
    texture { tinta_azul  }
  }

#declare mastro = 
  cylinder {
    <8.00, 2.00, 8.00>,
    <8.00, 2.00, 10.00>,
    0.4
    texture { tinta_cinza }
  }

#declare heliceG =
  box {
    <0.00, 0.00, 0.00>,
    <11.00, 0.50, 0.50>
   texture { tinta_cinza }
  }

// A cena é formada aqui...
union{
  object { roda }
  object { roda 
    translate <10.0, 0.0, 0.0>
  }
  object { roda
    translate <0.0, -6.0, 0.0>
  }
  object { roda
    translate <10.0, -6.0, 0.0>
  }
  object { corpo }
//  object { cabine }
  object { cabine2 }
  object { mastro }
  object { heliceG
    translate <8,2,10>
  }
  object { heliceG
    rotate <0,0,90>
    translate <8,2,10>
  }
  object { heliceG
    rotate <0,0,180>
    translate <8,2,10>
  }
  object { heliceG
   rotate <0,0,270>
   translate <8,2,10>
  }
}