RotateImage ..Strange problum !

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.

_Skully

Only set the image handle once and always copy and rotate the image into an array of images. The reason for this is that each time it rotates you will have dithering which will make it look fuzzier and fuzzier. Also, rotateimage by nature is slow. If you rotate them once for every degree of rotation you are interested in then draw that things will be much smoother

Open in online IDE

; RotateImage Example 

Graphics 640,480,16,2 
Dim images(64)
gfxBox=CreateImage(50,50) 
SetBuffer ImageBuffer(gfxBox) 
Color 255,0,0 
Rect 0,0,50,50,1 
Color 0,0,255 
Rect 1,1,5,5,1 
SetBuffer FrontBuffer() 
HandleImage gfxbox,25,25
For count=0 To 63
	images(count)=CopyImage(gfxbox)
	RotateImage images(count),count*10
Next 

While Not KeyHit(1) 

	For count=0 To 63
		Cls 
		Color 0,255,255 
		Rect 239,279,52,52,0 
		DrawImage images(count),265,305
		Color 0,255,0 
		Text 200,220," Box Width "+ImageWidth (images(count)) 
		Text 200,240," Box Height "+ImageHeight(images(count)) 
		; Delay Start.......... 
		If start=0 
		Else If start=1 
		Delay 200 
		End If 
		start=1 
	Next
Wend

Skully