--PALETTE Set: 3 Bit (8 Primaries)
--by Richard Fhager 
--http://hem.fyristorg.com/dawnbringer/

-- Copyright 2010 Richard Fhager
--
-- This program is free software; you can redistribute it and/or
-- modify it under the terms of the GNU General Public License
-- as published by the Free Software Foundation; version 2
-- of the License. See <http://www.gnu.org/licenses/>


-- Generate palette of all colors possible with a given number of shades for each channel
-- 2 shades = 1 bit / channel = 3 bit palette = 2^3 colors =  8 colors
-- 4 shades = 2 bit / channel = 6 bit palette = 2^6 colors = 64 colors

-- Channel shades (shades = 2 ^ bit-depth)
shades = 2

mult = 255 / (shades-1)


colors = {}
col = 0
for r = 0, shades-1, 1 do
  for g = 0, shades-1, 1 do
    for b = 0, shades-1, 1 do
       col = col + 1
       colors[col] = { r*mult, g*mult, b*mult } 
    end
  end
end


for c = 1, #colors, 1 do

  setcolor(c-1,colors[c][1],colors[c][2],colors[c][3]) 

end