- //Zeitmessung starten für Bewegungsfaktor
- QueryPerformanceCounter(QPCStart);
- //FPS Berechnen
- StartTime := GetTickCount;
- //Rendern
- inc(gvIntFPSCount);
- if Assigned(AOnRender) then
- AOnRender;
- //Ausgabe
- glBaseSwapBuffers;
- // Zeitmessung beenden
- QueryPerformanceCounter(QPCEnd);
- glBaseTimeFactor := (QPCEnd-QPCStart) / gvIntQPCFreq * 1000;
- //FPS berechnen
- DrawTime := GetTickCount - StartTime;
- Inc(gvIntTimeCount, DrawTime);
- Inc(gvIntFrameCount);
- if gvIntTimeCount >= 1000 then begin
- glBaseFPS := gvIntFrameCount;
- gvIntTimeCount := gvIntTimeCount - 1000;
- gvIntFrameCount := 0;
- end;