// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2001-06-09 21:22:58 by stolfi 

#include "colors.inc"
#include "textures.inc"

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



light_source {
  < 600.00, -500.00, 700.00 >
  color rgb 1.2*< 1.00, 1.00, 1.00 >
} 

camera {
  location  <  70.00, 5.00, 20.00 >
  right     <  -0.80, 0.00, 0.00 >
  up        <  0.00, 0.00, 0.60 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  0.00, 0.00, 5.00 >
} 

#declare tx_cristal =
  texture {
  finish {
    ambient 0.1 diffuse 0.1
    reflection 0.25
    specular 1 roughness 0.001
    }
   pigment { color Green filter 1}
}

#declare tx_cristal1 =
  texture {
  finish {
    ambient 0.1 diffuse 0.1
    reflection 0.25
    specular 1 roughness 0.001
    }
   pigment { color Blue filter 1}
}
#declare tx_espelho =
  texture{
  pigment { rgb Gray }
  finish {
    ambient 0.05 diffuse 0.05
    reflection Gray
    specular 0.20 roughness 0.05
   }
 }

#declare tx_espelho1 =
  texture{
  pigment { rgb Yellow }
  finish {
    ambient 1 diffuse 0
   }
 }

#declare sol =
  sphere { <0,0,0>,2
  texture {tx_espelho1} hollow interior { ior 1.2}}

#declare arvore = 
   union {
     cylinder { < 0, 0, 0>,
                < 0, 0, 9>,
                 1
                texture { tx_cristal}hollow interior { ior 1.2}
               }
      #declare i = 0;
      #declare angulo=0;
      #while ( i < 9)
        cone {
               < 0.00, 0.00,  0.00 >,1.00
               < 0.00, 3.00, 0.00 >,0.00
               rotate <30,0,0>
               rotate <0,0,angulo>
               translate <0,0,i>
               texture {tx_cristal}hollow interior { ior 1.2}

              }
         #declare i=i+1;
         #declare angulo=angulo+45;
       #end

     }  
  
#declare pilare =
   union 
     {
       cone { <0,0,15>,2
              <0,0,17>,4
             }
       cylinder { < 0, 0, 2>,
                  < 0, 0, 15>,
                  2

                }
       cone { <0,0,0>,4
              <0,0,2>,2
            }
             texture { tx_espelho}
     }
      
#declare altar =
  union 
    {
       cone { <0,0,3>,4
              <0,0,5>,6
             texture { tx_cristal1}
             }
       cylinder { < 3.5, 0, 0>,
                  < 3.5, 0, 3>,
                  1
             texture { tx_cristal1}
                }
       cylinder { < -3.5, 0, 0>,
                  < -3.5, 0, 3>,
                  1
             texture { tx_cristal1}
                }
       cylinder { < 0, 3.5, 0>,
                  < 0, 3.5, 3>,
                  1
             texture { tx_cristal1}
                }
       cylinder { < 0, -3.5, 0>,
                  < 0, -3.5, 3>,
                  1
             texture { tx_cristal1}
                }
       
       object { arvore 
                 translate <0,0,5.00>}
     }
// Aqui está a cena, finalmente:

union
  {
  #declare nrcoluna =0; 
  #declare posx = 0;
  #declare posy = 15;
  #while (nrcoluna < 6 )    
      object {
              pilare 
              translate <posx,posy,0> 
                          }
     object { pilare 
              translate <posx,-1*posy,0> 
            }
     #declare nrcoluna = nrcoluna + 1;
     #declare posx=posx - 10;
     #declare posy=posy + 4;
  #end
}
  object { altar }
  #declare gerador = seed(123456);
  #declare j=0;
  #while (j<10)
     #declare r=1+0.1*j;
     sphere { <3*j, 10*rand(gerador),0>,r
              texture { tx_cristal1}hollow interior { ior 1.2}}
     #declare j=j+1;
  #end 
 object {sol 
          translate <-15,-35,25>}
object {sol 
          translate <-19,-35,19>}
object {sol 
          translate <-25,-33,22>}
 object { plane {z,0}
           translate <0,0,0>
          pigment { checker color White, color Gray } }