FPS, Delta, FixedFPS, Timing, Animation Topic (almost done)

[gcmartijnParticipant]

Final round

I just going back to my old setup what is working, using a delta class I found some years ago.
(In the bananas, no delta code found)

Can someone agree with the fact below ?, then I and maybe others understand it better then.
Its hard to understand because of the various factors:
CPU / GPU / MONITOR (hz) / MX2
When I use my delta timing code below and use the this setting:
– SwapInterval=0 > I get FPS 450+
– SwapInterval=1 > I get FPS 60 (I will use this setting)

Everything looks oke now, but need to be sure.

[fact 1] Because I’m using the delta I don’t care about the FPS, the movement (looks) works oke 
[fact 2] Devices that don’t support SwapInterval=1, movement will be oke because i’m using delta
[fact 3] Devices with 75hz or other are oke because i’m using delta
[fact 4] MX2 loop is always like this App.RequestRender() then OnUpdate() then OnRender()

 

Monkey

#Import "<std>" #Import "<mojo>" #Import "assets/animation/" Using std.. Using mojo.. Global dt:DeltaTimer Class DeltaTimer Field targetfps:Float = 60 Field currentticks:Float Field lastticks:Float Field frametime:Float Field delta:Float Method New (fps:Float) targetfps = fps lastticks = Millisecs() End Method UpdateDelta:Void() currentticks = Millisecs() frametime = currentticks - lastticks delta = frametime / (1000.0 / targetfps) lastticks = currentticks End End Class MyWindow Extends Window Field frameSets:Stack<FrameSet> = New Stack<FrameSet>() Method New( ) SwapInterval=0 ' vsync dt = New DeltaTimer(60) ' this part is normaly using loaded using json and 1 atlas file ' ========================================== frameSets.Add(New FrameSet()) Local oFS:FrameSet = frameSets.Get(0) oFS.frames.Add(New Frame("1.jpg",60)) oFS.frames.Add(New Frame("2.jpg",60)) oFS.frames.Add(New Frame("3.jpg",60)) oFS.frames.Add(New Frame("4.jpg",60)) oFS.frames.Add(New Frame("5.jpg",60)) oFS.frames.Add(New Frame("6.jpg",60)) oFS.frames.Add(New Frame("7.jpg",60)) oFS.frames.Add(New Frame("8.jpg",60)) oFS.frames.Add(New Frame("9.jpg",60)) oFS.frames.Add(New Frame("10.jpg",60)) oFS.frames.Add(New Frame("11.jpg",60)) oFS.frames.Add(New Frame("12.jpg",60)) oFS.frames.Add(New Frame("13.jpg",60)) oFS.frames.Add(New Frame("14.jpg",60)) oFS.frames.Add(New Frame("15.jpg",60)) oFS.frames.Add(New Frame("16.jpg",60)) oFS.frameEnd = oFS.frames.Length-1 oFS.Position = New Vec2f( 400,400 ) oFS.move2left = True ' another frameset frameSets.Add(New FrameSet()) oFS = frameSets.Get(1) ' another frameset oFS.frames.Add(New Frame("1.jpg",500)) oFS.frames.Add(New Frame("2.jpg",500)) oFS.frames.Add(New Frame("3.jpg",500)) oFS.frames.Add(New Frame("4.jpg",500)) oFS.frames.Add(New Frame("5.jpg",500)) oFS.frames.Add(New Frame("6.jpg",500)) oFS.frames.Add(New Frame("7.jpg",500)) oFS.frames.Add(New Frame("8.jpg",500)) oFS.frames.Add(New Frame("9.jpg",500)) oFS.frames.Add(New Frame("10.jpg",500)) oFS.frames.Add(New Frame("11.jpg",500)) oFS.frames.Add(New Frame("12.jpg",500)) oFS.frames.Add(New Frame("13.jpg",500)) oFS.frames.Add(New Frame("14.jpg",500)) oFS.frames.Add(New Frame("15.jpg",500)) oFS.frames.Add(New Frame("16.jpg",500)) oFS.frameEnd = oFS.frames.Length-1 oFS.Position = New Vec2f( 400,250 ) oFS.move2left = True ' another frameset frameSets.Add(New FrameSet()) oFS = frameSets.Get(2) oFS.frames.Add(New Frame("1.jpg",1000)) oFS.frames.Add(New Frame("2.jpg",1000)) oFS.frames.Add(New Frame("3.jpg",1000)) oFS.frames.Add(New Frame("4.jpg",1000)) oFS.frames.Add(New Frame("5.jpg",1000)) oFS.frames.Add(New Frame("6.jpg",1000)) oFS.frames.Add(New Frame("7.jpg",1000)) oFS.frames.Add(New Frame("8.jpg",1000)) oFS.frames.Add(New Frame("9.jpg",1000)) oFS.frames.Add(New Frame("10.jpg",1000)) oFS.frames.Add(New Frame("11.jpg",1000)) oFS.frames.Add(New Frame("12.jpg",1000)) oFS.frames.Add(New Frame("13.jpg",1000)) oFS.frames.Add(New Frame("14.jpg",1000)) oFS.frames.Add(New Frame("15.jpg",1000)) oFS.frames.Add(New Frame("16.jpg",1000)) oFS.frameEnd = oFS.frames.Length-1 oFS.Position = New Vec2f( 200,100 ) ' ========================================== End Method OnRender( canvas:Canvas ) Override App.RequestRender() OnUpdate() canvas.TextureFilteringEnabled=False canvas.DrawText( "FPS="+App.FPS,Width/2,0,.5,0 ) For Local oFS:FrameSet = Eachin frameSets oFS.Draw(canvas) Next End Method OnUpdate() dt.UpdateDelta() For Local oFS:FrameSet = Eachin frameSets oFS.UpdateFrameTimer() If oFS.move2left oFS.Position.x-=1*dt.delta If oFS.Position.x <= 50 oFS.move2left = False oFS.move2right = True End Elseif oFS.move2right oFS.Position.x+=1*dt.delta If oFS.Position.x >= 450 oFS.move2left = True oFS.move2right = False End End Next End End Class FrameSet Field frames:Stack<Frame> = New Stack<Frame>() Field currFrameKey:Int = 0 Field timer:Int Field frameEnd:Int Field Position:=New Vec2f Field move2left:Bool ' debug Field move2right:Bool ' debug Method New() End Method CurrentFrame:Frame() Return frames.Get(currFrameKey) End Method UpdateFrameTimer:Void() ' If frame_total > 1 If dt.lastticks > timer + frames.Get(currFrameKey).duration currFrameKey+=1 If currFrameKey > frameEnd currFrameKey = 0 End timer = Millisecs() End ' End End Method Draw:Void(canvas:Canvas) canvas.DrawImage(CurrentFrame().img,Position.X,Position.Y) End End Class Class Frame Field duration:Int Field name:String Field img:Image Method New (_name:String,_duration:Int) name= _name duration = _duration img=Image.Load( "asset::"+_name) img.Handle=New Vec2f( .5,.5 ) End End Class Function Main() New AppInstance New MyWindow() 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 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 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207

