XProfan

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