//  POV-Ray test: are lights movable?
//  Last edited on 1999-02-07 07:03:41 by stolfi

#declare bgDepth = 2.0

#declare lamp_shell =
  difference{
    sphere{ <0,0,0>, 1.0 }
    union{
      sphere{ <0,0,0>, 0.9 }
      cylinder{ <00,-2,00>, <00,+2,00>, 0.5 }
    }
    texture{
      pigment {color rgb <1.00, 0.67, 0.10> }
      finish {diffuse 0.9 ambient 0.1}
    }
  }

#declare lamp = 
  union{
    object{lamp_shell}
    light_source{ <+0.5,0,0> color rgb <1,1,0> }
    light_source{ <-0.5,0,0> color rgb <0,1,1> }
  }

plane {
  <0.0000, 1.0000, -0.0000>, -bgDepth
  pigment {checker 
    color rgb <1.0, 1.0, 1.0>
    color rgb <0.0, 0.0, 0.0>
    scale 0.33333
  }
  finish {diffuse 1 ambient 0}
}

object{ lamp translate <4,0,0> }

object{ lamp translate <0,1,4> rotate <0,60,0> }

#declare centerX = 0
#declare centerY = -bgDepth/2
#declare centerZ = 0

#declare camDX = 400
#declare camDY = 600
#declare camDZ = 500

#declare camWd = 10
#declare camHt = 10

#declare skyX = 0
#declare skyY = 1
#declare skyZ = 0

camera {
  location  <centerX, centerY, centerZ> + <camDX, camDY, camDZ>
  direction <-camDX, -camDY, -camDZ>
  right     <camWd, 00.0000, 00.0000>
  up        <00.0000, 00.0000, camHt>
  sky       <skyX, skyY, skyZ>
  look_at   <centerX, centerY, centerZ>
}