From 20d12d5af15bd364cbec888100de6e18bb89561e Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 20 Sep 2008 18:19:37 +0000
Subject: Equalizer class written TRGB methods now in UThemes instead of
 ULyrics equalizer reflection now available Reading from Reflectionsettings
 from theme follows on sunday :P

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1387 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenSong.pas | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'src/screens')

diff --git a/src/screens/UScreenSong.pas b/src/screens/UScreenSong.pas
index be1320f2..1b5e4c41 100644
--- a/src/screens/UScreenSong.pas
+++ b/src/screens/UScreenSong.pas
@@ -24,14 +24,13 @@ uses
   UTexture,
   ULanguage,
   USong,
-  UIni;
+  UIni,
+  UMenuEqualizer;
 
 type
   TScreenSong = class(TMenu)
     private
-      EqualizerData: TFFTData; // moved here to avoid stack overflows
-      EqualizerBands: array of Byte;
-      EqualizerTime: Cardinal;
+      Equalizer: Tms_Equalizer;
 
       procedure StartMusicPreview();
       procedure StopMusicPreview();
@@ -41,7 +40,7 @@ type
       TextNumber:   integer;
 
       //Video Icon Mod
-      VideoIcon:         Cardinal;
+      VideoIcon: Cardinal;
 
       TextCat:   integer;
       StaticCat: integer;
@@ -777,11 +776,13 @@ begin
 
   // Randomize Patch
   Randomize;
-  //Equalizer
+  {//Equalizer
   SetLength(EqualizerBands, Theme.Song.Equalizer.Bands);
   //ClearArray
   For I := low(EqualizerBands) to high(EqualizerBands) do
-    EqualizerBands[I] := 3;
+    EqualizerBands[I] := 3;    }
+
+  Equalizer := Tms_Equalizer.Create(AudioPlayback);
 
   if (Length(CatSongs.Song) > 0) then
     Interaction := 0;
@@ -1496,8 +1497,7 @@ begin
 
 
   //Draw Equalizer
-  if Theme.Song.Equalizer.Visible then
-    DrawEqualizer;
+  Equalizer.Draw;
 
   DrawExtensions;
 
@@ -1657,16 +1657,16 @@ begin
 end;
 
 procedure TScreenSong.DrawEqualizer;
-var
+{var
   I, J: Integer;
   ChansPerBand: byte; // channels per band
   MaxChannel: Integer;
   CurBand: Integer; // current band
   CurTime: Cardinal;
   PosX, PosY: Integer;
-  Pos: Real;
+  Pos: Real;  }
 begin
-  // Nothing to do if no music is played or an equalizer bar consists of no block
+ { // Nothing to do if no music is played or an equalizer bar consists of no block
   if (AudioPlayback.Finished or (Theme.Song.Equalizer.Length <= 0)) then
     Exit;
 
@@ -1763,7 +1763,7 @@ begin
       PosX := PosX + Theme.Song.Equalizer.W + Theme.Song.Equalizer.Space
     else                                   // Horizontal bars
       PosY := PosY + Theme.Song.Equalizer.H + Theme.Song.Equalizer.Space;
-  end;
+  end;  }
 end;
 
 procedure TScreenSong.SelectRandomSong;
-- 
cgit v1.2.3