XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Bitmaps: Bitmap spiegeln
PRFellow-Vorlage
Autor: Thomas Hölzer - Alle Rechte vorbehalten
Bitmap spiegeln
Für erweiterte Möglichkeiten siehe win32.hlp zu
Def StretchBlt(11) !GDI32,StretchBlt

Proc FlipFileBmpH

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

EndProc

Proc FlipFileBmpV

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

EndProc

Beispiel
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