// Last edited on 2005-01-05 17:11:33 by stolfi
// Processed by remove-cam-lights

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

#declare raio = 2.000;

#declare tinta_A =
  texture {
    pigment { color rgb < 0.0, 0.0, 1.00 > }
    finish { diffuse 0.8 specular 0.4 roughness 0.005 ambient 0.1 }
  }

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

#declare tinta_C =
  texture {
    pigment { color rgb < 0.0, 0.8, 1.00 > }
    finish { diffuse 0.8 specular 0.4 roughness 0.005 ambient 0.1 }
  }

#declare tinta_D =
  texture {
    pigment { color rgb < 1.0, 0, 0 > }
    finish { diffuse 0.8 specular 0.4 roughness 0.005 ambient 0.1 }
  }

#declare alca =
  cylinder {
    < 2.5, 3, -0.50 >,
    < 2.5, 4.5, -0.50 >,
    0.15
    texture { tinta_B }
  }

#declare box_alca =
  box {
    < 2, 2.8, -0.3 >,
    < 2.65, 3, -0.7 >
    texture { tinta_B }
  }

#declare bico =
  cone {
    < 1, 5.3, -0.25 >, 1
    < 1, 8.3, -0.25 >, 0
    texture { tinta_B }
  }

#declare box_cortabico =
 box {
   < 00, 5.2, -0.25 >,
   < 2, 8.4, 1 >
   texture { tinta_B }
 }

#declare box_bico =
  box {
    < 0, 5, 0 >,
    < 2, 5.3, -1 >
    texture { tinta_B }
  }

#declare box_dobra =
  box {
    < 00, 00, 00 >,
    < 2, 2, -0.3 >
    texture { tinta_B }
  }

#declare box_cima =
  box {
    < 00, 2, 00 >,
    < 2, 5, -1.5 >
    texture { tinta_D }
  }

#declare box_meio =
  box {
    < 0.3, 2.3, -1.5 >,
    < 1.7, 4.7, -2 >
    texture { tinta_B }
  }

#declare box_fundo =
  box {
    < -0.3, 1.7, -2 >,
    < 2.3, 5.3, -2.15 >
    texture { tinta_B }
  }

  object {box_dobra translate <0,-2,0.3> rotate 20*x translate <0,2,-0.3>}
  object {box_cima}
  union {
    object {box_bico}
    difference{
      object {bico}
      object {box_cortabico}
    }
    translate <0,-5,0> rotate 15*x translate <0,5,0>
  }
  object {box_meio}
  object {box_fundo}
  object {alca}
  object {box_alca}
  object {box_alca translate <0, 1.5, 0> }

#include "camlight.inc"
camlight(<0.00,4.00,-2.00>,<10.00,3.00,6.00>,1.00,z,1.0)