From 19702a2272a014fe62256b1ddfd8f5068feb35d0 Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 4 Apr 2010 16:52:49 +0000
Subject: performance mode for videos: reducing lines on low fps

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2213 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Menu/UDisplay.pas | 40 +++++++++++++++++++++++-----------------
 1 file changed, 23 insertions(+), 17 deletions(-)

(limited to 'Game/Code/Menu')

diff --git a/Game/Code/Menu/UDisplay.pas b/Game/Code/Menu/UDisplay.pas
index 4612b361..56fa8ce1 100644
--- a/Game/Code/Menu/UDisplay.pas
+++ b/Game/Code/Menu/UDisplay.pas
@@ -32,6 +32,7 @@ type
     //FPS Counter
     FPSCounter: Cardinal;
     LastFPS:    Cardinal;
+    mFPS:       Real;
     NextFPSSwap:Cardinal;
     
     //For Debug OSD
@@ -121,6 +122,7 @@ var
   currentTime: Cardinal;
   glError: glEnum;
   glErrorStr: String;
+  Ticks: Cardinal;
   // end
 begin
   Result := True;
@@ -298,6 +300,19 @@ begin
       end;
     end; // if
 
+    //Calculate FPS
+    Ticks := GetTickCount;
+    if (Ticks >= NextFPSSwap) then
+    begin
+      LastFPS := FPSCounter * 4;
+
+      mFPS := (mFPS+LastFPS)/2;
+
+      FPSCounter := 0;
+      NextFPSSwap := Ticks + 250;
+    end;
+    Inc(FPSCounter);
+
     //Draw OSD only on first Screen if Debug Mode is enabled
     if ((Ini.Debug = 1) OR (Params.Debug)) AND (S=1) then
       DrawDebugInformation;
@@ -408,17 +423,16 @@ end;
 // DrawDebugInformation - Procedure draw FPS and some other Informations on Screen
 //------------
 procedure TDisplay.DrawDebugInformation;
-var Ticks: Cardinal;
 begin
   //Some White Background for information
   glEnable(GL_BLEND);
   glDisable(GL_TEXTURE_2D);
   glColor4f(1, 1, 1, 0.5);
   glBegin(GL_QUADS);
-    glVertex2f(690, 44);
+    glVertex2f(690, 57);
     glVertex2f(690, 0);
     glVertex2f(800, 0);
-    glVertex2f(800, 44);
+    glVertex2f(800, 57);
   glEnd;
   glDisable(GL_BLEND);
 
@@ -428,29 +442,21 @@ begin
   SetFontItalic(False);
   glColor4f(0, 0, 0, 1);
 
-  //Calculate FPS
-  Ticks := GetTickCount;
-  if (Ticks >= NextFPSSwap) then
-  begin
-    LastFPS := FPSCounter * 4;
-    FPSCounter := 0;
-    NextFPSSwap := Ticks + 250;
-  end;
-
-  Inc(FPSCounter);
-
   //Draw Text
 
   //FPS
   SetFontPos(695, 0);
-  glPrint (PChar('FPS: ' + InttoStr(LastFPS)));
+  glPrint (PChar('aFPS: ' + InttoStr(LastFPS)));
 
-  //RSpeed
   SetFontPos(695, 13);
+  glPrint (PChar('mFPS: ' + InttoStr(round(mFPS))));
+
+  //RSpeed
+  SetFontPos(695, 26);
   glPrint (PChar('RSpeed: ' + InttoStr(Round(1000 * TimeMid))));
 
   //LastError
-  SetFontPos(695, 26);
+  SetFontPos(695, 39);
   glColor4f(1, 0, 0, 1);
   glPrint (PChar(OSD_LastError));
 
-- 
cgit v1.2.3