samples_2.4 => samples

share/grafx2/scripts/samples/palette/Set6bit.lua

@@ -0,0 +1,39 @@
+--PALETTE Set: Full 6 Bit (64 colors)
+--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 = 4
+
+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