Framecounter
Inhaltsverzeichnis
Problemstellung
Die Bildwiederholrate in Frames per Seconds ist ein in Computerspielen oftmals verwendeter Wert, der eine Aussage über die Leistungsfähigkeit des Computersystems geben kann.
Wenn man in seinem Programm die Frame pro Sekunde (FPS) anzeigen lassen möchte, so gibt es verschiedene Lösungswege.
Ansätze
Methode 1
Am Anfang der Renderschleife "misst" man die Zeit und speichert sie in einer Variable. Dafür kann man die von Windows bereitgestellten Methoden "Gettickcount" (gibt in Millisekunden an, wie lange Windows läuft) oder "QueryPerformanceCounter" verwenden. Für unsere Zwecke reichen diese beiden Funktionen vollkommen aus.
Als zweiten Schritt rendert man seine Szene, verarbeitet Tastatureingaben usw. Also alles, was in der Renderschleife passiert.
Am Ende der Renderschleife stoppt man dann ein zweites Mal die Zeit und erhält nun eine Zeitdifferenz.
Die FPS erhält man nun durch folgende Berechnung:
FPS = 1000 / Zeitdifferenz;
Wobei Zeitdifferenz bei dieser Formel auch in Millisekunden angegeben sein muss.
Methode 2
Diese Methode unterscheidet sich kaum von Methode 1. Wieder wird:
- Startzeit bestimmt
- gerendert
- Endzeit bestimmt
- Zeitdifferenz berechnet
Anschließend wird die Zeitdifferenz auf eine Variable TimeCount addiert. Außerdem wird eine Zählvariable für die Frames erhöht.
Wenn die Variable Timecount größer-gleich 1000 wird (es ist mindestens 1 sec vergangen) wird die Frameanzahl berechnet und ausgegeben.
Die Methode 2 hat gegenüber Methode 1 den Vorteil, dass die Frameanzahl nicht nach jedem Frame sondern maximal nur einmal pro Sekunde berechnet wird.
Implementierung
Der folgende Code (passend zu Methode 2) wird im OnIdle-Event des OpenGL Formulars ausgeführt. Die Anzahl der Frames wird in der Beschriftung (Caption) des Fensters ausgegeben.
procedure TForm1.IdleHandler(Sender: TObject; var Done: Boolean);
begin
//
StartTime:= GetTickCount;
Render;
DrawTime:= GetTickCount - StartTime;
inc(TimeCount, DrawTime);
inc(FrameCount);
if TimeCount >= 1000 then begin
Frames:= FrameCount;
Dec(TimeCount, 1000);
FrameCount:= 0;
Caption:= InttoStr(Frames) + 'FPS';
end;
Done:= false;
end;
