I have no clue how, as the technique I use gives me 31.2 FPS... Any help appreciated.
MadJack?
:D
MadJack?
:D
Global timer = CreateTimer(30) While user_input <> CTRL_W ticks = WaitTimer(timer) ... UpdateScene() UpdateWorld ... Wend
Global sys_timer% = MilliSecs() Dim framePeriod%(3) Global framePeriod_id% = 1 framePeriod(1) = 34 framePeriod(2) = 33 framePeriod(3) = 33 Global frameElapsed% = 0 Global frameTime% = 0 Global framecounter% = 0 While user_input <> CTRL_W frameTime = sys_timer + framePeriod(framePeriod_id) Repeat sys_timer = MilliSecs() frameElapsed = sys_timer - frameTime Until frameElapsed >= 0 framePeriod_id = (framePeriod_id Mod 3) + 1 UpdateScene() UpdateWorld ... framecounter = framecounter + 1 Wend