Delphi Cross-Platform Game Loop - Seite 2

Thema durchsuchen

Ansicht

Themen-Optionen

Cross-Platform Game Loop

Ein Thema von milos · begonnen am 31. Jul 2016 · letzter Beitrag vom 1. Aug 2016

Antwort

Seite 2 von 2

Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.143 Beiträge

Delphi 10.3 Rio

#11

AW: Cross-Platform Game Loop

1. Aug 2016, 00:55

Gameloop.... Ganz einfach...

UI Thread...

zusammenfalten · markieren

Delphi-Quellcode:

			TTask.Run(Procedure

begin

  While GameRunning do

    begin

      Starte Stopuhr...

      Warte bis alle Threads ein Frame erzeugt haben

      Stoppe die StopUhr

      SingnaleThreadNextFrame;

      if StopUhr < 16 then

        Sleep(16-Stopuhr)

      Syncronize(DisplayFrame);

    end

end;

Mavarik