Beitrag, 23.05.2006 22:52: ;createCode() 'Source wurde am 23.05.2006 in die Babyklappe auf XProfan.Com abgelegt: proc gfx_bright parameters x%,y%,xx%,yy% declare q%,w%,rr%,gg%,bb%,p& w%=y% while lt(w%,yy%) q%=x% while lt(q%,xx%) p&=getpixel(q%,w%) rr%=getrvalue(p&) gg%=getgvalue(p&) bb%=getbvalue(p&) rr%=(255-rr%)/5+rr% gg%=(255-gg%)/5+gg% bb%=(255-bb%)/5+bb% setpixel q%,w%,rgb(rr%,gg%,bb%) add q%,1 wend add w%,1 wend endproc proc gfx_dark parameters x%,y%,xx%,yy% declare q%,w%,rr%,gg%,bb%,p& w%=y% while lt(w%,yy%) q%=x% while lt(q%,xx%) p&=getpixel(q%,w%) rr%=getrvalue(p&) gg%=getgvalue(p&) bb%=getbvalue(p&) rr%=rr%-(rr%/6) gg%=gg%-(gg%/6) bb%=bb%-(bb%/6) setpixel q%,w%,rgb(rr%,gg%,bb%) add q%,1 wend add w%,1 wend endproc
Dies ist die Offlinevariante vom Thread [gfx bright dark pixel filter aufhellen abdunkeln].
©2006 XProfan.Com