'Speed' of loop

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.

therevills

Hi xlsior, are you talking about my example?

I didnt test it when I added the extra code, but I have just tried now and it seems to work alright...

Heres a copy and paste runnable example:

SuperStrict

Graphics 800,600

Local reelblur:Timage = CreateImage(100,100,10, DYNAMICIMAGE)

For Local x% = 0 To 8 Step 2
	Cls
	SetColor Rand(255),Rand(255),Rand(255)
	DrawOval 0,0,100,100
	SetColor 255,255,255
	DrawText x,50,50
	GrabImage(reelblur,0,0,x)
	Cls
	SetColor Rand(255),Rand(255),Rand(255)	
	DrawRect 0,0,100,100
	SetColor 255,255,255	
	DrawText x+1,50,50
	GrabImage(reelblur,0,0,x+1)
Next

Local a% = 0
Local frameDelay%=0

Repeat
	Cls
	If KeyDown(KEY_SPACE) Then
		frameDelay:+ 1
		If frameDelay > 10
				frameDelay = 0				
				If a<8 Then
					a:+ 1					
				Else
					a=0
				End If
		EndIf		
		DrawImage reelblur,0,0,a
	End If
	Flip
Until KeyHit(KEY_ESCAPE)