FPSGraph

Monkey Forums/Monkey Code/FPSGraph

Raph (Posted 2013) [#1]

I have been looking at frame rate issues on Android, and I needed a better performance monitor than just seeing FPS. I threw this together in the last hour, and I thought it might be useful to others. What it does: By default, it draws a scrolling graph in the upper corner showing the last 300 frames and their times. It actually draws it two ways -- raw data, and a smoothed line (the smoothing is much easiler to read, though it obviously isn't accurate). If any frames are under half the UpdateRate (e.g. target framerate) it'll flag those visibly and show you what FPS they were. Some options: - You can set X and Y to move it around - You can set it to show nothing, FPS only, or the full graph - You can set it to different length graphs with "graphMax" - You can draw it different sizes with "graphSize" Previous update: - there's a method for setting visibility - the black background tis oggleable; by default, it's off. - the smoothed line has color coding (fades between red and green) - it's now Strict Latest update: - Now does all calculations in OnRender, for greater accuracy - No longer needs to be instantiated -- why would you use more than one? Instead, it comes with a global called fpsGraph, just draw it. ' fps counter that tracks a history so it can make a graph Strict Import mojo Const FPSGRAPH_OFF:Int = 0 Const FPSGRAPH_FPS_ONLY:Int = 1 Const FPSGRAPH_GRAPH:Int = 2 Global fpsGraph:fpsCounter = New fpsCounter 'summary: tracks the fps for the last many frames and draws a graph Class fpsCounter Field curTime:Int = 0 Field lastTime:Int = 0 Field curFPS:Int = 0 Field fpsHistory:List<int> = New List<int> Field visible:Int = FPSGRAPH_GRAPH Field drawBG:Bool = False Field graphSize:Int = 2 Field graphMax:Int = 300 Field X:Int = 0 Field Y:Int = 0 'summary: updates FPS counter and history Method Update:Void() lastTime = curTime curTime = Millisecs() Local elapsedtime:Int = curTime - lastTime curFPS = 1000 / (elapsedtime + 1) ' don't bother showing FPS above max; it's a math issue Local ur:Int = UpdateRate() If curFPS > ur Then curFPS = ur ' maintain history fpsHistory.AddLast(curFPS) Local c:Int = fpsHistory.Count() If c > graphMax fpsHistory.RemoveFirst() EndIf ' shorthand toggle If KeyHit(KEY_F) visible += 1 If visible > FPSGRAPH_GRAPH Then visible = FPSGRAPH_OFF EndIf End 'summary: returns the FPS last frame Method FPS:Int() Return curFPS End 'summary: sets FPS display. 0: off, 1: FPS only, 2:full graph. Method Visible:Void(set:Int) visible = set End 'summary:returns a list of the last N recorded FPS rates Method History:List<int>() Return fpsHistory End 'summary: draws FPS counter and a smoothed graph of FPS history Method Draw:Void() Update() If visible = FPSGRAPH_OFF Then Return SetColor 0, 0, 0 PushMatrix() Scale 1, 1 Translate(X, Y) ' for FPS only, just draw it at the X and Y If visible = FPSGRAPH_FPS_ONLY SetColor 255, 255, 255 DrawText(curFPS + "fps", 0, 0) Return EndIf Local ur:Int = UpdateRate() ' for graph, draw a background of the appropriate size If drawBG = True Then DrawRect(0, 0, graphMax * graphSize + 10, ur + 20) EndIf SetColor 255, 255, 255 ' put the next at the far end DrawText(curFPS + "fps", graphMax * graphSize - 50, 0) Local xOffset:Int = 5 Local lastFPS:Int = 0 For Local i:Int = EachIn fpsHistory ' gray background is 100% accurate to the FPS SetAlpha 0.25 SetColor 0, 0, 0 DrawRect(xOffset, 75 - i, graphSize, i) ' faded colored rect to show actual value, but backgrounded SetAlpha 0.8 SetColor(255 - (i * 2), 100 + (i * 2), 50) DrawRect(xOffset, 75 - i, graphSize, graphSize) SetAlpha 1 ' smoothing for the line which is fully visible Local gap:Int = i - lastFPS If gap > 0 Then i = i - gap * 0.75 ' colorcode line Local ratio:Float = Float(i) / Float(ur) SetColor(255 - ratio * 255, ratio * 255, 0) ' line is smoothed DrawLine(xOffset, 75 - i, xOffset - graphSize, 75 - lastFPS) SetColor 255, 255, 255 ' if FPS falls by half, insert marker of what it fell to If i < ur / 2 And xOffset / graphSize > 30 DrawText(i, xOffset - 30, Max(75 - i, 60)) EndIf xOffset = xOffset + graphSize lastFPS = i Next PopMatrix() SetColor 255, 255, 255 End End Usage: Import fpsgraph Class MyGame Extends App Method OnRender:Int() fpsGraph.Draw() End End

muddy_shoes (Posted 2013) [#2]

Neat, thanks for sharing. By the way, if you have ongoing issues with Android performance I'd be glad to help out. I've spent a fair amount of time optimising for Android with Monkey with the Box2D port and other bits and bobs.

Raph (Posted 2013) [#3]

Thanks! Looks like it's probably just an AI routine that is slow. But if it turns out to be more, I may be back asking for help. :)

Raph (Posted 2014) [#4]

Taiphoz did a somewhat nicer version of this, but if anyone is still using mine, here's a minor update: - new method for setting visibility - made the black background toggleable; by default, it's off. - made the bar graph part (the gray) have alpha to it - made the smoothed line have color coding (fades between red and green) - it's now Strict Code updated in the original post.

Raph (Posted 2014) [#5]

Just updated this after reading http://www.monkey-x.com/Community/posts.php?topic=6216 Latest update: - Now does all calculations in OnRender, for greater accuracy - No longer needs to be instantiated -- why would you use more than one? Instead, it comes with a global called fpsGraph, just draw it.