// Last edited on 2003-04-12 04:40:57 by stolfi
// Ivan Francisco Coutinho Costa
// RA 001833
// MC930 - TP 4 - Bomba atomica caseira
// Data 25/03/2003

#include "colors.inc"
#include "textures.inc"
#include "metals.inc"
#include "stones1.inc"

background { color HuntersGreen }

camera {
    location 1.7*<2, 3, -6>
    right 0.6*x up 0.8*y
    look_at <-0.5,0,0>
 }

light_source { 5*<10, 20, -10> color Blue }
light_source { 5*<0, 20, 0> color White  }
light_source { 5*<0, 0, 10> color White }


plane {
  y, -5.0
  texture { T_Grnt19 } // Red_Marble } 
}
  
#declare cor_cristal= White;
#declare tx_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 = White;
#declare tx_espelho=
    texture {
        pigment { color cor_espelho }
        finish {
            ambient 0.05 diffuse 0.05
            reflection cor_espelho
            specular 0.20 roughness 0.05
        }
    }

#declare arma1=
    intersection {
        cylinder { <0,-1,0>, <0,1,0>, 0.2 }
        sphere { <0,0,0>, 1 }  
	texture { tx_cristal }
        interior { ior 6.0 }
   }


#declare porta_copos=
    difference {
         box { <-1,0,-1>, <1,0.1,1> }
         cylinder { <0,0.2,0>, <0,-0.2,0>, 0.8 }
         texture { pigment {Dark_Wood} }
    }
    
// a cena 

#declare tam = 2;
object { arma1 scale <1, 1.5, 1> }
object { arma1 translate <-0.2,0,0> }
object { arma1 translate <0.2,0,0> }
object { cylinder { <-tam,0,0>, <tam,0,0>, 0.1 pigment { color Yellow } } }
object { torus { tam,  .4 scale <1,1,1> texture {tx_espelho} } }
object { sphere { <0,0,0>, tam+0.5 texture {tx_cristal} interior {ior 1.0 }} }
object { porta_copos scale <3,3,3> translate <0,-1,0> }