From 5d167eca50e5d63b88c21f09651b17088841095a Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 5 Mar 2008 11:08:35 +0000
Subject: Equalizer (Analyser) is displayed again with BASS

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@907 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenSong.pas | 21 ++-------------------
 1 file changed, 2 insertions(+), 19 deletions(-)

diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index fbfeeb65..a1dc0680 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -1861,25 +1861,8 @@ begin
       if (EqualizerData[i] >= 1) then
         EqualizerData[i] := 0.9999999999999;
 
-      try
-        if ( assigned( Theme )      ) AND
-           ( assigned( Theme.Song ) ) AND
-           ( i < length( EqualizerData ) ) THEN
-        begin
-          if single( EqualizerData[i] ) > 1  then
-          begin
-            lTmp := Single(EqualizerData[i]) * Theme.Song.Equalizer.Length;
-            if lTmp > Pos then
-              Pos := lTmp;
-          end;
-        end;
-      except
-        {$IFDEF FPC}
-        on E:EInvalidOp do
-          writeln( 'UScreenSong - DOH !!!! ('+inttostr(i)+' '+ inttostr( integer( EqualizerData[i] ) )+' * '+ ')' );
-        {$ENDIF}
-      end
-      
+      if (EqualizerData[i] * Theme.Song.Equalizer.Length > Pos) then
+        Pos := EqualizerData[i] * Theme.Song.Equalizer.Length;
     end;
     
     //Change Last Band
-- 
cgit v1.2.3