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

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

#declare box_dim = <.5, .5, .5>;
#declare madeira_text =
texture {
 pigment {color rgb<1, 0, 0>}

}

#declare ped = box {
 <-.5, -.5, -.5>, box_dim
 texture { madeira_text }
 scale <1.5, 1, 1>
}

#declare fe = 0.05;

#declare barra = union {
 object{
  ped
  translate <-1, 0, 0>
 }

 object{
  ped
  translate <0, 0, 0>
  scale 1 -  fe
 }

 object{
  ped
  translate <1, 0, 0>
  scale 1 - 2 * fe
 }
}

#declare meiaponta =
intersection {
 sphere {
  < 0, 0, 0 >, 1
  texture {
   madeira_text
  }
  scale <1, 1, .75>
 }
 box{
  <0, 0, .25>, <1, 1, 1>
 }
 translate <0, 0, -.25 >
}

#declare ponta = union{

 object{
  meiaponta
  scale <1, 1, -1>
 }

 object {meiaponta}
}

object {
 ponta
 translate <1.5, -0.5, 0>
 scale <0, 0.85, 0.85>
}

object{
 barra
}

#declare base = box {
 <0, 0, 0>, <2.5, 1, 1>
 texture {
  madeira_text
 }
 translate <-1.25, .5, -.5>
 scale <1, 1, 1.5>
}

#declare inv = cylinder {
 <0, 2, 0>,
 <0, -2, 0>,
 1
 translate <0, 0, 1.25>
 scale <1.5, 1, 1>
}

difference {

 object { base }
 object {
  inv
 }
 object {
  inv
  scale <1, 1, -1>
 }
 texture {
  madeira_text
 }
}

#include "camlight.inc"
camlight(<0,0,0>,<5,3,7>,0.65,y,1.0)