// Last edited on 2009-07-22 19:55:40 by stolfilocal
// Processed by remove-cam-lights
#include "colors.inc"
#include "textures.inc"
#include "shapes.inc"
#include "metals.inc"
#include "glass.inc"
#include "woods.inc"
#include "skies.inc"
#include "woods.inc"

background {color White }

global_settings { max_trace_level 10 }
             
plane { <0,1,0>, 0 pigment { checker color White, color LightGray } scale 0.3 rotate 17*y }

declare cristal=
  union {
    merge {
      box { <0,0,0> <1,1,1> 
        texture { 
          pigment { Silver filter 0.75 } 
          finish {diffuse 0.01 ambient 0.01 reflection 0.5 }
        }
      }
      sphere { <0.5,0.5,0> 0.4 
        texture {
          pigment { Silver filter 0.75 }
          finish {diffuse 0.01 ambient 0.01 reflection 0.5 }
        }
      }
      interior { ior 1.5}
    }
  }

declare pedestal=
  merge{
    cylinder {<0,0,0> <0,1,0> 0.3 texture { Gold_Metal finish {diffuse 0.01 ambient 0.01 reflection 0.5 }}}
    cylinder {<0,0,0> <0,0.1,0> 0.5 texture { Gold_Metal finish {diffuse 0.01 ambient 0.01 reflection 0.5 }}}
    cylinder {<0,0,0> <0,0.2,0> 0.4 texture { Gold_Metal finish {diffuse 0.01 ambient 0.01 reflection 0.5 }}}
  }

merge {
  object {cristal translate <0,0.3,-1> rotate <0,-45,45>}
  object {pedestal}
}

// Original camera parameters:
// #local cam_ctr = <0,0,0>
// #local cam_vec = <0,4,-7>
// #local cam_sky = y

#include "camlight.inc"
camlight(<0,0.5,0>,<10,7,5>,4.0,y,1.0)