/// Exemplo de arquivo de descricao de cena para POV-ray
// Last edited on 2000-06-01 20:06:05 by Edinelson



 #include "colors.inc"
 //0,30,5 
camera {
  location  <  18.00, 7.00, 8.00 >
  right     < -0.60, 0.00, 0.00 >
  up        <  0.00, 0.00, 0.80 >
  sky       <  0.00, 0.00, 1.00 >
  look_at   <  0.00, 0.00, 5.00 >
} 
  
  background { color White } 
  light_source{ <-5, 10, 8> color 1.2 * White }
  
#declare cor_cristal = <0,1,0>;
#declare txt_cristal = 
   texture { 
    finish {
       ambient 0.1 diffuse 0.1
       reflection 0.25
       specular 1 roughness 0.001
      }
      pigment { color cor_cristal filter 1 }
   }


#declare cor_espelho = <0.5,0.5,.9>;
#declare txt_espelho =
   texture {
    finish {
       ambient 0.05 diffuse 0.05
       reflection cor_espelho
       specular 0.2 roughness 0.05
      }
      pigment { rgb cor_espelho }
   }

#declare corpo = intersection { 
  box {<-3.5,-3.5,0>, <3.5,3.5,3.5> }
  plane {<0,0,1>,0 rotate -60 * y translate <-3.5,0,0> }
  plane {<0,0,1>,0 rotate -60 * y translate <-3.5,0,0> rotate 90 *z } 
  plane {<0,0,1>,0 rotate -60 * y translate <-3.5,0,0> rotate 180 *z } 
  plane {<0,0,1>,0 rotate -60 * y translate <-3.5,0,0> rotate 270 *z } 
 texture {txt_espelho} }

#declare haste = intersection { 
  box {<-1.1,-1,0.0>, <1.1,1.1,4.5> }
  plane {<0,0,1>,0 rotate -85 * y translate <-0.5,0,0> }
  plane {<0,0,1>,0 rotate -85 * y translate <-0.5,0,0> rotate 90 *z } 
  plane {<0,0,1>,0 rotate -85 * y translate <-0.5,0,0> rotate 180 *z } 
  plane {<0,0,1>,0 rotate -85 * y translate <-0.5,0,0> rotate 270 *z } 
 texture {txt_espelho} }


#declare metade_esfera = intersection {
    torus { 3.25, 0.25
    }
    plane { <0, 0, 1>,0}
    texture { txt_cristal }
    translate <0,0,10 >
  }

#declare plano =   plane { <0, 0, 1>, 0
    pigment {
      checker color Yellow, color Green
    }
  }

union { 
object {corpo scale <1,1,-1> translate  <0,0,6.5>}
object {haste  translate  <0,0,-1.5>}
object {metade_esfera hollow interior { ior 1.5}}
object {metade_esfera rotate 90*z hollow interior { ior 1.5}}
object {plano translate <1.1,0,-1.5>}
}