-- CIE Lab chromacity diagram
if width > height then
   scale = height
else
   scale = width
end

scale = 220 / scale

for y=0, height-1 do
   for x=0, width-1 do
       set_lab (x,y,
                60,
                (x-width/2)/scale,
                (y-height/2)/scale)               
   end
end

x = width/2
for y=0, height-1 do
   set_value (x,y, 1)
end

y = height/2
for x=0, width-1 do
   set_value (x,y, 1)
end