XProfan

Source watts on the 15.07.2007 from the MMJ-Quellcodesammlung (Dietmar horn) in The Babyklappe on XProfan.Com stored:
graphic: Bitmap spiegeln
PRFellow-Presentation
Author: Thomas Hölzer - any rights vorbehalten
Bitmap spiegeln
for erweiterte Opportunities see win32.hlp To
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

example
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