Lua: finished inputbox with negative and decimal inputs. Added to the repository more than 20(!) new scripts by DawnBringer

git-svn-id: svn://pulkomandy.tk/GrafX2/trunk@1357 416bcca6-2ee7-4201-b75f-2eb2f807beb1

scripts/pal_db_FillColorCube.lua

@@ -0,0 +1,98 @@
+--PALETTE: Fill ColorCube voids v1.0
+--by Richard Fhager 
+--http://hem.fyristorg.com/dawnbringer/
+-- Email: dawnbringer@hem.utfors.se
+-- MSN:   annassar@hotmail.com
+--
+--
+-- Create a palette by continously filling the greatest void in the RGB color-cube
+--
+
+
+SHADES = 16 -- Going 24bit will probably be too slow and steal too much memory, so we're 12bit (4096 colors) for now
+
+ini = 0
+exp = 255
+
+OK,ini,exp = inputbox("Fill Palette Color voids",
+                       "From/Keep #: 0-254",    0,  0,254,0,
+                       "Replace to #: 1-255",  31,  1,255,0
+);
+
+
+function initColorCube(sha)
+  ary = {}
+  for z = 0, sha-1, 1 do
+   ary[z+1] = {}
+   for y = 0, sha-1, 1 do
+    ary[z+1][y+1] = {}
+   end
+  end
+  return ary
+end
+
+
+function addColor2Cube(cube,sha,r,g,b) -- Gravity model
+  star = 1000000
+  fade = 1000
+
+  cube[r+1][g+1][b+1] = star
+  for z = 0, sha-1, 1 do
+   for y = 0, sha-1, 1 do
+    for x = 0, sha-1, 1 do
+
+      d = fade / ( (x-b)^2 + (y-g)^2 + (z-r)^2 )
+
+      if cube[z+1][y+1][x+1] ~= nil then
+         cube[z+1][y+1][x+1] = cube[z+1][y+1][x+1] + d
+         else
+         cube[z+1][y+1][x+1] = d
+      end
+
+  end;end;end
+end
+
+
+function findVoid(cube,sha)
+  weakest = 999999999999
+   weak_i = {-1,-1,-1}
+  for z = 0, sha-1, 1 do
+   for y = 0, sha-1, 1 do
+    for x = 0, sha-1, 1 do
+ 
+      w = cube[z+1][y+1][x+1]
+      if w <= weakest then weakest = w; weak_i = {z,y,x}; end
+     
+  end;end;end
+  return weak_i[1],weak_i[2],weak_i[3]
+end
+
+--
+
+if OK == true then
+
+  cube = initColorCube(SHADES)
+  -- Fill cube with initial colors
+  for n = 0, ini-1, 1 do
+    r,g,b = getcolor(n)
+    div = SHADES
+    addColor2Cube(cube,SHADES,math.floor(r/div),math.floor(g/div),math.floor(b/div))
+  end
+
+  if ini == 0 then -- With no inital color, some inital data must be added to the colorcube. 
+    addColor2Cube(cube,SHADES,0,0,0)
+    setcolor(0, 0,0,0) 
+    ini = ini + 1
+  end
+
+  for n = ini, exp, 1 do
+    r,g,b = findVoid(cube,SHADES)
+    mult = 255 / (SHADES - 1)
+    setcolor(n, r*mult,g*mult,b*mult)  
+    addColor2Cube(cube,SHADES,r,g,b)
+  end
+
+end
+
+
+