2D Framework with FPS lock

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|689\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Showcase Home -> Graphic Demos

Eikon	Created : 08 December 2022 Edited : 09 December 2022 2D Framework with FPS lock A good starting point for any 2D game with a text scroller and particle effects. Define your target FPS so your game runs the same speed on all systems. Also features space bar to pause rendering and long system uptime MilliSecs() rollover fix
Screenshots
; // 2D Framework by Eikon ; // www.Eiksoft.com ; // 12/08/22 ; // In eternal, loving remembrance of Celeste AppTitle "B2D Scroller" Const FULL_SCREEN = 0 If FULL_SCREEN = 0 Then Graphics 640, 480, 32, 2 Graphics 640, 480, 32, 3 Else Graphics 640, 480, 32, 1 EndIf SetBuffer BackBuffer() SeedRnd MilliSecs() ; // Fonts Font = LoadFont("Blitz", 48, True, False, False) Font2 = LoadFont("Blitz", 12, False, False, False) ; // Publics Global MyMilliSecs, LastMilliSecs = MilliSecs() ; // MilliSecs FIX Global objC = 0 Global bPause = False ; // Locals Local txtScroll$ = "BLITZ BASIC 2D" Local scrollX# = -StringWidth(tmpScroll$) Local FPS, curFrames, frameTimer, fpsTimer = GetMilliSecs() ; // FPS Counter ; // Types Type Obj Field X#, Y#, I#, A, R#, C[2], D#, ID End Type ; // Constants Const VSYNC = 60 ; // Target frame rate ; // Main While Not KeyDown(1) frameTimer = GetMilliSecs() RenderObj() SetFont Font Color 255, 175, 179 Text Int(scrollX) - 2, 240 - 26, txtScroll$ Color 254, 239, 164 Text Int(scrollX), 240 - 24, txtScroll$ If scrollX < 640 Then scrollX = scrollX + 2 Else scrollX = -StringWidth(txtScroll$) Color 255, 255, 255: SetFont Font2 Text 1, 1, "FPS: " + FPS Text 1, 16, "Frame Time: " + (GetMilliSecs() - frameTimer) + " / " + Int(1000 / VSYNC) + "ms" Text 1, 32, "Particles: " + objC If Rand(1, 20) = 10 Then tmpX = Rand(20, 620): tmpY = Rand(10, 470) tmpC = Rand(0, 7) tmpDual = Rand(0, 5) If tmpDual = 3 Then tmpC2 = Rand(0, 7) tmpN = Rand(50, 150) For i = 1 To tmpN o.Obj = New Obj o\X = tmpX: o\Y = tmpY: o\ID = 1 If tmpDual = 3 Then If Rand(0, 1) = 1 Then tmpCol = tmpC2 Else tmpCol = tmpC Else tmpCol = tmpC EndIf Select tmpCol Case 0: o\C[0] = 133: o\C[1] = 152: o\C[2] = 196 ; // Gray Case 1: o\C[0] = 255: o\C[1] = 175: o\C[2] = 179 ; // Red Case 2: o\C[0] = 255: o\C[1] = 207: o\C[2] = 160 ; // Orange Case 3: o\C[0] = 255: o\C[1] = 240: o\C[2] = 187 ; // Yellow Case 4: o\C[0] = 217: o\C[1] = 242: o\C[2] = 183 ; // Green Case 5: o\C[0] = 166: o\C[1] = 254: o\C[2] = 255 ; // Cyan Case 6: o\C[0] = 198: o\C[1] = 226: o\C[2] = 255 ; // Blue Case 7: o\C[0] = 240: o\C[1] = 202: o\C[2] = 255 ; // Purple End Select o\A = Rand(0, 359): o\R = 0 o\I = Rnd(.5, 10): o\D = Rnd(.1, .4) objC = objC + 1 Next EndIf If GetMilliSecs() >= fpsTimer + 1000 Then FPS = curFrames: curFrames = 0: fpsTimer = GetMilliSecs() curFrames = curFrames + 1 Flip 0: Cls WaitVSYNC(frameTimer) Wend: End ; // Render objects Function RenderObj() Local del, tmpS For o.Obj = Each Obj del = False If o\ID = 1 Then ; // Fireworks If Rand(1, 5) = 3 Then ; // Sparkle Color 255, 255, 255 Else Color o\C[0], o\C[1], o\C[2] EndIf If o\I >= 7 Then ; // Sizing tmpS = 8 ElseIf o\I >= 4 Then tmpS = 6 ElseIf o\I >= 1 Then tmpS = 4 Else tmpS = 2 EndIf Rect (o\R * Cos(o\A) + o\X) - (tmpS / 2), (o\R * Sin(o\A) + o\Y) - (tmpS / 2), tmpS, tmpS o\R = o\R + o\I If o\I > 0 Then o\I = o\I - o\D Else del = True EndIf If del = True Then Delete o: objC = objC - 1 Next End Function ; // VSYNC with PAUSE ability Function WaitVSYNC(fTime) .Again If KeyHit(57) = True Then If bPause = False Then bPause = True Else bPause = False FlushKeys() EndIf Local delayTime = Int(1000 / VSYNC) - (GetMilliSecs() - fTime) If delayTime > 0 Then Delay delayTime If bPause = True Then Goto Again End Function ; // MilliSecs rollover fix Function GetMilliSecs() If LastMilliSecs = 0 Then LastMilliSecs = MilliSecs() If MilliSecs() > LastMilliSecs Then MyMilliSecs = MyMilliSecs + (MilliSecs() - LastMilliSecs) If MilliSecs() < LastMilliSecs Then MyMilliSecs = MyMilliSecs + (LastMilliSecs - MilliSecs()) LastMilliSecs = MilliSecs() Return MyMilliSecs End Function --v
Latest Update * 12/09/22 Made VSYNC/frame counter more accurate

Comments
Friday, 09 December 2022, 03:01
Jayenkai	Yep, runs at a steady 59fps on Win11Arm on a MacBook! That's good enough for me (That last 1/60th.. Always that last 1/60th!!)
Friday, 09 December 2022, 08:04
Eikon	Thanks for testing, Jay! It starts to get a little out of whack as you go higher than 60 but I wouldn't be running faster than that anyway. Also thanks to SoCoder for finally getting me to enable SSL on my domain, lol

2D Framework with FPS lock

Latest Update

Comments