forked from KolibriOS/kolibrios
35 lines
880 B
Lua
35 lines
880 B
Lua
|
--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
|
||
|
|
|
||
|
|
|