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

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

#declare cinza_escuro =
  texture {
    pigment { color rgb < 0.70, 0.70, 0.70 > }
    finish { diffuse 0.8 specular 0.4 roughness 0.001 ambient 0.1 }
  }

#declare preto =
  texture {
    pigment { color rgb < 0.00, 0.00, 0.00 > }
    finish { diffuse 0.1 specular 0.9 roughness 0.015 ambient 0.4 }
  }

#declare cinza_mais_escuro =
  texture {
    pigment { color rgb < 0.30, 0.30, 0.30 > }
    finish { diffuse 0.5 specular 0.2 roughness 0.001 ambient 0.1 }
  }

#declare vermelho_escuro =
  texture {
    pigment { color rgb < 0.50, 0.00, 0.00 > }
    finish { diffuse 0.8 specular 0.4 roughness 0.005 ambient 0.1 }
  }

#declare suporte =
  cylinder {
  <0.00, 0.00, 0.00 >,
  <0.00, 0.00, -4.00 >,
  2.50
    texture { preto }
  }

#declare base =
  cone {
  <0.00, 0.00, -4.00>,
  2.50,
  <0.00, 0.00, -5.50>,
  6.00
     texture {cinza_escuro}
}

#declare box_traseira =
  box {
  <-5.00, 4.00, 0.00>,
  <5.00 , -3.00, 5.00>
  texture {cinza_escuro}
}

#declare dobra =
  cylinder {
  <5.00, -3.00, 5.00>,
  <5.00, -3.00, 0.00>,
  0.4
  texture {vermelho_escuro}
}

#declare box_dianteira =
  box{
  <-5.00, -8.00, 0.00>,
  <5.00, -3.00, 5.00>
  texture {cinza_escuro}
}

#declare bico =
  cone {
  <0.00, -8.00, 5.00>,
  4.50,
  <0.00, -15.00, 5.00>,
  0.00
  texture {cinza_mais_escuro}
}

#declare corte =
  box {
    <-6.00, -7.99, 5.00>
    <6.00, -50.00, 10.00>
    texture {cinza_escuro}
  }

union {
difference{
  union {

    object {box_dianteira}
    object {bico}

  }
  object {corte}
  translate <-1.90, -2.00,0.00 >
  rotate 25*z

}
  object {base}
  object {suporte}
  object {box_traseira}
  object {dobra}
  rotate 25*z
}

#include "camlight.inc"
camlight(<0,-4,2>,<25.00,25.00,15.00>,1.00,z,1.0)