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

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

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

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

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

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

#declare caixag_A =
  box {
    < -1.00, 0.50, 0.50 >,
    <  0.00, -.50, -0.50 >
    texture { tinta_azul }
    translate <0, 0, -0.50>
    rotate <0, 20, 0>
    translate < 0, 0, 0.5 >
  }

#declare caixag_B =
  box {
    < 0.00, 0.50, 0.50 >,
    <  1.00, -.50, -0.50 >
    texture { tinta_verde }
  }

#declare caixap_A =
  box {
    < -0.80, -0.40, -0.50 >,
    < -0.20, 0.40, -0.80 >
    texture { tinta_verde }
    translate <0, 0, -0.50>
    rotate <0, 20, 0>
    translate < 0, 0, 0.5 >
  }

#declare caixap_B =
  box {
    < 0.20, -0.40, -0.50 >,
    <  0.80, 0.40, -0.80 >
    texture { tinta_azul }
  }

#declare dobra =
  cylinder {
    < 0.00, -0.50, 0.50 >,
    < 0.00, 0.50, 0.50 >,
    0.10
    texture { tinta_preta }
  }

#declare ponta =
 cone {
 < 1.00, 0.00, 0.0 >, 0.50
 < 1.70, 0.00, 0.0 >, 0.00
 texture { tinta_vermelha }
}

  union {
    object { dobra }
    object { caixag_A }
    object { caixag_B }
    object { caixap_A }
    object { caixap_B }
    object { ponta }
  }

#include "camlight.inc"
camlight(<0.30,0.00,0.00>,<2.05,3.20,1.00>,1.00,z,1.0)