samples_2.4 => samples

share/grafx2/scripts/samples/brush/Halfsmooth.lua

@@ -0,0 +1,34 @@
+--BRUSH: Halfsize with smoothscaling
+--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/>
+
+w, h = getbrushsize()
+
+setbrushsize(math.floor(w/2),math.floor(h/2))
+
+for x = 0, w - 1, 2 do
+ for y = 0, h - 1, 2 do
+   r1,g1,b1 = getcolor(getbrushbackuppixel(x,y));
+   r2,g2,b2 = getcolor(getbrushbackuppixel(x+1,y));
+   r3,g3,b3 = getcolor(getbrushbackuppixel(x,y+1));
+   r4,g4,b4 = getcolor(getbrushbackuppixel(x+1,y+1));
+ 
+   r = (r1 + r2 + r3 + r4 ) / 4;
+   g = (g1 + g2 + g3 + g4 ) / 4;
+   b = (b1 + b2 + b3 + b4 ) / 4;
+      
+   c = matchcolor(r,g,b);
+
+   putbrushpixel(x/2, y/2, c);
+
+ end
+end
+
+