CopyImage problem

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.

tonyg

I know these aren't functions but it's a simpler method as I no longer believe the 'pre-rotate' method is necessary...

Graphics 640,480,16

SetBuffer BackBuffer()
AutoMidHandle True 
alien = LoadImage("ship.png")

Const leftk = 203, rightk = 205


While Not KeyHit(1)
	Cls
		
	If KeyDown(leftk)
			a = a -6
	ElseIf KeyDown(rightk)
			a = a+6
	EndIf 
	
	alien1 = CopyImage(alien)
	If KeyHit(200) ResizeImage alien,100,100
	If KeyHit(208) ResizeImage alien,32,32
	RotateImage alien1,a
		
	DrawImage alien1,320,240
	
	FreeImage alien1
	Flip
Wend : End