// Last edited on 2009-07-24 11:44:58 by stolfilocal
// Processed by remove-cam-lights

#include "finish.inc"      
#include "colors.inc"
#include "textures.inc"
#include "metals.inc"
#include "glass.inc"
#include "woods.inc"  
#include "golds.inc"          

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

#declare raio = 2.000;

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

#declare tinta_B = 
  texture {
    pigment { color rgb < 0.20, 0.70, 0.80 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }
  
#declare tinta_C = 
  texture {
    pigment { color rgb < 0.20, 0.20, 0.20 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_V = 
  texture {
    pigment { color rgbf < 1.0, 0.0, 0.0, .8 > }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_M = 
  texture {
    pigment { color rgb < 0.50, 0.30, 0.0 > }
    finish { diffuse 0.9 specular 0.2 roughness 0.005 ambient 0.1 }
  }

#declare tinta_VD = 
  texture {
    pigment { color rgb < 0.0, 0.50, 0.0 > }
    finish { diffuse 0.8 specular 0.5 roughness 0.005 ambient 0.1 }
  }

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

#declare ponta =
box{
<-10,-10,0>
<10,10,2>
}

#declare bola = 
sphere{
  <0,0,0>,2
}

#declare base =
union{
  box{
    <-5,-5,-7>
    <5,5,-2>
  }
  object{bola translate<0,0,-2>}
  texture{tinta_A}
}

#declare cilindro = 
cylinder{
  <0,0,0>
  <0,0,15>,2
}

#declare haste =
  merge{
    object{cilindro translate<0,0,2>}
    object{bola translate <0,0,2>}
    object{bola translate <0,0,17>}
  }

#macro folha1()
union{
  object{haste}
  object{ponta translate<0,0,19>}
}
#end

#macro treco(C)
union{
  object{haste}
  object{folha1()
    rotate<C,0,0>
    translate<0,0,19>
  }
}
#end

#macro braco(A,B)
union{
  object{haste}
  object{treco(30)
    rotate<A,B,0>
    translate<0,0,19>
  }
}
#end

#declare chao = 
plane{ z,0

 texture{pigment { checker rgb<1,1,1>, rgb<0.5,0.5,0.5> rotate 17*z}
         finish{diffuse 0.5 ambient 0.5}
        }
 scale 10
 translate -7*z 
} 

union{
  object{chao}
  
  
 
  object{braco(70,30) texture{tinta_A}}
  object{base}

  union{
    object{braco(20,80) texture{tinta_A}}
    object{base}
    translate<-40,10,0>
    texture{T_Gold_1B}
  }

}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = (2*<30.00,30.00,30.00>)
// #local cam_sky = z

#include "camlight.inc"
camlight(<-25,-25,0>,<10,10,5>,130.0,z,1.0)