Changeset 448 for GraphicTest

Timestamp:

Nov 22, 2012, 2:45:14 PM (12 years ago)

Author:

chronos

Message:

• Added: Column which show real FPS calculated using frames counter and elapsed time.

Location:

GraphicTest

Files:

• UDrawMethod.pas (modified) (4 diffs)
• UMainForm.lfm (modified) (1 diff)
• UMainForm.pas (modified) (2 diffs)

GraphicTest/UDrawMethod.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, ExtCtrls, UPlatform, UFastBitmap, Graphics, Controls,
-  LCLType, IntfGraphics, fpImage, GraphType,
+  LCLType, IntfGraphics, fpImage, GraphType, DateUtils,
   LclIntf{$IFDEF opengl}, GL, GLExt, OpenGLContext{$ENDIF};
 
@@ -19 +19 @@
   private
     FControl: TControl;
+    function GetFPS: Real;
   public
     Caption: string;
@@ -27 +28 @@
     PaintObject: TPaintObject;
     TempBitmap: TBitmap;
+    FrameCounter: Integer;
+    FrameCounterStart: TDateTime;
+    property FPS: Real read GetFPS;
     procedure Init(Parent: TWinControl; Size: TPoint); virtual;
     procedure Done; virtual;
@@ -173 +177 @@
 { TDrawMethod }
 
+function TDrawMethod.GetFPS: Real;
+begin
+  Result := FrameCounter / ((NowPrecise - FrameCounterStart) / OneSecond);
+  FrameCounter := 0;
+  FrameCounterStart := NowPrecise;
+end;
+
 procedure TDrawMethod.Init(Parent: TWinControl; Size: TPoint);
 begin

GraphicTest/UMainForm.lfm

@@ -544 +544 @@
         end      
         item
-          Caption = 'Step draw duration [ms]'
+          Caption = 'FPS'
+        end      
+        item
+          Caption = 'Duration custom draw [ms]'
           Width = 80
         end      
         item
-          Caption = 'FPS'
+          Caption = 'Draw FPS'
           Width = 75
         end      
         item
-          Caption = 'Total step duration [ms]'
+          Caption = 'Duration step [ms]'
           Width = 80
         end      

GraphicTest/UMainForm.pas

@@ -130 +130 @@
       StepStartTime := NowPrecise;
       DrawFrameTiming(TFastBitmap(Scenes[SceneIndex]));
-      SceneIndex := (SceneIndex + 1) mod Scenes.Count;
       Application.ProcessMessages;
       StepDuration := NowPrecise - StepStartTime;
+      SceneIndex := (SceneIndex + 1) mod Scenes.Count;
+      Inc(FrameCounter);
     until TestTerminated or
       ((TestTimeout > 0) and ((NowPrecise - StartTime) > OneSecond * TestTimeout));
@@ -221 +222 @@
   with TDrawMethod(DrawMethods[Item.Index]) do begin
     Item.Caption := Caption;
+    Item.SubItems.Add(FloatToStr(RoundTo(FPS, -3)));
     Item.SubItems.Add(FloatToStr(RoundTo(FrameDuration / OneMillisecond, -3)));
     if FrameDuration > 0 then