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/bru_db_FindAA.lua

@@ -0,0 +1,94 @@
+--BRUSH: Find AA-colors from pencolors
+--by Richard Fhager 
+--http://hem.fyristorg.com/dawnbringer/
+
+
+cellw = 8
+cellh = 4
+colors = 256
+
+setbrushsize(cellw * 3, cellh * 3)
+
+
+--
+function makePalList(cols)
+ pal = {}
+ for n = 0, cols-1, 1 do
+   r,g,b = getcolor(n)
+   pal[n+1] = {r,g,b}
+ end
+ return pal
+end
+--
+
+--
+function getBestPalMatchHYBRID(rgb,pal,briweight)
+ local diff,diffC,diffB,best,bestcol,cols,n,c,r,g,b,p,obri,pbri
+ cols = #pal
+ bestcol = 0
+ best = 9e99
+
+ r = rgb[1]
+ g = rgb[2] 
+ b = rgb[3]
+
+ obri = math.pow(r*9,2)+math.pow(g*16,2)+math.pow(b*8,2)
+
+ for n=0, cols-1, 1 do
+  p = pal[n+1]
+  pbri = math.pow(p[1]*9,2)+math.pow(p[2]*16,2)+math.pow(p[3]*8,2)
+  diffB = math.abs(obri - pbri)
+
+
+  diffC = (math.pow(r-p[1],2)+math.pow(g-p[2],2)+math.pow(b-p[3],2)) * 400
+  --diff  = diffB + diffC
+  diff = briweight * (diffB - diffC) + diffC
+  if diff <= best then bestcol = n; best = diff; end
+ end 
+
+ return bestcol
+end
+--
+
+--
+function drawRectangle(x1,y1,w,h,c)
+   for y = y1, y1+h, 1 do
+    for x = x1, x1+w, 1 do
+       putbrushpixel(x,y,c);
+    end
+   end
+end
+--
+
+
+
+palList = makePalList(colors)
+
+cf = getforecolor()
+cb = getbackcolor()
+rf,gf,bf = getcolor(cf)
+rb,gb,bb = getcolor(cb)
+
+ra = (rf + rb) / 2
+ga = (gf + gb) / 2
+ba = (bf + bb) / 2
+
+rgb1 = {ra,ga,ba}
+c1 = getBestPalMatchHYBRID(rgb1,palList,0.0)
+c2 = getBestPalMatchHYBRID(rgb1,palList,0.75)
+c3 = getBestPalMatchHYBRID(rgb1,palList,0.99)
+
+q = {{cf,c1,cb},
+     {cf,c2,cb},
+     {cf,c3,cb}}
+
+
+for y = 0, #q-1, 1 do
+ for x = 0, #q[1]-1, 1 do
+ 
+  drawRectangle(x*cellw,y*cellh,cellw,cellh,q[y+1][x+1])
+
+ end
+end
+
+