More Mirror Image

OK I used TFormImage to mirror an image horizontally but the problem is that it draws from left to right from the x coordinate supplied which is not what I wanted. I just wanted to mirror and image and then use it normally.

So I wrote this function which others may find useful.
I am aware that I could probably just Peek and Poke all the pixels to mirror it, so if someone wants to post that code, it would be cool.

; Mirror an image horizontally
Function ccMirrorImageHoriz(TheImage%)
;make a copy to work on
TempImage% = CopyImage(TheImage)
;flip it
TFormImage TempImage, -1, 0, 0, 1
;now draw it back to the original image
;note the corrected x coord
SetBuffer ImageBuffer(TheImage)
Cls
DrawImage(TempImage, ImageWidth(TempImage), 0)
FreeImage(TempImage)
SetBuffer BackBuffer
End Function

oops, it should be SetBuffer BackBuffer() with brackets

Have you noticed the Edit link in the top corner of each of your posts? You can use it.

That is cool Wolron, thanks!