Delta Timing Vs Fixed Rate Logic Vs Timer

[therevillsParticipant]

What’s the best way to deal with various FPS for MX2?

I’ve been messing around with the mojo example “space chimps” which uses the Timer class… and with my Monkeyroid I’ve converted a Fixed Rate Logic model…. but can’t decide what is the best way. Any clues?

FRLTimer, converted from http://www.rightanglegames.com/top-down-shooter-tutorial-with-blitzmax.html

Monkey

Class FixedRateLogicTimer Field newTime:Double = Millisecs() Field oldTime:Double = Millisecs() Field delta:Float Field dssOn:Int ' do we use delta spike suppression? Field dssIndex:Int ' index into DSS_Array where next delta value is written Field dssArray:Float[] ' this array contains the delta values to smooth Field dssLenArray:Int ' how big is the array of delta values Field logicFPS:Float Field accumulator:Float, tween:Float Field fpsAccumulator:Float Field updateCount:Int Field renderCount:Int Field updatesPerSecond:Int Field rendersPerSecond:Int Method New(logicCyclesPerSecond:Float, numSamples:Int = 0) logicFPS = 1.0 / logicCyclesPerSecond Print "logicFPS = " + logicFPS If numSamples dssOn = True dssArray = New Float[numSamples] dssLenArray = numSamples End End Method ProcessTime:Float() newTime = Millisecs() delta = Float (newTime - oldTime) * 0.001 oldTime = newTime If dssOn dssArray[dssIndex] = delta Local smoothDelta:Float = 0 For Local i:Int = 0 To dssLenArray - 1 smoothDelta += dssArray[i] Next delta = Float(smoothDelta / dssLenArray) dssIndex += 1 If dssIndex > dssLenArray - 1 Then dssIndex = 0 End accumulator += delta fpsAccumulator += delta If fpsAccumulator > 1.0 fpsAccumulator -= 1.0 updatesPerSecond = updateCount updateCount = 0 rendersPerSecond = renderCount renderCount = 0 End Return delta End Method LogicUpdateRequired:Int() If accumulator > logicFPS updateCount += 1 accumulator -= logicFPS Return True End Return False End Method GetLogicFPS:Float() Return logicFPS End Method GetTween:Float() renderCount += 1 Return accumulator / logicFPS End Method ShowSpikeSuppression(x:Int, y:Int, canvas:Canvas) canvas.DrawText("Delta Spike Suppressor:", x, y) canvas.DrawText("Final Delta: " + delta, x, y + 20) End Method ShowFPS(x:Int, y:Int, canvas:Canvas, showUpdateFPS:Int = True, showRenderFPS:Int = True) Local ty:Int = y If showUpdateFPS canvas.DrawText("Logic FPS: " + updatesPerSecond, x, ty) ty += 20 End If showRenderFPS canvas.DrawText("Render FPS: " + rendersPerSecond, x, ty) End End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97

Class FixedRateLogicTimer Field newTime:Double = Millisecs() Field oldTime:Double = Millisecs() Field delta:Float Field dssOn:Int ' do we use delta spike suppression? Field dssIndex:Int ' index into DSS_Array where next delta value is written Field dssArray:Float[] ' this array contains the delta values to smooth Field dssLenArray:Int ' how big is the array of delta values   Field logicFPS:Float Field accumulator:Float, tween:Float Field fpsAccumulator:Float Field updateCount:Int Field renderCount:Int Field updatesPerSecond:Int Field rendersPerSecond:Int Method New(logicCyclesPerSecond:Float, numSamples:Int = 0) logicFPS = 1.0 / logicCyclesPerSecond Print "logicFPS = " + logicFPS If numSamples dssOn = True dssArray = New Float[numSamples] dssLenArray = numSamples End End Method ProcessTime:Float() newTime = Millisecs() delta = Float (newTime - oldTime) * 0.001 oldTime = newTime If dssOn dssArray[dssIndex] = delta Local smoothDelta:Float = 0 For Local i:Int = 0 To dssLenArray - 1 smoothDelta += dssArray[i] Next delta = Float(smoothDelta / dssLenArray) dssIndex += 1 If dssIndex > dssLenArray - 1 Then dssIndex = 0 End accumulator += delta fpsAccumulator += delta   If fpsAccumulator > 1.0 fpsAccumulator -= 1.0 updatesPerSecond = updateCount updateCount = 0 rendersPerSecond = renderCount renderCount = 0 End Return delta End Method LogicUpdateRequired:Int() If accumulator > logicFPS updateCount += 1 accumulator -= logicFPS Return True End Return False End Method GetLogicFPS:Float() Return logicFPS End Method GetTween:Float() renderCount += 1 Return accumulator / logicFPS End   Method ShowSpikeSuppression(x:Int, y:Int, canvas:Canvas) canvas.DrawText("Delta Spike Suppressor:", x, y) canvas.DrawText("Final Delta: " + delta, x, y + 20) End Method ShowFPS(x:Int, y:Int, canvas:Canvas, showUpdateFPS:Int = True, showRenderFPS:Int = True) Local ty:Int = y If showUpdateFPS canvas.DrawText("Logic FPS:  " + updatesPerSecond, x, ty) ty += 20 End If showRenderFPS canvas.DrawText("Render FPS: " + rendersPerSecond, x, ty) End End End

