// Dennis Maeder 
// SCC4 2006
// variation on 'reflective sphere over checkered plane'
// only one sphere is actually on the plane and is visible as a reflection
// optimized for length by using macros, short forms and defaults       
// reflections are used to increase complexity of scene    
// http://local.wasp.uwa.edu.au/~pbourke/rendering/scc4/

// intelligible version

// set up view point - cheaper than translating objects
camera {
  location <0,.5,5>
  look_at 0
}

// a cheap but interesting grey sky 
sky_sphere {
  pigment 
  {
    granite scale 9
  }
}

// checkered plane with texture
plane { 
  y, 0 
  pigment {checker} 
  normal  {bumps scale .01}
  finish  {reflection 1}
}

// sphere macro
#macro o(a,b,c)
  sphere { 
    <a,b,c> 1 
    finish {
      reflection .8
    }
  }
#end

// render spheres
#local s=sqrt(3);
o(0,0,-s)
o(-s,0,1)
o(s,0,1)
o(0,2,0)
o(1,1,5)