// Last edited on 2008-08-13 13:28:28 by stolfi

// Lights for standard office

#declare debug_texture = 
  texture {
    pigment { color rgb < 1.000, 0.800, 0.200 > }
    finish { ambient 1.00 diffuse 0.00 }
  }

#macro libhts_office(wx,wy,wz,nx,ny,show)
  #local zp = 0.80*wz;
  #local ix = 0;
  #local brighten = 1.2;
  #while (ix < nx)
    #local xp = wx*(ix + 0.5)/nx;
    #local iy = 0;
    #while (iy < ny)
      #local yp = -wy*(iy + 0.67)/ny;
      light_source {
        < xp, yp, zp > 
        color rgb brighten*5.00/(nx*ny) * < 1.000, 0.980, 0.960 > 
        fade_distance 0.50*wz fade_power 2
      }
      #if (show)
        sphere { < xp, yp, zp >, 0.050 no_shadow texture { debug_texture } } 
      #end
      #local iy = iy + 1;
    #end
    #local ix = ix + 1;
  #end
#end