forked from KolibriOS/kolibrios
25 lines
563 B
Lua
25 lines
563 B
Lua
|
--BRUSH Remap: Grayscale (average)
|
||
|
|
--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()
|
||
|
|
|
||
|
|
for x = 0, w - 1, 1 do
|
||
|
|
for y = 0, h - 1, 1 do
|
||
|
|
|
||
|
|
r, g, b = getcolor(getbrushpixel(x,y))
|
||
|
|
|
||
|
|
a = (r+g+b)/3
|
||
|
|
|
||
|
|
putbrushpixel(x, y, matchcolor(a,a,a));
|
||
|
|
|
||
|
|
end
|
||
|
|
end
|