gpl header added and property svn:header set to "HeadURL Id"

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1403 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 309 insertions, 284 deletions

diff --git a/src/menu/UMenuEqualizer.pas b/src/menu/UMenuEqualizer.pas
index 8cff606d..438c1c03 100644
--- a/src/menu/UMenuEqualizer.pas
+++ b/src/menu/UMenuEqualizer.pas
@@ -1,285 +1,310 @@
-unit UMenuEqualizer;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE Delphi}

-{$ENDIF}

-

-{$I switches.inc}

-

-uses UMusic, UThemes;

-

-type

-  //----------------

-  //Tms_Equalizer

-  //Class displaying an equalizer (Songscreen)

-  //----------------

-  Tms_Equalizer = class(TObject)

-    private

-      FFTData: TFFTData; // moved here to avoid stack overflows

-      BandData: array of Byte;

-      RefreshTime: Cardinal;

-

-      Source: IAudioPlayback;

-

-      Procedure Analyse;

-    public

-      X: Integer;

-      Y: Integer;

-      Z: Real;

-

-      W: Integer;

-      H: Integer;

-      Space: Integer;

-

-      Visible: Boolean;

-      Alpha: real;

-      Color: TRGB;

-

-      Direction: Boolean;

-

-      BandLength: Integer;

-

-      Reflection:           boolean;

-      Reflectionspacing:    Real;

-

-

-      constructor Create(Source: IAudioPlayback; mySkin: TThemeEqualizer);

-

-      procedure Draw;

-

-      Procedure SetBands(Value: Byte);

-      Function  GetBands: Byte;

-      Property  Bands: Byte read GetBands write SetBands;

-      procedure SetSource(newSource: IAudioPlayback);

-  end;

-

-implementation

-uses math, SDL, gl, glext;

-

-

-constructor Tms_Equalizer.Create(Source: IAudioPlayback; mySkin: TThemeEqualizer);

-var I: Integer;

-begin

-  If (Source <> nil) then

-  begin

-    X         := mySkin.X;

-    Y         := mySkin.Y;

-    W         := mySkin.W;

-    H         := mySkin.H;

-    Z         := mySkin.Z;

-

-    Space     := mySkin.Space;

-

-    Visible   := mySkin.Visible;

-    Alpha     := mySkin.Alpha;

-    Color.R   := mySkin.ColR;

-    Color.G   := mySkin.ColG;

-    Color.B   := mySkin.ColB;

-

-    Direction := mySkin.Direction;

-    Bands     := mySkin.Bands;

-    BandLength    := mySkin.Length;

-

-    Reflection := mySkin.Reflection;

-    Reflectionspacing := mySkin.Reflectionspacing;

-

-    Self.Source := Source;

-

-

-    //Check if Visible

-    If (Bands  <= 0)  OR

-       (BandLength <= 0)  OR

-       (W      <= 0)  OR

-       (H      <= 0)  OR

-       (Alpha  <= 0)  then

-      Visible := False;

-

-    //ClearArray

-    For I := low(BandData) to high(BandData) do

-      BandData[I] := 3;

-  end

-  else

-    Visible := False;

-end;

-

-//--------

-// evaluate FFT-Data

-//--------

-Procedure Tms_Equalizer.Analyse;

-  var

-    I: Integer;

-    ChansPerBand: byte; // channels per band

-    MaxChannel: Integer;

-    Pos: Real;

-    CurBand: Integer;

-begin

-  Source.GetFFTData(FFTData);

-

-  Pos := 0;

-  // use only the first approx. 92 of 256 FFT-channels (approx. up to 8kHz

-  ChansPerBand := ceil(92 / Bands); // How much channels are used for one Band

-  MaxChannel := ChansPerBand * Bands - 1;

-

-  // Change Lengths

-  for i := 0 to MaxChannel do

-  begin

-    // Gain higher freq. data so that the bars are visible

-    if i > 35 then

-      FFTData[i] := FFTData[i] * 8

-    else if i > 11 then

-      FFTData[i] := FFTData[i] * 4.5

-    else

-      FFTData[i] := FFTData[i] * 1.1;

-

-    // clamp data

-    if (FFTData[i] > 1) then

-      FFTData[i] := 1;

-

-    // Get max. pos

-    if (FFTData[i] * BandLength > Pos) then

-      Pos := FFTData[i] * BandLength;

-

-    // Check if this is the last channel in the band

-    if ((i+1) mod ChansPerBand = 0) then

-    begin

-      CurBand := i div ChansPerBand;

-

-      // Smooth delay if new equalizer is lower than the old one

