Frames per second function

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|44\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Timing

Paul	Created : 10 April 2007 Edited : 25 April 2007 System : Windows Language : Blitz Frames per second function very simple to use fps counter
just copy the code into your prog Global fps_tbank Function fps() If fps_tbank=0 fps_tbank=CreateBank(12) PokeInt(fps_tbank,0,MilliSecs()+1000) EndIf If MilliSecs()-PeekInt(fps_tbank,0)>0 PokeInt(fps_tbank,0,MilliSecs()+1000) PokeInt(fps_tbank,8,PeekInt(fps_tbank,4)) PokeInt(fps_tbank,4,0) EndIf PokeInt(fps_tbank,4,PeekInt(fps_tbank,4)+1) Return PeekInt(fps_tbank,8) End Function --v

Comments
Tuesday, 10 April 2007, 07:41
JL235	Wouldn't it be simpler to just use a couple of integers? Something like: Global fps, fps_time, fps_counter Function fps() fps_counter = fps_counter+1 If fps_time < MilliSecs() fps = fps_counter fps_counter = 0 fps_time = MilliSecs()+1000 EndIf Return fps End Function --v
Tuesday, 10 April 2007, 07:48
Jayenkai	Peeks and Pokes are more fun
Tuesday, 10 April 2007, 07:50
Paul	Peeks and Pokes are more fun And I only use one variable which is more fun as well
Tuesday, 10 April 2007, 08:58
mike_g	Hey Paul, I might use this I always made my FPS functions the way diablo showed, but on bigger programs I like to try an use as little globals as possible so that I dont end up with a giant list of em.

Frames per second function

Comments