Code : Tout sélectionner
ProcedureDLL MirrorImageX(Image.l)
; Mirrors an image around the X-axis
hDC = GetWindowDC_ (Image)
Width.l = ImageWidth()
Height.l = ImageHeight()
hDC.l = StartDrawing(ImageOutput())
StretchBlt_(hDC, 0, Height, Width, -Height, hDC, 0, 0, Width, Height, #SRCCOPY)
StopDrawing()
ReleaseDC_ (image, hDC)
EndProcedure
ProcedureDLL MirrorImageY(Image.l)
; Mirrors an image around the Y-axis
hDC = GetWindowDC_ (Image)
Width.l = ImageWidth()
Height.l = ImageHeight()
hDC.l = StartDrawing(ImageOutput())
StretchBlt_(hDC, Width, 0, -Width, Height, hDC, 0, 0, Width, Height, #SRCCOPY)
StopDrawing()
ReleaseDC_ (image, hDC)
EndProcedure
A+
Guimauve