Reorganized source code and directory tree.

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

share/grafx2/scripts/pal_db_Desaturate.lua

@@ -0,0 +1,33 @@
+--PALETTE Adjust: Desaturate v1.1
+--by Richard Fhager 
+--http://hem.fyristorg.com/dawnbringer/
+
+-- This script was adopted from Evalion, a Javascript codecrafting/imageprocessing project
+-- http://goto.glocalnet.net/richard_fhager/evalion/evalion.html 
+
+
+-- Note: Negative values will work as INCREASED saturation, but I'm not sure if this function is 100% correct
+
+
+--percent = 25
+
+OK,percent = inputbox("Desaturate Palette","Percent %", 25, 0,100,0);
+
+--
+function desaturate(percent,r,g,b) -- V1.0 by Richard Fhager
+ p = percent / 100
+ a = (math.min(math.max(r,g,b),255) + math.max(math.min(r,g,b),0)) * 0.5 * p
+ r = r + (a-r*p)
+ g = g + (a-g*p)
+ b = b + (a-b*p)
+ return r,g,b
+end
+--
+
+if OK == true then
+
+  for c = 0, 255, 1 do
+    setcolor(c, desaturate(percent,getcolor(c)))
+  end
+
+end