// Last edited on 2005-01-05 18:03:32 by stolfi
// Processed by remove-cam-lights

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

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

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

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

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

#declare cubo1 =

  box {
    <-1.0, -1.0, 1.0>,
    <2.3,1.0,-1.0>
    texture {tinta_A}
  }

#declare cubo2 =

  box {
    <2.3, 1.0, -0.3>,
    <3.5,-1.0,1.0>
    rotate -45*y
    translate <1.4,0.0,-1.2>
    texture {tinta_B}
  }

#declare cilindro_fino =
  cylinder {
    <2.3,1.1,1.0>,
    <2.3,-1.1,1.0>,
    0.1
    texture {tinta_C}
  }

#declare cilindro_grosso =
  cylinder {
    <0.0,0.0,-1.0>,
    <0.0,0.0,-2.5>,
    1.0
    texture {tinta_B}
  }

#declare ponta =
  cone {
    <3.5,0.0, 0.0>,1.0,
    <5.0,0.0,0.0>,0.0
    translate <0.14,0.0,-0.0>
    rotate -45*y
    texture {tinta_A}
  }

#declare forma_ponta =
  box {
    <3.5, 1.0, 1.0>,
    <8.0,-1.0,2.0>
    rotate -45*y
    translate <0.14,0.0,-1.2>

    texture {tinta_B}
  }

#declare base =
  torus {
     1.0,1.02
    rotate 90*x
    translate <0.0,0.0,-3.2>
    texture {tinta_D}
  }

union {
object { cubo1 }

object { cilindro_grosso }

object { base }

object { cilindro_fino }

object { cubo2 }

difference {
object { ponta }
object { forma_ponta }
translate <0.6,0.0,-0.6>
}
}

#include "camlight.inc"
camlight(<0.5,0,-1.2>,<8.00,8.00,5.00>,1.00,z,1.0)