// Last edited on 2009-07-23 13:55:22 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 haste = 
cylinder{
        <0,0,0>
        <0,0,30>,3
        translate<35,0,0>
} 
                
  
#declare chao = 
plane{ z,0

 texture{pigment { checker rgb<1,1,1>, rgb<0.5,0.5,0.5>}
         finish{diffuse 0.5 ambient 0.5}
        }
 scale 10
 
}

#macro FuncDentro(n,R,V)
  #if(n=0)
    union{
       #declare i=0;         
        #while (i<36)  
                union{
                       object{haste rotate<0,0,i*10>} 
                       #declare i=i+1;
                }
        #end
        texture{ T_Gold_1B}
 interior{ior 1.15}  
 
    }
  #else
    union{
       #declare i=0;         
        #while (i<36)  
                union{
                       object{haste scale<32/35,32/35,V> translate<-3-3*n,0,0> rotate<0,0,i*10>} 
                       #declare i=i+1;
                }
        #end
        texture{ T_Gold_1B}
 interior{ior 1.15} 
 
    }
    FuncDentro(n-1,R*32/35,V*0.75)
  #end
#end

#macro FuncFora(n,R,V)
#if(n=0)
    union{
       #declare i=0;         
        #while (i<36)  
                union{
                       object{haste rotate<0,0,i*10>} 
                       #declare i=i+1;
                }
        #end
        texture{ T_Gold_1B}
 interior{ior 1.15}  
 
    }
  #else
    union{
       #declare i=0;         
        #while (i<36)  
                union{
                       object{haste scale<35/32,35/32,V*1.25> translate<3+n*6,0,0> rotate<0,0,i*10>} 
                       #declare i=i+1;
                }
        #end
        texture{ T_Gold_1B}
 interior{ior 1.15}  
 
 
    }
    FuncFora(n-1,R*35/32,0.75*V)
  #end
#end 

#declare N = 5;

union{
 object{chao}
 FuncDentro(N,3,0.75) 
 FuncFora(N,3,0.75)
}

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

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