// Last edited on 2009-08-26 13:58:53 by stolfilocal
// Processed by remove-cam-lights

#macro eixo(ponta,cor,nome)
  union{
    sphere{ <0,0,0>, 0.02 }
    cylinder{ <0,0,0>, 0.91*ponta, 0.02 }
    cone{ 0.90*ponta, 0.06, ponta, 0.00 }
    texture{ pigment{ color rgb cor } finish{ ambient 0.5 diffuse 0.5 } }
  }
#end
#macro eixos(tamanho)
  union{
    object{ eixo( <tamanho,0,0>, <1.0,0.2,0.2>, "X") }
    object{ eixo( <0,tamanho,0>, <0.0,0.8,0.0>, "Y") }
    object{ eixo( <0,0,tamanho>, <0.3,0.3,1.0>, "Z") }
  }
#end

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

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

#declare tx_fosca =
  texture{
    pigment{ color rgb < 1.00, 0.80, 0.10 > }
    finish{ diffuse 0.9 ambient 0.1 }
  }

#declare tx_espelho =
  texture{
    pigment{ color rgb < 1.00, 0.90, 0.70 > }
    finish{ diffuse 0.1 reflection 0.8*< 1.00, 0.90, 0.70 > ambient 0.1 }
  }

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

#declare raio = 2.000;

#declare bolinha =
  sphere{ < 0,0,0 >, 0.60 }

#declare bolota =
  sphere{ < 0,0,0 >, 1.50 }

#declare bola_grande =
  sphere{
    < 0.00, 0.00, 0.00 >, raio
    texture{ tx_plastico }
  }

#declare pino =
  cylinder{
    < -2.00, +2.00, -1.00 >,
    < +2.00, -2.00, +1.00 >,
    0.75
    texture{ tx_fosca }
  }

#declare furo =
  cylinder{
    < -1.00, -2.00, -2.00 >,
    < +1.00, +2.00, +2.00 >,
    0.75*raio
    texture{ tx_fosca }
  }

#declare corpo =
 box
 {
  <-1, -1.00, -1.00 >,
  <1, +1.00, +1.00 >
  texture{tx_plastico}
 }

#declare topo_externo =
 box { <-0.3,-0.3,-0.45>, <0.3,0.3,0.45> texture{tx_plastico} }

#declare topo_interno =
 box { <-0.2,-0.2,-0.55>, <0.2,0.2,0.55> texture{tx_plastico} }

#declare bico_externo =
 cylinder{ <0,0,0>,<1,0,0>, 0.2 texture{tx_fosca} }

#declare bico_interno =
 cylinder{ <0,0,0>,<2,0,0>, 0.1 texture{tx_fosca} }

#declare bola_manivela_1 =
 sphere{ <0,0,0>, 0.2 texture{tx_fosca}}

#declare bola_manivela_2 =
 sphere{ <0,0,0>, 0.065 texture{tx_plastico} }

#declare cano_manivela_1 =
 cylinder{ <0,0,0>,<0,-0.7,0>, 0.05 texture{tx_plastico} }

#declare cano_manivela_2 =
 cylinder{ <0,0,0>,<0,0,0.7>, 0.05 texture{tx_plastico} }

#declare cortador =
 box{ <0,0,0>, <10,10,10> texture{tx_fosca}}

#declare cena =

union{
 difference
 {
  union
  {
   object{ bico_externo translate <1,0,0>}
   difference
   {
    union { object{ topo_externo translate <-.7,0,1.45>} object{ corpo } }
    object{ topo_interno translate <-.7,0,1.55>}
   }
  }
  object{ bico_interno translate <1,0,0>}
 }

 union
 {
  object{ bola_manivela_1 translate <0,-1,0> }
  object{ cano_manivela_1 translate <0,-1.05,0> }
  object{ bola_manivela_2 translate <0,-1.75,0> }
  object{ cano_manivela_2 translate <0,-1.75,0> }
  object{ bola_manivela_2 translate <0,-1.75,.7> }
  object{ cano_manivela_1 translate <0,-1.75,.7> }
  object{ bola_manivela_1 translate <0,-2.45,.7> }
  object{ corpo }
 }
}

#declare corte =
 intersection{
  object{ cena }
  object{cortador translate <-4,0,-4>}
 }

union
{
  object{cena translate <0,0,-1.5>}
  object{corte translate <0,0,3>}

  rotate 80*z
}

// Original camera parameters:
// #local cam_ctr = <0.00,0.00,1.00>
// #local cam_vec = (<14.00,7.00,3.50>-<0.00,0.00,1.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<0.00,0.00,1.00>,0.5*10.0,<10,3,2>,10.0,z,1.2)