Cross-Platform Game Loop

[Mavarik]

Gameloop.... Ganz einfach...

UI Thread...

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