renderloop


procedure TEVApplication.MainLoop;
var
  st: Single; //sleep time
  t: NativeUInt; //rendertime
begin
  fRunning := true;
  st := 0;
  repeat
    t := SDL_GetTicks;
    HandleEvents;
    //of course only if there's a fps-limit
    if fMaxFPS > 0 then
    begin
      //calculate sleeptime
      st := (1000 / fMaxFPS - (SDL_GetTicks - t)) + st;
      if st > 0 then
      begin
        SDL_Delay(Trunc(st));
        //added correction
        //minimizes rounding-faults
        st := st - Trunc(st);
      end;
    end;
    //calculate fps
    t := SDL_GetTicks - t;
    if t > 0 then
      fFPS := Round(1000 / t);
  until not fRunning;
end;