#Import "<std>" #Import "<mojo>"   #Import "assets/animation/"   Using std.. Using mojo..     Global dt:DeltaTimer   Class DeltaTimer Field targetfps:Float = 60 Field currentticks:Float Field lastticks:Float Field frametime:Float Field delta:Float Method New (fps:Float) targetfps = fps lastticks = Millisecs() End Method UpdateDelta:Void() currentticks = Millisecs() frametime = currentticks - lastticks delta = frametime / (1000.0 / targetfps) lastticks = currentticks End End   Class MyWindow Extends Window Field frameSets:Stack<FrameSet> = New Stack<FrameSet>() Method New(  ) SwapInterval=0 ' vsync dt = New DeltaTimer(60) ' this part is normaly using loaded using json and 1 atlas file ' ========================================== frameSets.Add(New FrameSet()) Local oFS:FrameSet = frameSets.Get(0) oFS.frames.Add(New Frame("1.jpg",60)) oFS.frames.Add(New Frame("2.jpg",60)) oFS.frames.Add(New Frame("3.jpg",60)) oFS.frames.Add(New Frame("4.jpg",60)) oFS.frames.Add(New Frame("5.jpg",60)) oFS.frames.Add(New Frame("6.jpg",60)) oFS.frames.Add(New Frame("7.jpg",60)) oFS.frames.Add(New Frame("8.jpg",60)) oFS.frames.Add(New Frame("9.jpg",60)) oFS.frames.Add(New Frame("10.jpg",60)) oFS.frames.Add(New Frame("11.jpg",60)) oFS.frames.Add(New Frame("12.jpg",60)) oFS.frames.Add(New Frame("13.jpg",60)) oFS.frames.Add(New Frame("14.jpg",60)) oFS.frames.Add(New Frame("15.jpg",60)) oFS.frames.Add(New Frame("16.jpg",60)) oFS.frameEnd = oFS.frames.Length-1 oFS.Position = New Vec2f( 400,400 ) oFS.move2left = True ' another frameset frameSets.Add(New FrameSet()) oFS = frameSets.Get(1) ' another frameset oFS.frames.Add(New Frame("1.jpg",500)) oFS.frames.Add(New Frame("2.jpg",500)) oFS.frames.Add(New Frame("3.jpg",500)) oFS.frames.Add(New Frame("4.jpg",500)) oFS.frames.Add(New Frame("5.jpg",500)) oFS.frames.Add(New Frame("6.jpg",500)) oFS.frames.Add(New Frame("7.jpg",500)) oFS.frames.Add(New Frame("8.jpg",500)) oFS.frames.Add(New Frame("9.jpg",500)) oFS.frames.Add(New Frame("10.jpg",500)) oFS.frames.Add(New Frame("11.jpg",500)) oFS.frames.Add(New Frame("12.jpg",500)) oFS.frames.Add(New Frame("13.jpg",500)) oFS.frames.Add(New Frame("14.jpg",500)) oFS.frames.Add(New Frame("15.jpg",500)) oFS.frames.Add(New Frame("16.jpg",500)) oFS.frameEnd = oFS.frames.Length-1 oFS.Position = New Vec2f( 400,250 ) oFS.move2left = True ' another frameset frameSets.Add(New FrameSet()) oFS = frameSets.Get(2) oFS.frames.Add(New Frame("1.jpg",1000)) oFS.frames.Add(New Frame("2.jpg",1000)) oFS.frames.Add(New Frame("3.jpg",1000)) oFS.frames.Add(New Frame("4.jpg",1000)) oFS.frames.Add(New Frame("5.jpg",1000)) oFS.frames.Add(New Frame("6.jpg",1000)) oFS.frames.Add(New Frame("7.jpg",1000)) oFS.frames.Add(New Frame("8.jpg",1000)) oFS.frames.Add(New Frame("9.jpg",1000)) oFS.frames.Add(New Frame("10.jpg",1000)) oFS.frames.Add(New Frame("11.jpg",1000)) oFS.frames.Add(New Frame("12.jpg",1000)) oFS.frames.Add(New Frame("13.jpg",1000)) oFS.frames.Add(New Frame("14.jpg",1000)) oFS.frames.Add(New Frame("15.jpg",1000)) oFS.frames.Add(New Frame("16.jpg",1000)) oFS.frameEnd = oFS.frames.Length-1 oFS.Position = New Vec2f( 200,100 ) ' ==========================================   End Method OnRender( canvas:Canvas ) Override App.RequestRender() OnUpdate() canvas.TextureFilteringEnabled=False canvas.DrawText( "FPS="+App.FPS,Width/2,0,.5,0 ) For Local oFS:FrameSet = Eachin frameSets oFS.Draw(canvas) Next End Method OnUpdate() dt.UpdateDelta() For Local oFS:FrameSet = Eachin frameSets oFS.UpdateFrameTimer() If oFS.move2left oFS.Position.x-=1*dt.delta If oFS.Position.x <= 50 oFS.move2left = False oFS.move2right = True End Elseif oFS.move2right oFS.Position.x+=1*dt.delta If oFS.Position.x >= 450 oFS.move2left = True oFS.move2right = False End End Next End End       Class FrameSet Field frames:Stack<Frame> = New Stack<Frame>() Field currFrameKey:Int = 0 Field timer:Int Field frameEnd:Int Field Position:=New Vec2f Field move2left:Bool ' debug Field move2right:Bool ' debug Method New() End Method CurrentFrame:Frame() Return frames.Get(currFrameKey) End Method UpdateFrameTimer:Void() ' If frame_total > 1 If dt.lastticks > timer + frames.Get(currFrameKey).duration currFrameKey+=1 If currFrameKey > frameEnd currFrameKey = 0 End timer = Millisecs() End ' End End Method Draw:Void(canvas:Canvas) canvas.DrawImage(CurrentFrame().img,Position.X,Position.Y) End End Class   Class Frame Field duration:Int Field name:String Field img:Image Method New (_name:String,_duration:Int) name= _name duration = _duration img=Image.Load( "asset::"+_name) img.Handle=New Vec2f( .5,.5 ) End End Class     Function Main() New AppInstance New MyWindow() App.Run() End

[ArjailerParticipant]

As far as I know:

[fact 1] Yes
[fact 2] Yes
[fact 3] Yes
[fact 4] Yes- with a clarification – App.RequestRender() seems to be telling the app to call OnRender() for the next frame (so it’s too late to stop the current frame as it’s already underway, but you could avoid calling it for subsequent frames if you wanted – e.g. if the window had lost focus). So as long as you call App.RequestRender() somewhere in the OnRender() method you’re good – I don’t think the order matters.

Also, I confirmed the SwapInterval behaviour last night with an old 19″ 75hz monitor I have at home – just using SwapInterval = 1 and not setting an explicit resolution it’s updating 75 times a second as I suspected.

[Author]

Posts