Init FRL:

Monkey

Class MyWindow Extends Window Const UPDATE_FREQUENCY:Float = 100.0 Const SPIKE_SUPPRESSION:Int = 20 Global GameTime:FixedRateLogicTimer = New FixedRateLogicTimer(UPDATE_FREQUENCY, SPIKE_SUPPRESSION)

1 2 3 4 5

Class MyWindow Extends Window Const UPDATE_FREQUENCY:Float = 100.0 Const SPIKE_SUPPRESSION:Int = 20 Global GameTime:FixedRateLogicTimer = New FixedRateLogicTimer(UPDATE_FREQUENCY, SPIKE_SUPPRESSION)

In OnRender:

Monkey

Method OnRender(canvas:Canvas) Override App.RequestRender() Local delta:Float = GameTime.ProcessTime() While GameTime.LogicUpdateRequired() GameLogic() End Local tween:Float = GameTime.GetTween() GameRender(canvas, tween) End

1 2 3 4 5 6 7 8 9 10

Method OnRender(canvas:Canvas) Override App.RequestRender() Local delta:Float = GameTime.ProcessTime() While GameTime.LogicUpdateRequired() GameLogic() End Local tween:Float = GameTime.GetTween() GameRender(canvas, tween) End

So if your object has a default speed of 3.0, and you set your logic framerate to 100 it’ll move at 300 pixels per second…

[gcmartijnParticipant]

I hope that someone create (maybe mark) a good tutorial about

deltatime / framerate / oprender / update in MX2

A year ago I was using this for Monkey1 but I don’t know what now the best use is using MX2

https://github.com/Regal-Internet-Brothers/deltatime

Some tests using deltatime with huge ‘strange’ things

http://www.monkey-x.com/Community/posts.php?topic=9918&post=107293&view=all#107293

[wiebowParticipant]

I am using fixed time to great satisfaction.

[gcmartijnParticipant]

Example please, is it slow Device proof ?

I want to try something new, a fresh start using mx2.

But as you can see I had some trouble with getting the most important thing oke, fps.

is the way mx2 handle a render/update setframerate the same ?

[gcmartijnParticipant]

That fixed rate logic seems a good way, but I want to be sure before I’m going to start working with a new test project.

I also use spacechimps as a start, and deleted the timer and other stuff

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Method New( title:String,width:Int,height:Int ) Super.New( title,width,height,WindowFlags.Center) SwapInterval=1 End Method Method OnUpdate() App.RequestRender() ' do all the math stuff ' ---- End Method OnRender( canvas:Canvas ) Override canvas.TextureFilteringEnabled=False OnUpdate() ' do all the draw/little math stuff canvas.DrawText( "FPS="+App.FPS,Width/2,0,.5,0 ) End End Class Function Main() New AppInstance() New MyWindow("Test",App.DesktopSize.x/2,App.DesktopSize.y/2 ) App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window   Method New( title:String,width:Int,height:Int ) Super.New( title,width,height,WindowFlags.Center) SwapInterval=1 End Method Method OnUpdate() App.RequestRender() ' do all the math stuff ' ---- End Method OnRender( canvas:Canvas ) Override canvas.TextureFilteringEnabled=False OnUpdate() ' do all the draw/little math stuff canvas.DrawText( "FPS="+App.FPS,Width/2,0,.5,0 ) End End Class     Function Main()   New AppInstance() New MyWindow("Test",App.DesktopSize.x/2,App.DesktopSize.y/2 ) App.Run() End

My game is going to use

• animated images using a atlas which contains the animation frame speed in ms
• the animated images moving from point A to B in x speed (fixed)
• has to work on ultra fast and/or slower computers/tablet/phone

So my problem is , how do I can handle all those things without getting lag or moving to fast images.

Does the fixed rate logic class solve all those problems for me ?
So someone with a fast computer don’t see to fast movements or animations and <span style=”text-decoration: underline;”>very</span> slow computers see some frame drops (that is not my real problem, and impossible to fix).

Monkey

Method OnRender(canvas:Canvas) Override App.RequestRender() '' are you going to use that delta ?? , why not only GameTime.ProcessTime() Local delta:Float = GameTime.ProcessTime() While GameTime.LogicUpdateRequired() GameLogic() End '' is the tween the 'delta' i need to use for my moving objects and image frame Local tween:Float = GameTime.GetTween() GameRender(canvas, tween) End

1 2 3 4 5 6 7 8 9 10 11 12 13

Method OnRender(canvas:Canvas) Override App.RequestRender() '' are you going to use that delta ?? , why not only GameTime.ProcessTime() Local delta:Float = GameTime.ProcessTime() While GameTime.LogicUpdateRequired() GameLogic() End   '' is the tween the 'delta' i need to use for my moving objects and image frame Local tween:Float = GameTime.GetTween() GameRender(canvas, tween) End

[Author]

Posts