Drawing an image flipped left-right?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

bradford6

slight mod to fredborgs code:


Graphics 640,480,0,0

DrawText "BlitzMAX",100,100

img:TImage = CreateImage(50,15)
GrabImage(img,100,100)

xspeed = 2
yspeed = 2

Repeat

	Cls

	x :+ xspeed
	y :+ yspeed

	If x>GraphicsWidth()-ImageWidth(img) Or x<0
		xspeed = -xspeed
	EndIf
	
	If y>GraphicsHeight()-ImageHeight(img) Or y<0
		yspeed = -yspeed
	EndIf
	
	SetColor spam,spam,255
	spam = spam + 1
	If spam > 360 Then spam = 0
	
	SetScale Sin(spam)*6,Cos(spam)*6
	DrawImage img,x,y

	Flip

Until KeyHit(KEY_ESCAPE)