// Monica Ap. Pires Nascimento - RA 7873
// Prof. Stolfi - Mestrado Profissional - Computação Gráfica    - TEMPLO
// Last edited on 2001-06-25 00:26:06 by stolfi

global_settings { assumed_gamma 2.2 }

#include "colors.inc"           // Carrega Tabela de Cores
#include "textures.inc"        // Carrega Tabela de Texturas      
#declare Rad=1/6;

camera {
   location  <25, 45, -75>    
   direction <0, 0,  12>
   look_at   <0, 0, 0>   
//   angle  15
} 
   
# declare corb = < 1.0,1.0,1.0 >;
 
      
                                              
#declare cor_cristal =
  texture {
    pigment { color rgb < 1.00, 1.00, 1.00 > } 
    finish { diffuse 0.1 specular 0.20 roughness 0.001 ambient 0.1 reflection 0.45}  
    
    pigment { color corb filter 1}
  }    
   
#declare cor1=seed(123456);
 
 
#declare Cor =
texture {
    pigment { color rgb < rand(cor1),rand(cor1),rand(cor1)> }
    finish { diffuse 0.5 specular 0.5 roughness 0.005 ambient 0.1 }
  }        
       
       
// CArrega tabelade cores ... 
#include "rdgranit.map"
#declare Granito =
texture {
   pigment {
      granite
      color_map { M_RedGranite }
      scale 0.4
      }
   finish {
      specular 0.75
      roughness 0.0085
      ambient 0.15
      reflection 0.2
   }
}


// WHile das esferas

#declare var=-2.0;

#while (var <= 3.0)
  sphere{<var,pow(var,3),0>,Rad pigment { color rgb <rand(cor1),rand(cor1),rand(cor1)>}} 
  #declare var=var+0.1;
#end
 
 
 
// While dos cilindros 

# declare cil=-1.4;
# declare cilx=1.5;
#while (cil <= -0.4)  
//   cylinder { <cilx, -2.80,0.2>, <cilx, cil,0.2>, 0.3 texture { Granito} }    
  cylinder { <cilx, -2.80,0.2>, <cilx, cil,0.2>, 0.3 pigment { color rgb <rand(cor1),rand(cor1),rand(cor1)>}} 
  #declare cil=cil+.3;   
  #declare cilx=cilx+.5
#end

 
background { color White} 
 
light_source { <100,70, -50> White } 
 
plane { y,-15 pigment { color red 1.9 green 1.95 blue 0.95} }


#declare cilindro = 
 union { 
 cylinder{-y*.72,y*.42,.3} 
 cylinder{-y*2.80,y*.90,.1}  
 cylinder{y*.90,y*1.85,.3}
 cylinder{-y*1.35,-y*2.4,.3}
 texture { Granito }  
 
}
         
               
                      
object { cilindro }