-      if ((BandData[CurBand] > Pos) and (BandData[CurBand] > 1)) then

-        BandData[CurBand] := BandData[CurBand] - 1

-      else

-        BandData[CurBand] := Round(Pos);

-

-      Pos := 0;

-    end;

-  end;

-end;

-

-//--------

-// Draw SpectrumAnalyser, Call Analyse

-//--------

-procedure Tms_Equalizer.Draw;

-  var

-    CurTime: Cardinal;

-    PosX, PosY: Real;

-    I, J: Integer;

-    Diff: Real;

-

-  Function GetAlpha(H: Single): Single;

-  begin

-    Result := (Alpha * 0.3) *(1 - H/(Bands * (W + Space)));

-  end;

-begin

-  If (Visible) AND not (AudioPlayback.Finished) then

-  begin

-    //Call Analyse if necessary

-    CurTime := SDL_GetTicks();

-    If (CurTime > RefreshTime) then

-    begin

-      Analyse;

-

-      RefreshTime := CurTime + 44;

-    end;

-

-    //Draw Equalizer Bands

-    // Setup OpenGL

-    glColorRGB(Color, Alpha);

-    glDisable(GL_TEXTURE_2D);

-    glEnable(GL_BLEND);

-

-    // Set position of the first equalizer bar

-    PosY := Y;

-    PosX := X;

-

-    // Draw bars for each band

-    for I := 0 to High(BandData) do

-    begin

-      // Reset to lower or left position depending on the drawing-direction

-      if Direction then // Vertical bars

-        // FIXME: Is Y the upper or lower coordinate?

-        PosY := Y //+ (H + Space) * BandLength

-      else                                   // Horizontal bars

-        PosX := X;

-

-      // Draw the bar as a stack of blocks

-      for J := 1 to BandData[I] do

-      begin

-        // Draw block

-        glBegin(GL_QUADS);

-          glVertex3f(PosX, PosY, Z);

-          glVertex3f(PosX, PosY+H, Z);

-          glVertex3f(PosX+W, PosY+H, Z);

-          glVertex3f(PosX+W, PosY, Z);

-        glEnd;

-

-        If (Reflection) AND (J < BandLength div 2) then

-        begin

-          Diff := (Y-PosY) + H;

-

-          //Draw Reflection

-          If Direction then

-          begin

-            glBegin(GL_QUADS);

-              glColorRGB(Color, GetAlpha(Diff));

-              glVertex3f(PosX, Diff + Y + ReflectionSpacing, Z);

-              glVertex3f(PosX, Diff + Y+H + ReflectionSpacing, Z);

-              glVertex3f(PosX+W, Diff + Y+H + ReflectionSpacing, Z);

-              glVertex3f(PosX+W, Diff + Y + ReflectionSpacing, Z);

-              glColorRGB(Color, GetAlpha(Diff + H));

-            glEnd;

-          end

-          else

-          begin

-            glBegin(GL_QUADS);

-              glColorRGB(Color, GetAlpha(Diff));

-              glVertex3f(PosX, Diff + Y + (H + Space)*Bands + ReflectionSpacing, Z);

-              glVertex3f(PosX, Diff + Y+H  + (H + Space)*Bands + ReflectionSpacing, Z);

-              glVertex3f(PosX+W, Diff + Y+H  + (H + Space)*Bands + ReflectionSpacing, Z);

-              glVertex3f(PosX+W, Diff + Y + (H + Space)*Bands + ReflectionSpacing, Z);

-              glColorRGB(Color, GetAlpha(Diff + H));

-            glEnd;

-          end;

-

-          glColorRGB(Color, Alpha);

-        end;

-

-

-        // Calc position of the bar's next block

-        if Direction then // Vertical bars

-          PosY := PosY - H - Space

-        else                                   // Horizontal bars

-          PosX := PosX + W + Space;

-      end;

-

-      // Calc position of the next bar

-      if Direction then // Vertical bars

-        PosX := PosX + W + Space

-      else                                   // Horizontal bars

-        PosY := PosY + H + Space;

-    end;

-

-

-  end;

-end;

-

-Procedure Tms_Equalizer.SetBands(Value: Byte);

-begin

-  SetLength(BandData, Value);

-end;

-

-Function  Tms_Equalizer.GetBands: Byte;

-begin

-  Result := Length(BandData);

-end;

-

-Procedure Tms_Equalizer.SetSource(newSource: IAudioPlayback);

-begin

-  If (newSource <> nil) then

-    Source := newSource;

-end;

-

-

-

