Changeset 451 for GraphicTest/UDrawMethod.pas

Timestamp:

Nov 23, 2012, 2:09:49 PM (12 years ago)

Author:

chronos

Message:

• Modified: Real FPS is now measured as cumulative.

File:

• GraphicTest/UDrawMethod.pas (modified) (2 diffs)

GraphicTest/UDrawMethod.pas

@@ -30 +30 @@
     FrameCounter: Integer;
     FrameCounterStart: TDateTime;
+    FrameCounterStop: TDateTime;
     function GetFPS: Real;
     property FPS: Real read FFPS write FFPS;
@@ -180 +181 @@
 
 function TDrawMethod.GetFPS: Real;
-begin
-  Result := FrameCounter / ((NowPrecise - FrameCounterStart) / OneSecond);
-  FrameCounter := 0;
-  FrameCounterStart := NowPrecise;
+var
+  StopTime: TDateTime;
+begin
+  if FrameCounterStop <> 0 then StopTime := FrameCounterStop
+    else StopTime := NowPrecise;
+  if FrameCounter > 0 then begin
+    Result := FrameCounter / ((StopTime - FrameCounterStart) / OneSecond);
+    //FrameCounter := 0;
+    //FrameCounterStart := NowPrecise;
+  end else Result := FFPS;
 end;