Flipping Flip

Blitz3D Forums/Blitz3D Beginners Area/Flipping Flip

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.

Hi Marg, I've been away, sorry not to answer...

I'm not sure this is achieving anything:

Text 0,0, (MilliSecs()-time%)/(frames%/10)


and measuring fps with flip false, I don't quite understand what that achieves, it disables frame synching, but why is that a good thing?

anyway, this is a fps timer, someone else posted the timer part

Graphics 800,600
SetBuffer BackBuffer()
ScreenFont = LoadFont("arial",24)
SetFont ScreenFont

While Not KeyHit(1)	
	Cls	
	Color 255,50,50	
	Rect 0,0,150,50		
	Gosub FrameCounter
	Color 255,255,255
	Text 20,20,"fps="+FPS		
	Flip
Wend

FreeFont ScreenFont
End

.FrameCounter
	Frame% = Frame%+1	
	If SecondTimerOn = False Then 
		OneSecond# = MilliSecs() + 1000
		StartFrame% = Frame%
		SecondTimerOn = True		
	Else 
		If MilliSecs() > OneSecond# Then
			SecondTimerOn = False
			FPS% = Frame%-StartFrame%	
		EndIf
	EndIf	
	Return


it gives me 100 fps in BlitzPlus and Blitz Basic 2D, maybe you can see what it gives you. Just to be sure, I timed fps in a number of game loops in Blitz+ and Blitz2D, by putting a timer in various sample games, and the FPS was exactly the same in both.

In my own game efforts, I've found that exe's compiled with Blitz+ run more smoothly on older systems, so I'm pretty happy with it overall...

hope this helps, and all the best :)