Reorganized source code and directory tree.

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

share/grafx2/scripts/scn_db_RemapImage2RGB_ed.lua

@@ -0,0 +1,62 @@
+--SCENE: Remap pic 2 RGB, 1lineED-dith. (Same line simple error-diffusion dither)
+--by Richard Fhager 
+--http://hem.fyristorg.com/dawnbringer/
+
+
+power = 0.615
+
+c1 = 0.8 -- Error weight (white is green)
+c2 = 0.2 -- RGB weight (white is r+g+b)
+
+-- Set Palette (to a predefined one)
+
+colors = {{  0,  0,  0},
+          {255,  0,  0},
+          {  0,255,  0},
+          {  0,  0,255}
+         }
+
+
+chm = {1,0,0} 
+
+for c = 1, #colors, 1 do
+  setcolor(c-1,colors[c][1],colors[c][2],colors[c][3]) 
+end
+
+for c = #colors, 255, 1 do
+  setcolor(c,0,0,0) 
+end
+
+
+
+w, h = getpicturesize()
+
+for y = 0, h - 1, 1 do
+
+  re = 0
+  ge = 0
+  be = 0
+
+  for x = (y%2), w - 1, 1 do
+    
+    r,g,b = getbackupcolor(getbackuppixel(x,y));
+
+      rn = re * c1 + r * chm[1+(y+0+x)%3] * c2
+      gn = ge * c1 + g * chm[1+(y+1+x)%3] * c2
+      bn = be * c1 + b * chm[1+(y+2+x)%3] * c2
+
+      n = matchcolor(rn,gn,bn);
+
+    putpicturepixel(x, y, n);
+
+    
+    rn,gn,bn =  getcolor(getpicturepixel(x,y));
+   
+    re = (re + (r - rn)) * power
+    ge = (ge + (g - gn)) * power
+    be = (be + (b - bn)) * power
+
+    
+
+  end
+end