XProfan

proc invDCRect

    parameters hDC&,x&,y&,xx&,yy&

    AsmStart Setpixels

        Parameters hDC&,xx&,yy&,x&,y&
        .data
        vara	dd	0
        varb	dd	0
        .code
        mov ebx,para3

        .while varb<ebx

            ;add y to ebx {

                mov ebx,para5
                add varb,ebx

            ;}

            mov ebx,para4
            add vara,ebx
            mov ebx,para2
            add ebx,para4

            .while vara<ebx

                invoke GetPixel,para1,vara,varb
                ;xor eax, eax
                mov ebx,16777216
                sub ebx,eax
                invoke SetPixel,para1,vara,varb,ebx
                inc vara
                mov ebx,para2
                add ebx,para4

            .endw

            ;sub y to ebx {

                mov ebx,para5
                sub varb,ebx

            ;}

            inc varb
            mov vara,0
            mov ebx,para3

        .endw

    ASMEND

./../funktionsreferenzen/XProfan/endproc/'>endproc