XProfan

Source wurde al 15.07.2007 de el MMJ-Quellcodesammlung (Dietmar Horn) en el Babyklappe en XProfan.Com abgelegt:
Grafik: Mapa de bits spiegeln
PRFellow-Presentación
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Mapa de bits spiegeln
Für erweiterte Möglichkeiten siehe win32.hlp a
Def StretchBlt(11) !GDI32,StretchBlt

Proc FlipFileBmpH

    Parámetros f$,x%,y%,w%,h%
    LoadSizedBmp f$,Add(x%,w%),y% - Mul(w%,-1),h%;1

ENDPROC

Proc FlipFileBmpV

    Parámetros f$,x%,y%,w%,h%
    LoadSizedBmp f$,x%,Add(y%,h%) - w%,Mul(h%,-1);1

ENDPROC

Ejemplo
Cls
LoadSizedBmp Add$($WinPath,LOGOW.SYS),10,10-250,200;1
LoadSizedBmp SATURN.BMP,10,10-250,200;1
WaitInput
Cls
FlipFileBmpH Add$($WinPath,LOGOW.SYS),10,10,250,200
FlipFileBmpH SATURN.BMP,10,10,250,200
WaitInput
Cls
FlipFileBmpV Add$($WinPath,LOGOW.SYS),10,10,250,200
FlipFileBmpV SATURN.BMP,10,10,250,200
WaitInput