+{* UltraStar Deluxe - Karaoke Game
+ *
+ * UltraStar Deluxe is the legal property of its developers, whose names
+ * are too numerous to list here. Please refer to the COPYRIGHT
+ * file distributed with this source distribution.
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License
+ * as published by the Free Software Foundation; either version 2
+ * of the License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; see the file COPYING. If not, write to
+ * the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ * Boston, MA 02110-1301, USA.
+ *
+ * $URL$
+ * $Id$
+ *}
+
+unit UMenuEqualizer;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+{$I switches.inc}
+
+uses UMusic, UThemes;
+
+type
+  //----------------
+  //Tms_Equalizer
+  //Class displaying an equalizer (Songscreen)
+  //----------------
+  Tms_Equalizer = class(TObject)
+    private
+      FFTData: TFFTData; // moved here to avoid stack overflows
+      BandData: array of Byte;
+      RefreshTime: Cardinal;
+
+      Source: IAudioPlayback;
+
+      Procedure Analyse;
+    public
+      X: Integer;
+      Y: Integer;
+      Z: Real;
+
+      W: Integer;
+      H: Integer;
+      Space: Integer;
+
+      Visible: Boolean;
+      Alpha: real;
+      Color: TRGB;
+
+      Direction: Boolean;
+
+      BandLength: Integer;
+
+      Reflection:           boolean;
+      Reflectionspacing:    Real;
+
+
+      constructor Create(Source: IAudioPlayback; mySkin: TThemeEqualizer);
+
+      procedure Draw;
+
+      Procedure SetBands(Value: Byte);
+      Function  GetBands: Byte;
+      Property  Bands: Byte read GetBands write SetBands;
+      procedure SetSource(newSource: IAudioPlayback);
+  end;
+
+implementation
+uses math, SDL, gl, glext;
+
+
+constructor Tms_Equalizer.Create(Source: IAudioPlayback; mySkin: TThemeEqualizer);
+var I: Integer;
+begin
+  If (Source <> nil) then
+  begin
+    X         := mySkin.X;
+    Y         := mySkin.Y;
+    W         := mySkin.W;
+    H         := mySkin.H;
+    Z         := mySkin.Z;
+
+    Space     := mySkin.Space;
+
+    Visible   := mySkin.Visible;
+    Alpha     := mySkin.Alpha;
+    Color.R   := mySkin.ColR;
+    Color.G   := mySkin.ColG;
+    Color.B   := mySkin.ColB;
+
+    Direction := mySkin.Direction;
+    Bands     := mySkin.Bands;
+    BandLength    := mySkin.Length;
+
+    Reflection := mySkin.Reflection;
+    Reflectionspacing := mySkin.Reflectionspacing;
+
+    Self.Source := Source;
+
+
+    //Check if Visible
+    If (Bands  <= 0)  OR
+       (BandLength <= 0)  OR
+       (W      <= 0)  OR
+       (H      <= 0)  OR
+       (Alpha  <= 0)  then
+      Visible := False;
+
+    //ClearArray
+    For I := low(BandData) to high(BandData) do
+      BandData[I] := 3;
+  end
+  else
+    Visible := False;
+end;
+
+//--------
+// evaluate FFT-Data
+//--------
+Procedure Tms_Equalizer.Analyse;
+  var
+    I: Integer;
+    ChansPerBand: byte; // channels per band
+    MaxChannel: Integer;
+    Pos: Real;
+    CurBand: Integer;
+begin
+  Source.GetFFTData(FFTData);
+
+  Pos := 0;
+  // use only the first approx. 92 of 256 FFT-channels (approx. up to 8kHz
+  ChansPerBand := ceil(92 / Bands); // How much channels are used for one Band
+  MaxChannel := ChansPerBand * Bands - 1;
+
+  // Change Lengths
+  for i := 0 to MaxChannel do
+  begin
+    // Gain higher freq. data so that the bars are visible
+    if i > 35 then
+      FFTData[i] := FFTData[i] * 8
+    else if i > 11 then
+      FFTData[i] := FFTData[i] * 4.5
+    else
+      FFTData[i] := FFTData[i] * 1.1;
+
+    // clamp data
+    if (FFTData[i] > 1) then
+      FFTData[i] := 1;
+
+    // Get max. pos
+    if (FFTData[i] * BandLength > Pos) then
+      Pos := FFTData[i] * BandLength;
+
+    // Check if this is the last channel in the band
+    if ((i+1) mod ChansPerBand = 0) then
+    begin
+      CurBand := i div ChansPerBand;
+
+      // Smooth delay if new equalizer is lower than the old one
+      if ((BandData[CurBand] > Pos) and (BandData[CurBand] > 1)) then
+        BandData[CurBand] := BandData[CurBand] - 1
+      else
+        BandData[CurBand] := Round(Pos);
+
+      Pos := 0;
+    end;
+  end;
+end;
+
+//--------
+// Draw SpectrumAnalyser, Call Analyse
+//--------
+procedure Tms_Equalizer.Draw;
+  var
+    CurTime: Cardinal;
+    PosX, PosY: Real;
+    I, J: Integer;
+    Diff: Real;
+
+  Function GetAlpha(H: Single): Single;
+  begin
+    Result := (Alpha * 0.3) *(1 - H/(Bands * (W + Space)));
+  end;
+begin
+  If (Visible) AND not (AudioPlayback.Finished) then
+  begin
+    //Call Analyse if necessary
+    CurTime := SDL_GetTicks();
+    If (CurTime > RefreshTime) then
+    begin
+      Analyse;
+
+      RefreshTime := CurTime + 44;
+    end;
+
+    //Draw Equalizer Bands
+    // Setup OpenGL
+    glColorRGB(Color, Alpha);
+    glDisable(GL_TEXTURE_2D);
+    glEnable(GL_BLEND);
+
+    // Set position of the first equalizer bar
+    PosY := Y;
+    PosX := X;
+
+    // Draw bars for each band
+    for I := 0 to High(BandData) do
+    begin
+      // Reset to lower or left position depending on the drawing-direction
+      if Direction then // Vertical bars
+        // FIXME: Is Y the upper or lower coordinate?
+        PosY := Y //+ (H + Space) * BandLength
+      else                                   // Horizontal bars
+        PosX := X;
+
+      // Draw the bar as a stack of blocks
+      for J := 1 to BandData[I] do
+      begin
+        // Draw block
+        glBegin(GL_QUADS);
+          glVertex3f(PosX, PosY, Z);
+          glVertex3f(PosX, PosY+H, Z);
+          glVertex3f(PosX+W, PosY+H, Z);
+          glVertex3f(PosX+W, PosY, Z);
+        glEnd;
+
+        If (Reflection) AND (J < BandLength div 2) then
+        begin
+          Diff := (Y-PosY) + H;
+
+          //Draw Reflection
+          If Direction then
+          begin
+            glBegin(GL_QUADS);
+              glColorRGB(Color, GetAlpha(Diff));
+              glVertex3f(PosX, Diff + Y + ReflectionSpacing, Z);
+              glVertex3f(PosX, Diff + Y+H + ReflectionSpacing, Z);
+              glVertex3f(PosX+W, Diff + Y+H + ReflectionSpacing, Z);
+              glVertex3f(PosX+W, Diff + Y + ReflectionSpacing, Z);
+              glColorRGB(Color, GetAlpha(Diff + H));
+            glEnd;
+          end
+          else
+          begin
+            glBegin(GL_QUADS);
+              glColorRGB(Color, GetAlpha(Diff));
+              glVertex3f(PosX, Diff + Y + (H + Space)*Bands + ReflectionSpacing, Z);
+              glVertex3f(PosX, Diff + Y+H  + (H + Space)*Bands + ReflectionSpacing, Z);
+              glVertex3f(PosX+W, Diff + Y+H  + (H + Space)*Bands + ReflectionSpacing, Z);
+              glVertex3f(PosX+W, Diff + Y + (H + Space)*Bands + ReflectionSpacing, Z);
+              glColorRGB(Color, GetAlpha(Diff + H));
+            glEnd;
+          end;
+
+          glColorRGB(Color, Alpha);
+        end;
+
+
+        // Calc position of the bar's next block
+        if Direction then // Vertical bars
+          PosY := PosY - H - Space
+        else                                   // Horizontal bars
+          PosX := PosX + W + Space;
+      end;
+
+      // Calc position of the next bar
+      if Direction then // Vertical bars
+        PosX := PosX + W + Space
+      else                                   // Horizontal bars
+        PosY := PosY + H + Space;
+    end;
+
+
+  end;
+end;
+
+Procedure Tms_Equalizer.SetBands(Value: Byte);
+begin
+  SetLength(BandData, Value);
+end;
+
+Function  Tms_Equalizer.GetBands: Byte;
+begin
+  Result := Length(BandData);
+end;
+
+Procedure Tms_Equalizer.SetSource(newSource: IAudioPlayback);
+begin
+  If (newSource <> nil) then
+    Source := newSource;
+end;
+
+
+
 end.
\ No newline at end of file