// Persistence of Vision Ray Tracer Scene Description File
// File:new_bong.pov
// Vers: 3.1
// Desc:a bong 
// Date:06/01/00 
// Auth:ArfGrafix

// ==== Standard POV-Ray Includes ====
#include "colors.inc"	// Standard Color definitions
#include "textures.inc"	// Standard Texture definitions
#include "metals.inc"	// Standard Metal definitions
#include "glass.inc"

background { color rgb<1,1,1> } 

 // create a regular point light source
light_source
{
  0*x // light's position (translated below)
  color rgb<1,1,1>*1.5  // light's color
  translate <-20, 40, -20>
}

camera
{
  location  <0.0 , 15 ,-37>
  look_at   <0.0 , 0.0 , 0.0>
}

#declare I_Glass=
   interior {
    ior 1.5
   } 

#declare outer_sphere =

   sphere { <0,0,0>, 8 /*pigment{Red}*/  }

#declare inner_sphere =

   sphere { <0,0,0>, 7.9 /* pigment{Red}*/  }
     
#declare globe_1 =
     
   difference { object{outer_sphere} object{inner_sphere} 
      translate 0*y } 
      
#declare globe_2 =

     object{globe_1  scale <1,1.75,1> scale 0.75
     translate 10*y  }
     
#declare globe_merge =

   difference{ object{ globe_1 texture{ T_Orange_Glass  }interior{ I_Glass} }
          object{ globe_2 texture{ T_Orange_Glass  }interior{ I_Glass} } }
          
#declare slicing_plane =

plane { -z, 0 pigment{ color rgb<1,0,1> } }

#declare half_globe =

intersection{
    object{globe_merge}
    object{slicing_plane}
            }
            
           object{half_globe}