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



#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 Cor =
texture {
    pigment {color Brown }
    finish {
        ambient 0.0
        diffuse 0.8
    }
    scale 6
}
 
// 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 texture {Granito}} 
  #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} }
  #declare cil=cil+.3;   
  #declare cilx=cilx+.5
#end

 
background { color White} 
 
light_source { <470,590, -110> colour rgb < 5.7, 5.7, 0.00 > } 

plane { y, -40 hollow on texture { Cor }}



#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 }