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

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

#declare raio = 2.000;

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

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

#declare tinta_C = 
  texture {
    pigment { color rgb < 0.90, 1.80, 1.00 > / 1.80 }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare tinta_D = 
  texture {
    pigment { color rgb < 0.50, 0.80, 2.5 > / 2.5 }
    finish { diffuse 0.8 specular 0.1 roughness 0.005 ambient 0.1 }
  }

#declare bola =  sphere {
      < 0.00, 0.00 ,0.00 >, 10.00 
      texture { tinta_C }
    }

#declare braco = box {
  < 10.00, -10.00, 10.00 >,
  < 70.00, 10.00, -10.00 >
  texture { tinta_C }
}

#declare tudo =
 union {
  object {bola}
  object {braco}
  }

#macro folha(A,B,C)
 union {object {tudo}  rotate<A,B,C>}
#end

#macro casa(C)
 union {
  object {tudo rotate <0,0,90>} 
  object {folha(0,0,0) translate <20,40,0> rotate <0,0,C>} 
 }
#end

#macro treco(D)
 union{
  object {tudo rotate <0,0,90>}
  object {casa(0) translate <0,80,0> rotate<0,0,D> } 
 }
#end 

#macro base(A)
 union{
  object {braco translate <A,0,0>}
  object {treco(0) translate <0,20,0> rotate<0,0,0> } 
 }
#end

union {
    object {base(-20)} 
}
 

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

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