Realtime Flipping and SetScale

BlitzMax Forums/BlitzMax Beginners Area/Realtime Flipping and SetScale

(tu) ENAY
 #1
Try this:-

Strict

Graphics 800,600,16,1

Global moo = LoadImage("image.bmp")
MidHandleImage moo


While Not KeyHit(KEY_ESCAPE)
	Cls
	
	SetBlend ALPHABLEND
    	SetColor 255,255,255
    	SetAlpha 1.0
	SetScale 1,1
	DrawImage (moo,320,140)
	
	SetScale -1,1
	DrawImage (moo,320,240)
	
	SetScale 1,-1
	DrawImage (moo,320,340)
	
	SetScale -1,-1
	DrawImage (moo,320,440)
	
	FlushMem
	Flip
Wend

End


This works for me. If it doesn't work for you, then your machine is fwooked. :)