Fixed some range-check errors. Explicitly disable range-checks {$R-} should not be necessary for the MacOSX build anymore.

Note: Texture-numbers (e.g. texnum) are unsigned (GLuint) so do not init them to -1. Use 0 instead.


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

6 files changed, 3101 insertions, 3109 deletions

diff --git a/Game/Code/Classes/UCommon.pas b/Game/Code/Classes/UCommon.pas
index 1872b789..f37322f4 100644
--- a/Game/Code/Classes/UCommon.pas
+++ b/Game/Code/Classes/UCommon.pas
@@ -387,7 +387,7 @@ begin
   end;

   // create window

   Result := CreateWindowEx(WS_EX_TOOLWINDOW, WndClass.lpszClassName, '',

-    WS_POPUP, 0, 0, 0, 0, 0, 0, HInstance, nil);

+    DWORD(WS_POPUP), 0, 0, 0, 0, 0, 0, HInstance, nil);

   if (Result = 0) then

     Exit;

   // assign individual callback procedure to the window

diff --git a/Game/Code/Classes/UDraw.pas b/Game/Code/Classes/UDraw.pas
index d77a06a3..679c6df1 100644
--- a/Game/Code/Classes/UDraw.pas
+++ b/Game/Code/Classes/UDraw.pas
@@ -1,1345 +1,1345 @@
-unit UDraw;
-
-interface
-
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
-
-{$I switches.inc}
-
-uses UThemes,
-     ModiSDK,
-     UGraphicClasses;
-
-procedure SingDraw;
-procedure SingModiDraw (PlayerInfo: TPlayerInfo);
-procedure SingDrawBackground;
-procedure SingDrawOscilloscope(X, Y, W, H: real; NrSound: integer);
-procedure SingDrawNoteLines(Left, Top, Right: real; Space: integer);
-procedure SingDrawBeatDelimeters(Left, Top, Right: real; NrLines: integer);
-procedure SingDrawLine(Left, Top, Right: real; NrLines: integer; Space: integer);
-procedure SingDrawPlayerLine(X, Y, W: real; NrGracza: integer; Space: integer);
-procedure SingDrawPlayerBGLine(Left, Top, Right: real; NrLines, NrGracza: integer; Space: integer);
-
-// TimeBar 
-procedure SingDrawTimeBar();
-
-//Draw Editor NoteLines
-procedure EditDrawLine(Left, Top, Right: real; NrLines: integer; Space: integer);
-
-
-type
-  TRecR = record
-    Top:    real;
-    Left:   real;
-    Right:  real;
-    Bottom: real;
-
-    Width:  real;
-    WMid:   real;
-    Height: real;
-    HMid:   real;
-
-    Mid:    real;
-  end;
-
-var
-  NotesW:   real;
-  NotesH:   real;
-  Starfr:   integer;
-  StarfrG:   integer;
-
-  //SingBar
-  TickOld: cardinal;
-  TickOld2:cardinal;
-
-const
-  Przedz = 32;
-
-implementation
-
-uses
-  OpenGL12,
-  UGraphic,
-  SysUtils,
-  UMusic,
-  URecord,
-  ULog,
-  UScreenSing,
-  UScreenSingModi,
-  ULyrics,
-  UMain,
-  TextGL,
-  UTexture,
-  UDrawTexture,
-  UIni,
-  Math,
-  UDLLManager;
-
-procedure SingDrawBackground;
-var
-  Rec:      TRecR;
-  TexRec:   TRecR;
-begin
-  if ScreenSing.Tex_Background.TexNum >= 1 then begin
-
-  glClearColor (1, 1, 1, 1);
-  glColor4f (1, 1, 1, 1);
-
-    if (Ini.MovieSize <= 1) then  //HalfSize BG
-    begin
-      (* half screen + gradient *)
-      Rec.Top := 110; // 80
-      Rec.Bottom := Rec.Top + 20;
-      Rec.Left := 0;
-      Rec.Right := 800;
-
-      TexRec.Top := (Rec.Top / 600) * ScreenSing.Tex_Background.TexH;
-      TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;
-      TexRec.Left := 0;
-      TexRec.Right := ScreenSing.Tex_Background.TexW;
-
-      glEnable(GL_TEXTURE_2D);
-      glBindTexture(GL_TEXTURE_2D, ScreenSing.Tex_Background.TexNum);
-      glEnable(GL_BLEND);
-      glBegin(GL_QUADS);
-        (* gradient draw *)
-        (* top *)
-        glColor4f(1, 1, 1, 0);
-        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);
-        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);
-        glColor4f(1, 1, 1, 1);
-        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);
-        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);
-        (* mid *)
-        Rec.Top := Rec.Bottom;
-        Rec.Bottom := 490 - 20; // 490 - 20
-        TexRec.Top := TexRec.Bottom;
-        TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;
-        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);
-        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);
-        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);
-        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);
-        (* bottom *)
-        Rec.Top := Rec.Bottom;
-        Rec.Bottom := 490; // 490
-        TexRec.Top := TexRec.Bottom;
-        TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;
-        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);
-        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);
-        glColor4f(1, 1, 1, 0);
-        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);
-        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);
-
-      glEnd;
-      glDisable(GL_TEXTURE_2D);
-      glDisable(GL_BLEND);
-    end
-    else //Full Size BG
-    begin
-      glEnable(GL_TEXTURE_2D);
-      glBindTexture(GL_TEXTURE_2D, ScreenSing.Tex_Background.TexNum);
-      //glEnable(GL_BLEND);
-      glBegin(GL_QUADS);
-
-        glTexCoord2f(0, 0);   glVertex2f(0,  0);
-        glTexCoord2f(0,  ScreenSing.Tex_Background.TexH);   glVertex2f(0,  600);
-        glTexCoord2f( ScreenSing.Tex_Background.TexW,  ScreenSing.Tex_Background.TexH);   glVertex2f(800, 600);
-        glTexCoord2f( ScreenSing.Tex_Background.TexW, 0);   glVertex2f(800, 0);
-
-      glEnd;
-      glDisable(GL_TEXTURE_2D);
-      //glDisable(GL_BLEND);
-    end;
-  end;
-end;
-
-procedure SingDrawOscilloscope(X, Y, W, H: real; NrSound: integer);
-var
-  SampleIndex: integer;
-  Sound: TCaptureBuffer;
-  MaxX, MaxY: real;
-begin;
-  Sound := AudioInputProcessor.Sound[NrSound];
-
-  //  Log.LogStatus('Oscilloscope', 'SingDraw');
-  glColor3f(Skin_OscR, Skin_OscG, Skin_OscB);
-  {if (ParamStr(1) = '-black') or (ParamStr(1) = '-fsblack') then
-    glColor3f(1, 1, 1);  }
-
-  MaxX := W-1;
-  MaxY := (H-1) / 2;
-
-  glBegin(GL_LINE_STRIP);
-    for SampleIndex := 0 to High(Sound.BufferArray) do
-    begin
-      glVertex2f(X + MaxX * SampleIndex/High(Sound.BufferArray),
-                 Y + MaxY * (1 - Sound.BufferArray[SampleIndex]/-Low(Smallint)));
-    end;
-  glEnd;
-end;
-
-
-
-procedure SingDrawNoteLines(Left, Top, Right: real; Space: integer);
-var
-  Count:    integer;
-begin
-  glEnable(GL_BLEND);
-  glColor4f(Skin_P1_LinesR, Skin_P1_LinesG, Skin_P1_LinesB, 0.4);
-  glBegin(GL_LINES);
-  for Count := 0 to 9 do begin
-    glVertex2f(Left,  Top + Count * Space);
-    glVertex2f(Right, Top + Count * Space);
-  end;
-  glEnd;
-  glDisable(GL_BLEND);
-end;
-
-procedure SingDrawBeatDelimeters(Left, Top, Right: real; NrLines: integer);
-var
-  Count:    integer;
-  TempR:  real;
-begin
-  TempR := (Right-Left) / (Lines[NrLines].Line[Lines[NrLines].Current].End_ - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start);
-  glEnable(GL_BLEND);
-  glBegin(GL_LINES);
-  for Count := Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start to Lines[NrLines].Line[Lines[NrLines].Current].End_ do begin
-    if (Count mod Lines[NrLines].Resolution) = Lines[NrLines].NotesGAP then
-      glColor4f(0, 0, 0, 1)
-    else
-      glColor4f(0, 0, 0, 0.3);
-    glVertex2f(Left + TempR * (Count - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start), Top);
-    glVertex2f(Left + TempR * (Count - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start), Top + 135);
-  end;
-  glEnd;
-  glDisable(GL_BLEND);
-end;
-
-// draw blank Notebars
-procedure SingDrawLine(Left, Top, Right: real; NrLines: integer; Space: integer);
-var
-  Rec:      TRecR;
-  Count:      integer;
-  TempR:    real;
-  R,G,B:    real;
-
-  PlayerNumber: Integer;
-
-  GoldenStarPos : real;
-  
-  lTmpA ,
-  lTmpB : real;
-begin
-// We actually don't have a playernumber in this procedure, it should reside in NrLines - but it's always set to zero
-// So we exploit this behavior a bit - we give NrLines the playernumber, keep it in playernumber - and then we set NrLines to zero
-// This could also come quite in handy when we do the duet mode, cause just the notes for the player that has to sing should be drawn then
-// BUT this is not implemented yet, all notes are drawn! :D
-
-  PlayerNumber := NrLines + 1; // Player 1 is 0
-  NrLines     := 0;
-
-// exploit done
-
-  glColor3f(1, 1, 1);
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-
-  lTmpA := (Right-Left);
-  lTmpB := (Lines[NrLines].Line[Lines[NrLines].Current].End_ - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start);
-
-  if ( lTmpA > 0 ) AND
-     ( lTmpB > 0 ) THEN
-  begin
-    TempR := lTmpA / lTmpB;
-  end
-  else
-  begin
-    TempR := 0;
-  end;
-
-  
-  with Lines[NrLines].Line[Lines[NrLines].Current] do begin
-    for Count := 0 to HighNote do begin
-      with Note[Count] do begin
-        if NoteType <> ntFreestyle then begin
-
-
-          if Ini.EffectSing = 0 then
-          // If Golden note Effect of then Change not Color
-          begin
-            case NoteType of
-              ntNormal: glColor4f(1, 1, 1, 1);   // We set alpha to 1, cause we can control the transparency through the png itself
-              ntGolden: glColor4f(1, 1, 0.3, 1); // no stars, paint yellow -> glColor4f(1, 1, 0.3, 0.85); - we could
-            end; // case
-          end //Else all Notes same Color
-          else
-            glColor4f(1, 1, 1, 1);        // We set alpha to 1, cause we can control the transparency through the png itself
-                                          // Czesci == teil, element == piece, element | koniec == end / ending
-          // lewa czesc  -  left part
-          Rec.Left := (Start-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left + 0.5 + 10*ScreenX;
-          Rec.Right := Rec.Left + NotesW;
-          Rec.Top := Top - (Tone-BaseNote)*Space/2 - NotesH;
-          Rec.Bottom := Rec.Top + 2 * NotesH;
-          glBindTexture(GL_TEXTURE_2D, Tex_plain_Left[PlayerNumber].TexNum);
-          glBegin(GL_QUADS);
-            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-          glEnd;
-
-          //We keep the postion of the top left corner b4 it's overwritten
-            GoldenStarPos := Rec.Left;
-          //done
-
-         // srodkowa czesc  -  middle part
-        Rec.Left := Rec.Right;
-        Rec.Right := (Start+Length-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left - NotesW - 0.5 + 10*ScreenX;    // Dlugosc == length
-
-        glBindTexture(GL_TEXTURE_2D, Tex_plain_Mid[PlayerNumber].TexNum);
-        glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT );
-        glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT );
-        glBegin(GL_QUADS);
-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-          glTexCoord2f(round((Rec.Right-Rec.Left)/32), 1); glVertex2f(Rec.Right, Rec.Bottom);
-          glTexCoord2f(round((Rec.Right-Rec.Left)/32), 0); glVertex2f(Rec.Right, Rec.Top);
-        glEnd;
-
-        // prawa czesc  -  right part
-        Rec.Left := Rec.Right;
-        Rec.Right := Rec.Right + NotesW;
-
-        glBindTexture(GL_TEXTURE_2D, Tex_plain_Right[PlayerNumber].TexNum);
-        glBegin(GL_QUADS);
-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-        glEnd;
-
-          // Golden Star Patch
-          if (NoteType = ntGolden) AND (Ini.EffectSing=1) then
-          begin
-            GoldenRec.SaveGoldenStarsRec(GoldenStarPos, Rec.Top, Rec.Right, Rec.Bottom);
-          end;
-
-        end; // if not FreeStyle
-      end; // with
-    end; // for
-  end; // with
-
-  glDisable(GL_BLEND);
-  glDisable(GL_TEXTURE_2D);
-end;
-
-
-// draw sung notes
-procedure SingDrawPlayerLine(X, Y, W: real; NrGracza: integer; Space: integer);
-var
-  TempR:    real;
-  Rec:      TRecR;
-  N:        integer;
-  R:        real;
-  G:        real;
-  B:        real;
-  A:        real;
-  NotesH2:  real;
-  begin
-//  Log.LogStatus('Player notes', 'SingDraw');
-
-//  if NrGracza = 0 then LoadColor(R, G, B, 'P1Light')
-//  else LoadColor(R, G, B, 'P2Light');
-
-//  R := 71/255;
-//  G := 175/255;
-//  B := 247/255;
-
-  glColor3f(1, 1, 1);
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-
-////  if Player[NrGracza].IlNut > 0 then
-    begin
-      TempR := W / (Lines[0].Line[Lines[0].Current].End_ - Lines[0].Line[Lines[0].Current].Note[0].Start);
-        for N := 0 to Player[NrGracza].HighNote do
-          begin
-            with Player[NrGracza].Note[N] do
-              begin
-                // Left part of note
-                Rec.Left := X + (Start-Lines[0].Line[Lines[0].Current].Note[0].Start) * TempR + 0.5 + 10*ScreenX;
-                Rec.Right := Rec.Left + NotesW;
-
-                // Draw it in half size, if not hit
-               if Hit then
-                 begin
-                   NotesH2 := NotesH
-                 end
-               else
-                 begin
-                   NotesH2 := int(NotesH * 0.65);
-                 end;
-
-                Rec.Top    := Y - (Tone-Lines[0].Line[Lines[0].Current].BaseNote)*Space/2 - NotesH2;
-                Rec.Bottom := Rec.Top + 2 *NotesH2;
-
-                // draw the left part
-                glColor3f(1, 1, 1);
-                glBindTexture(GL_TEXTURE_2D, Tex_Left[NrGracza+1].TexNum);
-                glBegin(GL_QUADS);
-                  glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-                  glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-                  glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-                  glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-                glEnd;
-
-               // Middle part of the note
-               Rec.Left := Rec.Right;
-               Rec.Right := X + (Start+Length-Lines[0].Line[Lines[0].Current].Note[0].Start) * TempR - NotesW - 0.5  + 10*ScreenX;
-
-               // (nowe) - dunno
-               if (Start+Length-1 = LineState.CurrentBeatD) then
-                 Rec.Right := Rec.Right - (1-Frac(LineState.MidBeatD)) * TempR;
-               // the left note is more right than the right note itself, sounds weird - so we fix that xD
-               if Rec.Right <= Rec.Left then Rec.Right := Rec.Left;
-
-               // draw the middle part
-               glBindTexture(GL_TEXTURE_2D, Tex_Mid[NrGracza+1].TexNum);
-               glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT );
-               glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT );
-               glBegin(GL_QUADS);
-                 glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-                 glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-                 glTexCoord2f(round((Rec.Right-Rec.Left)/32), 1); glVertex2f(Rec.Right, Rec.Bottom);
-                 glTexCoord2f(round((Rec.Right-Rec.Left)/32), 0); glVertex2f(Rec.Right, Rec.Top);
-               glEnd;
-               glColor3f(1, 1, 1);
-
-               // the right part of the note
-               Rec.Left := Rec.Right;
-               Rec.Right := Rec.Right + NotesW;
-
-               glBindTexture(GL_TEXTURE_2D, Tex_Right[NrGracza+1].TexNum);
-               glBegin(GL_QUADS);
-                 glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-                 glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-                 glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-                 glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-               glEnd;
-
-            // Perfect note is stored
-            if Perfect and (Ini.EffectSing=1) then
-              begin
-                A := 1 - 2*(LineState.CurrentTime - GetTimeFromBeat(Start+Length));
-                  if not (Start+Length-1 = LineState.CurrentBeatD) then
-
-                  //Star animation counter
-                  //inc(Starfr);
-                  //Starfr := Starfr mod 128;
-                  GoldenRec.SavePerfectNotePos(Rec.Left, Rec.Top);
-              end;
-            end; // with
-        end; // for
-    // eigentlich brauchen wir hier einen vergleich, um festzustellen, ob wir mit
-    // singen schon weiter wären, als bei Rec.Right, _auch, wenn nicht gesungen wird_
-    // English Translation:
-    // actually we need a compare here, to determine if the singing process is ahead Rec.Right
-    // even if there is no singing
-
-
-    // passing on NrGracza... hope this is really something like the player-number, not only
-    // some kind of weird index into a colour-table
-
-        if (Ini.EffectSing=1) then
-          GoldenRec.GoldenNoteTwinkle(Rec.Top,Rec.Bottom,Rec.Right, NrGracza);
-  end; // if
-end;
-
-//draw Note glow
-procedure SingDrawPlayerBGLine(Left, Top, Right: real; NrLines, NrGracza: integer; Space: integer);
-var
-  Rec:      TRecR;
-  Count:      integer;
-  TempR:    real;
-  R,G,B:    real;
-  X1, X2, X3, X4: real;
-  W, H:     real;
-  
-  lTmpA  ,
-  lTmpB  : real;
-begin
-  if (Player[NrGracza].ScoreTotalI >= 0) then begin
-  glColor4f(1, 1, 1, sqrt((1+sin( AudioPlayback.Position * 3))/4)/ 2 + 0.5 );
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-
-
-  lTmpA := (Right-Left);
-  lTmpB := (Lines[NrLines].Line[Lines[NrLines].Current].End_ - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start);
-
-
-  if ( lTmpA > 0 ) AND
-     ( lTmpB > 0 ) THEN
-  begin
-    TempR := lTmpA / lTmpB;
-  end
-  else
-  begin
-    TempR := 0;
-  end;
-
-  with Lines[NrLines].Line[Lines[NrLines].Current] do begin
-    for Count := 0 to HighNote do begin
-      with Note[Count] do begin
-        if NoteType <> ntFreestyle then begin
-          // begin: 14, 20
-          // easy: 6, 11
-          W := NotesW * 2 + 2;
-          H := NotesH * 1.5 + 3.5;
-
-          X2 := (Start-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left + 0.5 + 10*ScreenX + 4; // wciecie
-          X1 := X2-W;
-
-          X3 := (Start+Length-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left - 0.5 + 10*ScreenX - 4; // wciecie
-          X4 := X3+W;
-
-          // left
-          Rec.Left := X1;
-          Rec.Right := X2;
-          Rec.Top := Top - (Tone-BaseNote)*Space/2 - H;
-          Rec.Bottom := Rec.Top + 2 * H;
-
-          glBindTexture(GL_TEXTURE_2D, Tex_BG_Left[NrGracza+1].TexNum);
-          glBegin(GL_QUADS);
-            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-          glEnd;
-
-
-        // srodkowa czesc
-        Rec.Left := X2;
-        Rec.Right := X3;
-
-        glBindTexture(GL_TEXTURE_2D, Tex_BG_Mid[NrGracza+1].TexNum);
-        glBegin(GL_QUADS);
-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-        glEnd;
-
-        // prawa czesc
-        Rec.Left := X3;
-        Rec.Right := X4;
-
-        glBindTexture(GL_TEXTURE_2D, Tex_BG_Right[NrGracza+1].TexNum);
-        glBegin(GL_QUADS);
-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-        glEnd;
-        end; // if not FreeStyle
-      end; // with
-    end; // for
-  end; // with                      1
-
-  glDisable(GL_BLEND);
-  glDisable(GL_TEXTURE_2D);
-  end;
-end;
-
-procedure SingDraw;
-var
-  Count:      integer;
-  Pet2:     integer;
-  TempR:    real;
-  Rec:      TRecR;
-  TexRec:   TRecR;
-  NR:       TRecR;
-  FS:       real;
-  BarFrom:  integer;
-  BarAlpha: real;
-  BarWspol: real;
-  TempCol:  real;
-  Tekst:    string;
-  PetCz:    integer;
-
-begin
-  // positions
-  if Ini.SingWindow = 0 then
-  begin
-    NR.Left := 120;
-  end
-  else
-  begin
-    NR.Left := 20;
-  end;
-  
-  NR.Right := 780;
-
-  NR.Width := NR.Right - NR.Left;
-  NR.WMid  := NR.Width / 2;
-  NR.Mid   := NR.Left + NR.WMid;
-
-  // background  //BG Fullsize Mod
-  //SingDrawBackground;
-
-  //TimeBar mod
-  SingDrawTimeBar();
-  //eoa TimeBar mod
-
-  // rysuje paski pod nutami
-  if (PlayersPlay = 1) and (Ini.NoteLines = 1) then
-    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);
-    
-  if ((PlayersPlay = 2) or (PlayersPlay = 4)) and (Ini.NoteLines = 1) then
-  begin
-    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P1_NotesB - 105, Nr.Right + 10*ScreenX, 15);
-    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);
-  end;
-
-  if ((PlayersPlay = 3) or (PlayersPlay = 6)) and (Ini.NoteLines = 1) then begin
-    SingDrawNoteLines(Nr.Left + 10*ScreenX, 120, Nr.Right + 10*ScreenX, 12);
-    SingDrawNoteLines(Nr.Left + 10*ScreenX, 245, Nr.Right + 10*ScreenX, 12);
-    SingDrawNoteLines(Nr.Left + 10*ScreenX, 370, Nr.Right + 10*ScreenX, 12);
-  end;
-
-  // Draw Lyrics
-  ScreenSing.Lyrics.Draw(LineState.MidBeat);
-
-  // todo: Lyrics
-(*  // rysuje pasek, podpowiadajacy poczatek spiwania w scenie
-  FS := 1.3;
-  BarFrom := Lines[0].Line[Lines[0].Current].StartNote - Lines[0].Line[Lines[0].Current].Start;
-  if BarFrom > 40 then BarFrom := 40;
-  if (Lines[0].Line[Lines[0].Current].StartNote - Lines[0].Line[Lines[0].Current].Start > 8) and  // dluga przerwa //16->12 for more help bars and then 12->8 for even more
-    (Lines[0].Line[Lines[0].Current].StartNote - LineState.MidBeat > 0) and                     // przed tekstem
-    (Lines[0].Line[Lines[0].Current].StartNote - LineState.MidBeat < 40) then begin            // ale nie za wczesnie
-    BarWspol := (LineState.MidBeat - (Lines[0].Line[Lines[0].Current].StartNote - BarFrom)) / BarFrom;
-    Rec.Left := NR.Left + BarWspol *
-//      (NR.WMid - Lines[0].Line[Lines[0].Current].LyricWidth / 2 * FS - 50);
-      (ScreenSing.LyricMain.ClientX - NR.Left - 50) + 10*ScreenX;
-    Rec.Right := Rec.Left + 50;
-    Rec.Top := Skin_LyricsT + 3;
-    Rec.Bottom := Rec.Top + 33;//SingScreen.LyricMain.Size * 3;
-{    // zapalanie
-    BarAlpha := (BarWspol*10) * 0.5;
-    if BarAlpha > 0.5 then BarAlpha := 0.5;
-
-    // gaszenie
-    if BarWspol > 0.95 then BarAlpha := 0.5 * (1 - (BarWspol - 0.95) * 20);}{
-
-    //Change fuer Crazy Joker
-
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-  glBindTexture(GL_TEXTURE_2D, Tex_Lyric_Help_Bar.TexNum);
-  glBegin(GL_QUADS);
-    glColor4f(1, 1, 1, 0);
-    glTexCoord2f(0, 0); glVertex2f(Rec.Left, Rec.Top);
-    glTexCoord2f(0, 1); glVertex2f(Rec.Left, Rec.Bottom);
-    glColor4f(1, 1, 1, 0.5);
-    glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-    glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-    glEnd;
-    glDisable(GL_BLEND);
-
-   end; }
-*)
-  // oscilloscope
-  if Ini.Oscilloscope = 1 then begin
-    if PlayersPlay = 1 then
-      SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
-
-    if PlayersPlay = 2 then begin
-      SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
-      SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);
-    end;
-
-    if PlayersPlay = 4 then begin
-      if ScreenAct = 1 then begin
-        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
-        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);
-      end;
-      if ScreenAct = 2 then begin
-        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 2);
-        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 3);
-      end;
-    end;
-
-    if PlayersPlay = 3 then begin
-      SingDrawOscilloscope(75 + 10*ScreenX, 95, 100, 20, 0);
-      SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);
-      SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);
-    end;
-
-    if PlayersPlay = 6 then begin
-      if ScreenAct = 1 then begin
-        SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 0);
-        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);
-        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);
-      end;
-      if ScreenAct = 2 then begin
-        SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 3);
-        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 4);
-        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 5);
-      end;
-    end;
-
-  end;
-
-// Set the note heights according to the difficulty level
-  case Ini.Difficulty of
-    0:
-      begin
-        NotesH := 11; // 9
-        NotesW := 6; // 5
-      end;
-    1:
-      begin
-        NotesH := 8; // 7
-        NotesW := 4; // 4
-      end;
-    2:
-      begin
-        NotesH := 5;
-        NotesW := 3;
-      end;
-  end;
-
-// Draw the Notes
-  if PlayersPlay = 1 then begin
-    SingDrawPlayerBGLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 0, 15);  // Background glow    - colorized in playercolor
-    SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);             // Plain unsung notes - colorized in playercolor
-    SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 0, 15);       // imho the sung notes
-  end;
-
-  if (PlayersPlay = 2)  then begin
-    SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);
-    SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);
-
-    SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);
-    SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 1, 15);
-
-    SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);
-    SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);
-  end;
-
-  if PlayersPlay = 3 then begin
-    NotesW := NotesW * 0.8;
-    NotesH := NotesH * 0.8;
-
-    SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);
-    SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);
-    SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);
-
-    SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);
-    SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 1, 12);
-    SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 2, 12);
-
-    SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);
-    SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);
-    SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);
-  end;
-
-  if PlayersPlay = 4 then begin
-    if ScreenAct = 1 then begin
-      SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);
-      SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);
-    end;
-    if ScreenAct = 2 then begin
-      SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 2, 15);
-      SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 3, 15);
-    end;
-
-    if ScreenAct = 1 then begin
-      SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);
-      SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 1, 15);
-    end;
-    if ScreenAct = 2 then begin
-      SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 2, 15);
-      SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 3, 15);
-    end;
-
-    if ScreenAct = 1 then begin
-      SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);
-      SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);
-    end;
-    if ScreenAct = 2 then begin
-      SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 2, 15);
-      SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 3, 15);
-    end;
-  end;
-
-  if PlayersPlay = 6 then begin
-    NotesW := NotesW * 0.8;
-    NotesH := NotesH * 0.8;
-
-    if ScreenAct = 1 then begin
-      SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);
-      SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);
-      SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);
-    end;
-    if ScreenAct = 2 then begin
-      SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 3, 12);
-      SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 4, 12);
-      SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 5, 12);
-    end;
-
-    if ScreenAct = 1 then begin
-      SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);
-      SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 1, 12);
-      SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 2, 12);
-    end;
-    if ScreenAct = 2 then begin
-      SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 3, 12);
-      SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 4, 12);
-      SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 5, 12);
-    end;
-
-    if ScreenAct = 1 then begin
-      SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);
-      SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);
-      SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);
-    end;
-    if ScreenAct = 2 then begin
-      SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 3, 12);
-      SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 4, 12);
-      SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 5, 12);
-    end;
-  end;
-  glDisable(GL_BLEND);
-  glDisable(GL_TEXTURE_2D);
-end;
-
-// q'n'd for using the game mode dll's
-procedure SingModiDraw (PlayerInfo: TPlayerInfo);
-var
-  Count:      integer;
-  Pet2:     integer;
-  TempR:    real;
-  Rec:      TRecR;
-  TexRec:   TRecR;
-  NR:       TRecR;
-  FS:       real;
-  BarFrom:  integer;
-  BarAlpha: real;
-  BarWspol: real;
-  TempCol:  real;
-  Tekst:    string;
-  PetCz:    integer;
-begin
-  // positions
-  if Ini.SingWindow = 0 then begin
-    NR.Left := 120;
-  end else begin
-    NR.Left := 20;
-  end;
-
-  NR.Right := 780;
-  NR.Width := NR.Right - NR.Left;
-  NR.WMid  := NR.Width / 2;
-  NR.Mid   := NR.Left + NR.WMid;
-
-  // time bar
-  SingDrawTimeBar();
-
-  if DLLMan.Selected.ShowNotes then
-  begin
-    if PlayersPlay = 1 then
-      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);
-    if (PlayersPlay = 2) or (PlayersPlay = 4) then begin
-      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P1_NotesB - 105, Nr.Right + 10*ScreenX, 15);
-      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);
-    end;
-
-    if (PlayersPlay = 3) or (PlayersPlay = 6) then begin
-      SingDrawNoteLines(Nr.Left + 10*ScreenX, 120, Nr.Right + 10*ScreenX, 12);
-      SingDrawNoteLines(Nr.Left + 10*ScreenX, 245, Nr.Right + 10*ScreenX, 12);
-      SingDrawNoteLines(Nr.Left + 10*ScreenX, 370, Nr.Right + 10*ScreenX, 12);
-    end;
-  end;
-
-    // Draw Lyrics
-    ScreenSingModi.Lyrics.Draw(LineState.MidBeat);
-
-    // todo: Lyrics
-{    // rysuje pasek, podpowiadajacy poczatek spiwania w scenie
-    FS := 1.3;
-    BarFrom := Lines[0].Line[Lines[0].Current].StartNote - Lines[0].Line[Lines[0].Current].Start;
-    if BarFrom > 40 then BarFrom := 40;
-    if (Lines[0].Line[Lines[0].Current].StartNote - Lines[0].Line[Lines[0].Current].Start > 8) and  // dluga przerwa //16->12 for more help bars and then 12->8 for even more
-       (Lines[0].Line[Lines[0].Current].StartNote - LineState.MidBeat > 0) and                     // przed tekstem
-       (Lines[0].Line[Lines[0].Current].StartNote - LineState.MidBeat < 40) then begin            // ale nie za wczesnie
-         BarWspol := (LineState.MidBeat - (Lines[0].Line[Lines[0].Current].StartNote - BarFrom)) / BarFrom;
-         Rec.Left := NR.Left + BarWspol * (ScreenSingModi.LyricMain.ClientX - NR.Left - 50) + 10*ScreenX;
-         Rec.Right := Rec.Left + 50;
-         Rec.Top := Skin_LyricsT + 3;
-         Rec.Bottom := Rec.Top + 33;//SingScreen.LyricMain.Size * 3;
-
-           glEnable(GL_TEXTURE_2D);
-           glEnable(GL_BLEND);
-           glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-           glBindTexture(GL_TEXTURE_2D, Tex_Lyric_Help_Bar.TexNum);
-           glBegin(GL_QUADS);
-             glColor4f(1, 1, 1, 0);
-               glTexCoord2f(0, 0); glVertex2f(Rec.Left, Rec.Top);
-               glTexCoord2f(0, 1); glVertex2f(Rec.Left, Rec.Bottom);
-             glColor4f(1, 1, 1, 0.5);
-               glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-               glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-           glEnd;
-           glDisable(GL_BLEND);
-    end;
-    }
-
-  // oscilloscope | the thing that moves when you yell into your mic (imho)
-  if (((Ini.Oscilloscope = 1) AND (DLLMan.Selected.ShowRateBar_O)) AND (NOT DLLMan.Selected.ShowRateBar)) then begin
-    if PlayersPlay = 1 then
-      if PlayerInfo.Playerinfo[0].Enabled then
-        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
-
-    if PlayersPlay = 2 then begin
-      if PlayerInfo.Playerinfo[0].Enabled then
-        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
-      if PlayerInfo.Playerinfo[1].Enabled then
-        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);
-    end;
-
-    if PlayersPlay = 4 then begin
-      if ScreenAct = 1 then begin
-        if PlayerInfo.Playerinfo[0].Enabled then
-          SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);
-        if PlayerInfo.Playerinfo[1].Enabled then
-          SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);
-      end;
-      if ScreenAct = 2 then begin
-        if PlayerInfo.Playerinfo[2].Enabled then
-          SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 2);
-        if PlayerInfo.Playerinfo[3].Enabled then
-          SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 3);
-      end;
-    end;
-
-    if PlayersPlay = 3 then begin
-      if PlayerInfo.Playerinfo[0].Enabled then
-        SingDrawOscilloscope(75 + 10*ScreenX, 95, 100, 20, 0);
-      if PlayerInfo.Playerinfo[1].Enabled then
-        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);
-      if PlayerInfo.Playerinfo[2].Enabled then
-        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);
-    end;
-
-    if PlayersPlay = 6 then begin
-      if ScreenAct = 1 then begin
-        if PlayerInfo.Playerinfo[0].Enabled then
-          SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 0);
-        if PlayerInfo.Playerinfo[1].Enabled then
-          SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);
-        if PlayerInfo.Playerinfo[2].Enabled then
-          SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);
-      end;
-      if ScreenAct = 2 then begin
-        if PlayerInfo.Playerinfo[3].Enabled then
-          SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 3);
-        if PlayerInfo.Playerinfo[4].Enabled then
-          SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 4);
-        if PlayerInfo.Playerinfo[5].Enabled then
-          SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 5);
-      end;
-    end;
-
-  end;
-
-// resize the notes according to the difficulty level
-  case Ini.Difficulty of
-    0:
-      begin
-        NotesH := 11; // 9
-        NotesW := 6; // 5
-      end;
-    1:
-      begin
-        NotesH := 8; // 7
-        NotesW := 4; // 4
-      end;
-    2:
-      begin
-        NotesH := 5;
-        NotesW := 3;
-      end;
-  end;
-
-  if (DLLMAn.Selected.ShowNotes And DLLMan.Selected.LoadSong) then
-  begin
-    if (PlayersPlay = 1) And PlayerInfo.Playerinfo[0].Enabled then begin
-      SingDrawPlayerBGLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 0, 15);
-      SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);
-      SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 0, 15);
-    end;
-
-    if (PlayersPlay = 2)  then begin
-      if PlayerInfo.Playerinfo[0].Enabled then
-      begin
-        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);
-        SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);
-        SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);
-      end;
-      if PlayerInfo.Playerinfo[1].Enabled then
-      begin
-        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);
-        SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);
-        SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);
-      end;
-
-    end;
-
-    if PlayersPlay = 3 then begin
-      NotesW := NotesW * 0.8;
-      NotesH := NotesH * 0.8;
-
-      if PlayerInfo.Playerinfo[0].Enabled then
-      begin
-        SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);
-        SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);
-        SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);
-      end;
-
-      if PlayerInfo.Playerinfo[1].Enabled then
-      begin
-        SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);
-        SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 0, 12);
-        SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);
-      end;
-
-      if PlayerInfo.Playerinfo[2].Enabled then
-      begin
-        SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);
-        SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 0, 12);
-        SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);
-      end;
-    end;
-
-    if PlayersPlay = 4 then begin
-      if ScreenAct = 1 then begin
-        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);
-        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);
-      end;
-      if ScreenAct = 2 then begin
-        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 2, 15);
-        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 3, 15);
-      end;
-
-      SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);
-      SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);
-
-      if ScreenAct = 1 then begin
-        SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);
-        SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);
-      end;
-      if ScreenAct = 2 then begin
-        SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 2, 15);
-        SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 3, 15);
-      end;
-    end;
-
-    if PlayersPlay = 6 then begin
-      NotesW := NotesW * 0.8;
-      NotesH := NotesH * 0.8;
-
-      if ScreenAct = 1 then begin
-        SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);
-        SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);
-        SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);
-      end;
-      if ScreenAct = 2 then begin
-        SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 3, 12);
-        SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 4, 12);
-        SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 5, 12);
-      end;
-
-      SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);
-      SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 0, 12);
-      SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 0, 12);
-
-      if ScreenAct = 1 then begin
-        SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);
-        SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);
-        SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);
-      end;
-      if ScreenAct = 2 then begin
-        SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 3, 12);
-        SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 4, 12);
-        SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 5, 12);
-      end;
-    end;
-  end;
-
-  glDisable(GL_BLEND);
-  glDisable(GL_TEXTURE_2D);
-end;
-
-
-{//SingBar Mod
-procedure SingDrawSingbar(X, Y, W, H: real; Percent: integer);
-var
-  R:   Real;
-  G:   Real;
-  B:   Real;
-  A:   cardinal;
-  I:   Integer;
-
-begin;
-
-   //SingBar Background
-  glColor4f(1, 1, 1, 0.8);
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Back.TexNum);
-  glBegin(GL_QUADS);
-    glTexCoord2f(0, 0); glVertex2f(X, Y);
-    glTexCoord2f(0, 1); glVertex2f(X, Y+H);
-    glTexCoord2f(1, 1); glVertex2f(X+W, Y+H);
-    glTexCoord2f(1, 0); glVertex2f(X+W, Y);
-  glEnd;
-
-  //SingBar coloured Bar
-  Case Percent of
-    0..22: begin
-          R := 1;
-          G := 0;
-          B := 0;
-        end;
-    23..42: begin
-          R := 1;
-          G := ((Percent-23)/100)*5;
-          B := 0;
-        end;
-    43..57: begin
-          R := 1;
-          G := 1;
-          B := 0;
-        end;
-    58..77: begin
-          R := 1-(Percent - 58)/100*5;
-          G := 1;
-          B := 0;
-        end;
-    78..99: begin
-          R := 0;
-          G := 1;
-          B := 0;
-        end;
-    End; //Case
-
-  glColor4f(R, G, B, 1);
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Bar.TexNum);
-  //Size= Player[PlayerNum].ScorePercent of W
-    glBegin(GL_QUADS);
-    glTexCoord2f(0, 0); glVertex2f(X, Y);
-    glTexCoord2f(0, 1); glVertex2f(X, Y+H);
-    glTexCoord2f(1, 1); glVertex2f(X+(W/100 * (Percent +1)), Y+H);
-    glTexCoord2f(1, 0); glVertex2f(X+(W/100 * (Percent +1)), Y);
-  glEnd;
-
-  //SingBar Front
-  glColor4f(1, 1, 1, 0.6);
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Front.TexNum);
-  glBegin(GL_QUADS);
-    glTexCoord2f(0, 0); glVertex2f(X, Y);
-    glTexCoord2f(0, 1); glVertex2f(X, Y+H);
-    glTexCoord2f(1, 1); glVertex2f(X+W, Y+H);
-    glTexCoord2f(1, 0); glVertex2f(X+W, Y);
-  glEnd;
-end;
-//end Singbar Mod
-
-//PhrasenBonus - Line Bonus Pop Up
-procedure SingDrawLineBonus( const X, Y: Single; Color: TRGB; Alpha: Single; Text: string; Age: Integer);
-var
-Length, X2: Real; //Length of Text
-Size: Integer;    //Size of Popup
-begin
-if Alpha <> 0 then
-begin
-
-//Set Font Propertys
-SetFontStyle(2); //Font: Outlined1
-if Age < 5 then SetFontSize(Age + 1) else SetFontSize(6);
-SetFontItalic(False);
-
-//Check Font Size
-Length := glTextWidth ( PChar(Text)) + 3; //Little Space for a Better Look ^^
-
-//Text
-SetFontPos (X + 50 - (Length / 2), Y + 12); //Position
-
-
-if Age < 5 then Size := Age * 10 else Size := 50;
-
-  //Draw  Background
-  //glColor4f(Color.R, Color.G, Color.B, Alpha); //Set Color
-  glColor4f(1, 1, 1, Alpha);
-
-
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-  //glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-
-
-  //New Method, Not Variable
-  glBindTexture(GL_TEXTURE_2D, Tex_SingLineBonusBack[2].TexNum);
-
-  glBegin(GL_QUADS);
-    glTexCoord2f(0, 0); glVertex2f(X + 50 - Size, Y + 25 - (Size/2));
-    glTexCoord2f(0, 1); glVertex2f(X + 50 - Size, Y + 25 + (Size/2));
-    glTexCoord2f(1, 1); glVertex2f(X + 50 + Size, Y + 25 + (Size/2));
-    glTexCoord2f(1, 0); glVertex2f(X + 50 + Size, Y + 25 - (Size/2));
-  glEnd;
-
-  glColor4f(1, 1, 1, Alpha); //Set Color
-  //Draw Text
-  glPrint (PChar(Text));
-end;
-end;
-//PhrasenBonus - Line Bonus Mod}
-
-// Draw Note Bars for Editor
-//There are 11 Resons for a new Procdedure:   (nice binary :D )
-// 1. It don't look good when you Draw the Golden Note Star Effect in the Editor
-// 2. You can see the Freestyle Notes in the Editor SemiTransparent
-// 3. Its easier and Faster then changing the old Procedure
-procedure EditDrawLine(Left, Top, Right: real; NrLines: integer; Space: integer);
-var
-  Rec:      TRecR;
-  Count:      integer;
-  TempR:    real;
-begin
-  glColor3f(1, 1, 1);
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-  TempR := (Right-Left) / (Lines[NrLines].Line[Lines[NrLines].Current].End_ - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start);
-  with Lines[NrLines].Line[Lines[NrLines].Current] do begin
-    for Count := 0 to HighNote do begin
-      with Note[Count] do begin
-
-          // Golden Note Patch
-          case NoteType of
-            ntFreestyle: glColor4f(1, 1, 1, 0.35);
-            ntNormal: glColor4f(1, 1, 1, 0.85);
-            ntGolden: Glcolor4f(1, 1, 0.3, 0.85);
-          end; // case
-
-
-
-          // lewa czesc  -  left part
-          Rec.Left := (Start-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left + 0.5 + 10*ScreenX;
-          Rec.Right := Rec.Left + NotesW;
-          Rec.Top := Top - (Tone-BaseNote)*Space/2 - NotesH;
-          Rec.Bottom := Rec.Top + 2 * NotesH;
-          glBindTexture(GL_TEXTURE_2D, Tex_Left[Color].TexNum);
-          glBegin(GL_QUADS);
-            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-          glEnd;
-
-         // srodkowa czesc  -  middle part
-        Rec.Left := Rec.Right;
-        Rec.Right := (Start+Length-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left - NotesW - 0.5 + 10*ScreenX;
-
-        glBindTexture(GL_TEXTURE_2D, Tex_Mid[Color].TexNum);
-        glBegin(GL_QUADS);
-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-        glEnd;
-
-        // prawa czesc  -  right part
-        Rec.Left := Rec.Right;
-        Rec.Right := Rec.Right + NotesW;
-
-        glBindTexture(GL_TEXTURE_2D, Tex_Right[Color].TexNum);
-        glBegin(GL_QUADS);
-          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);
-          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);
-          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);
-          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);
-        glEnd;
-
-      end; // with
-    end; // for
-  end; // with
-
-  glDisable(GL_BLEND);
-  glDisable(GL_TEXTURE_2D);
-end;
-
-procedure SingDrawTimeBar();
-var x,y:           real;
-    width, height: real;
-    lTmp         : real;
-begin
-  x := Theme.Sing.StaticTimeProgress.x;
-  y := Theme.Sing.StaticTimeProgress.y;
-  
-  width  := Theme.Sing.StaticTimeProgress.w;
-  height := Theme.Sing.StaticTimeProgress.h;
-
-  glColor4f(Theme.Sing.StaticTimeProgress.ColR,
-            Theme.Sing.StaticTimeProgress.ColG,
-            Theme.Sing.StaticTimeProgress.ColB, 1); //Set Color
-
-  glEnable(GL_TEXTURE_2D);
-  glEnable(GL_BLEND);
-
-  glBindTexture(GL_TEXTURE_2D, Tex_TimeProgress.TexNum);
-
-  glBegin(GL_QUADS);
-  try
-    glTexCoord2f(0, 0);
-    glVertex2f(x,y);
-    
-    if ( LineState.CurrentTime > 0 ) AND
-       ( LineState.TotalTime > 0 ) THEN
-    BEGIN
-      lTmp := LineState.CurrentTime/LineState.TotalTime;
-      glTexCoord2f((width*LineState.CurrentTime/LineState.TotalTime)/8, 0);
-      glVertex2f(x+width*LineState.CurrentTime/LineState.TotalTime, y);
-
-      glTexCoord2f((width*LineState.CurrentTime/LineState.TotalTime)/8, 1);
-      glVertex2f(x+width*LineState.CurrentTime/LineState.TotalTime, y+height);
-    END;
-
-    glTexCoord2f(0, 1);
-    glVertex2f(x, y+height);
-  finally
-    glEnd;
-  end;
-
- glDisable(GL_TEXTURE_2D);
- glDisable(GL_BLEND);
- glcolor4f(1,1,1,1);
-end;
-
-end.
-
+unit UDraw;

+

+interface

+

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

+{$I switches.inc}

+

+uses UThemes,

+     ModiSDK,

+     UGraphicClasses;

+

+procedure SingDraw;

+procedure SingModiDraw (PlayerInfo: TPlayerInfo);

+procedure SingDrawBackground;

+procedure SingDrawOscilloscope(X, Y, W, H: real; NrSound: integer);

+procedure SingDrawNoteLines(Left, Top, Right: real; Space: integer);

+procedure SingDrawBeatDelimeters(Left, Top, Right: real; NrLines: integer);

+procedure SingDrawLine(Left, Top, Right: real; NrLines: integer; Space: integer);

+procedure SingDrawPlayerLine(X, Y, W: real; NrGracza: integer; Space: integer);

+procedure SingDrawPlayerBGLine(Left, Top, Right: real; NrLines, NrGracza: integer; Space: integer);

+

+// TimeBar 

+procedure SingDrawTimeBar();

+

+//Draw Editor NoteLines

+procedure EditDrawLine(Left, Top, Right: real; NrLines: integer; Space: integer);

+

+

+type

+  TRecR = record

+    Top:    real;

+    Left:   real;

+    Right:  real;

+    Bottom: real;

+

+    Width:  real;

+    WMid:   real;

+    Height: real;

+    HMid:   real;

+

+    Mid:    real;

+  end;

+

+var

+  NotesW:   real;

+  NotesH:   real;

+  Starfr:   integer;

+  StarfrG:   integer;

+

+  //SingBar

+  TickOld: cardinal;

+  TickOld2:cardinal;

+

+const

+  Przedz = 32;

+

+implementation

+

+uses

+  OpenGL12,

+  UGraphic,

+  SysUtils,

+  UMusic,

+  URecord,

+  ULog,

+  UScreenSing,

+  UScreenSingModi,

+  ULyrics,

+  UMain,

+  TextGL,

+  UTexture,

+  UDrawTexture,

+  UIni,

+  Math,

+  UDLLManager;

+

+procedure SingDrawBackground;

+var

+  Rec:      TRecR;

+  TexRec:   TRecR;

+begin

+  if (ScreenSing.Tex_Background.TexNum > 0) then begin

+

+  glClearColor (1, 1, 1, 1);

+  glColor4f (1, 1, 1, 1);

+

+    if (Ini.MovieSize <= 1) then  //HalfSize BG

+    begin

+      (* half screen + gradient *)

+      Rec.Top := 110; // 80

+      Rec.Bottom := Rec.Top + 20;

+      Rec.Left := 0;

+      Rec.Right := 800;

+

+      TexRec.Top := (Rec.Top / 600) * ScreenSing.Tex_Background.TexH;

+      TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;

+      TexRec.Left := 0;

+      TexRec.Right := ScreenSing.Tex_Background.TexW;

+

+      glEnable(GL_TEXTURE_2D);

+      glBindTexture(GL_TEXTURE_2D, ScreenSing.Tex_Background.TexNum);

+      glEnable(GL_BLEND);

+      glBegin(GL_QUADS);

+        (* gradient draw *)

+        (* top *)

+        glColor4f(1, 1, 1, 0);

+        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);

+        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);

+        glColor4f(1, 1, 1, 1);

+        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);

+        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);

+        (* mid *)

+        Rec.Top := Rec.Bottom;

+        Rec.Bottom := 490 - 20; // 490 - 20

+        TexRec.Top := TexRec.Bottom;

+        TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;

+        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);

+        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);

+        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);

+        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);

+        (* bottom *)

+        Rec.Top := Rec.Bottom;

+        Rec.Bottom := 490; // 490

+        TexRec.Top := TexRec.Bottom;

+        TexRec.Bottom := (Rec.Bottom / 600) * ScreenSing.Tex_Background.TexH;

+        glTexCoord2f(TexRec.Right, TexRec.Top);    glVertex2f(Rec.Right, Rec.Top);

+        glTexCoord2f(TexRec.Left,  TexRec.Top);    glVertex2f(Rec.Left,  Rec.Top);

+        glColor4f(1, 1, 1, 0);

+        glTexCoord2f(TexRec.Left,  TexRec.Bottom); glVertex2f(Rec.Left,  Rec.Bottom);

+        glTexCoord2f(TexRec.Right, TexRec.Bottom); glVertex2f(Rec.Right, Rec.Bottom);

+

+      glEnd;

+      glDisable(GL_TEXTURE_2D);

+      glDisable(GL_BLEND);

+    end

+    else //Full Size BG

+    begin

+      glEnable(GL_TEXTURE_2D);

+      glBindTexture(GL_TEXTURE_2D, ScreenSing.Tex_Background.TexNum);

+      //glEnable(GL_BLEND);

+      glBegin(GL_QUADS);

+

+        glTexCoord2f(0, 0);   glVertex2f(0,  0);

+        glTexCoord2f(0,  ScreenSing.Tex_Background.TexH);   glVertex2f(0,  600);

+        glTexCoord2f( ScreenSing.Tex_Background.TexW,  ScreenSing.Tex_Background.TexH);   glVertex2f(800, 600);

+        glTexCoord2f( ScreenSing.Tex_Background.TexW, 0);   glVertex2f(800, 0);

+

+      glEnd;

+      glDisable(GL_TEXTURE_2D);

+      //glDisable(GL_BLEND);

+    end;

+  end;

+end;

+

+procedure SingDrawOscilloscope(X, Y, W, H: real; NrSound: integer);

+var

+  SampleIndex: integer;

+  Sound: TCaptureBuffer;

+  MaxX, MaxY: real;

+begin;

+  Sound := AudioInputProcessor.Sound[NrSound];

+

+  //  Log.LogStatus('Oscilloscope', 'SingDraw');

+  glColor3f(Skin_OscR, Skin_OscG, Skin_OscB);

+  {if (ParamStr(1) = '-black') or (ParamStr(1) = '-fsblack') then

+    glColor3f(1, 1, 1);  }

+

+  MaxX := W-1;

+  MaxY := (H-1) / 2;

+

+  glBegin(GL_LINE_STRIP);

+    for SampleIndex := 0 to High(Sound.BufferArray) do

+    begin

+      glVertex2f(X + MaxX * SampleIndex/High(Sound.BufferArray),

+                 Y + MaxY * (1 - Sound.BufferArray[SampleIndex]/-Low(Smallint)));

+    end;

+  glEnd;

+end;

+

+

+

+procedure SingDrawNoteLines(Left, Top, Right: real; Space: integer);

+var

+  Count:    integer;

+begin

+  glEnable(GL_BLEND);

+  glColor4f(Skin_P1_LinesR, Skin_P1_LinesG, Skin_P1_LinesB, 0.4);

+  glBegin(GL_LINES);

+  for Count := 0 to 9 do begin

+    glVertex2f(Left,  Top + Count * Space);

+    glVertex2f(Right, Top + Count * Space);

+  end;

+  glEnd;

+  glDisable(GL_BLEND);

+end;

+

+procedure SingDrawBeatDelimeters(Left, Top, Right: real; NrLines: integer);

+var

+  Count:    integer;

+  TempR:  real;

+begin

+  TempR := (Right-Left) / (Lines[NrLines].Line[Lines[NrLines].Current].End_ - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start);

+  glEnable(GL_BLEND);

+  glBegin(GL_LINES);

+  for Count := Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start to Lines[NrLines].Line[Lines[NrLines].Current].End_ do begin

+    if (Count mod Lines[NrLines].Resolution) = Lines[NrLines].NotesGAP then

+      glColor4f(0, 0, 0, 1)

+    else

+      glColor4f(0, 0, 0, 0.3);

+    glVertex2f(Left + TempR * (Count - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start), Top);

+    glVertex2f(Left + TempR * (Count - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start), Top + 135);

+  end;

+  glEnd;

+  glDisable(GL_BLEND);

+end;

+

+// draw blank Notebars

+procedure SingDrawLine(Left, Top, Right: real; NrLines: integer; Space: integer);

+var

+  Rec:      TRecR;

+  Count:      integer;

+  TempR:    real;

+  R,G,B:    real;

+

+  PlayerNumber: Integer;

+

+  GoldenStarPos : real;

+  

+  lTmpA ,

+  lTmpB : real;

+begin

+// We actually don't have a playernumber in this procedure, it should reside in NrLines - but it's always set to zero

+// So we exploit this behavior a bit - we give NrLines the playernumber, keep it in playernumber - and then we set NrLines to zero

+// This could also come quite in handy when we do the duet mode, cause just the notes for the player that has to sing should be drawn then

+// BUT this is not implemented yet, all notes are drawn! :D

+

+  PlayerNumber := NrLines + 1; // Player 1 is 0

+  NrLines     := 0;

+

+// exploit done

+

+  glColor3f(1, 1, 1);

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+

+  lTmpA := (Right-Left);

+  lTmpB := (Lines[NrLines].Line[Lines[NrLines].Current].End_ - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start);

+

+  if ( lTmpA > 0 ) AND

+     ( lTmpB > 0 ) THEN

+  begin

+    TempR := lTmpA / lTmpB;

+  end

+  else

+  begin

+    TempR := 0;

+  end;

+

+  

+  with Lines[NrLines].Line[Lines[NrLines].Current] do begin

+    for Count := 0 to HighNote do begin

+      with Note[Count] do begin

+        if NoteType <> ntFreestyle then begin

+

+

+          if Ini.EffectSing = 0 then

+          // If Golden note Effect of then Change not Color

+          begin

+            case NoteType of

+              ntNormal: glColor4f(1, 1, 1, 1);   // We set alpha to 1, cause we can control the transparency through the png itself

+              ntGolden: glColor4f(1, 1, 0.3, 1); // no stars, paint yellow -> glColor4f(1, 1, 0.3, 0.85); - we could

+            end; // case

+          end //Else all Notes same Color

+          else

+            glColor4f(1, 1, 1, 1);        // We set alpha to 1, cause we can control the transparency through the png itself

+                                          // Czesci == teil, element == piece, element | koniec == end / ending

+          // lewa czesc  -  left part

+          Rec.Left := (Start-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left + 0.5 + 10*ScreenX;

+          Rec.Right := Rec.Left + NotesW;

+          Rec.Top := Top - (Tone-BaseNote)*Space/2 - NotesH;

+          Rec.Bottom := Rec.Top + 2 * NotesH;

+          glBindTexture(GL_TEXTURE_2D, Tex_plain_Left[PlayerNumber].TexNum);

+          glBegin(GL_QUADS);

+            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+          glEnd;

+

+          //We keep the postion of the top left corner b4 it's overwritten

+            GoldenStarPos := Rec.Left;

+          //done

+

+         // srodkowa czesc  -  middle part

+        Rec.Left := Rec.Right;

+        Rec.Right := (Start+Length-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left - NotesW - 0.5 + 10*ScreenX;    // Dlugosc == length

+

+        glBindTexture(GL_TEXTURE_2D, Tex_plain_Mid[PlayerNumber].TexNum);

+        glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT );

+        glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT );

+        glBegin(GL_QUADS);

+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+          glTexCoord2f(round((Rec.Right-Rec.Left)/32), 1); glVertex2f(Rec.Right, Rec.Bottom);

+          glTexCoord2f(round((Rec.Right-Rec.Left)/32), 0); glVertex2f(Rec.Right, Rec.Top);

+        glEnd;

+

+        // prawa czesc  -  right part

+        Rec.Left := Rec.Right;

+        Rec.Right := Rec.Right + NotesW;

+

+        glBindTexture(GL_TEXTURE_2D, Tex_plain_Right[PlayerNumber].TexNum);

+        glBegin(GL_QUADS);

+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+        glEnd;

+

+          // Golden Star Patch

+          if (NoteType = ntGolden) AND (Ini.EffectSing=1) then

+          begin

+            GoldenRec.SaveGoldenStarsRec(GoldenStarPos, Rec.Top, Rec.Right, Rec.Bottom);

+          end;

+

+        end; // if not FreeStyle

+      end; // with

+    end; // for

+  end; // with

+

+  glDisable(GL_BLEND);

+  glDisable(GL_TEXTURE_2D);

+end;

+

+

+// draw sung notes

+procedure SingDrawPlayerLine(X, Y, W: real; NrGracza: integer; Space: integer);

+var

+  TempR:    real;

+  Rec:      TRecR;

+  N:        integer;

+  R:        real;

+  G:        real;

+  B:        real;

+  A:        real;

+  NotesH2:  real;

+  begin

+//  Log.LogStatus('Player notes', 'SingDraw');

+

+//  if NrGracza = 0 then LoadColor(R, G, B, 'P1Light')

+//  else LoadColor(R, G, B, 'P2Light');

+

+//  R := 71/255;

+//  G := 175/255;

+//  B := 247/255;

+

+  glColor3f(1, 1, 1);

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+

+////  if Player[NrGracza].IlNut > 0 then

+    begin

+      TempR := W / (Lines[0].Line[Lines[0].Current].End_ - Lines[0].Line[Lines[0].Current].Note[0].Start);

+        for N := 0 to Player[NrGracza].HighNote do

+          begin

+            with Player[NrGracza].Note[N] do

+              begin

+                // Left part of note

+                Rec.Left := X + (Start-Lines[0].Line[Lines[0].Current].Note[0].Start) * TempR + 0.5 + 10*ScreenX;

+                Rec.Right := Rec.Left + NotesW;

+

+                // Draw it in half size, if not hit

+               if Hit then

+                 begin

+                   NotesH2 := NotesH

+                 end

+               else

+                 begin

+                   NotesH2 := int(NotesH * 0.65);

+                 end;

+

+                Rec.Top    := Y - (Tone-Lines[0].Line[Lines[0].Current].BaseNote)*Space/2 - NotesH2;

+                Rec.Bottom := Rec.Top + 2 *NotesH2;

+

+                // draw the left part

+                glColor3f(1, 1, 1);

+                glBindTexture(GL_TEXTURE_2D, Tex_Left[NrGracza+1].TexNum);

+                glBegin(GL_QUADS);

+                  glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+                  glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+                  glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+                  glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+                glEnd;

+

+               // Middle part of the note

+               Rec.Left := Rec.Right;

+               Rec.Right := X + (Start+Length-Lines[0].Line[Lines[0].Current].Note[0].Start) * TempR - NotesW - 0.5  + 10*ScreenX;

+

+               // (nowe) - dunno

+               if (Start+Length-1 = LineState.CurrentBeatD) then

+                 Rec.Right := Rec.Right - (1-Frac(LineState.MidBeatD)) * TempR;

+               // the left note is more right than the right note itself, sounds weird - so we fix that xD

+               if Rec.Right <= Rec.Left then Rec.Right := Rec.Left;

+

+               // draw the middle part

+               glBindTexture(GL_TEXTURE_2D, Tex_Mid[NrGracza+1].TexNum);

+               glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT );

+               glTexParameterf( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT );

+               glBegin(GL_QUADS);

+                 glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+                 glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+                 glTexCoord2f(round((Rec.Right-Rec.Left)/32), 1); glVertex2f(Rec.Right, Rec.Bottom);

+                 glTexCoord2f(round((Rec.Right-Rec.Left)/32), 0); glVertex2f(Rec.Right, Rec.Top);

+               glEnd;

+               glColor3f(1, 1, 1);

+

+               // the right part of the note

+               Rec.Left := Rec.Right;

+               Rec.Right := Rec.Right + NotesW;

+

+               glBindTexture(GL_TEXTURE_2D, Tex_Right[NrGracza+1].TexNum);

+               glBegin(GL_QUADS);

+                 glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+                 glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+                 glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+                 glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+               glEnd;

+

+            // Perfect note is stored

+            if Perfect and (Ini.EffectSing=1) then

+              begin

+                A := 1 - 2*(LineState.CurrentTime - GetTimeFromBeat(Start+Length));

+                  if not (Start+Length-1 = LineState.CurrentBeatD) then

+

+                  //Star animation counter

+                  //inc(Starfr);

+                  //Starfr := Starfr mod 128;

+                  GoldenRec.SavePerfectNotePos(Rec.Left, Rec.Top);

+              end;

+            end; // with

+        end; // for

+    // eigentlich brauchen wir hier einen vergleich, um festzustellen, ob wir mit

+    // singen schon weiter wären, als bei Rec.Right, _auch, wenn nicht gesungen wird_

+    // English Translation:

+    // actually we need a compare here, to determine if the singing process is ahead Rec.Right

+    // even if there is no singing

+

+

+    // passing on NrGracza... hope this is really something like the player-number, not only

+    // some kind of weird index into a colour-table

+

+        if (Ini.EffectSing=1) then

+          GoldenRec.GoldenNoteTwinkle(Rec.Top,Rec.Bottom,Rec.Right, NrGracza);

+  end; // if

+end;

+

+//draw Note glow

+procedure SingDrawPlayerBGLine(Left, Top, Right: real; NrLines, NrGracza: integer; Space: integer);

+var

+  Rec:      TRecR;

+  Count:      integer;

+  TempR:    real;

+  R,G,B:    real;

+  X1, X2, X3, X4: real;

+  W, H:     real;

+  

+  lTmpA  ,

+  lTmpB  : real;

+begin

+  if (Player[NrGracza].ScoreTotalI >= 0) then begin

+  glColor4f(1, 1, 1, sqrt((1+sin( AudioPlayback.Position * 3))/4)/ 2 + 0.5 );

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+

+

+  lTmpA := (Right-Left);

+  lTmpB := (Lines[NrLines].Line[Lines[NrLines].Current].End_ - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start);

+

+

+  if ( lTmpA > 0 ) AND

+     ( lTmpB > 0 ) THEN

+  begin

+    TempR := lTmpA / lTmpB;

+  end

+  else

+  begin

+    TempR := 0;

+  end;

+

+  with Lines[NrLines].Line[Lines[NrLines].Current] do begin

+    for Count := 0 to HighNote do begin

+      with Note[Count] do begin

+        if NoteType <> ntFreestyle then begin

+          // begin: 14, 20

+          // easy: 6, 11

+          W := NotesW * 2 + 2;

+          H := NotesH * 1.5 + 3.5;

+

+          X2 := (Start-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left + 0.5 + 10*ScreenX + 4; // wciecie

+          X1 := X2-W;

+

+          X3 := (Start+Length-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left - 0.5 + 10*ScreenX - 4; // wciecie

+          X4 := X3+W;

+

+          // left

+          Rec.Left := X1;

+          Rec.Right := X2;

+          Rec.Top := Top - (Tone-BaseNote)*Space/2 - H;

+          Rec.Bottom := Rec.Top + 2 * H;

+

+          glBindTexture(GL_TEXTURE_2D, Tex_BG_Left[NrGracza+1].TexNum);

+          glBegin(GL_QUADS);

+            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+          glEnd;

+

+

+        // srodkowa czesc

+        Rec.Left := X2;

+        Rec.Right := X3;

+

+        glBindTexture(GL_TEXTURE_2D, Tex_BG_Mid[NrGracza+1].TexNum);

+        glBegin(GL_QUADS);

+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+        glEnd;

+

+        // prawa czesc

+        Rec.Left := X3;

+        Rec.Right := X4;

+

+        glBindTexture(GL_TEXTURE_2D, Tex_BG_Right[NrGracza+1].TexNum);

+        glBegin(GL_QUADS);

+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+        glEnd;

+        end; // if not FreeStyle

+      end; // with

+    end; // for

+  end; // with                      1

+

+  glDisable(GL_BLEND);

+  glDisable(GL_TEXTURE_2D);

+  end;

+end;

+

+procedure SingDraw;

+var

+  Count:      integer;

+  Pet2:     integer;

+  TempR:    real;

+  Rec:      TRecR;

+  TexRec:   TRecR;

+  NR:       TRecR;

+  FS:       real;

+  BarFrom:  integer;

+  BarAlpha: real;

+  BarWspol: real;

+  TempCol:  real;

+  Tekst:    string;

+  PetCz:    integer;

+

+begin

+  // positions

+  if Ini.SingWindow = 0 then

+  begin

+    NR.Left := 120;

+  end

+  else

+  begin

+    NR.Left := 20;

+  end;

+  

+  NR.Right := 780;

+

+  NR.Width := NR.Right - NR.Left;

+  NR.WMid  := NR.Width / 2;

+  NR.Mid   := NR.Left + NR.WMid;

+

+  // background  //BG Fullsize Mod

+  //SingDrawBackground;

+

+  //TimeBar mod

+  SingDrawTimeBar();

+  //eoa TimeBar mod

+

+  // rysuje paski pod nutami

+  if (PlayersPlay = 1) and (Ini.NoteLines = 1) then

+    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);

+    

+  if ((PlayersPlay = 2) or (PlayersPlay = 4)) and (Ini.NoteLines = 1) then

+  begin

+    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P1_NotesB - 105, Nr.Right + 10*ScreenX, 15);

+    SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);

+  end;

+

+  if ((PlayersPlay = 3) or (PlayersPlay = 6)) and (Ini.NoteLines = 1) then begin

+    SingDrawNoteLines(Nr.Left + 10*ScreenX, 120, Nr.Right + 10*ScreenX, 12);

+    SingDrawNoteLines(Nr.Left + 10*ScreenX, 245, Nr.Right + 10*ScreenX, 12);

+    SingDrawNoteLines(Nr.Left + 10*ScreenX, 370, Nr.Right + 10*ScreenX, 12);

+  end;

+

+  // Draw Lyrics

+  ScreenSing.Lyrics.Draw(LineState.MidBeat);

+

+  // todo: Lyrics

+(*  // rysuje pasek, podpowiadajacy poczatek spiwania w scenie

+  FS := 1.3;

+  BarFrom := Lines[0].Line[Lines[0].Current].StartNote - Lines[0].Line[Lines[0].Current].Start;

+  if BarFrom > 40 then BarFrom := 40;

+  if (Lines[0].Line[Lines[0].Current].StartNote - Lines[0].Line[Lines[0].Current].Start > 8) and  // dluga przerwa //16->12 for more help bars and then 12->8 for even more

+    (Lines[0].Line[Lines[0].Current].StartNote - LineState.MidBeat > 0) and                     // przed tekstem

+    (Lines[0].Line[Lines[0].Current].StartNote - LineState.MidBeat < 40) then begin            // ale nie za wczesnie

+    BarWspol := (LineState.MidBeat - (Lines[0].Line[Lines[0].Current].StartNote - BarFrom)) / BarFrom;

+    Rec.Left := NR.Left + BarWspol *

+//      (NR.WMid - Lines[0].Line[Lines[0].Current].LyricWidth / 2 * FS - 50);

+      (ScreenSing.LyricMain.ClientX - NR.Left - 50) + 10*ScreenX;

+    Rec.Right := Rec.Left + 50;

+    Rec.Top := Skin_LyricsT + 3;

+    Rec.Bottom := Rec.Top + 33;//SingScreen.LyricMain.Size * 3;

+{    // zapalanie

+    BarAlpha := (BarWspol*10) * 0.5;

+    if BarAlpha > 0.5 then BarAlpha := 0.5;

+

+    // gaszenie

+    if BarWspol > 0.95 then BarAlpha := 0.5 * (1 - (BarWspol - 0.95) * 20);}{

+

+    //Change fuer Crazy Joker

+

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+  glBindTexture(GL_TEXTURE_2D, Tex_Lyric_Help_Bar.TexNum);

+  glBegin(GL_QUADS);

+    glColor4f(1, 1, 1, 0);

+    glTexCoord2f(0, 0); glVertex2f(Rec.Left, Rec.Top);

+    glTexCoord2f(0, 1); glVertex2f(Rec.Left, Rec.Bottom);

+    glColor4f(1, 1, 1, 0.5);

+    glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+    glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+    glEnd;

+    glDisable(GL_BLEND);

+

+   end; }

+*)

+  // oscilloscope

+  if Ini.Oscilloscope = 1 then begin

+    if PlayersPlay = 1 then

+      SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

+

+    if PlayersPlay = 2 then begin

+      SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

+      SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);

+    end;

+

+    if PlayersPlay = 4 then begin

+      if ScreenAct = 1 then begin

+        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

+        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);

+      end;

+      if ScreenAct = 2 then begin

+        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 2);

+        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 3);

+      end;

+    end;

+

+    if PlayersPlay = 3 then begin

+      SingDrawOscilloscope(75 + 10*ScreenX, 95, 100, 20, 0);

+      SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);

+      SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);

+    end;

+

+    if PlayersPlay = 6 then begin

+      if ScreenAct = 1 then begin

+        SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 0);

+        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);

+        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);

+      end;

+      if ScreenAct = 2 then begin

+        SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 3);

+        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 4);

+        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 5);

+      end;

+    end;

+

+  end;

+

+// Set the note heights according to the difficulty level

+  case Ini.Difficulty of

+    0:

+      begin

+        NotesH := 11; // 9

+        NotesW := 6; // 5

+      end;

+    1:

+      begin

+        NotesH := 8; // 7

+        NotesW := 4; // 4

+      end;

+    2:

+      begin

+        NotesH := 5;

+        NotesW := 3;

+      end;

+  end;

+

+// Draw the Notes

+  if PlayersPlay = 1 then begin

+    SingDrawPlayerBGLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 0, 15);  // Background glow    - colorized in playercolor

+    SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);             // Plain unsung notes - colorized in playercolor

+    SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 0, 15);       // imho the sung notes

+  end;

+

+  if (PlayersPlay = 2)  then begin

+    SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);

+    SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);

+

+    SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);

+    SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 1, 15);

+

+    SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);

+    SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);

+  end;

+

+  if PlayersPlay = 3 then begin

+    NotesW := NotesW * 0.8;

+    NotesH := NotesH * 0.8;

+

+    SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);

+    SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);

+    SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);

+

+    SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);

+    SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 1, 12);

+    SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 2, 12);

+

+    SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);

+    SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);

+    SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);

+  end;

+

+  if PlayersPlay = 4 then begin

+    if ScreenAct = 1 then begin

+      SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);

+      SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);

+    end;

+    if ScreenAct = 2 then begin

+      SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 2, 15);

+      SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 3, 15);

+    end;

+

+    if ScreenAct = 1 then begin

+      SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);

+      SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 1, 15);

+    end;

+    if ScreenAct = 2 then begin

+      SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 2, 15);

+      SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 3, 15);

+    end;

+

+    if ScreenAct = 1 then begin

+      SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);

+      SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);

+    end;

+    if ScreenAct = 2 then begin

+      SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 2, 15);

+      SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 3, 15);

+    end;

+  end;

+

+  if PlayersPlay = 6 then begin

+    NotesW := NotesW * 0.8;

+    NotesH := NotesH * 0.8;

+

+    if ScreenAct = 1 then begin

+      SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);

+      SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);

+      SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);

+    end;

+    if ScreenAct = 2 then begin

+      SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 3, 12);

+      SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 4, 12);

+      SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 5, 12);

+    end;

+

+    if ScreenAct = 1 then begin

+      SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);

+      SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 1, 12);

+      SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 2, 12);

+    end;

+    if ScreenAct = 2 then begin

+      SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 3, 12);

+      SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 4, 12);

+      SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 5, 12);

+    end;

+

+    if ScreenAct = 1 then begin

+      SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);

+      SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);

+      SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);

+    end;

+    if ScreenAct = 2 then begin

+      SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 3, 12);

+      SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 4, 12);

+      SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 5, 12);

+    end;

+  end;

+  glDisable(GL_BLEND);

+  glDisable(GL_TEXTURE_2D);

+end;

+

+// q'n'd for using the game mode dll's

+procedure SingModiDraw (PlayerInfo: TPlayerInfo);

+var

+  Count:      integer;

+  Pet2:     integer;

+  TempR:    real;

+  Rec:      TRecR;

+  TexRec:   TRecR;

+  NR:       TRecR;

+  FS:       real;

+  BarFrom:  integer;

+  BarAlpha: real;

+  BarWspol: real;

+  TempCol:  real;

+  Tekst:    string;

+  PetCz:    integer;

+begin

+  // positions

+  if Ini.SingWindow = 0 then begin

+    NR.Left := 120;

+  end else begin

+    NR.Left := 20;

+  end;

+

+  NR.Right := 780;

+  NR.Width := NR.Right - NR.Left;

+  NR.WMid  := NR.Width / 2;

+  NR.Mid   := NR.Left + NR.WMid;

+

+  // time bar

+  SingDrawTimeBar();

+

+  if DLLMan.Selected.ShowNotes then

+  begin

+    if PlayersPlay = 1 then

+      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);

+    if (PlayersPlay = 2) or (PlayersPlay = 4) then begin

+      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P1_NotesB - 105, Nr.Right + 10*ScreenX, 15);

+      SingDrawNoteLines(Nr.Left + 10*ScreenX, Skin_P2_NotesB - 105, Nr.Right + 10*ScreenX, 15);

+    end;

+

+    if (PlayersPlay = 3) or (PlayersPlay = 6) then begin

+      SingDrawNoteLines(Nr.Left + 10*ScreenX, 120, Nr.Right + 10*ScreenX, 12);

+      SingDrawNoteLines(Nr.Left + 10*ScreenX, 245, Nr.Right + 10*ScreenX, 12);

+      SingDrawNoteLines(Nr.Left + 10*ScreenX, 370, Nr.Right + 10*ScreenX, 12);

+    end;

+  end;

+

+    // Draw Lyrics

+    ScreenSingModi.Lyrics.Draw(LineState.MidBeat);

+

+    // todo: Lyrics

+{    // rysuje pasek, podpowiadajacy poczatek spiwania w scenie

+    FS := 1.3;

+    BarFrom := Lines[0].Line[Lines[0].Current].StartNote - Lines[0].Line[Lines[0].Current].Start;

+    if BarFrom > 40 then BarFrom := 40;

+    if (Lines[0].Line[Lines[0].Current].StartNote - Lines[0].Line[Lines[0].Current].Start > 8) and  // dluga przerwa //16->12 for more help bars and then 12->8 for even more

+       (Lines[0].Line[Lines[0].Current].StartNote - LineState.MidBeat > 0) and                     // przed tekstem

+       (Lines[0].Line[Lines[0].Current].StartNote - LineState.MidBeat < 40) then begin            // ale nie za wczesnie

+         BarWspol := (LineState.MidBeat - (Lines[0].Line[Lines[0].Current].StartNote - BarFrom)) / BarFrom;

+         Rec.Left := NR.Left + BarWspol * (ScreenSingModi.LyricMain.ClientX - NR.Left - 50) + 10*ScreenX;

+         Rec.Right := Rec.Left + 50;

+         Rec.Top := Skin_LyricsT + 3;

+         Rec.Bottom := Rec.Top + 33;//SingScreen.LyricMain.Size * 3;

+

+           glEnable(GL_TEXTURE_2D);

+           glEnable(GL_BLEND);

+           glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+           glBindTexture(GL_TEXTURE_2D, Tex_Lyric_Help_Bar.TexNum);

+           glBegin(GL_QUADS);

+             glColor4f(1, 1, 1, 0);

+               glTexCoord2f(0, 0); glVertex2f(Rec.Left, Rec.Top);

+               glTexCoord2f(0, 1); glVertex2f(Rec.Left, Rec.Bottom);

+             glColor4f(1, 1, 1, 0.5);

+               glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+               glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+           glEnd;

+           glDisable(GL_BLEND);

+    end;

+    }

+

+  // oscilloscope | the thing that moves when you yell into your mic (imho)

+  if (((Ini.Oscilloscope = 1) AND (DLLMan.Selected.ShowRateBar_O)) AND (NOT DLLMan.Selected.ShowRateBar)) then begin

+    if PlayersPlay = 1 then

+      if PlayerInfo.Playerinfo[0].Enabled then

+        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

+

+    if PlayersPlay = 2 then begin

+      if PlayerInfo.Playerinfo[0].Enabled then

+        SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

+      if PlayerInfo.Playerinfo[1].Enabled then

+        SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);

+    end;

+

+    if PlayersPlay = 4 then begin

+      if ScreenAct = 1 then begin

+        if PlayerInfo.Playerinfo[0].Enabled then

+          SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 0);

+        if PlayerInfo.Playerinfo[1].Enabled then

+          SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 1);

+      end;

+      if ScreenAct = 2 then begin

+        if PlayerInfo.Playerinfo[2].Enabled then

+          SingDrawOscilloscope(190 + 10*ScreenX, 55, 180, 40, 2);

+        if PlayerInfo.Playerinfo[3].Enabled then

+          SingDrawOscilloscope(425 + 10*ScreenX, 55, 180, 40, 3);

+      end;

+    end;

+

+    if PlayersPlay = 3 then begin

+      if PlayerInfo.Playerinfo[0].Enabled then

+        SingDrawOscilloscope(75 + 10*ScreenX, 95, 100, 20, 0);

+      if PlayerInfo.Playerinfo[1].Enabled then

+        SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);

+      if PlayerInfo.Playerinfo[2].Enabled then

+        SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);

+    end;

+

+    if PlayersPlay = 6 then begin

+      if ScreenAct = 1 then begin

+        if PlayerInfo.Playerinfo[0].Enabled then

+          SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 0);

+        if PlayerInfo.Playerinfo[1].Enabled then

+          SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 1);

+        if PlayerInfo.Playerinfo[2].Enabled then

+          SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 2);

+      end;

+      if ScreenAct = 2 then begin

+        if PlayerInfo.Playerinfo[3].Enabled then

+          SingDrawOscilloscope( 75 + 10*ScreenX, 95, 100, 20, 3);

+        if PlayerInfo.Playerinfo[4].Enabled then

+          SingDrawOscilloscope(370 + 10*ScreenX, 95, 100, 20, 4);

+        if PlayerInfo.Playerinfo[5].Enabled then

+          SingDrawOscilloscope(670 + 10*ScreenX, 95, 100, 20, 5);

+      end;

+    end;

+

+  end;

+

+// resize the notes according to the difficulty level

+  case Ini.Difficulty of

+    0:

+      begin

+        NotesH := 11; // 9

+        NotesW := 6; // 5

+      end;

+    1:

+      begin

+        NotesH := 8; // 7

+        NotesW := 4; // 4

+      end;

+    2:

+      begin

+        NotesH := 5;

+        NotesW := 3;

+      end;

+  end;

+

+  if (DLLMAn.Selected.ShowNotes And DLLMan.Selected.LoadSong) then

+  begin

+    if (PlayersPlay = 1) And PlayerInfo.Playerinfo[0].Enabled then begin

+      SingDrawPlayerBGLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 0, 15);

+      SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);

+      SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 0, 15);

+    end;

+

+    if (PlayersPlay = 2)  then begin

+      if PlayerInfo.Playerinfo[0].Enabled then

+      begin

+        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);

+        SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);

+        SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);

+      end;

+      if PlayerInfo.Playerinfo[1].Enabled then

+      begin

+        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);

+        SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);

+        SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);

+      end;

+

+    end;

+

+    if PlayersPlay = 3 then begin

+      NotesW := NotesW * 0.8;

+      NotesH := NotesH * 0.8;

+

+      if PlayerInfo.Playerinfo[0].Enabled then

+      begin

+        SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);

+        SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);

+        SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);

+      end;

+

+      if PlayerInfo.Playerinfo[1].Enabled then

+      begin

+        SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);

+        SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 0, 12);

+        SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);

+      end;

+

+      if PlayerInfo.Playerinfo[2].Enabled then

+      begin

+        SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);

+        SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 0, 12);

+        SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);

+      end;

+    end;

+

+    if PlayersPlay = 4 then begin

+      if ScreenAct = 1 then begin

+        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 0, 15);

+        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 1, 15);

+      end;

+      if ScreenAct = 2 then begin

+        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Right - 20, 0, 2, 15);

+        SingDrawPlayerBGLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Right - 20, 0, 3, 15);

+      end;

+

+      SingDrawLine(NR.Left + 20, Skin_P1_NotesB, NR.Right - 20, 0, 15);

+      SingDrawLine(NR.Left + 20, Skin_P2_NotesB, NR.Right - 20, 0, 15);

+

+      if ScreenAct = 1 then begin

+        SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 0, 15);

+        SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 1, 15);

+      end;

+      if ScreenAct = 2 then begin

+        SingDrawPlayerLine(Nr.Left + 20, Skin_P1_NotesB, Nr.Width - 40, 2, 15);

+        SingDrawPlayerLine(Nr.Left + 20, Skin_P2_NotesB, Nr.Width - 40, 3, 15);

+      end;

+    end;

+

+    if PlayersPlay = 6 then begin

+      NotesW := NotesW * 0.8;

+      NotesH := NotesH * 0.8;

+

+      if ScreenAct = 1 then begin

+        SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 0, 12);

+        SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 1, 12);

+        SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 2, 12);

+      end;

+      if ScreenAct = 2 then begin

+        SingDrawPlayerBGLine(Nr.Left + 20, 120+95, Nr.Right - 20, 0, 3, 12);

+        SingDrawPlayerBGLine(Nr.Left + 20, 245+95, Nr.Right - 20, 0, 4, 12);

+        SingDrawPlayerBGLine(Nr.Left + 20, 370+95, Nr.Right - 20, 0, 5, 12);

+      end;

+

+      SingDrawLine(NR.Left + 20, 120+95, NR.Right - 20, 0, 12);

+      SingDrawLine(NR.Left + 20, 245+95, NR.Right - 20, 0, 12);

+      SingDrawLine(NR.Left + 20, 370+95, NR.Right - 20, 0, 12);

+

+      if ScreenAct = 1 then begin

+        SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 0, 12);

+        SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 1, 12);

+        SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 2, 12);

+      end;

+      if ScreenAct = 2 then begin

+        SingDrawPlayerLine(Nr.Left + 20, 120+95, Nr.Width - 40, 3, 12);

+        SingDrawPlayerLine(Nr.Left + 20, 245+95, Nr.Width - 40, 4, 12);

+        SingDrawPlayerLine(Nr.Left + 20, 370+95, Nr.Width - 40, 5, 12);

+      end;

+    end;

+  end;

+

+  glDisable(GL_BLEND);

+  glDisable(GL_TEXTURE_2D);

+end;

+

+

+{//SingBar Mod

+procedure SingDrawSingbar(X, Y, W, H: real; Percent: integer);

+var

+  R:   Real;

+  G:   Real;

+  B:   Real;

+  A:   cardinal;

+  I:   Integer;

+

+begin;

+

+   //SingBar Background

+  glColor4f(1, 1, 1, 0.8);

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Back.TexNum);

+  glBegin(GL_QUADS);

+    glTexCoord2f(0, 0); glVertex2f(X, Y);

+    glTexCoord2f(0, 1); glVertex2f(X, Y+H);

+    glTexCoord2f(1, 1); glVertex2f(X+W, Y+H);

+    glTexCoord2f(1, 0); glVertex2f(X+W, Y);

+  glEnd;

+

+  //SingBar coloured Bar

+  Case Percent of

+    0..22: begin

+          R := 1;

+          G := 0;

+          B := 0;

+        end;

+    23..42: begin

+          R := 1;

+          G := ((Percent-23)/100)*5;

+          B := 0;

+        end;

+    43..57: begin

+          R := 1;

+          G := 1;

+          B := 0;

+        end;

+    58..77: begin

+          R := 1-(Percent - 58)/100*5;

+          G := 1;

+          B := 0;

+        end;

+    78..99: begin

+          R := 0;

+          G := 1;

+          B := 0;

+        end;

+    End; //Case

+

+  glColor4f(R, G, B, 1);

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Bar.TexNum);

+  //Size= Player[PlayerNum].ScorePercent of W

+    glBegin(GL_QUADS);

+    glTexCoord2f(0, 0); glVertex2f(X, Y);

+    glTexCoord2f(0, 1); glVertex2f(X, Y+H);

+    glTexCoord2f(1, 1); glVertex2f(X+(W/100 * (Percent +1)), Y+H);

+    glTexCoord2f(1, 0); glVertex2f(X+(W/100 * (Percent +1)), Y);

+  glEnd;

+

+  //SingBar Front

+  glColor4f(1, 1, 1, 0.6);

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+  glBindTexture(GL_TEXTURE_2D, Tex_SingBar_Front.TexNum);

+  glBegin(GL_QUADS);

+    glTexCoord2f(0, 0); glVertex2f(X, Y);

+    glTexCoord2f(0, 1); glVertex2f(X, Y+H);

+    glTexCoord2f(1, 1); glVertex2f(X+W, Y+H);

+    glTexCoord2f(1, 0); glVertex2f(X+W, Y);

+  glEnd;

+end;

+//end Singbar Mod

+

+//PhrasenBonus - Line Bonus Pop Up

+procedure SingDrawLineBonus( const X, Y: Single; Color: TRGB; Alpha: Single; Text: string; Age: Integer);

+var

+Length, X2: Real; //Length of Text

+Size: Integer;    //Size of Popup

+begin

+if Alpha <> 0 then

+begin

+

+//Set Font Propertys

+SetFontStyle(2); //Font: Outlined1

+if Age < 5 then SetFontSize(Age + 1) else SetFontSize(6);

+SetFontItalic(False);

+

+//Check Font Size

+Length := glTextWidth ( PChar(Text)) + 3; //Little Space for a Better Look ^^

+

+//Text

+SetFontPos (X + 50 - (Length / 2), Y + 12); //Position

+

+

+if Age < 5 then Size := Age * 10 else Size := 50;

+

+  //Draw  Background

+  //glColor4f(Color.R, Color.G, Color.B, Alpha); //Set Color

+  glColor4f(1, 1, 1, Alpha);

+

+

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+  //glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+

+

+  //New Method, Not Variable

+  glBindTexture(GL_TEXTURE_2D, Tex_SingLineBonusBack[2].TexNum);

+

+  glBegin(GL_QUADS);

+    glTexCoord2f(0, 0); glVertex2f(X + 50 - Size, Y + 25 - (Size/2));

+    glTexCoord2f(0, 1); glVertex2f(X + 50 - Size, Y + 25 + (Size/2));

+    glTexCoord2f(1, 1); glVertex2f(X + 50 + Size, Y + 25 + (Size/2));

+    glTexCoord2f(1, 0); glVertex2f(X + 50 + Size, Y + 25 - (Size/2));

+  glEnd;

+

+  glColor4f(1, 1, 1, Alpha); //Set Color

+  //Draw Text

+  glPrint (PChar(Text));

+end;

+end;

+//PhrasenBonus - Line Bonus Mod}

+

+// Draw Note Bars for Editor

+//There are 11 Resons for a new Procdedure:   (nice binary :D )

+// 1. It don't look good when you Draw the Golden Note Star Effect in the Editor

+// 2. You can see the Freestyle Notes in the Editor SemiTransparent

+// 3. Its easier and Faster then changing the old Procedure

+procedure EditDrawLine(Left, Top, Right: real; NrLines: integer; Space: integer);

+var

+  Rec:      TRecR;

+  Count:      integer;

+  TempR:    real;

+begin

+  glColor3f(1, 1, 1);

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+  TempR := (Right-Left) / (Lines[NrLines].Line[Lines[NrLines].Current].End_ - Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start);

+  with Lines[NrLines].Line[Lines[NrLines].Current] do begin

+    for Count := 0 to HighNote do begin

+      with Note[Count] do begin

+

+          // Golden Note Patch

+          case NoteType of

+            ntFreestyle: glColor4f(1, 1, 1, 0.35);

+            ntNormal: glColor4f(1, 1, 1, 0.85);

+            ntGolden: Glcolor4f(1, 1, 0.3, 0.85);

+          end; // case

+

+

+

+          // lewa czesc  -  left part

+          Rec.Left := (Start-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left + 0.5 + 10*ScreenX;

+          Rec.Right := Rec.Left + NotesW;

+          Rec.Top := Top - (Tone-BaseNote)*Space/2 - NotesH;

+          Rec.Bottom := Rec.Top + 2 * NotesH;

+          glBindTexture(GL_TEXTURE_2D, Tex_Left[Color].TexNum);

+          glBegin(GL_QUADS);

+            glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+            glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+            glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+            glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+          glEnd;

+

+         // srodkowa czesc  -  middle part

+        Rec.Left := Rec.Right;

+        Rec.Right := (Start+Length-Lines[NrLines].Line[Lines[NrLines].Current].Note[0].Start) * TempR + Left - NotesW - 0.5 + 10*ScreenX;

+

+        glBindTexture(GL_TEXTURE_2D, Tex_Mid[Color].TexNum);

+        glBegin(GL_QUADS);

+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+        glEnd;

+

+        // prawa czesc  -  right part

+        Rec.Left := Rec.Right;

+        Rec.Right := Rec.Right + NotesW;

+

+        glBindTexture(GL_TEXTURE_2D, Tex_Right[Color].TexNum);

+        glBegin(GL_QUADS);

+          glTexCoord2f(0, 0); glVertex2f(Rec.Left,  Rec.Top);

+          glTexCoord2f(0, 1); glVertex2f(Rec.Left,  Rec.Bottom);

+          glTexCoord2f(1, 1); glVertex2f(Rec.Right, Rec.Bottom);

+          glTexCoord2f(1, 0); glVertex2f(Rec.Right, Rec.Top);

+        glEnd;

+

+      end; // with

+    end; // for

+  end; // with

+

+  glDisable(GL_BLEND);

+  glDisable(GL_TEXTURE_2D);

+end;

+

+procedure SingDrawTimeBar();

+var x,y:           real;

+    width, height: real;

+    lTmp         : real;

+begin

+  x := Theme.Sing.StaticTimeProgress.x;

+  y := Theme.Sing.StaticTimeProgress.y;

+  

+  width  := Theme.Sing.StaticTimeProgress.w;

+  height := Theme.Sing.StaticTimeProgress.h;

+

+  glColor4f(Theme.Sing.StaticTimeProgress.ColR,

+            Theme.Sing.StaticTimeProgress.ColG,

+            Theme.Sing.StaticTimeProgress.ColB, 1); //Set Color

+

+  glEnable(GL_TEXTURE_2D);

+  glEnable(GL_BLEND);

+

+  glBindTexture(GL_TEXTURE_2D, Tex_TimeProgress.TexNum);

+

+  glBegin(GL_QUADS);

+  try

+    glTexCoord2f(0, 0);

+    glVertex2f(x,y);

+    

+    if ( LineState.CurrentTime > 0 ) AND

+       ( LineState.TotalTime > 0 ) THEN

+    BEGIN

+      lTmp := LineState.CurrentTime/LineState.TotalTime;

+      glTexCoord2f((width*LineState.CurrentTime/LineState.TotalTime)/8, 0);

+      glVertex2f(x+width*LineState.CurrentTime/LineState.TotalTime, y);

+

+      glTexCoord2f((width*LineState.CurrentTime/LineState.TotalTime)/8, 1);

+      glVertex2f(x+width*LineState.CurrentTime/LineState.TotalTime, y+height);

+    END;

+

+    glTexCoord2f(0, 1);

+    glVertex2f(x, y+height);

+  finally

+    glEnd;

+  end;

+

+ glDisable(GL_TEXTURE_2D);

+ glDisable(GL_BLEND);

+ glcolor4f(1,1,1,1);

+end;

+

+end.

+

diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas
index 505c69f9..b11b39e2 100644
--- a/Game/Code/Classes/ULyrics.pas
+++ b/Game/Code/Classes/ULyrics.pas
@@ -1,759 +1,749 @@
-unit ULyrics;
-
-interface
-
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
-
-{$I switches.inc}
-
-uses OpenGL12,
-     UTexture,
-     UThemes,
-     UMusic;
-
-type
-  TLyricWord = record
-    X:          Real;     // left corner
-    Width:      Real;     // width
-    Start:      Cardinal; // start of the word in quarters (beats)
-    Length:     Cardinal; // length of the word in quarters
-    Text:       String;   // text
-    Freestyle:  Boolean;  // is freestyle?
-  end;
-  ALyricWord = array of TLyricWord;
-
-  PLyricLine = ^TLyricLine;
-  TLyricLine = record
-    Text:           String;       // text
-    Tex:            glUInt;       // texture of the text
-    Width:          Real;         // width
-    Size:           Byte;         // fontsize
-    Words:          ALyricWord;   // words in this line 
-	CurWord:        Integer;      // current active word idx (only valid if line is active)
-    Start:          Cardinal;     // start of this line in quarters
-    Length:         Cardinal;     // length in quarters
-    HasFreestyle:   Boolean;      // one or more word are freestyle?
-    CountFreestyle: Integer;      // how often there is a change from freestyle to non freestyle in this line
-    Players:        Byte;         // players that should sing that line (bitset, Player1: 1, Player2: 2, Player3: 4)
-    Done:           Boolean;      // is sentence already sung?
-    LastLine:		Boolean;      // is this the last line ob the song?
-  end;
-
-  TLyricEngine = class
-    private
-      EoLastSentence: Real;          // end of the previous sentence (in beats)
-      LastDrawBeat: Real;
-      UpperLine:      TLyricLine;    // first line displayed (top)
-      LowerLine:      TLyricLine;    // second lind displayed (bottom)
-      QueueLine:      TLyricLine;    // third line (queue and will be displayed when next line is finished)
-      PUpperLine, PLowerLine, PQueueLine: PLyricLine;
-
-      IndicatorTex:   TTexture;       // texture for lyric indikator
-      BallTex:        TTexture;       // texture of the ball for the lyric effect
-      
-      inQueue:        Boolean;		  // is line in queue
-      LCounter:       Word;           // line counter
-      
-      // duet mode - textures for player icons
-      PlayerIconTex:  array[0..5] of  // player idx
-                      array [0..1] of // enabled disabled
-                      TTexture;
-
-
-      //Some helper Procedures for Lyric Drawing
-      procedure DrawLyrics (Beat: Real);
-      procedure DrawLyricsLine(const X, W, Y: Real; Size: Byte; const Line: PLyricLine; Beat: Real);
-      procedure DrawPlayerIcon(const Player: Byte; const Enabled: Boolean; const X, Y, Size, Alpha: Real);
-      procedure DrawBall(const XBall, YBall, Alpha:Real);
-      
-    public
-      // positions, line specific settings
-      UpperLineX:     Real;       //X Start Pos of UpperLine
-      UpperLineW:     Real;       //Width of UpperLine with Icon(s) and Text
-      UpperLineY:     Real;       //Y Start Pos of UpperLine
-      UpperLineSize:  Byte;       //Max Size of Lyrics Text in UpperLine
-
-      LowerLineX:     Real;       //X Start Pos of LowerLine
-      LowerLineW:     Real;       //Width of LowerLine with Icon(s) and Text
-      LowerLineY:     Real;       //Y Start Pos of LowerLine
-      LowerLineSize:  Byte;       //Max Size of Lyrics Text in LowerLine
-
-      // display propertys
-      LineColor_en:   TRGBA;      //Color of Words in an Enabled Line
-      LineColor_dis:  TRGBA;      //Color of Words in a Disabled Line
-      LineColor_act:  TRGBA;      //Color of teh active Word
-      FontStyle:      Byte;       //Font for the Lyric Text
-      FontReSize:     Boolean;    //ReSize Lyrics if they don't fit Screen
-      
-      { // currently not used
-       FadeInEffect:   Byte;       //Effect for Line Fading in: 0: No Effect; 1: Fade Effect; 2: Move Upwards from Bottom to Pos
-       FadeOutEffect:  Byte;       //Effect for Line Fading out: 0: No Effect; 1: Fade Effect; 2: Move Upwards
-      }
-
-      UseLinearFilter:Boolean;    //Should Linear Tex Filter be used
-
-      // song specific settings
-      BPM:            Real;
-      Resolution:     Integer;
-
-
-      // properties to easily read options of this class
-      property LineinQueue: Boolean read inQueue;    // line in queue?
-      property LineCounter: Word    read LCounter;   // lines that were progressed so far (after last clear)
-      
-      Procedure   AddLine(Line: PLine);              // adds a line to the queue, if there is space
-      Procedure   Draw (Beat: Real);                 // draw the current (active at beat) lyrics
-      
-      Procedure   Clear (const cBPM: Real = 0;       // clears all cached song specific information
-                         const cResolution: Integer = 0);
-      
-      Constructor Create; overload; 
-      Constructor Create(ULX,ULY,ULW,ULS,LLX,LLY,LLW,LLS:Real); overload;
-      Procedure   LoadTextures;
-      Destructor  Free;
-  end;
-
-implementation
-
-uses SysUtils,
-     USkins,
-     TextGL,
-     UGraphic,
-     UDisplay,
-     math,
-     UIni;
-
-//-----------
-//Helper procs to use TRGB in Opengl ...maybe this should be somewhere else
-//-----------
-procedure glColorRGB(Color: TRGB);  overload;
-begin
-  glColor3f(Color.R, Color.G, Color.B);
-end;
-
-procedure glColorRGB(Color: TRGB; Alpha: Real);  overload;
-begin
-  glColor4f(Color.R, Color.G, Color.B, Alpha);
-end;
-
-procedure glColorRGB(Color: TRGBA); overload;
-begin
-  glColor4f(Color.R, Color.G, Color.B, Color.A);
-end;
-
-procedure glColorRGB(Color: TRGBA; Alpha: Real); overload;
-begin
-  glColor4f(Color.R, Color.G, Color.B, Min(Color.A, Alpha));
-end;
-
-
-
-//---------------
-// Create - Constructor, just get Memory
-//---------------
-Constructor TLyricEngine.Create;
-begin
-  BPM := 0;
-  Resolution := 0;
-  LCounter := 0;
-  inQueue := False;
-
-  UpperLine.Done := True;
-  LowerLine.Done := True;
-  QueueLine.Done := True;
-  PUpperline:=@UpperLine;
-  PLowerLine:=@LowerLine;
-  PQueueLine:=@QueueLine;
-
-  UseLinearFilter := True;
-  {$IFDEF DARWIN}
-    // eddie: Getting range check error with NAN on OS X:
-    LastDrawBeat:=0;
-  {$ELSE}
-    LastDrawBeat:=NAN;
-  {$ENDIF}
-end;
-
-Constructor TLyricEngine.Create(ULX,ULY,ULW,ULS,LLX,LLY,LLW,LLS:Real);
-begin
-  Create;
-  UpperLineX := ULX;
-  UpperLineW := ULW;
-  UpperLineY := ULY;
-  UpperLineSize := Trunc(ULS);
-
-  LowerLineX := LLX;
-  LowerLineW := LLW;
-  LowerLineY := LLY;
-  LowerLineSize := Trunc(LLS);
-  LoadTextures;
-end;
-
-
-//---------------
-// Free - Frees Memory
-//---------------
-Destructor  TLyricEngine.Free;
-begin
-
-end;
-
-//---------------
-// Clear - Clears all cached Song specific Information
-//---------------
-Procedure   TLyricEngine.Clear (const cBPM: Real; const cResolution: Integer);
-begin
-  BPM := cBPM;
-  Resolution := cResolution;
-  LCounter := 0;
-  inQueue := False;
-
-  UpperLine.Done := True;
-  LowerLine.Done := True;
-  QueueLine.Done := True;
-
-  PUpperline:=@UpperLine;
-  PLowerLine:=@LowerLine;
-  PQueueLine:=@QueueLine;
-  
-  {$IFDEF DARWIN}
-    // eddie: Getting range check error with NAN on OS X:
-    LastDrawBeat:=0;
-  {$ELSE}
-    LastDrawBeat:=NAN;
-  {$ENDIF}
-end;
-
-
-//---------------
-// LoadTextures - Load Player Textures and Create Lyric Textures
-//---------------
-Procedure   TLyricEngine.LoadTextures;
-var
-  I: Integer;
-  
-  function CreateLineTex: glUint;
-  var
-    PTexData: Pointer;
-  begin
-    try
-      // get memory
-      GetMem(pTexData, 1024*64*4); 
-
-      // generate and bind Texture
-      glGenTextures(1, @Result);
-      glBindTexture(GL_TEXTURE_2D, Result);
-
-      // get texture memeory
-      glTexImage2D(GL_TEXTURE_2D, 0, 4, 1024, 64, 0, GL_RGBA, GL_UNSIGNED_BYTE, pTexData);
-      glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
-      glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
-
-      if UseLinearFilter then
-      begin
-        glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
-        glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
-      end;
-
-    finally  
-      // free unused memory
-      FreeMem(pTexData);
-    end;
-  end;
-begin
-  
-  // lyric indicator (bar that indicates when the line start)
-  IndicatorTex := Texture.LoadTexture(Skin.GetTextureFileName('LyricHelpBar'), TEXTURE_TYPE_TRANSPARENT, $FF00FF);
-
-  // ball for current word hover in ball effect
-  BallTex := Texture.LoadTexture(Skin.GetTextureFileName('Ball'), TEXTURE_TYPE_TRANSPARENT, 0);
-
-  // duet mode: load player icon
-  For I := 0 to 5 do
-  begin
-    PlayerIconTex[I][0] := Texture.LoadTexture(Skin.GetTextureFileName('LyricIcon_P' + InttoStr(I+1)), TEXTURE_TYPE_TRANSPARENT, 0);
-    PlayerIconTex[I][1] := Texture.LoadTexture(Skin.GetTextureFileName('LyricIconD_P' + InttoStr(I+1)), TEXTURE_TYPE_TRANSPARENT, 0);
-  end;
-  
-  // create line textures
-  UpperLine.Tex := CreateLineTex;
-  LowerLine.Tex := CreateLineTex;
-  QueueLine.Tex := CreateLineTex;
-end;
-
-
-//---------------
-// AddLine - Adds LyricLine to queue
-//---------------
-Procedure   TLyricEngine.AddLine(Line: PLine);
-var
-  LyricLine: PLyricLine;
-  countNotes: Cardinal;
-  Viewport: Array[0..3] of Integer;
-  
-  PosX: Real;
-  I:  Integer;
-  
-  function CalcWidth(LyricLine: PLyricLine): Real;
-  begin
-    Result := glTextWidth(PChar(LyricLine.Text));
-    
-    Result := Result + (LyricLine.CountFreestyle * 10);
-    
-    // if the line ends with a freestyle not, then leave the place to finish to draw the text italic
-    if (LyricLine.Words[High(LyricLine.Words)].Freestyle) then
-      Result := Result + 12;
-  end;
-begin
-  // only add lines, if there is space
-  If not LineinQueue then
-  begin
-    // set pointer to line to write
-    
-    If (LineCounter = 0) then
-      LyricLine := PUpperLine 
-    else if (LineCounter = 1) then
-      LyricLine := PLowerLine
-    else
-    begin  
-      LyricLine := PQueueLine;
-      
-      //now there is a queued line
-      inQueue   := True;       
-    end;
-  end
-  else
-  begin // rotate lines (round-robin-like)
-    LyricLine  := PUpperLine;
-    PUpperLine := PLowerLine;
-    PLowerLine := PQueueLine;
-    PQueueLine := LyricLine;
-  end;
-
-  // sentence has notes?
-  If  Line = nil then
-  begin
-    // reset all values, if the new line is nil (lines after the last line)
-    LyricLine.Start     := 0;
-    LyricLine.Length    := 0;
-    LyricLine.CurWord   := -1;
-    LyricLine.LastLine  := False;
-    LyricLine.Width     := 0;
-    SetLength(LyricLine.Words, 0);
-  end
-  else if Length(Line.Note) > 0 then
-  begin
-    // copy values from SongLine to LyricLine
-    CountNotes          := High(Line.Note);
-    LyricLine.Start     := Line.Note[0].Start;
-    LyricLine.Length    := Line.Note[CountNotes].Start + Line.Note[CountNotes].Length - LyricLine.Start;
-    LyricLine.CurWord   := -1;
-    LyricLine.LastLine  := Line.LastLine;
-    
-    // default values - set later
-    LyricLine.HasFreestyle := False;
-    LyricLine.CountFreestyle := 0;
-    LyricLine.Text      := '';
-    
-    // duet mode: players of that line
-    LyricLine.Players   := 127;
-
-    //copy words
-    SetLength(LyricLine.Words, CountNotes + 1);
-    For I := 0 to CountNotes do
-    begin
-      LyricLine.Words[I].Start     := Line.Note[I].Start;
-      LyricLine.Words[I].Length    := Line.Note[I].Length;
-      LyricLine.Words[I].Text      := Line.Note[I].Text;
-      LyricLine.Words[I].Freestyle := Line.Note[I].NoteType = ntFreestyle;
-      
-      LyricLine.HasFreestyle       := LyricLine.HasFreestyle OR LyricLine.Words[I].Freestyle;
-      LyricLine.Text               := LyricLine.Text + LyricLine.Words[I].Text;
-        
-      if (I > 0) AND LyricLine.Words[I-1].Freestyle AND not LyricLine.Words[I].Freestyle then
-        Inc(LyricLine.CountFreestyle);
-    end;
-    
-    // set font params
-    SetFontStyle(FontStyle);
-    SetFontPos(0, 0);
-    LyricLine.Size := UpperLineSize;
-    SetFontSize(LyricLine.Size);
-    SetFontItalic(False);
-    glColor4f(1, 1, 1, 1);
-
-    // change fontsize to fit the screen
-    LyricLine.Width := CalcWidth(LyricLine);
-    while (LyricLine.Width > UpperLineW) do
-    begin
-      Dec(LyricLine.Size);
-
-      if (LyricLine.Size <=1) then
-        Break;
-
-      SetFontSize(LyricLine.Size);
-      LyricLine.Width := CalcWidth(LyricLine);
-    end;
-    
-    // create LyricTexture - prepare OpenGL
-    glGetIntegerv(GL_VIEWPORT, @ViewPort);
-    glClearColor(0.0,0.0,0.0,0.0);
-    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
-    glViewPort(0,0,800,600);
-
-    // set word positions and line size
-    PosX := 0;
-    for I := 0 to High(LyricLine.Words) do
-    begin
-      with LyricLine.Words[I] do
-      begin
-        SetFontItalic(Freestyle);
-
-        X := PosX;
-            
-        //Draw Lyrics
-        SetFontPos(PosX, 0);
-        glPrint(PChar(Text));
-      
-        Width := glTextWidth(PChar(Text));
-        if (I < High(LyricLine.Words)) AND Freestyle AND not LyricLine.Words[I+1].Freestyle then
-          Width := Width + 10
-        else
-          if (I = High(LyricLine.Words)) AND Freestyle then
-            Width := Width + 12;
-        PosX := PosX + Width;
-      end;
-    end;
-  end
-  else
-  begin
-    // create LyricTexture - prepare OpenGL
-    glGetIntegerv(GL_VIEWPORT, @ViewPort);
-    glClearColor(0.0,0.0,0.0,0.0);
-    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
-    glViewPort(0,0,800,600);
-  end;
-
-  //for debugging, is this used anymore?
-  //Display.ScreenShot;
-  
-  //Copy to Texture
-  glEnable(GL_ALPHA);
-  glBindTexture(GL_TEXTURE_2D, LyricLine.Tex);
-  glCopyTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, 0, 600-64, 1024, 64, 0);
-  glDisable(GL_ALPHA);
-  
-  //Clear Buffer
-  glClearColor(0,0,0,0);
-  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
-
-  glViewPort(ViewPort[0], ViewPort[1], ViewPort[2], ViewPort[3]);
-
-  //Increase the Counter
-  Inc(LCounter);
-end;
-
-
-//---------------
-// Draw - Procedure Draws Lyrics; Beat is curent Beat in Quarters
-//        Draw just manage the Lyrics, drawing is done by a call of DrawLyrics
-//---------------
-Procedure TLyricEngine.Draw (Beat: Real);
-begin
-  DrawLyrics(Beat);
-  LastDrawBeat := Beat;
-end;
-
-//---------------
-// DrawLyrics(private) - Helper for Draw; main Drawing procedure
-//---------------
-procedure TLyricEngine.DrawLyrics (Beat: Real);
-begin
-  DrawLyricsLine(UpperLineX, UpperLineW, UpperlineY, 15, PUpperline, Beat);
-  DrawLyricsLine(LowerLineX, LowerLineW, LowerlineY, 15, PLowerline, Beat);
-end;
-
-//---------------
-// DrawPlayerIcon(private) - Helper for Draw; Draws a Playericon
-//---------------
-procedure TLyricEngine.DrawPlayerIcon(const Player: Byte; const Enabled: Boolean; const X, Y, Size, Alpha: Real);
-var IEnabled: Byte;
-begin
-  Case Enabled of
-    True: 	IEnabled := 0;
-    False:  IEnabled := 1;
-  end;
-  
-  try
-    glEnable(GL_TEXTURE_2D);
-    glEnable(GL_BLEND);
-    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-    glBindTexture(GL_TEXTURE_2D, PlayerIconTex[Player][IEnabled].TexNum);
-
-    glColor4f(1,1,1,Alpha);
-    glBegin(GL_QUADS);
-      glTexCoord2f(0, 0); glVertex2f(X, Y);
-      glTexCoord2f(0, 1); glVertex2f(X, Y + Size);
-      glTexCoord2f(1, 1); glVertex2f(X + Size, Y + Size);
-      glTexCoord2f(1, 0); glVertex2f(X + Size, Y);
-    glEnd;
-
-  finally
-    glDisable(GL_BLEND);
-    glDisable(GL_TEXTURE_2D);
-  end;
-end;
-
-//---------------
-// DrawBall(private) - Helper for Draw; Draws the Ball over the LyricLine if needed
-//---------------
-procedure TLyricEngine.DrawBall(const XBall, YBall, Alpha:Real);
-begin
-  try
-    glEnable(GL_TEXTURE_2D);
-    glEnable(GL_BLEND);
-    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-    glBindTexture(GL_TEXTURE_2D, BallTex.TexNum);
-      
-    glColor4f(1,1,1, Alpha);
-    glBegin(GL_QUADS);
-      glTexCoord2f(0, 0); glVertex2f(XBall - 10, YBall);
-      glTexCoord2f(0, 1); glVertex2f(XBall - 10, YBall + 20);
-      glTexCoord2f(1, 1); glVertex2f(XBall + 10, YBall + 20);
-      glTexCoord2f(1, 0); glVertex2f(XBall + 10, YBall);
-    glEnd;
-    
-  finally
-    glDisable(GL_BLEND);
-    glDisable(GL_TEXTURE_2D);
-  end;
-end;
-
-//---------------
-// DrawLyricsLine(private) - Helper for Draw; Draws one LyricLine
-//---------------
-procedure TLyricEngine.DrawLyricsLine(const X, W, Y: Real; Size: Byte; const Line: PLyricLine; Beat: Real);
-var
-  CurWordStart, CurWordEnd: Real; 		// screen coordinates of current word and the rest of the sentence
-  FreestyleDiff: Integer;               // difference between top and bottom coordiantes for freestyle lyrics
-  Progress: Real;						// progress of singing the current word
-  LyricX: Real; 						// left
-  LyricX2: Real;						// right
-  LyricY: Real;							// top
-  LyricsHeight: Real;					// height the lyrics are displayed
-  Alpha: Real;                          // alphalevel to fade out at end
-  
-  {// duet mode
-  IconSize: Real;						// size of player icons
-  IconAlpha: Real;						// alpha level of player icons
-  }
-begin
-  // lines with a width lower than 0, have not to be draw
-  if Line^.Width <= 0 then
-    exit;
-  
-  // this is actually a bit more than the real font size
-  // it helps adjusting the "zoom-center"
-  LyricsHeight:=30.5 * (Line^.Size/10);
-  
-  {
-  // duet mode
-  IconSize := (2 * Size);
-  IconAlpha := Frac(Beat/(Resolution*4));
-  
-  DrawPlayerIcon (0, True, X, Y + (42 - IconSize) / 2 , IconSize, IconAlpha);
-  DrawPlayerIcon (1, True, X + IconSize + 1,  Y + (42 - IconSize) / 2, IconSize, IconAlpha);
-  DrawPlayerIcon (2, True, X + (IconSize + 1)*2, Y + (42 - IconSize) / 2, IconSize, IconAlpha);
-  }
-  
-  LyricX := X+W/2 - Line^.Width/2;
-  LyricX2 := LyricX + Line^.Width;
-   
-  // maybe center smaller lines
-  //LyricY := Y;
-  LyricY := Y + ((Size / Line.Size - 1) * LyricsHeight) / 2; 
-  
-  Alpha := 1;
-  
-  // word in the sentence is active?
-  if (Line^.Start < Beat) then
-  begin
-    // if this line just got active, then CurWord is still -1
-    // this means, we should try to make the first word active
-    // then we check if the current active word is still meant to be active
-    // if not, we proceed to the next word
-    if Line^.CurWord = -1 then
-      Line^.CurWord:=0;
-   
-    if (Line^.CurWord < High(Line^.Words)) AND (Beat >= (Line^.Words[Line^.CurWord + 1].Start)) then
-      Line^.CurWord:=Line^.CurWord+1;
-    
-    FreestyleDiff := 0;
-    
-    // last word of this line finished, but this line did not hide
-    if (Line^.CurWord > High(Line^.Words)) then
-    begin
-      CurWordStart := Line^.Words[High(Line^.Words)].X + Line^.Words[High(Line^.Words)].Width;
-      CurWordEnd := CurWordStart;
-      
-      // fade out last line
-      if Line^.LastLine then
-      begin
-        Alpha := 1 - (Beat - (Line^.Words[High(Line^.Words)].Start + Line^.Words[High(Line^.Words)].Length)) / 15;
-        if (Alpha < 0) then
-          Alpha := 0;
-      end;
-    end
-    else
-    begin
-      with Line^.Words[Line^.CurWord] do
-      begin
-        Progress := (Beat - Start) / Length;
-        if Progress >= 1 then
-          Progress := 1;
-      
-        if Progress <= 0 then
-          Progress := 0;
-      
-        CurWordStart:=X;
-        CurWordEnd:=X+Width;
-      
-        // Slide Effect
-        // simply paint the active texture to the current position 
-        if Ini.LyricsEffect = 2 then
-        begin
-          CurWordStart := CurWordStart + Width * progress;
-          CurWordEnd := CurWordStart;
-        end;
-        
-        if (Line^.CurWord < High(Line^.Words)) AND Freestyle AND not Line^.Words[Line^.CurWord + 1].Freestyle then
-        begin
-          FreestyleDiff := 2;          
-        end
-        else
-          if Freestyle then
-          begin
-            FreestyleDiff := 12;
-            CurWordStart := CurWordStart - 1;
-            CurWordEnd := CurWordEnd - 2;
-          end;
-      end;
-    end;
-        
-    glEnable(GL_BLEND);
-    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-    glEnable(GL_TEXTURE_2D);
-    glBindTexture(GL_TEXTURE_2D, Line^.Tex);
-
-    // draw sentence up to current word
-    if (Ini.LyricsEffect = 3) or (Ini.LyricsEffect = 4) then
-      // ball lyric effect - only highlight current word and not that ones before in this line
-      glColorRGB(LineColor_en, Alpha)
-    else
-      glColorRGB(LineColor_act, Alpha);
-    
-    glBegin(GL_QUADS);
-      glTexCoord2f(0, 1); glVertex2f(LyricX, LyricY);
-      glTexCoord2f(0, 1-LyricsHeight/64); glVertex2f(LyricX, LyricY + LyricsHeight);
-      glTexCoord2f(CurWordStart/1024, 1-LyricsHeight/64); glVertex2f(LyricX+CurWordStart, LyricY + LyricsHeight);
-      glTexCoord2f((CurWordStart+FreestyleDiff)/1024, 1); glVertex2f(LyricX+CurWordStart+FreestyleDiff, LyricY);
-    glEnd;
-
-    // draw rest of sentence
-    glColorRGB(LineColor_en);
-    glBegin(GL_QUADS);
-      glTexCoord2f((CurWordEnd+FreestyleDiff)/1024, 1); glVertex2f(LyricX+CurWordEnd+FreestyleDiff, LyricY);
-      glTexCoord2f(CurWordEnd/1024, 1-LyricsHeight/64); glVertex2f(LyricX+CurWordEnd, LyricY + LyricsHeight);
-      glTexCoord2f(Line^.Width/1024, 1-LyricsHeight/64); glVertex2f(LyricX2, LyricY + LyricsHeight);
-      glTexCoord2f(Line^.Width/1024, 1); glVertex2f(LyricX2, LyricY);
-    glEnd;
-    
-    // draw active word:
-    // type 0: simple lyric effect
-    // type 3: ball lyric effect
-    // type 4: shift lyric effect
-    // only change the color of the current word
-    if (Ini.LyricsEffect = 0) or (Ini.LyricsEffect = 3) or (Ini.LyricsEffect = 4) then
-    begin
-      { // maybe fade in?
-      glColor4f(LineColor_en.r,LineColor_en.g,LineColor_en.b,1-progress);
-      glBegin(GL_QUADS);
-        glTexCoord2f(CurWordStart/1024, 1); glVertex2f(LyricX+CurWordStart, Y);
-        glTexCoord2f(CurWordStart/1024, 0); glVertex2f(LyricX+CurWordStart, Y + 64);
-        glTexCoord2f(CurWordEnd/1024, 0); glVertex2f(LyricX+CurWordEnd, Y + 64);
-        glTexCoord2f(CurWordEnd/1024, 1); glVertex2f(LyricX+CurWordEnd, Y);
-      glEnd;
-      }
-      
-      if (Ini.LyricsEffect = 4) then
-        LyricY := LyricY - 8 * (1-progress);
-      
-      glColor3f(LineColor_act.r,LineColor_act.g,LineColor_act.b);
-      glBegin(GL_QUADS);
-        glTexCoord2f((CurWordStart+FreestyleDiff)/1024, 1); glVertex2f(LyricX+CurWordStart+FreestyleDiff, LyricY);
-        glTexCoord2f(CurWordStart/1024, 0); glVertex2f(LyricX+CurWordStart, LyricY + 64);
-        glTexCoord2f(CurWordEnd/1024, 0); glVertex2f(LyricX+CurWordEnd, LyricY + 64);
-        glTexCoord2f((CurWordEnd+FreestyleDiff)/1024, 1); glVertex2f(LyricX+CurWordEnd+FreestyleDiff, LyricY);
-      glEnd;
-      
-      if (Ini.LyricsEffect = 4) then
-        LyricY := LyricY + 8 * (1-progress);
-    end
-      
-    // draw active word:
-    // type 1: zoom lyric effect
-    // change color and zoom current word
-    else if Ini.LyricsEffect = 1 then
-    begin
-      glPushMatrix;
-      glTranslatef(LyricX+CurWordStart+(CurWordEnd-CurWordStart)/2,LyricY+LyricsHeight/2,0);
-      glScalef(1.0+(1-progress)/2,1.0+(1-progress)/2,1.0);
-      glColor4f(LineColor_en.r,LineColor_en.g,LineColor_en.b,1-progress);
-      glBegin(GL_QUADS);
-        glTexCoord2f((CurWordStart+FreestyleDiff)/1024, 1); glVertex2f(-(CurWordEnd-CurWordStart)/2+FreestyleDiff, -LyricsHeight/2);
-        glTexCoord2f(CurWordStart/1024, 1-LyricsHeight/64); glVertex2f(-(CurWordEnd-CurWordStart)/2, + LyricsHeight/2);
-        glTexCoord2f(CurWordEnd/1024, 1-LyricsHeight/64); glVertex2f((CurWordEnd-CurWordStart)/2, + LyricsHeight/2);
-        glTexCoord2f((CurWordEnd+FreestyleDiff)/1024, 1); glVertex2f((CurWordEnd-CurWordStart)/2+FreestyleDiff, -LyricsHeight/2);
-      glEnd;
-      glColor4f(LineColor_act.r,LineColor_act.g,LineColor_act.b,1);
-      glBegin(GL_QUADS);
-        glTexCoord2f((CurWordStart+FreestyleDiff)/1024, 1); glVertex2f(-(CurWordEnd-CurWordStart)/2+FreestyleDiff, -LyricsHeight/2);
-        glTexCoord2f(CurWordStart/1024, 1-LyricsHeight/64); glVertex2f(-(CurWordEnd-CurWordStart)/2,  + LyricsHeight/2);
-        glTexCoord2f(CurWordEnd/1024, 1-LyricsHeight/64); glVertex2f((CurWordEnd-CurWordStart)/2,  + LyricsHeight/2);
-        glTexCoord2f((CurWordEnd+FreestyleDiff)/1024, 1); glVertex2f((CurWordEnd-CurWordStart)/2+FreestyleDiff, -LyricsHeight/2);
-      glEnd;
-      glPopMatrix;
-    end;
-
-    glDisable(GL_TEXTURE_2D);
-    glDisable(GL_BLEND);
-    
-    if Ini.LyricsEffect = 3 then
-      DrawBall(LyricX + CurWordStart + (CurWordEnd - CurWordStart) * progress, LyricY - 15 - 15*sin(progress * pi), Alpha);
-  end
-  else
-  begin
-    // draw complete inactive sentence if line hasn't started but is already shown
-    glEnable(GL_TEXTURE_2D);
-    glEnable(GL_BLEND);
-    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
-    glBindTexture(GL_TEXTURE_2D, Line^.Tex);
-
-    glColorRGB(LineColor_dis);
-    glBegin(GL_QUADS);
-      glTexCoord2f(0, 1); glVertex2f(LyricX, LyricY);
-      glTexCoord2f(0, 1-LyricsHeight/64); glVertex2f(LyricX, LyricY + LyricsHeight);
-      glTexCoord2f(Line^.Width/1024, 1-LyricsHeight/64); glVertex2f(LyricX2, LyricY + LyricsHeight);
-      glTexCoord2f(Line^.Width/1024, 1); glVertex2f(LyricX2, LyricY);
-    glEnd;
-
-    glDisable(GL_BLEND);
-    glDisable(GL_TEXTURE_2D);
-  end;
-end;
-
-
-end.
-
+unit ULyrics;

+

+interface

+

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

+{$I switches.inc}

+

+uses OpenGL12,

+     UTexture,

+     UThemes,

+     UMusic;

+

+type

+  TLyricWord = record

+    X:          Real;     // left corner

+    Width:      Real;     // width

+    Start:      Cardinal; // start of the word in quarters (beats)

+    Length:     Cardinal; // length of the word in quarters

+    Text:       String;   // text

+    Freestyle:  Boolean;  // is freestyle?

+  end;

+  ALyricWord = array of TLyricWord;

+

+  PLyricLine = ^TLyricLine;

+  TLyricLine = record

+    Text:           String;       // text

+    Tex:            glUInt;       // texture of the text

+    Width:          Real;         // width

+    Size:           Byte;         // fontsize

+    Words:          ALyricWord;   // words in this line 

+	CurWord:        Integer;      // current active word idx (only valid if line is active)

+    Start:          Cardinal;     // start of this line in quarters

+    Length:         Cardinal;     // length in quarters

+    HasFreestyle:   Boolean;      // one or more word are freestyle?

+    CountFreestyle: Integer;      // how often there is a change from freestyle to non freestyle in this line

+    Players:        Byte;         // players that should sing that line (bitset, Player1: 1, Player2: 2, Player3: 4)

+    Done:           Boolean;      // is sentence already sung?

+    LastLine:		Boolean;      // is this the last line ob the song?

+  end;

+

+  TLyricEngine = class

+    private

+      EoLastSentence: Real;          // end of the previous sentence (in beats)

+      LastDrawBeat: Real;

+      UpperLine:      TLyricLine;    // first line displayed (top)

+      LowerLine:      TLyricLine;    // second lind displayed (bottom)

+      QueueLine:      TLyricLine;    // third line (queue and will be displayed when next line is finished)

+      PUpperLine, PLowerLine, PQueueLine: PLyricLine;

+

+      IndicatorTex:   TTexture;       // texture for lyric indikator

+      BallTex:        TTexture;       // texture of the ball for the lyric effect

+      

+      inQueue:        Boolean;		  // is line in queue

+      LCounter:       Word;           // line counter

+      

+      // duet mode - textures for player icons

+      PlayerIconTex:  array[0..5] of  // player idx

+                      array [0..1] of // enabled disabled

+                      TTexture;

+

+

+      //Some helper Procedures for Lyric Drawing

+      procedure DrawLyrics (Beat: Real);

+      procedure DrawLyricsLine(const X, W, Y: Real; Size: Byte; const Line: PLyricLine; Beat: Real);

+      procedure DrawPlayerIcon(const Player: Byte; const Enabled: Boolean; const X, Y, Size, Alpha: Real);

+      procedure DrawBall(const XBall, YBall, Alpha:Real);

+      

+    public

+      // positions, line specific settings

+      UpperLineX:     Real;       //X Start Pos of UpperLine

+      UpperLineW:     Real;       //Width of UpperLine with Icon(s) and Text

+      UpperLineY:     Real;       //Y Start Pos of UpperLine

+      UpperLineSize:  Byte;       //Max Size of Lyrics Text in UpperLine

+

+      LowerLineX:     Real;       //X Start Pos of LowerLine

+      LowerLineW:     Real;       //Width of LowerLine with Icon(s) and Text

+      LowerLineY:     Real;       //Y Start Pos of LowerLine

+      LowerLineSize:  Byte;       //Max Size of Lyrics Text in LowerLine

+

+      // display propertys

+      LineColor_en:   TRGBA;      //Color of Words in an Enabled Line

+      LineColor_dis:  TRGBA;      //Color of Words in a Disabled Line

+      LineColor_act:  TRGBA;      //Color of teh active Word

+      FontStyle:      Byte;       //Font for the Lyric Text

+      FontReSize:     Boolean;    //ReSize Lyrics if they don't fit Screen

+      

+      { // currently not used

+       FadeInEffect:   Byte;       //Effect for Line Fading in: 0: No Effect; 1: Fade Effect; 2: Move Upwards from Bottom to Pos

+       FadeOutEffect:  Byte;       //Effect for Line Fading out: 0: No Effect; 1: Fade Effect; 2: Move Upwards

+      }

+

+      UseLinearFilter:Boolean;    //Should Linear Tex Filter be used

+

+      // song specific settings

+      BPM:            Real;

+      Resolution:     Integer;

+

+

+      // properties to easily read options of this class

+      property LineinQueue: Boolean read inQueue;    // line in queue?

+      property LineCounter: Word    read LCounter;   // lines that were progressed so far (after last clear)

+      

+      Procedure   AddLine(Line: PLine);              // adds a line to the queue, if there is space

+      Procedure   Draw (Beat: Real);                 // draw the current (active at beat) lyrics

+      

+      Procedure   Clear (const cBPM: Real = 0;       // clears all cached song specific information

+                         const cResolution: Integer = 0);

+      

+      Constructor Create; overload; 

+      Constructor Create(ULX,ULY,ULW,ULS,LLX,LLY,LLW,LLS:Real); overload;

+      Procedure   LoadTextures;

+      Destructor  Free;

+  end;

+

+implementation

+

+uses SysUtils,

+     USkins,

+     TextGL,

+     UGraphic,

+     UDisplay,

+     math,

+     UIni;

+

+//-----------

+//Helper procs to use TRGB in Opengl ...maybe this should be somewhere else

+//-----------

+procedure glColorRGB(Color: TRGB);  overload;

+begin

+  glColor3f(Color.R, Color.G, Color.B);

+end;

+

+procedure glColorRGB(Color: TRGB; Alpha: Real);  overload;

+begin

+  glColor4f(Color.R, Color.G, Color.B, Alpha);

+end;

+

+procedure glColorRGB(Color: TRGBA); overload;

+begin

+  glColor4f(Color.R, Color.G, Color.B, Color.A);

+end;

+

+procedure glColorRGB(Color: TRGBA; Alpha: Real); overload;

+begin

+  glColor4f(Color.R, Color.G, Color.B, Min(Color.A, Alpha));

+end;

+

+

+

+//---------------

+// Create - Constructor, just get Memory

+//---------------

+Constructor TLyricEngine.Create;

+begin

+  BPM := 0;

+  Resolution := 0;

+  LCounter := 0;

+  inQueue := False;

+

+  UpperLine.Done := True;

+  LowerLine.Done := True;

+  QueueLine.Done := True;

+  PUpperline:=@UpperLine;

+  PLowerLine:=@LowerLine;

+  PQueueLine:=@QueueLine;

+

+  UseLinearFilter := True;

+  LastDrawBeat:=0;

+end;

+

+Constructor TLyricEngine.Create(ULX,ULY,ULW,ULS,LLX,LLY,LLW,LLS:Real);

+begin

+  Create;

+  UpperLineX := ULX;

+  UpperLineW := ULW;

+  UpperLineY := ULY;

+  UpperLineSize := Trunc(ULS);

+

+  LowerLineX := LLX;

+  LowerLineW := LLW;

+  LowerLineY := LLY;

+  LowerLineSize := Trunc(LLS);

+  LoadTextures;

+end;

+

+

+//---------------

+// Free - Frees Memory

+//---------------

+Destructor  TLyricEngine.Free;

+begin

+

+end;

+

+//---------------

+// Clear - Clears all cached Song specific Information

+//---------------

+Procedure   TLyricEngine.Clear (const cBPM: Real; const cResolution: Integer);

+begin

+  BPM := cBPM;

+  Resolution := cResolution;

+  LCounter := 0;

+  inQueue := False;

+

+  UpperLine.Done := True;

+  LowerLine.Done := True;

+  QueueLine.Done := True;

+

+  PUpperline:=@UpperLine;

+  PLowerLine:=@LowerLine;

+  PQueueLine:=@QueueLine;

+  

+  LastDrawBeat:=0;

+end;

+

+

+//---------------

+// LoadTextures - Load Player Textures and Create Lyric Textures

+//---------------

+Procedure   TLyricEngine.LoadTextures;

+var

+  I: Integer;

+  

+  function CreateLineTex: glUint;

+  var

+    PTexData: Pointer;

+  begin

+    try

+      // get memory

+      GetMem(pTexData, 1024*64*4); 

+

+      // generate and bind Texture

+      glGenTextures(1, @Result);

+      glBindTexture(GL_TEXTURE_2D, Result);

+

+      // get texture memeory

+      glTexImage2D(GL_TEXTURE_2D, 0, 4, 1024, 64, 0, GL_RGBA, GL_UNSIGNED_BYTE, pTexData);

+      glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);

+      glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);

+

+      if UseLinearFilter then

+      begin

+        glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);

+        glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

+      end;

+

+    finally  

+      // free unused memory

+      FreeMem(pTexData);

+    end;

+  end;

+begin

+  

+  // lyric indicator (bar that indicates when the line start)

+  IndicatorTex := Texture.LoadTexture(Skin.GetTextureFileName('LyricHelpBar'), TEXTURE_TYPE_TRANSPARENT, $FF00FF);

+

+  // ball for current word hover in ball effect

+  BallTex := Texture.LoadTexture(Skin.GetTextureFileName('Ball'), TEXTURE_TYPE_TRANSPARENT, 0);

+

+  // duet mode: load player icon

+  For I := 0 to 5 do

+  begin

+    PlayerIconTex[I][0] := Texture.LoadTexture(Skin.GetTextureFileName('LyricIcon_P' + InttoStr(I+1)), TEXTURE_TYPE_TRANSPARENT, 0);

+    PlayerIconTex[I][1] := Texture.LoadTexture(Skin.GetTextureFileName('LyricIconD_P' + InttoStr(I+1)), TEXTURE_TYPE_TRANSPARENT, 0);

+  end;

+  

+  // create line textures

+  UpperLine.Tex := CreateLineTex;

+  LowerLine.Tex := CreateLineTex;

+  QueueLine.Tex := CreateLineTex;

+end;

+

+

+//---------------

+// AddLine - Adds LyricLine to queue

+//---------------

+Procedure   TLyricEngine.AddLine(Line: PLine);

+var

+  LyricLine: PLyricLine;

+  countNotes: Cardinal;

+  Viewport: Array[0..3] of Integer;

+  

+  PosX: Real;

+  I:  Integer;

+  

+  function CalcWidth(LyricLine: PLyricLine): Real;

+  begin

+    Result := glTextWidth(PChar(LyricLine.Text));

+    

+    Result := Result + (LyricLine.CountFreestyle * 10);

+    

+    // if the line ends with a freestyle not, then leave the place to finish to draw the text italic

+    if (LyricLine.Words[High(LyricLine.Words)].Freestyle) then

+      Result := Result + 12;

+  end;

+begin

+  // only add lines, if there is space

+  If not LineinQueue then

+  begin

+    // set pointer to line to write

+    

+    If (LineCounter = 0) then

+      LyricLine := PUpperLine 

+    else if (LineCounter = 1) then

+      LyricLine := PLowerLine

+    else

+    begin  

+      LyricLine := PQueueLine;

+      

+      //now there is a queued line

+      inQueue   := True;       

+    end;

+  end

+  else

+  begin // rotate lines (round-robin-like)

+    LyricLine  := PUpperLine;

+    PUpperLine := PLowerLine;

+    PLowerLine := PQueueLine;

+    PQueueLine := LyricLine;

+  end;

+

+  // sentence has notes?

+  If  Line = nil then

+  begin

+    // reset all values, if the new line is nil (lines after the last line)

+    LyricLine.Start     := 0;

+    LyricLine.Length    := 0;

+    LyricLine.CurWord   := -1;

+    LyricLine.LastLine  := False;

+    LyricLine.Width     := 0;

+    SetLength(LyricLine.Words, 0);

+  end

+  else if Length(Line.Note) > 0 then

+  begin

+    // copy values from SongLine to LyricLine

+    CountNotes          := High(Line.Note);

+    LyricLine.Start     := Line.Note[0].Start;

+    LyricLine.Length    := Line.Note[CountNotes].Start + Line.Note[CountNotes].Length - LyricLine.Start;

+    LyricLine.CurWord   := -1;

+    LyricLine.LastLine  := Line.LastLine;

+    

+    // default values - set later

+    LyricLine.HasFreestyle := False;

+    LyricLine.CountFreestyle := 0;

+    LyricLine.Text      := '';

+    

+    // duet mode: players of that line

+    LyricLine.Players   := 127;

+

+    //copy words

+    SetLength(LyricLine.Words, CountNotes + 1);

+    For I := 0 to CountNotes do

+    begin

+      LyricLine.Words[I].Start     := Line.Note[I].Start;

+      LyricLine.Words[I].Length    := Line.Note[I].Length;

+      LyricLine.Words[I].Text      := Line.Note[I].Text;

+      LyricLine.Words[I].Freestyle := Line.Note[I].NoteType = ntFreestyle;

+      

+      LyricLine.HasFreestyle       := LyricLine.HasFreestyle OR LyricLine.Words[I].Freestyle;

+      LyricLine.Text               := LyricLine.Text + LyricLine.Words[I].Text;

+        

+      if (I > 0) AND LyricLine.Words[I-1].Freestyle AND not LyricLine.Words[I].Freestyle then

+        Inc(LyricLine.CountFreestyle);

+    end;

+    

+    // set font params

+    SetFontStyle(FontStyle);

+    SetFontPos(0, 0);

+    LyricLine.Size := UpperLineSize;

+    SetFontSize(LyricLine.Size);

+    SetFontItalic(False);

+    glColor4f(1, 1, 1, 1);

+

+    // change fontsize to fit the screen

+    LyricLine.Width := CalcWidth(LyricLine);

+    while (LyricLine.Width > UpperLineW) do

+    begin

+      Dec(LyricLine.Size);

+

+      if (LyricLine.Size <=1) then

+        Break;

+

+      SetFontSize(LyricLine.Size);

+      LyricLine.Width := CalcWidth(LyricLine);

+    end;

+    

+    // create LyricTexture - prepare OpenGL

+    glGetIntegerv(GL_VIEWPORT, @ViewPort);

+    glClearColor(0.0,0.0,0.0,0.0);

+    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

+    glViewPort(0,0,800,600);

+

+    // set word positions and line size

+    PosX := 0;

+    for I := 0 to High(LyricLine.Words) do

+    begin

+      with LyricLine.Words[I] do

+      begin

+        SetFontItalic(Freestyle);

+

+        X := PosX;

+            

+        //Draw Lyrics

+        SetFontPos(PosX, 0);

+        glPrint(PChar(Text));

+      

+        Width := glTextWidth(PChar(Text));

+        if (I < High(LyricLine.Words)) AND Freestyle AND not LyricLine.Words[I+1].Freestyle then

+          Width := Width + 10

+        else

+          if (I = High(LyricLine.Words)) AND Freestyle then

+            Width := Width + 12;

+        PosX := PosX + Width;

+      end;

+    end;

+  end

+  else

+  begin

+    // create LyricTexture - prepare OpenGL

+    glGetIntegerv(GL_VIEWPORT, @ViewPort);

+    glClearColor(0.0,0.0,0.0,0.0);

+    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

+    glViewPort(0,0,800,600);

+  end;

+

+  //for debugging, is this used anymore?

+  //Display.ScreenShot;

+  

+  //Copy to Texture

+  glEnable(GL_ALPHA);

+  glBindTexture(GL_TEXTURE_2D, LyricLine.Tex);

+  glCopyTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, 0, 600-64, 1024, 64, 0);

+  glDisable(GL_ALPHA);

+  

+  //Clear Buffer

+  glClearColor(0,0,0,0);

+  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

+

+  glViewPort(ViewPort[0], ViewPort[1], ViewPort[2], ViewPort[3]);

+

+  //Increase the Counter

+  Inc(LCounter);

+end;

+

+

+//---------------

+// Draw - Procedure Draws Lyrics; Beat is curent Beat in Quarters

+//        Draw just manage the Lyrics, drawing is done by a call of DrawLyrics

+//---------------

+Procedure TLyricEngine.Draw (Beat: Real);

+begin

+  DrawLyrics(Beat);

+  LastDrawBeat := Beat;

+end;

+

+//---------------

+// DrawLyrics(private) - Helper for Draw; main Drawing procedure

+//---------------

+procedure TLyricEngine.DrawLyrics (Beat: Real);

+begin

+  DrawLyricsLine(UpperLineX, UpperLineW, UpperlineY, 15, PUpperline, Beat);

+  DrawLyricsLine(LowerLineX, LowerLineW, LowerlineY, 15, PLowerline, Beat);

+end;

+

+//---------------

+// DrawPlayerIcon(private) - Helper for Draw; Draws a Playericon

+//---------------

+procedure TLyricEngine.DrawPlayerIcon(const Player: Byte; const Enabled: Boolean; const X, Y, Size, Alpha: Real);

+var IEnabled: Byte;

+begin

+  Case Enabled of

+    True: 	IEnabled := 0;

+    False:  IEnabled := 1;

+  end;

+  

+  try

+    glEnable(GL_TEXTURE_2D);

+    glEnable(GL_BLEND);

+    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+    glBindTexture(GL_TEXTURE_2D, PlayerIconTex[Player][IEnabled].TexNum);

+

+    glColor4f(1,1,1,Alpha);

+    glBegin(GL_QUADS);

+      glTexCoord2f(0, 0); glVertex2f(X, Y);

+      glTexCoord2f(0, 1); glVertex2f(X, Y + Size);

+      glTexCoord2f(1, 1); glVertex2f(X + Size, Y + Size);

+      glTexCoord2f(1, 0); glVertex2f(X + Size, Y);

+    glEnd;

+

+  finally

+    glDisable(GL_BLEND);

+    glDisable(GL_TEXTURE_2D);

+  end;

+end;

+

+//---------------

+// DrawBall(private) - Helper for Draw; Draws the Ball over the LyricLine if needed

+//---------------

+procedure TLyricEngine.DrawBall(const XBall, YBall, Alpha:Real);

+begin

+  try

+    glEnable(GL_TEXTURE_2D);

+    glEnable(GL_BLEND);

+    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+    glBindTexture(GL_TEXTURE_2D, BallTex.TexNum);

+      

+    glColor4f(1,1,1, Alpha);

+    glBegin(GL_QUADS);

+      glTexCoord2f(0, 0); glVertex2f(XBall - 10, YBall);

+      glTexCoord2f(0, 1); glVertex2f(XBall - 10, YBall + 20);

+      glTexCoord2f(1, 1); glVertex2f(XBall + 10, YBall + 20);

+      glTexCoord2f(1, 0); glVertex2f(XBall + 10, YBall);

+    glEnd;

+    

+  finally

+    glDisable(GL_BLEND);

+    glDisable(GL_TEXTURE_2D);

+  end;

+end;

+

+//---------------

+// DrawLyricsLine(private) - Helper for Draw; Draws one LyricLine

+//---------------

+procedure TLyricEngine.DrawLyricsLine(const X, W, Y: Real; Size: Byte; const Line: PLyricLine; Beat: Real);

+var

+  CurWordStart, CurWordEnd: Real; 		// screen coordinates of current word and the rest of the sentence

+  FreestyleDiff: Integer;               // difference between top and bottom coordiantes for freestyle lyrics

+  Progress: Real;						// progress of singing the current word

+  LyricX: Real; 						// left

+  LyricX2: Real;						// right

+  LyricY: Real;							// top

+  LyricsHeight: Real;					// height the lyrics are displayed

+  Alpha: Real;                          // alphalevel to fade out at end

+  

+  {// duet mode

+  IconSize: Real;						// size of player icons

+  IconAlpha: Real;						// alpha level of player icons

+  }

+begin

+  // lines with a width lower than 0, have not to be draw

+  if Line^.Width <= 0 then

+    exit;

+  

+  // this is actually a bit more than the real font size

+  // it helps adjusting the "zoom-center"

+  LyricsHeight:=30.5 * (Line^.Size/10);

+  

+  {

+  // duet mode

+  IconSize := (2 * Size);

+  IconAlpha := Frac(Beat/(Resolution*4));

+  

+  DrawPlayerIcon (0, True, X, Y + (42 - IconSize) / 2 , IconSize, IconAlpha);

+  DrawPlayerIcon (1, True, X + IconSize + 1,  Y + (42 - IconSize) / 2, IconSize, IconAlpha);

+  DrawPlayerIcon (2, True, X + (IconSize + 1)*2, Y + (42 - IconSize) / 2, IconSize, IconAlpha);

+  }

+  

+  LyricX := X+W/2 - Line^.Width/2;

+  LyricX2 := LyricX + Line^.Width;

+   

+  // maybe center smaller lines

+  //LyricY := Y;

+  LyricY := Y + ((Size / Line.Size - 1) * LyricsHeight) / 2; 

+  

+  Alpha := 1;

+  

+  // word in the sentence is active?

+  if (Line^.Start < Beat) then

+  begin

+    // if this line just got active, then CurWord is still -1

+    // this means, we should try to make the first word active

+    // then we check if the current active word is still meant to be active

+    // if not, we proceed to the next word

+    if Line^.CurWord = -1 then

+      Line^.CurWord:=0;

+   

+    if (Line^.CurWord < High(Line^.Words)) AND (Beat >= (Line^.Words[Line^.CurWord + 1].Start)) then

+      Line^.CurWord:=Line^.CurWord+1;

+    

+    FreestyleDiff := 0;

+    

+    // last word of this line finished, but this line did not hide

+    if (Line^.CurWord > High(Line^.Words)) then

+    begin

+      CurWordStart := Line^.Words[High(Line^.Words)].X + Line^.Words[High(Line^.Words)].Width;

+      CurWordEnd := CurWordStart;

+      

+      // fade out last line

+      if Line^.LastLine then

+      begin

+        Alpha := 1 - (Beat - (Line^.Words[High(Line^.Words)].Start + Line^.Words[High(Line^.Words)].Length)) / 15;

+        if (Alpha < 0) then

+          Alpha := 0;

+      end;

+    end

+    else

+    begin

+      with Line^.Words[Line^.CurWord] do

+      begin

+        Progress := (Beat - Start) / Length;

+        if Progress >= 1 then

+          Progress := 1;

+      

+        if Progress <= 0 then

+          Progress := 0;

+      

+        CurWordStart:=X;

+        CurWordEnd:=X+Width;

+      

+        // Slide Effect

+        // simply paint the active texture to the current position 

+        if Ini.LyricsEffect = 2 then

+        begin

+          CurWordStart := CurWordStart + Width * progress;

+          CurWordEnd := CurWordStart;

+        end;

+        

+        if (Line^.CurWord < High(Line^.Words)) AND Freestyle AND not Line^.Words[Line^.CurWord + 1].Freestyle then

+        begin

+          FreestyleDiff := 2;          

+        end

+        else

+          if Freestyle then

+          begin

+            FreestyleDiff := 12;

+            CurWordStart := CurWordStart - 1;

+            CurWordEnd := CurWordEnd - 2;

+          end;

+      end;

+    end;

+        

+    glEnable(GL_BLEND);

+    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+    glEnable(GL_TEXTURE_2D);

+    glBindTexture(GL_TEXTURE_2D, Line^.Tex);

+

+    // draw sentence up to current word

+    if (Ini.LyricsEffect = 3) or (Ini.LyricsEffect = 4) then

+      // ball lyric effect - only highlight current word and not that ones before in this line

+      glColorRGB(LineColor_en, Alpha)

+    else

+      glColorRGB(LineColor_act, Alpha);

+    

+    glBegin(GL_QUADS);

+      glTexCoord2f(0, 1); glVertex2f(LyricX, LyricY);

+      glTexCoord2f(0, 1-LyricsHeight/64); glVertex2f(LyricX, LyricY + LyricsHeight);

+      glTexCoord2f(CurWordStart/1024, 1-LyricsHeight/64); glVertex2f(LyricX+CurWordStart, LyricY + LyricsHeight);

+      glTexCoord2f((CurWordStart+FreestyleDiff)/1024, 1); glVertex2f(LyricX+CurWordStart+FreestyleDiff, LyricY);

+    glEnd;

+

+    // draw rest of sentence

+    glColorRGB(LineColor_en);

+    glBegin(GL_QUADS);

+      glTexCoord2f((CurWordEnd+FreestyleDiff)/1024, 1); glVertex2f(LyricX+CurWordEnd+FreestyleDiff, LyricY);

+      glTexCoord2f(CurWordEnd/1024, 1-LyricsHeight/64); glVertex2f(LyricX+CurWordEnd, LyricY + LyricsHeight);

+      glTexCoord2f(Line^.Width/1024, 1-LyricsHeight/64); glVertex2f(LyricX2, LyricY + LyricsHeight);

+      glTexCoord2f(Line^.Width/1024, 1); glVertex2f(LyricX2, LyricY);

+    glEnd;

+    

+    // draw active word:

+    // type 0: simple lyric effect

+    // type 3: ball lyric effect

+    // type 4: shift lyric effect

+    // only change the color of the current word

+    if (Ini.LyricsEffect = 0) or (Ini.LyricsEffect = 3) or (Ini.LyricsEffect = 4) then

+    begin

+      { // maybe fade in?

+      glColor4f(LineColor_en.r,LineColor_en.g,LineColor_en.b,1-progress);

+      glBegin(GL_QUADS);

+        glTexCoord2f(CurWordStart/1024, 1); glVertex2f(LyricX+CurWordStart, Y);

+        glTexCoord2f(CurWordStart/1024, 0); glVertex2f(LyricX+CurWordStart, Y + 64);

+        glTexCoord2f(CurWordEnd/1024, 0); glVertex2f(LyricX+CurWordEnd, Y + 64);

+        glTexCoord2f(CurWordEnd/1024, 1); glVertex2f(LyricX+CurWordEnd, Y);

+      glEnd;

+      }

+      

+      if (Ini.LyricsEffect = 4) then

+        LyricY := LyricY - 8 * (1-progress);

+      

+      glColor3f(LineColor_act.r,LineColor_act.g,LineColor_act.b);

+      glBegin(GL_QUADS);

+        glTexCoord2f((CurWordStart+FreestyleDiff)/1024, 1); glVertex2f(LyricX+CurWordStart+FreestyleDiff, LyricY);

+        glTexCoord2f(CurWordStart/1024, 0); glVertex2f(LyricX+CurWordStart, LyricY + 64);

+        glTexCoord2f(CurWordEnd/1024, 0); glVertex2f(LyricX+CurWordEnd, LyricY + 64);

+        glTexCoord2f((CurWordEnd+FreestyleDiff)/1024, 1); glVertex2f(LyricX+CurWordEnd+FreestyleDiff, LyricY);

+      glEnd;

+      

+      if (Ini.LyricsEffect = 4) then

+        LyricY := LyricY + 8 * (1-progress);

+    end

+      

+    // draw active word:

+    // type 1: zoom lyric effect

+    // change color and zoom current word

+    else if Ini.LyricsEffect = 1 then

+    begin

+      glPushMatrix;

+      glTranslatef(LyricX+CurWordStart+(CurWordEnd-CurWordStart)/2,LyricY+LyricsHeight/2,0);

+      glScalef(1.0+(1-progress)/2,1.0+(1-progress)/2,1.0);

+      glColor4f(LineColor_en.r,LineColor_en.g,LineColor_en.b,1-progress);

+      glBegin(GL_QUADS);

+        glTexCoord2f((CurWordStart+FreestyleDiff)/1024, 1); glVertex2f(-(CurWordEnd-CurWordStart)/2+FreestyleDiff, -LyricsHeight/2);

+        glTexCoord2f(CurWordStart/1024, 1-LyricsHeight/64); glVertex2f(-(CurWordEnd-CurWordStart)/2, + LyricsHeight/2);

+        glTexCoord2f(CurWordEnd/1024, 1-LyricsHeight/64); glVertex2f((CurWordEnd-CurWordStart)/2, + LyricsHeight/2);

+        glTexCoord2f((CurWordEnd+FreestyleDiff)/1024, 1); glVertex2f((CurWordEnd-CurWordStart)/2+FreestyleDiff, -LyricsHeight/2);

+      glEnd;

+      glColor4f(LineColor_act.r,LineColor_act.g,LineColor_act.b,1);

+      glBegin(GL_QUADS);

+        glTexCoord2f((CurWordStart+FreestyleDiff)/1024, 1); glVertex2f(-(CurWordEnd-CurWordStart)/2+FreestyleDiff, -LyricsHeight/2);

+        glTexCoord2f(CurWordStart/1024, 1-LyricsHeight/64); glVertex2f(-(CurWordEnd-CurWordStart)/2,  + LyricsHeight/2);

+        glTexCoord2f(CurWordEnd/1024, 1-LyricsHeight/64); glVertex2f((CurWordEnd-CurWordStart)/2,  + LyricsHeight/2);

+        glTexCoord2f((CurWordEnd+FreestyleDiff)/1024, 1); glVertex2f((CurWordEnd-CurWordStart)/2+FreestyleDiff, -LyricsHeight/2);

+      glEnd;

+      glPopMatrix;

+    end;

+

+    glDisable(GL_TEXTURE_2D);

+    glDisable(GL_BLEND);

+    

+    if Ini.LyricsEffect = 3 then

+      DrawBall(LyricX + CurWordStart + (CurWordEnd - CurWordStart) * progress, LyricY - 15 - 15*sin(progress * pi), Alpha);

+  end

+  else

+  begin

+    // draw complete inactive sentence if line hasn't started but is already shown

+    glEnable(GL_TEXTURE_2D);

+    glEnable(GL_BLEND);

+    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+    glBindTexture(GL_TEXTURE_2D, Line^.Tex);

+

+    glColorRGB(LineColor_dis);

+    glBegin(GL_QUADS);

+      glTexCoord2f(0, 1); glVertex2f(LyricX, LyricY);

+      glTexCoord2f(0, 1-LyricsHeight/64); glVertex2f(LyricX, LyricY + LyricsHeight);

+      glTexCoord2f(Line^.Width/1024, 1-LyricsHeight/64); glVertex2f(LyricX2, LyricY + LyricsHeight);

+      glTexCoord2f(Line^.Width/1024, 1); glVertex2f(LyricX2, LyricY);

+    glEnd;

+

+    glDisable(GL_BLEND);

+    glDisable(GL_TEXTURE_2D);

+  end;

+end;

+

+

+end.

+

diff --git a/Game/Code/Classes/UServices.pas b/Game/Code/Classes/UServices.pas
index 7cc811bc..19561eeb 100644
--- a/Game/Code/Classes/UServices.pas
+++ b/Game/Code/Classes/UServices.pas
@@ -229,9 +229,11 @@ begin
 
     If (Service.isClass) then
       //Use Proc of Class
+      // FIXME: "function ... of object" does not fit into an integer (2x pointers: object + function-code -> 8byte on x86) 
       Result := Service.ProcOfClass(wParam, lParam)
     Else
       //Use normal Proc
+      // FIXME: will not work with x64 CPUs, pointers will be 64bit there  
       Result := Service.Proc(wParam, lParam);
 
     //Restore CurExecuted
diff --git a/Game/Code/Classes/USingScores.pas b/Game/Code/Classes/USingScores.pas
index 67f94824..56d2cd69 100644
--- a/Game/Code/Classes/USingScores.pas
+++ b/Game/Code/Classes/USingScores.pas
@@ -216,19 +216,19 @@ begin
   Settings.Phase2Time := 550;  // shift it up        ^[   ]^
   Settings.Phase3Time := 200;  // increase score      [s++]
 
-  Settings.PopUpTex[0].TexNum := High(gluInt);
-  Settings.PopUpTex[1].TexNum := High(gluInt);
-  Settings.PopUpTex[2].TexNum := High(gluInt);
-  Settings.PopUpTex[3].TexNum := High(gluInt);
-  Settings.PopUpTex[4].TexNum := High(gluInt);
-  Settings.PopUpTex[5].TexNum := High(gluInt);
-  Settings.PopUpTex[6].TexNum := High(gluInt);
-  Settings.PopUpTex[7].TexNum := High(gluInt);
-  Settings.PopUpTex[8].TexNum := High(gluInt);
-
-  Settings.RatingBar_BG_Tex.TexNum   := High(gluInt);
-  Settings.RatingBar_FG_Tex.TexNum   := High(gluInt);
-  Settings.RatingBar_Bar_Tex.TexNum  := High(gluInt);
+  Settings.PopUpTex[0].TexNum := 0;
+  Settings.PopUpTex[1].TexNum := 0;
+  Settings.PopUpTex[2].TexNum := 0;
+  Settings.PopUpTex[3].TexNum := 0;
+  Settings.PopUpTex[4].TexNum := 0;
+  Settings.PopUpTex[5].TexNum := 0;
+  Settings.PopUpTex[6].TexNum := 0;
+  Settings.PopUpTex[7].TexNum := 0;
+  Settings.PopUpTex[8].TexNum := 0;
+
+  Settings.RatingBar_BG_Tex.TexNum   := 0;
+  Settings.RatingBar_FG_Tex.TexNum   := 0;
+  Settings.RatingBar_Bar_Tex.TexNum  := 0;
 end;
 
 //-----------
diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index 07dc309f..8502c3e4 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -1,993 +1,993 @@
-unit UTexture;
-// added for easier debug disabling
-{$undef blindydebug}
-
-interface
-
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
-
-{$I switches.inc}
-
-uses OpenGL12,
-     {$IFDEF win32}
-     windows,
-     {$ENDIF}
-     Math,
-     Classes,
-     SysUtils,
-     UCommon,
-     UImage,
-     SDL,
-     sdlutils,
-     SDL_Image;
-
-type
-  TTexture = record
-    TexNum:   integer;
-    X:        real;
-    Y:        real;
-    Z:        real; // new
-    W:        real;
-    H:        real;
-    ScaleW:   real; // for dynamic scalling while leaving width constant
-    ScaleH:   real; // for dynamic scalling while leaving height constant
-    Rot:      real; // 0 - 2*pi
-    Int:      real; // intensity
-    ColR:     real;
-    ColG:     real;
-    ColB:     real;
-    TexW:     real; // used?
-    TexH:     real; // used?
-    TexX1:    real;
-    TexY1:    real;
-    TexX2:    real;
-    TexY2:    real;
-    Alpha:    real;
-    Name:     string; // 0.5.0: experimental for handling cache images. maybe it's useful for dynamic skins
-  end;
-
-type
-  TTextureType = (
-    TEXTURE_TYPE_PLAIN,        // Plain (alpha = 1)
-    TEXTURE_TYPE_TRANSPARENT,  // Alpha is used
-    TEXTURE_TYPE_COLORIZED     // Alpha is used; Hue of the HSV color-model will be replaced by a new value
-  );
-const
-  TextureTypeStr: array[TTextureType] of string = (
-    'Plain',
-    'Transparent',
-    'Colorized'
-  );
-
-function TextureTypeToStr(TexType: TTextureType): string;
-function ParseTextureType(const TypeStr: string; Default: TTextureType): TTextureType;
-
-type
-  TTextureEntry = record
-    Name:       string;
-    Typ:        TTextureType;
-    Color:      Cardinal;
-
-    // we use normal TTexture, it's easier to implement and if needed - we copy ready data
-    Texture:        TTexture;
-    TextureCache:   TTexture;
-  end;
-
-  TTextureDatabase = record
-    Texture:    array of TTextureEntry;
-  end;
-
-  TTextureUnit = class
-    private
-      TnWidth, TnHeight: Cardinal; //Width and Height of the Cover Thumbnails
-
-      TnBuffer:  array of byte;
-      TnSurface: PSDL_Surface;
-
-      function LoadImage(const Identifier: string): PSDL_Surface;
-      function pixfmt_eq(fmt1,fmt2: PSDL_Pixelformat): boolean;
-      procedure AdjustPixelFormat(var TexSurface: PSDL_Surface; Typ: TTextureType);
-      function GetScaledTexture(TexSurface: PSDL_Surface; W,H: Cardinal): PSDL_Surface;
-      procedure ScaleTexture(var TexSurface: PSDL_Surface; W,H: Cardinal);
-      procedure FitTexture(var TexSurface: PSDL_Surface; W,H: Cardinal);
-      procedure ColorizeTexture(TexSurface: PSDL_Surface; Col: Cardinal);
-    public
-    Limit:      integer;
-    CreateCacheMipmap:  boolean;
-
-//    function GetNumberFor
-    function GetTexture(const Name: string; Typ: TTextureType; FromCache: boolean = true): TTexture; overload;
-    function GetTexture(const Name: string; Typ: TTextureType; Col: LongWord; FromCache: boolean = true): TTexture; overload;
-    function FindTexture(const Name: string; Typ: TTextureType; Col: Cardinal): integer;
-    function LoadTexture(FromRegistry: boolean; const Identifier: string; Typ: TTextureType; Col: LongWord): TTexture; overload;
-    function LoadTexture(const Identifier: string; Typ: TTextureType; Col: LongWord): TTexture; overload;
-    function LoadTexture(const Identifier: string): TTexture; overload;
-    function CreateTexture(var Data: array of byte; const Name: string; W, H: word; Bits: byte): TTexture;
-    procedure UnloadTexture(const Name: string; Typ: TTextureType; FromCache: boolean); overload;
-    procedure UnloadTexture(const Name: string; Typ: TTextureType; Col: Cardinal; FromCache: boolean); overload;
-    //procedure FlushTextureDatabase();
-
-    Function GetCoverThumbnail(const Name: string): Pointer;
-    Procedure SetCoverSize(W, H: Integer);
-    
-    Constructor Create;
-    Destructor Destroy; override;
-  end;
-
-var
-  Texture:          TTextureUnit;
-  TextureDatabase:  TTextureDatabase;
-
-  ActTex:     GLuint;
-
-  Mipmapping: Boolean;
-
-  CacheMipmap:  array[0..256*256*3-1] of byte; // 3KB
-  CacheMipmapSurface: PSDL_Surface;
-
-
-implementation
-
-uses ULog,
-     DateUtils,
-     UCovers,
-     UThemes,
-     {$IFDEF DARWIN}
-     MacResources,
-     {$ENDIF}
-     StrUtils;
-
-Constructor TTextureUnit.Create;
-begin
-  inherited Create;
-end;
-
-Destructor TTextureUnit.Destroy;
-begin
-  inherited Destroy;
-end;
-
-function TTextureUnit.pixfmt_eq(fmt1,fmt2: PSDL_Pixelformat): boolean;
-begin
-  if (fmt1^.BitsPerPixel = fmt2^.BitsPerPixel) and
-     (fmt1^.BytesPerPixel = fmt2^.BytesPerPixel) and
-     (fmt1^.Rloss = fmt2^.Rloss) and (fmt1^.Gloss = fmt2^.Gloss) and
-     (fmt1^.Bloss = fmt2^.Bloss) and (fmt1^.Rmask = fmt2^.Rmask) and
-     (fmt1^.Gmask = fmt2^.Gmask) and (fmt1^.Bmask = fmt2^.Bmask) and
-     (fmt1^.Rshift = fmt2^.Rshift) and (fmt1^.Gshift = fmt2^.Gshift) and
-     (fmt1^.Bshift = fmt2^.Bshift)
-   then
-    Result:=True
-  else
-    Result:=False;
-end;
-
-// +++++++++++++++++++++ helpers for loadimage +++++++++++++++
-  function SdlStreamSeek( context : PSDL_RWops; offset : Integer; whence : Integer ) : integer; cdecl;
-  var
-    stream : TStream;
-    origin : Word;
-  begin
-    stream := TStream( context.unknown );
-    if ( stream = nil ) then
-      raise EInvalidContainer.Create( 'SDLStreamSeek on nil' );
-    case whence of
-      0 : origin := soFromBeginning; //	Offset is from the beginning of the resource. Seek moves to the position Offset. Offset must be >= 0.
-      1 : origin := soFromCurrent; //	Offset is from the current position in the resource. Seek moves to Position + Offset.
-      2 : origin := soFromEnd;
-    else
-      origin := soFromBeginning; // just in case
-    end;
-    Result := stream.Seek( offset, origin );
-  end;
-  
-  function SdlStreamRead( context : PSDL_RWops; Ptr : Pointer; size : Integer; maxnum: Integer ) : Integer; cdecl;
-  var
-    stream : TStream;
-  begin
-    stream := TStream( context.unknown );
-    if ( stream = nil ) then
-      raise EInvalidContainer.Create( 'SDLStreamRead on nil' );
-    try
-      Result := stream.read( Ptr^, Size * maxnum ) div size;
-    except
-      Result := -1;
-    end;
-  end;
-  
-  function SDLStreamClose( context : PSDL_RWops ) : Integer; cdecl;
-  var
-    stream : TStream;
-  begin
-    stream := TStream( context.unknown );
-    if ( stream = nil ) then
-      raise EInvalidContainer.Create( 'SDLStreamClose on nil' );
-    stream.Free;
-    Result := 1;
-  end;
-// -----------------------------------------------
-
-function TTextureUnit.LoadImage(const Identifier: string): PSDL_Surface;
-var
-  TexRWops:  PSDL_RWops;
-  TexStream: TStream;
-  FileName: string;
-begin
-  Result   := nil;
-  TexRWops := nil;
-
-  if Identifier = '' then
-    exit;
-    
-  //Log.LogStatus( Identifier, 'LoadImage' );
-
-  FileName := Identifier;
-
-  if (FileExistsInsensitive(FileName)) then
-  begin
-    // load from file
-    //Log.LogStatus( 'Is File ( Loading : '+FileName+')', '  LoadImage' );
-    try
-      Result := IMG_Load(PChar(FileName));
-      //Log.LogStatus( '       '+inttostr( integer( Result ) ), '  LoadImage' );
-    except
-      Log.LogError('Could not load from file "'+FileName+'"', 'TTextureUnit.LoadImage');
-      Exit;
-    end;
-  end
-  else
-  begin
-    //Log.LogStatus( 'IS Resource, because file does not exist.('+Identifier+')', '  LoadImage' );
-
-    TexStream := GetResourceStream(Identifier, 'TEX');
-    if (not assigned(TexStream)) then
-    begin
-      Log.LogError( 'Invalid file or resource "'+ Identifier+'"', 'TTextureUnit.LoadImage');
-      Exit;
-    end;
-
-    TexRWops := SDL_AllocRW();
-    if (TexRWops = nil) then
-    begin
-      Log.LogError( 'Could not assign resource "'+Identifier+'"', 'TTextureUnit.LoadImage');
-      TexStream.Free();
-      Exit;
-    end;
-
-    // user defined RW-callbacks
-    with TexRWops^ do
-    begin
-      unknown := TUnknown(TexStream);
-      seek    := SDLStreamSeek;
-      read    := SDLStreamRead;
-      write   := nil;
-      close   := SDLStreamClose;
-      type_   := 2;
-    end;
-
-    //Log.LogStatus( 'resource Assigned....' , Identifier);
-    try
-      Result := IMG_Load_RW(TexRWops, 0);
-    except
-      Log.LogError( 'Could not read resource "'+Identifier+'"', 'TTextureUnit.LoadImage');
-    end;
-
-    SDL_FreeRW(TexRWops);
-    TexStream.Free();
-  end;
-end;
-
-procedure TTextureUnit.AdjustPixelFormat(var TexSurface: PSDL_Surface; Typ: TTextureType);
-var
-  TempSurface: PSDL_Surface;
-  NeededPixFmt: PSDL_Pixelformat;
-begin
-  NeededPixFmt:=@PixelFmt_RGBA;
-  if      (Typ = TEXTURE_TYPE_PLAIN) then
-    NeededPixFmt:=@PixelFmt_RGB
-  else if (Typ = TEXTURE_TYPE_TRANSPARENT) or
-          (Typ = TEXTURE_TYPE_COLORIZED) then
-    NeededPixFmt:=@PixelFmt_RGBA
-  else
-    NeededPixFmt:=@PixelFmt_RGB;
-
-
-  if not pixfmt_eq(TexSurface^.format, NeededPixFmt) then
-  begin
-    TempSurface:=TexSurface;
-    TexSurface:=SDL_ConvertSurface(TempSurface,NeededPixFmt,SDL_SWSURFACE);
-    SDL_FreeSurface(TempSurface);
-  end;
-end;
-
-function TTextureUnit.GetScaledTexture(TexSurface: PSDL_Surface; W,H: Cardinal): PSDL_Surface;
-var
-  TempSurface: PSDL_Surface;
-begin
-  TempSurface:=TexSurface;
-  Result:=SDL_ScaleSurfaceRect(TempSurface,
-                  0,0,TempSurface^.W,TempSurface^.H,
-                  W,H);
-  SDL_FreeSurface(TempSurface);
-end;
-
-procedure TTextureUnit.ScaleTexture(var TexSurface: PSDL_Surface; W,H: Cardinal);
-var
-  TempSurface: PSDL_Surface;
-begin
-  TempSurface:=TexSurface;
-  TexSurface:=SDL_ScaleSurfaceRect(TempSurface,
-                  0,0,TempSurface^.W,TempSurface^.H,
-                  W,H);
-  SDL_FreeSurface(TempSurface);
-end;
-
-procedure TTextureUnit.FitTexture(var TexSurface: PSDL_Surface; W,H: Cardinal);
-var
-  TempSurface: PSDL_Surface;
-begin
-  TempSurface:=TexSurface;
-  with TempSurface^.format^ do
-    TexSurface:=SDL_CreateRGBSurface(SDL_SWSURFACE,W,H,BitsPerPixel,RMask, GMask, BMask, AMask);
-  SDL_SetAlpha(TexSurface, 0, 255);
-  SDL_SetAlpha(TempSurface, 0, 255);
-  SDL_BlitSurface(TempSurface,nil,TexSurface,nil);
-  SDL_FreeSurface(TempSurface);
-end;
-
-procedure TTextureUnit.ColorizeTexture(TexSurface: PSDL_Surface; Col: Cardinal);
-  //returns hue within range [0.0-6.0)
-  function col2hue(Color:Cardinal): double;
-  var
-    clr: array[0..2] of double;
-    hue, max, delta: double;
-  begin
-    clr[0] := ((Color and $ff0000) shr 16)/255; // R
-    clr[1] := ((Color and   $ff00) shr  8)/255; // G
-    clr[2] :=  (Color and     $ff)        /255; // B
-    max := maxvalue(clr);
-    delta := max - minvalue(clr);
-    // calc hue
-    if (delta = 0.0) then       hue := 0
-    else if (clr[0] = max) then hue :=     (clr[1]-clr[2])/delta
-    else if (clr[1] = max) then hue := 2.0+(clr[2]-clr[0])/delta
-    else if (clr[2] = max) then hue := 4.0+(clr[0]-clr[1])/delta;
-    if (hue < 0.0) then
-      hue := hue + 6.0;
-    Result := hue;
-  end;
-
-var
-  DestinationHue: Double;
-  PixelIndex: Cardinal;
-  Pixel: PByte;
-    PixelColors: PByteArray;
-//    clr: array[0..2] of Double; // [0: R, 1: G, 2: B]
-    clr2: array[0..2] of Uint32;
-//    hsv: array[0..2] of Double; // [0: H(ue), 1: S(aturation), 2: V(alue)]
-    hsv2: array[0..2] of UInt32;//LongInt;
-    dhue: UInt32;//LongInt;
-    h_int: Cardinal;
-//    delta, f, p, q, t: Double;
-    delta2,f2,p2,q2,t2: Longint;//LongInt;
-//    max: Double;
-    max2: Uint32;
-begin
-  DestinationHue := col2hue(Col);
-
-  dhue:=Trunc(DestinationHue*1024);
-
-  Pixel := TexSurface^.Pixels;
-
-  for PixelIndex := 0 to (TexSurface^.W * TexSurface^.H)-1 do
-  begin
-    PixelColors:=PByteArray(Pixel);
-  // inlined colorize per pixel
-
-  // uses fixed point math
-    // get color values
-    clr2[0]:=PixelColors[0] shl 10;
-    clr2[1]:=PixelColors[1] shl 10;
-    clr2[2]:=PixelColors[2] shl 10;
-    //calculate luminance and saturation from rgb
-
-    max2:=clr2[0];
-    if clr2[1]>max2 then max2:=clr2[1];
-    if clr2[2]>max2 then max2:=clr2[2];
-    delta2:=clr2[0];
-    if clr2[1]<delta2 then delta2:=clr2[1];
-    if clr2[2]<delta2 then delta2:=clr2[2];
-    delta2:=max2-delta2;
-    hsv2[0]:=dhue;  // shl 8
-    hsv2[2]:=max2;  // shl 8
-    if (max2=0) then hsv2[1] := 0
-    else             hsv2[1] := (delta2 shl 10) div max2; // shl 8
-      h_int:= hsv2[0] and $fffffC00;
-      f2:= hsv2[0]-h_int; //shl 10
-      p2:= (hsv2[2]*(1024-hsv2[1])) shr 10;
-      q2:= (hsv2[2]*(1024-(hsv2[1]*f2) shr 10)) shr 10;
-      t2:= (hsv2[2]*(1024-(hsv2[1]*(1024-f2)) shr 10)) shr 10;
-      h_int:=h_int shr 10;
-      case h_int of
+unit UTexture;

+// added for easier debug disabling

+{$undef blindydebug}

+

+interface

+

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

+{$I switches.inc}

+

+uses OpenGL12,

+     {$IFDEF win32}

+     windows,

+     {$ENDIF}

+     Math,

+     Classes,

+     SysUtils,

+     UCommon,

+     UImage,

+     SDL,

+     sdlutils,

+     SDL_Image;

+

+type

+  TTexture = record

+    TexNum:   GLuint;

+    X:        real;

+    Y:        real;

+    Z:        real; // new

+    W:        real;

+    H:        real;

+    ScaleW:   real; // for dynamic scalling while leaving width constant

+    ScaleH:   real; // for dynamic scalling while leaving height constant

+    Rot:      real; // 0 - 2*pi

+    Int:      real; // intensity

+    ColR:     real;

+    ColG:     real;

+    ColB:     real;

+    TexW:     real; // used?

+    TexH:     real; // used?

+    TexX1:    real;

+    TexY1:    real;

+    TexX2:    real;

+    TexY2:    real;

+    Alpha:    real;

+    Name:     string; // 0.5.0: experimental for handling cache images. maybe it's useful for dynamic skins

+  end;

+

+type

+  TTextureType = (

+    TEXTURE_TYPE_PLAIN,        // Plain (alpha = 1)

+    TEXTURE_TYPE_TRANSPARENT,  // Alpha is used

+    TEXTURE_TYPE_COLORIZED     // Alpha is used; Hue of the HSV color-model will be replaced by a new value

+  );

+const

+  TextureTypeStr: array[TTextureType] of string = (

+    'Plain',

+    'Transparent',

+    'Colorized'

+  );

+

+function TextureTypeToStr(TexType: TTextureType): string;

+function ParseTextureType(const TypeStr: string; Default: TTextureType): TTextureType;

+

+type

+  TTextureEntry = record

+    Name:       string;

+    Typ:        TTextureType;

+    Color:      Cardinal;

+

+    // we use normal TTexture, it's easier to implement and if needed - we copy ready data

+    Texture:        TTexture;

+    TextureCache:   TTexture;

+  end;

+

+  TTextureDatabase = record

+    Texture:    array of TTextureEntry;

+  end;

+

+  TTextureUnit = class

+    private

+      TnWidth, TnHeight: Cardinal; //Width and Height of the Cover Thumbnails

+

+      TnBuffer:  array of byte;

+      TnSurface: PSDL_Surface;

+

+      function LoadImage(const Identifier: string): PSDL_Surface;

+      function pixfmt_eq(fmt1,fmt2: PSDL_Pixelformat): boolean;

+      procedure AdjustPixelFormat(var TexSurface: PSDL_Surface; Typ: TTextureType);

+      function GetScaledTexture(TexSurface: PSDL_Surface; W,H: Cardinal): PSDL_Surface;

+      procedure ScaleTexture(var TexSurface: PSDL_Surface; W,H: Cardinal);

+      procedure FitTexture(var TexSurface: PSDL_Surface; W,H: Cardinal);

+      procedure ColorizeTexture(TexSurface: PSDL_Surface; Col: Cardinal);

+    public

+    Limit:      integer;

+    CreateCacheMipmap:  boolean;

+

+//    function GetNumberFor

+    function GetTexture(const Name: string; Typ: TTextureType; FromCache: boolean = true): TTexture; overload;

+    function GetTexture(const Name: string; Typ: TTextureType; Col: LongWord; FromCache: boolean = true): TTexture; overload;

+    function FindTexture(const Name: string; Typ: TTextureType; Col: Cardinal): integer;

+    function LoadTexture(FromRegistry: boolean; const Identifier: string; Typ: TTextureType; Col: LongWord): TTexture; overload;

+    function LoadTexture(const Identifier: string; Typ: TTextureType; Col: LongWord): TTexture; overload;

+    function LoadTexture(const Identifier: string): TTexture; overload;

+    function CreateTexture(var Data: array of byte; const Name: string; W, H: word; Bits: byte): TTexture;

+    procedure UnloadTexture(const Name: string; Typ: TTextureType; FromCache: boolean); overload;

+    procedure UnloadTexture(const Name: string; Typ: TTextureType; Col: Cardinal; FromCache: boolean); overload;

+    //procedure FlushTextureDatabase();

+

+    Function GetCoverThumbnail(const Name: string): Pointer;

+    Procedure SetCoverSize(W, H: Integer);

+    

+    Constructor Create;

+    Destructor Destroy; override;

+  end;

+

+var

+  Texture:          TTextureUnit;

+  TextureDatabase:  TTextureDatabase;

+

+  ActTex:     GLuint;

+

+  Mipmapping: Boolean;

+

+  CacheMipmap:  array[0..256*256*3-1] of byte; // 3KB

+  CacheMipmapSurface: PSDL_Surface;

+

+

+implementation

+

+uses ULog,

+     DateUtils,

+     UCovers,

+     UThemes,

+     {$IFDEF DARWIN}

+     MacResources,

+     {$ENDIF}

+     StrUtils;

+

+Constructor TTextureUnit.Create;

+begin

+  inherited Create;

+end;

+

+Destructor TTextureUnit.Destroy;

+begin

+  inherited Destroy;

+end;

+

+function TTextureUnit.pixfmt_eq(fmt1,fmt2: PSDL_Pixelformat): boolean;

+begin

+  if (fmt1^.BitsPerPixel = fmt2^.BitsPerPixel) and

+     (fmt1^.BytesPerPixel = fmt2^.BytesPerPixel) and

+     (fmt1^.Rloss = fmt2^.Rloss) and (fmt1^.Gloss = fmt2^.Gloss) and

+     (fmt1^.Bloss = fmt2^.Bloss) and (fmt1^.Rmask = fmt2^.Rmask) and

+     (fmt1^.Gmask = fmt2^.Gmask) and (fmt1^.Bmask = fmt2^.Bmask) and

+     (fmt1^.Rshift = fmt2^.Rshift) and (fmt1^.Gshift = fmt2^.Gshift) and

+     (fmt1^.Bshift = fmt2^.Bshift)

+   then

+    Result:=True

+  else

+    Result:=False;

+end;

+

+// +++++++++++++++++++++ helpers for loadimage +++++++++++++++

+  function SdlStreamSeek( context : PSDL_RWops; offset : Integer; whence : Integer ) : integer; cdecl;

+  var

+    stream : TStream;

+    origin : Word;

+  begin

+    stream := TStream( context.unknown );

+    if ( stream = nil ) then

+      raise EInvalidContainer.Create( 'SDLStreamSeek on nil' );

+    case whence of

+      0 : origin := soFromBeginning; //	Offset is from the beginning of the resource. Seek moves to the position Offset. Offset must be >= 0.

+      1 : origin := soFromCurrent; //	Offset is from the current position in the resource. Seek moves to Position + Offset.

+      2 : origin := soFromEnd;

+    else

+      origin := soFromBeginning; // just in case

+    end;

+    Result := stream.Seek( offset, origin );

+  end;

+  

+  function SdlStreamRead( context : PSDL_RWops; Ptr : Pointer; size : Integer; maxnum: Integer ) : Integer; cdecl;

+  var

+    stream : TStream;

+  begin

+    stream := TStream( context.unknown );

+    if ( stream = nil ) then

+      raise EInvalidContainer.Create( 'SDLStreamRead on nil' );

+    try

+      Result := stream.read( Ptr^, Size * maxnum ) div size;

+    except

+      Result := -1;

+    end;

+  end;

+  

+  function SDLStreamClose( context : PSDL_RWops ) : Integer; cdecl;

+  var

+    stream : TStream;

+  begin

+    stream := TStream( context.unknown );

+    if ( stream = nil ) then

+      raise EInvalidContainer.Create( 'SDLStreamClose on nil' );

+    stream.Free;

+    Result := 1;

+  end;

+// -----------------------------------------------

+

+function TTextureUnit.LoadImage(const Identifier: string): PSDL_Surface;

+var

+  TexRWops:  PSDL_RWops;

+  TexStream: TStream;

+  FileName: string;

+begin

+  Result   := nil;

+  TexRWops := nil;

+

+  if Identifier = '' then

+    exit;

+    

+  //Log.LogStatus( Identifier, 'LoadImage' );

+

+  FileName := Identifier;

+

+  if (FileExistsInsensitive(FileName)) then

+  begin

+    // load from file

+    //Log.LogStatus( 'Is File ( Loading : '+FileName+')', '  LoadImage' );

+    try

+      Result := IMG_Load(PChar(FileName));

+      //Log.LogStatus( '       '+inttostr( integer( Result ) ), '  LoadImage' );

+    except

+      Log.LogError('Could not load from file "'+FileName+'"', 'TTextureUnit.LoadImage');

+      Exit;

+    end;

+  end

+  else

+  begin

+    //Log.LogStatus( 'IS Resource, because file does not exist.('+Identifier+')', '  LoadImage' );

+

+    TexStream := GetResourceStream(Identifier, 'TEX');

+    if (not assigned(TexStream)) then

+    begin

+      Log.LogError( 'Invalid file or resource "'+ Identifier+'"', 'TTextureUnit.LoadImage');

+      Exit;

+    end;

+

+    TexRWops := SDL_AllocRW();

+    if (TexRWops = nil) then

+    begin

+      Log.LogError( 'Could not assign resource "'+Identifier+'"', 'TTextureUnit.LoadImage');

+      TexStream.Free();

+      Exit;

+    end;

+

+    // user defined RW-callbacks

+    with TexRWops^ do

+    begin

+      unknown := TUnknown(TexStream);

+      seek    := SDLStreamSeek;

+      read    := SDLStreamRead;

+      write   := nil;

+      close   := SDLStreamClose;

+      type_   := 2;

+    end;

+

+    //Log.LogStatus( 'resource Assigned....' , Identifier);

+    try

+      Result := IMG_Load_RW(TexRWops, 0);

+    except

+      Log.LogError( 'Could not read resource "'+Identifier+'"', 'TTextureUnit.LoadImage');

+    end;

+

+    SDL_FreeRW(TexRWops);

+    TexStream.Free();

+  end;

+end;

+

+procedure TTextureUnit.AdjustPixelFormat(var TexSurface: PSDL_Surface; Typ: TTextureType);

+var

+  TempSurface: PSDL_Surface;

+  NeededPixFmt: PSDL_Pixelformat;

+begin

+  NeededPixFmt:=@PixelFmt_RGBA;

+  if      (Typ = TEXTURE_TYPE_PLAIN) then

+    NeededPixFmt:=@PixelFmt_RGB

+  else if (Typ = TEXTURE_TYPE_TRANSPARENT) or

+          (Typ = TEXTURE_TYPE_COLORIZED) then

+    NeededPixFmt:=@PixelFmt_RGBA

+  else

+    NeededPixFmt:=@PixelFmt_RGB;

+

+

+  if not pixfmt_eq(TexSurface^.format, NeededPixFmt) then

+  begin

+    TempSurface:=TexSurface;

+    TexSurface:=SDL_ConvertSurface(TempSurface,NeededPixFmt,SDL_SWSURFACE);

+    SDL_FreeSurface(TempSurface);

+  end;

+end;

+

+function TTextureUnit.GetScaledTexture(TexSurface: PSDL_Surface; W,H: Cardinal): PSDL_Surface;

+var

+  TempSurface: PSDL_Surface;

+begin

+  TempSurface:=TexSurface;

+  Result:=SDL_ScaleSurfaceRect(TempSurface,

+                  0,0,TempSurface^.W,TempSurface^.H,

+                  W,H);

+  SDL_FreeSurface(TempSurface);

+end;

+

+procedure TTextureUnit.ScaleTexture(var TexSurface: PSDL_Surface; W,H: Cardinal);

+var

+  TempSurface: PSDL_Surface;

+begin

+  TempSurface:=TexSurface;

+  TexSurface:=SDL_ScaleSurfaceRect(TempSurface,

+                  0,0,TempSurface^.W,TempSurface^.H,

+                  W,H);

+  SDL_FreeSurface(TempSurface);

+end;

+

+procedure TTextureUnit.FitTexture(var TexSurface: PSDL_Surface; W,H: Cardinal);

+var

+  TempSurface: PSDL_Surface;

+begin

+  TempSurface:=TexSurface;

+  with TempSurface^.format^ do

+    TexSurface:=SDL_CreateRGBSurface(SDL_SWSURFACE,W,H,BitsPerPixel,RMask, GMask, BMask, AMask);

+  SDL_SetAlpha(TexSurface, 0, 255);

+  SDL_SetAlpha(TempSurface, 0, 255);

+  SDL_BlitSurface(TempSurface,nil,TexSurface,nil);

+  SDL_FreeSurface(TempSurface);

+end;

+

+procedure TTextureUnit.ColorizeTexture(TexSurface: PSDL_Surface; Col: Cardinal);

+  //returns hue within range [0.0-6.0)

+  function col2hue(Color:Cardinal): double;

+  var

+    clr: array[0..2] of double;

+    hue, max, delta: double;

+  begin

+    clr[0] := ((Color and $ff0000) shr 16)/255; // R

+    clr[1] := ((Color and   $ff00) shr  8)/255; // G

+    clr[2] :=  (Color and     $ff)        /255; // B

+    max := maxvalue(clr);

+    delta := max - minvalue(clr);

+    // calc hue

+    if (delta = 0.0) then       hue := 0

+    else if (clr[0] = max) then hue :=     (clr[1]-clr[2])/delta

+    else if (clr[1] = max) then hue := 2.0+(clr[2]-clr[0])/delta

+    else if (clr[2] = max) then hue := 4.0+(clr[0]-clr[1])/delta;

+    if (hue < 0.0) then

+      hue := hue + 6.0;

+    Result := hue;

+  end;

+

+var

+  DestinationHue: Double;

+  PixelIndex: Cardinal;

+  Pixel: PByte;

+    PixelColors: PByteArray;

+//    clr: array[0..2] of Double; // [0: R, 1: G, 2: B]

+    clr2: array[0..2] of Uint32;

+//    hsv: array[0..2] of Double; // [0: H(ue), 1: S(aturation), 2: V(alue)]

+    hsv2: array[0..2] of UInt32;//LongInt;

+    dhue: UInt32;//LongInt;

+    h_int: Cardinal;

+//    delta, f, p, q, t: Double;

+    delta2,f2,p2,q2,t2: Longint;//LongInt;

+//    max: Double;

+    max2: Uint32;

+begin

+  DestinationHue := col2hue(Col);

+

+  dhue:=Trunc(DestinationHue*1024);

+

+  Pixel := TexSurface^.Pixels;

+

+  for PixelIndex := 0 to (TexSurface^.W * TexSurface^.H)-1 do

+  begin

+    PixelColors:=PByteArray(Pixel);

+  // inlined colorize per pixel

+

+  // uses fixed point math

+    // get color values

+    clr2[0]:=PixelColors[0] shl 10;

+    clr2[1]:=PixelColors[1] shl 10;

+    clr2[2]:=PixelColors[2] shl 10;

+    //calculate luminance and saturation from rgb

+

+    max2:=clr2[0];

+    if clr2[1]>max2 then max2:=clr2[1];

+    if clr2[2]>max2 then max2:=clr2[2];

+    delta2:=clr2[0];

+    if clr2[1]<delta2 then delta2:=clr2[1];

+    if clr2[2]<delta2 then delta2:=clr2[2];

+    delta2:=max2-delta2;

+    hsv2[0]:=dhue;  // shl 8

+    hsv2[2]:=max2;  // shl 8

+    if (max2=0) then hsv2[1] := 0

+    else             hsv2[1] := (delta2 shl 10) div max2; // shl 8

+      h_int:= hsv2[0] and $fffffC00;

+      f2:= hsv2[0]-h_int; //shl 10

+      p2:= (hsv2[2]*(1024-hsv2[1])) shr 10;

+      q2:= (hsv2[2]*(1024-(hsv2[1]*f2) shr 10)) shr 10;

+      t2:= (hsv2[2]*(1024-(hsv2[1]*(1024-f2)) shr 10)) shr 10;

+      h_int:=h_int shr 10;

+      case h_int of

         0: begin clr2[0]:=hsv2[2]; clr2[1]:=t2;      clr2[2]:=p2;      end; // (v,t,p)

         1: begin clr2[0]:=q2;      clr2[1]:=hsv2[2]; clr2[2]:=p2;      end; // (q,v,p)

-        2: begin clr2[0]:=p2;      clr2[1]:=hsv2[2]; clr2[2]:=t2;      end; // (p,v,t)
-        3: begin clr2[0]:=p2;      clr2[1]:=q2;      clr2[2]:=hsv2[2]; end; // (p,q,v)
-        4: begin clr2[0]:=t2;      clr2[1]:=p2;      clr2[2]:=hsv2[2]; end; // (t,p,v)
-        5: begin clr2[0]:=hsv2[2]; clr2[1]:=p2;      clr2[2]:=q2;      end; // (v,p,q)
-      end;
-

-    PixelColors[0]:=clr2[0] shr 10;
-    PixelColors[1]:=clr2[1] shr 10;
-    PixelColors[2]:=clr2[2] shr 10;
-
-    // old floating point version
-(*    clr[0] := PixelColors[0]/255;
-    clr[1] := PixelColors[1]/255;
-    clr[2] := PixelColors[2]/255;
-    max := maxvalue(clr);
-    delta := max - minvalue(clr);
-
-    hsv[0] := DestinationHue; // set H(ue)
-    hsv[2] := max; // set V(alue)
-    // calc S(aturation)
-    if (max = 0.0) then hsv[1] := 0.0
-    else                hsv[1] := delta/max;
-
-//    ColorizePixel(PByteArray(Pixel), DestinationHue);
-      h_int := trunc(hsv[0]);             // h_int = |_h_|
-      f := hsv[0]-h_int;                  // f = h-h_int
-      p := hsv[2]*(1.0-hsv[1]);           // p = v*(1-s)
-      q := hsv[2]*(1.0-(hsv[1]*f));       // q = v*(1-s*f)
-      t := hsv[2]*(1.0-(hsv[1]*(1.0-f))); // t = v*(1-s*(1-f))
-      case h_int of
-        0: begin clr[0]:=hsv[2]; clr[1]:=t;      clr[2]:=p;      end; // (v,t,p)
-        1: begin clr[0]:=q;      clr[1]:=hsv[2]; clr[2]:=p;      end; // (q,v,p)
-        2: begin clr[0]:=p;      clr[1]:=hsv[2]; clr[2]:=t;      end; // (p,v,t)
-        3: begin clr[0]:=p;      clr[1]:=q;      clr[2]:=hsv[2]; end; // (p,q,v)
-        4: begin clr[0]:=t;      clr[1]:=p;      clr[2]:=hsv[2]; end; // (t,p,v)
-        5: begin clr[0]:=hsv[2]; clr[1]:=p;      clr[2]:=q;      end; // (v,p,q)
-      end;
-
-    // and store new rgb back into the image
-    PixelColors[0] := trunc(255*clr[0]);
-    PixelColors[1] := trunc(255*clr[1]);
-    PixelColors[2] := trunc(255*clr[2]);
-*)
-    Inc(Pixel, TexSurface^.format.BytesPerPixel);
-  end;
-end;
-
-function TTextureUnit.LoadTexture(FromRegistry: boolean; const Identifier: string; Typ: TTextureType; Col: LongWord): TTexture;
-var
-  TexSurface: PSDL_Surface;
-  MipmapSurface: PSDL_Surface;
-  newWidth, newHeight: Cardinal;
-  oldWidth, oldHeight: Cardinal;
-begin
-  Log.BenchmarkStart(4);
-  Mipmapping := true;
-(*
-  Log.LogStatus( '', '' );
-
-  if Identifier = nil then
-    Log.LogStatus(' ERROR unknown Identifier', 'Id:'''+Identifier+''' Fmt:'''+Format+''' Typ:'''+Typ+'''')
-  else
-    Log.LogStatus(' should be ok - trying to load', 'Id:'''+Identifier+''' Fmt:'''+Format+''' Typ:'''+Typ+'''');
-*)
-
- // load texture data into memory
-  {$ifdef blindydebug}
-  Log.LogStatus('',' ----------------------------------------------------');
-  Log.LogStatus('',' LoadImage('''+Identifier+''') (called by '+Format+')');
-  {$endif}
-  TexSurface := LoadImage(Identifier);
-  {$ifdef blindydebug}
-  Log.LogStatus('',' ok');
-  {$endif}
-  if not assigned(TexSurface) then
-  begin
-    Log.LogError('Could not load texture: "' + Identifier +' '+ TextureTypeToStr(Typ) +'"',
-                 'TTextureUnit.LoadTexture');
-    Exit;
-  end;
-
-  // convert pixel format as needed
-  {$ifdef blindydebug}
-  Log.LogStatus('',' AdjustPixelFormat');
-  {$endif}
-  AdjustPixelFormat(TexSurface, Typ);
-  {$ifdef blindydebug}
-  Log.LogStatus('',' ok');
-  {$endif}
-  // adjust texture size (scale down, if necessary)
-  newWidth   := TexSurface.W;
-  newHeight  := TexSurface.H;
-
-  if (newWidth > Limit) then
-    newWidth := Limit;
-
-  if (newHeight > Limit) then
-    newHeight := Limit;
-
-  if (TexSurface.W > newWidth) or (TexSurface.H > newHeight) then
-  begin
-    {$ifdef blindydebug}
-    Log.LogStatus('',' ScaleTexture');
-    {$endif}
-    ScaleTexture(TexSurface,newWidth,newHeight);
-    {$ifdef blindydebug}
-    Log.LogStatus('',' ok');
-    {$endif}
-  end;
-
-  {$ifdef blindydebug}
-  Log.LogStatus('',' JB-1 : typ='+Typ);
-  {$endif}
-
-
-
-  // don't actually understand, if this is needed...
-  // this should definately be changed... together with all this
-  // cover cache stuff
-  {if (CreateCacheMipmap) and (Typ = TEXTURE_TYPE_PLAIN) then
-  begin
-    {$ifdef blindydebug}{
-    Log.LogStatus('',' JB-1 : Minimap');
-    {$endif}
-
-    {if (TnWidth <= 256) and (TnHeight <= 256) then
-    begin
-      {$ifdef blindydebug}{
-      Log.LogStatus('',' GetScaledTexture('''+inttostr(Covers.W)+''','''+inttostr(Covers.H)+''') (for CacheMipmap)');
-      {$endif}{
-      MipmapSurface:=GetScaledTexture(TexSurface, TnWidth, TnHeight);
-      if assigned(MipmapSurface) then
-      begin
-        {$ifdef blindydebug}{
-        Log.LogStatus('',' ok');
-        Log.LogStatus('',' BlitSurface Stuff');
-        {$endif}{
-        // creating and freeing the surface could be done once, if Cover.W and Cover.H don't change
-        TnSurface:=SDL_CreateRGBSurfaceFrom(@TnBuffer[0], TnWidth, TnHeight, 24, TnWidth*3, $000000ff, $0000ff00, $00ff0000, 0);
-        SDL_BlitSurface(TnSurface, nil, TnSurface, nil);
-        SDL_FreeSurface(TnSurface);
-        {$ifdef blindydebug}{
-        Log.LogStatus('',' ok');
-        Log.LogStatus('',' SDL_FreeSurface (CacheMipmap)');
-        {$endif}{
-        SDL_FreeSurface(TnSurface);
-        {$ifdef blindydebug}{
-        Log.LogStatus('',' ok');
-        {$endif}{
-      end
-      else
-      begin
-        Log.LogStatus(' Error creating CacheMipmap',' LoadTexture('''+Identifier+''')');
-      end;
-    end;
-    // should i create a cache texture, if Covers.W/H are larger?
-  end; }
-
-  {$ifdef blindydebug}
-  Log.LogStatus('',' JB-2');
-  {$endif}
-
-
- // now we might colorize the whole thing
-  if (Typ = TEXTURE_TYPE_COLORIZED) then
-    ColorizeTexture(TexSurface, Col);
-
- // save actual dimensions of our texture
-  oldWidth  := newWidth;
-  oldHeight := newHeight;
- // make texture dimensions be powers of 2
-  newWidth  := Round(Power(2, Ceil(Log2(newWidth))));
-  newHeight := Round(Power(2, Ceil(Log2(newHeight))));
-  if (newHeight <> oldHeight) or (newWidth <> oldWidth) then
-    FitTexture(TexSurface, newWidth, newHeight);
-
-  // at this point we have the image in memory...
-  // scaled to be at most 1024x1024 pixels large
-  // scaled so that dimensions are powers of 2
-  // and converted to either RGB or RGBA
-
-  {$ifdef blindydebug}
-  Log.LogStatus('',' JB-3');
-  {$endif}
-
-
-  // if we got a Texture of Type Plain, Transparent or Colorized,
-  // then we're done manipulating it
-  // and could now create our openGL texture from it
-
- // prepare OpenGL texture
-
-  // JB_linux : this is causing AV's on linux... ActText seems to be nil !
-//  {$IFnDEF win32}
-//  if pointer(ActTex) = nil then
-//    exit;
-//  {$endif}
-
-  glGenTextures(1, @ActTex);
-
-  glBindTexture(GL_TEXTURE_2D, ActTex);
-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
-
-  // load data into gl texture
-  if (Typ = TEXTURE_TYPE_TRANSPARENT) or
-     (Typ = TEXTURE_TYPE_COLORIZED) then
-  begin
-    glTexImage2D(GL_TEXTURE_2D, 0, 4, newWidth, newHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, TexSurface.pixels);
-  end
-  else //if Typ = TEXTURE_TYPE_PLAIN then
-  begin
-    glTexImage2D(GL_TEXTURE_2D, 0, 3, newWidth, newHeight, 0, GL_RGB, GL_UNSIGNED_BYTE, TexSurface.pixels);
-  end;
-
-  {$ifdef blindydebug}
-  Log.LogStatus('',' JB-5');
-  {$endif}
-
-
-  Result.X := 0;
-  Result.Y := 0;
-  Result.Z := 0;
-  Result.W := 0;
-  Result.H := 0;
-  Result.ScaleW := 1;
-  Result.ScaleH := 1;
-  Result.Rot := 0;
-  Result.TexNum := ActTex;
-  Result.TexW := oldWidth / newWidth;
-  Result.TexH := oldHeight / newHeight;
-
-  Result.Int   := 1;
-  Result.ColR  := 1;
-  Result.ColG  := 1;
-  Result.ColB  := 1;
-  Result.Alpha := 1;
-
-  // new test - default use whole texure, taking TexW and TexH as const and changing these
-  Result.TexX1 := 0;
-  Result.TexY1 := 0;
-  Result.TexX2 := 1;
-  Result.TexY2 := 1;
-
-  {$ifdef blindydebug}
-  Log.LogStatus('',' JB-6');
-  {$endif}
-
-  Result.Name := Identifier;
-
-  SDL_FreeSurface(TexSurface);
-
-  {$ifdef blindydebug}
-  Log.LogStatus('',' JB-7');
-  {$endif}
-
-
-  Log.BenchmarkEnd(4);
-  if Log.BenchmarkTimeLength[4] >= 1 then
-    Log.LogBenchmark('**********> Texture Load Time Warning - ' + Identifier + '/' + TextureTypeToStr(Typ), 4)
-  else Log.LogBenchmark('**********> Texture Load Time ' + ExtractFileName(Identifier) + '/' + TextureTypeToStr(Typ), 4);
-  {$ifdef blindydebug}
-  Log.LogStatus('',' JB-8');
-  {$endif}
-
-end;
-
-
-function TTextureUnit.GetTexture(const Name: string; Typ: TTextureType; FromCache: boolean): TTexture;
-begin
-  Result := GetTexture(Name, Typ, 0, FromCache);
-end;
-
-function TTextureUnit.GetTexture(const Name: string; Typ: TTextureType; Col: LongWord; FromCache: boolean): TTexture;
-var
-  T:    integer; // texture
-  C:    integer; // cover
-  Data: array of byte;
-begin
-
-  if Name = '' then
-    exit;
-
-  // find texture entry
-  T := FindTexture(Name, Typ, Col);
-
-  if T = -1 then
-  begin
-    // create texture entry
-    T := Length(TextureDatabase.Texture);
-    SetLength(TextureDatabase.Texture, T+1);
-
-    TextureDatabase.Texture[T].Name  := Name;
-    TextureDatabase.Texture[T].Typ   := Typ;
-    TextureDatabase.Texture[T].Color := Col;
-
-    // inform database that no textures have been loaded into memory
-    TextureDatabase.Texture[T].Texture.TexNum      := -1;
-    TextureDatabase.Texture[T].TextureCache.TexNum := -1;
-  end;
-
-  // use preloaded texture
-  if (not FromCache) or (FromCache{ and (Covers.CoverExists(Name) < 0)}) then
-  begin
-    // use full texture
-    if TextureDatabase.Texture[T].Texture.TexNum = -1 then
-    begin
-      // load texture
-      {$ifdef blindydebug}
-      Log.LogStatus('...', 'GetTexture('''+Name+''','''+Typ+''')');
-      {$endif}
-      TextureDatabase.Texture[T].Texture := LoadTexture(false, Name, Typ, Col);
-      {$ifdef blindydebug}
-      Log.LogStatus('done',' ');
-      {$endif}
-    end;
-
-    // use texture
-    Result := TextureDatabase.Texture[T].Texture;
-  end;
-
-  if FromCache and Covers.CoverExists(Name) then
-  begin
-    // use cache texture
-    C := Covers.CoverNumber(Name);
-
-    if TextureDatabase.Texture[T].TextureCache.TexNum = -1 then
-    begin
-      // load texture
-      Covers.PrepareData(Name);
-      TextureDatabase.Texture[T].TextureCache := CreateTexture(Covers.Data, Name, Covers.Cover[C].W, Covers.Cover[C].H, 24);
-    end;
-
-    // use texture
-    Result := TextureDatabase.Texture[T].TextureCache;
-  end;
-end;
-
-//--------
-// Returns Pointer to an Array of Byte containing the Texture Data in the
-// requested Size
-//--------
-Function TTextureUnit.GetCoverThumbnail(const Name: string): Pointer;
-var
-  TexSurface: PSDL_Surface;
-  newHeight, newWidth: Cardinal;
-const
-  Typ = TEXTURE_TYPE_PLAIN;
-begin
-  Result := nil;
-  If (FileExists(Name)) then
-  begin
-    {$ifdef blindydebug}
-    Log.LogStatus('',' ----------------------------------------------------');
-    Log.LogStatus('',' GetCoverThumbnail('''+Name+''')');
-    {$endif}
-    TexSurface := LoadImage(Name);
-    {$ifdef blindydebug}
-    Log.LogStatus('',' ok');
-    {$endif}
-    if assigned(TexSurface) then
-    begin
-      // convert pixel format as needed
-      {$ifdef blindydebug}
-      Log.LogStatus('',' AdjustPixelFormat');
-      {$endif}
-      AdjustPixelFormat(TexSurface, Typ);
-
-      {$ifdef blindydebug}
-      Log.LogStatus('',' ok');
-      {$endif}
-
-      // Scale Texture to Covers Dimensions
-      {$ifdef blindydebug}
-      Log.LogStatus('',' ScaleTexture('''+inttostr(tnWidth)+''','''+inttostr(TnHeight)+''') (for CacheMipmap)');
-      {$endif}
-      ScaleTexture(TexSurface, TnWidth, TnHeight);
-
-      if assigned(TexSurface) AND assigned(TnSurface) then
-      begin
-        {$ifdef blindydebug}
-        Log.LogStatus('',' ok');
-        Log.LogStatus('',' BlitSurface Stuff');
-        {$endif}
-
-        SDL_BlitSurface(TexSurface, nil, TnSurface, nil);
-
-        Result := @TnBuffer[0];
-
-        {$ifdef blindydebug}
-        Log.LogStatus('',' ok');
-        {$endif}
-      end
-      else
-        Log.LogStatus(' Error creating Cover Thumbnail',' LoadTexture('''+Name+''')');
-    end
-    else
-      Log.LogError('Could not load texture for Cover Thumbnail: "' + name+' '+ TextureTypeToStr(Typ) +'"',
-                   'TTextureUnit.GetCoverThumbnail');
-
-    SDL_FreeSurface(TexSurface);
-  end;
-end;
-
-//--------
-// Sets Textures Thumbnail Size Vars and Sets LEngth of DataBuffer and Create CoverSurface
-//--------
-Procedure TTextureUnit.SetCoverSize(W, H: Integer);
-begin
-  If (H > 0) AND (W > 0) then
-  begin
-    TnWidth := W;
-    TnHeight := H;
-
-    SetLength(TnBuffer, TnWidth * TnHeight * 3);
-
-    //Free if necesary and Create new Surface at Data
-    If (Assigned(TnSurface)) then
-      SDL_FreeSurface(TnSurface);
-      
-    TnSurface := SDL_CreateRGBSurfaceFrom(@TnBuffer[0], TnWidth, TnHeight, 24, TnWidth*3, $000000ff, $0000ff00, $00ff0000, 0);
-  end;
-end;
-
-function TTextureUnit.FindTexture(const Name: string; Typ: TTextureType; Col: Cardinal): integer;
-var
-  T:    integer; // texture
-begin
-  Result := -1;
-  for T := 0 to high(TextureDatabase.Texture) do
-    if (TextureDatabase.Texture[T].Name = Name) and
-       (TextureDatabase.Texture[T].Typ = Typ) then
-    begin
-      // colorized textures must match in their color too
-      if (TextureDatabase.Texture[T].Typ <> TEXTURE_TYPE_COLORIZED) or
-         (TextureDatabase.Texture[T].Color = Col) then
-      begin
-        Result := T;
-        break;
-      end;
-    end;
-end;
-
-function TTextureUnit.LoadTexture(const Identifier: string; Typ: TTextureType; Col: LongWord): TTexture;
-begin
-  Result := LoadTexture(false, Identifier, Typ, Col);
-end;
-
-function TTextureUnit.LoadTexture(const Identifier: string): TTexture;
-begin
-  Result := LoadTexture(false, Identifier, TEXTURE_TYPE_PLAIN, 0);
-end;
-
-function TTextureUnit.CreateTexture(var Data: array of byte; const Name: string; W, H: word; Bits: byte): TTexture;
-var
-  Position:        integer;
-  Position2:       integer;
-  Pix:        integer;
-  ColInt:     real;
-  PPix:       PByteArray;
-  TempA:      integer;
-  Error:      integer;
-begin
-  Mipmapping := false;
-
-  glGenTextures(1, @ActTex); // ActText = new texture number
-  glBindTexture(GL_TEXTURE_2D, ActTex);
-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);
-  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);
-
-  glTexImage2D(GL_TEXTURE_2D, 0, 3, W, H, 0, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);
-  if Mipmapping then begin
-    Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 3, W, H, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);
-    if Error > 0 then
-      Log.LogError('gluBuild2DMipmaps() failed', 'TTextureUnit.CreateTexture');
-  end;
-
-  Result.X := 0;
-  Result.Y := 0;
-  Result.W := 0;
-  Result.H := 0;
-  Result.ScaleW := 1;
-  Result.ScaleH := 1;
-  Result.Rot := 0;
-  Result.TexNum := ActTex;
-  Result.TexW := 1;
-  Result.TexH := 1;
-
-  Result.Int := 1;
-  Result.ColR := 1;
-  Result.ColG := 1;
-  Result.ColB := 1;
-  Result.Alpha := 1;
-
-  // 0.4.2 new test - default use whole texure, taking TexW and TexH as const and changing these
-  Result.TexX1 := 0;
-  Result.TexY1 := 0;
-  Result.TexX2 := 1;
-  Result.TexY2 := 1;
-
-  // 0.5.0
-  Result.Name := Name;
-end;
-
-procedure TTextureUnit.UnloadTexture(const Name: string; Typ: TTextureType; FromCache: boolean);
-begin
-  UnloadTexture(Name, Typ, 0, FromCache);
-end;
-
-procedure TTextureUnit.UnloadTexture(const Name: string; Typ: TTextureType; Col: Cardinal; FromCache: boolean);
-var
-  T:      integer;
-  TexNum: integer;
-begin
-  T := FindTexture(Name, Typ, Col);
-
-  if not FromCache then begin
-    TexNum := TextureDatabase.Texture[T].Texture.TexNum;
-    if TexNum >= 0 then begin
-      glDeleteTextures(1, PGLuint(@TexNum));
-      TextureDatabase.Texture[T].Texture.TexNum := -1;
-//      Log.LogError('Unload texture no '+IntToStr(TexNum));
-    end;
-  end else begin
-    TexNum := TextureDatabase.Texture[T].TextureCache.TexNum;
-    if TexNum >= 0 then begin
-      glDeleteTextures(1, @TexNum);
-      TextureDatabase.Texture[T].TextureCache.TexNum := -1;
-//      Log.LogError('Unload texture cache no '+IntToStr(TexNum));
-    end;
-  end;
-end;
-
-(* This needs some work
-procedure TTextureUnit.FlushTextureDatabase();
-var
-  i: integer;
-  Tex: ^TTexture;
-begin
-  for i := 0 to High(TextureDatabase.Texture) do
-  begin
-    // only delete non-cached entries
-    if (TextureDatabase.Texture[i].Texture.TexNum <> -1) then
-    begin
-      Tex := @TextureDatabase.Texture[i].Texture;
-      glDeleteTextures(1, PGLuint(Tex^.TexNum));
-      Tex^.TexNum := -1;
-    end;
-  end;
-end;
-*)
-
-function TextureTypeToStr(TexType: TTextureType): string;
-begin
-  Result := TextureTypeStr[TexType];
-end;
-
-function ParseTextureType(const TypeStr: string; Default: TTextureType): TTextureType;
-var
-  TexType: TTextureType;
-  UpCaseStr: string;
-begin
-  UpCaseStr := UpperCase(TypeStr);
-  for TexType := Low(TextureTypeStr) to High(TextureTypeStr) do
-  begin
-    if (UpCaseStr = UpperCase(TextureTypeStr[TexType])) then
-    begin
-      Result := TexType;
-      Exit;
-    end;
-  end;
-  Log.LogWarn('Unknown texture-type: "' + TypeStr + '"', 'ParseTextureType');
-  Result := TEXTURE_TYPE_PLAIN;
-end;
-
-end.
+        2: begin clr2[0]:=p2;      clr2[1]:=hsv2[2]; clr2[2]:=t2;      end; // (p,v,t)

+        3: begin clr2[0]:=p2;      clr2[1]:=q2;      clr2[2]:=hsv2[2]; end; // (p,q,v)

+        4: begin clr2[0]:=t2;      clr2[1]:=p2;      clr2[2]:=hsv2[2]; end; // (t,p,v)

+        5: begin clr2[0]:=hsv2[2]; clr2[1]:=p2;      clr2[2]:=q2;      end; // (v,p,q)

+      end;

+

+    PixelColors[0]:=clr2[0] shr 10;

+    PixelColors[1]:=clr2[1] shr 10;

+    PixelColors[2]:=clr2[2] shr 10;

+

+    // old floating point version

+(*    clr[0] := PixelColors[0]/255;

+    clr[1] := PixelColors[1]/255;

+    clr[2] := PixelColors[2]/255;

+    max := maxvalue(clr);

+    delta := max - minvalue(clr);

+

+    hsv[0] := DestinationHue; // set H(ue)

+    hsv[2] := max; // set V(alue)

+    // calc S(aturation)

+    if (max = 0.0) then hsv[1] := 0.0

+    else                hsv[1] := delta/max;

+

+//    ColorizePixel(PByteArray(Pixel), DestinationHue);

+      h_int := trunc(hsv[0]);             // h_int = |_h_|

+      f := hsv[0]-h_int;                  // f = h-h_int

+      p := hsv[2]*(1.0-hsv[1]);           // p = v*(1-s)

+      q := hsv[2]*(1.0-(hsv[1]*f));       // q = v*(1-s*f)

+      t := hsv[2]*(1.0-(hsv[1]*(1.0-f))); // t = v*(1-s*(1-f))

+      case h_int of

+        0: begin clr[0]:=hsv[2]; clr[1]:=t;      clr[2]:=p;      end; // (v,t,p)

+        1: begin clr[0]:=q;      clr[1]:=hsv[2]; clr[2]:=p;      end; // (q,v,p)

+        2: begin clr[0]:=p;      clr[1]:=hsv[2]; clr[2]:=t;      end; // (p,v,t)

+        3: begin clr[0]:=p;      clr[1]:=q;      clr[2]:=hsv[2]; end; // (p,q,v)

+        4: begin clr[0]:=t;      clr[1]:=p;      clr[2]:=hsv[2]; end; // (t,p,v)

+        5: begin clr[0]:=hsv[2]; clr[1]:=p;      clr[2]:=q;      end; // (v,p,q)

+      end;

+

+    // and store new rgb back into the image

+    PixelColors[0] := trunc(255*clr[0]);

+    PixelColors[1] := trunc(255*clr[1]);

+    PixelColors[2] := trunc(255*clr[2]);

+*)

+    Inc(Pixel, TexSurface^.format.BytesPerPixel);

+  end;

+end;

+

+function TTextureUnit.LoadTexture(FromRegistry: boolean; const Identifier: string; Typ: TTextureType; Col: LongWord): TTexture;

+var

+  TexSurface: PSDL_Surface;

+  MipmapSurface: PSDL_Surface;

+  newWidth, newHeight: Cardinal;

+  oldWidth, oldHeight: Cardinal;

+begin

+  Log.BenchmarkStart(4);

+  Mipmapping := true;

+(*

+  Log.LogStatus( '', '' );

+

+  if Identifier = nil then

+    Log.LogStatus(' ERROR unknown Identifier', 'Id:'''+Identifier+''' Fmt:'''+Format+''' Typ:'''+Typ+'''')

+  else

+    Log.LogStatus(' should be ok - trying to load', 'Id:'''+Identifier+''' Fmt:'''+Format+''' Typ:'''+Typ+'''');

+*)

+

+ // load texture data into memory

+  {$ifdef blindydebug}

+  Log.LogStatus('',' ----------------------------------------------------');

+  Log.LogStatus('',' LoadImage('''+Identifier+''') (called by '+Format+')');

+  {$endif}

+  TexSurface := LoadImage(Identifier);

+  {$ifdef blindydebug}

+  Log.LogStatus('',' ok');

+  {$endif}

+  if not assigned(TexSurface) then

+  begin

+    Log.LogError('Could not load texture: "' + Identifier +' '+ TextureTypeToStr(Typ) +'"',

+                 'TTextureUnit.LoadTexture');

+    Exit;

+  end;

+

+  // convert pixel format as needed

+  {$ifdef blindydebug}

+  Log.LogStatus('',' AdjustPixelFormat');

+  {$endif}

+  AdjustPixelFormat(TexSurface, Typ);

+  {$ifdef blindydebug}

+  Log.LogStatus('',' ok');

+  {$endif}

+  // adjust texture size (scale down, if necessary)

+  newWidth   := TexSurface.W;

+  newHeight  := TexSurface.H;

+

+  if (newWidth > Limit) then

+    newWidth := Limit;

+

+  if (newHeight > Limit) then

+    newHeight := Limit;

+

+  if (TexSurface.W > newWidth) or (TexSurface.H > newHeight) then

+  begin

+    {$ifdef blindydebug}

+    Log.LogStatus('',' ScaleTexture');

+    {$endif}

+    ScaleTexture(TexSurface,newWidth,newHeight);

+    {$ifdef blindydebug}

+    Log.LogStatus('',' ok');

+    {$endif}

+  end;

+

+  {$ifdef blindydebug}

+  Log.LogStatus('',' JB-1 : typ='+Typ);

+  {$endif}

+

+

+

+  // don't actually understand, if this is needed...

+  // this should definately be changed... together with all this

+  // cover cache stuff

+  {if (CreateCacheMipmap) and (Typ = TEXTURE_TYPE_PLAIN) then

+  begin

+    {$ifdef blindydebug}{

+    Log.LogStatus('',' JB-1 : Minimap');

+    {$endif}

+

+    {if (TnWidth <= 256) and (TnHeight <= 256) then

+    begin

+      {$ifdef blindydebug}{

+      Log.LogStatus('',' GetScaledTexture('''+inttostr(Covers.W)+''','''+inttostr(Covers.H)+''') (for CacheMipmap)');

+      {$endif}{

+      MipmapSurface:=GetScaledTexture(TexSurface, TnWidth, TnHeight);

+      if assigned(MipmapSurface) then

+      begin

+        {$ifdef blindydebug}{

+        Log.LogStatus('',' ok');

+        Log.LogStatus('',' BlitSurface Stuff');

+        {$endif}{

+        // creating and freeing the surface could be done once, if Cover.W and Cover.H don't change

+        TnSurface:=SDL_CreateRGBSurfaceFrom(@TnBuffer[0], TnWidth, TnHeight, 24, TnWidth*3, $000000ff, $0000ff00, $00ff0000, 0);

+        SDL_BlitSurface(TnSurface, nil, TnSurface, nil);

+        SDL_FreeSurface(TnSurface);

+        {$ifdef blindydebug}{

+        Log.LogStatus('',' ok');

+        Log.LogStatus('',' SDL_FreeSurface (CacheMipmap)');

+        {$endif}{

+        SDL_FreeSurface(TnSurface);

+        {$ifdef blindydebug}{

+        Log.LogStatus('',' ok');

+        {$endif}{

+      end

+      else

+      begin

+        Log.LogStatus(' Error creating CacheMipmap',' LoadTexture('''+Identifier+''')');

+      end;

+    end;

+    // should i create a cache texture, if Covers.W/H are larger?

+  end; }

+

+  {$ifdef blindydebug}

+  Log.LogStatus('',' JB-2');

+  {$endif}

+

+

+ // now we might colorize the whole thing

+  if (Typ = TEXTURE_TYPE_COLORIZED) then

+    ColorizeTexture(TexSurface, Col);

+

+ // save actual dimensions of our texture

+  oldWidth  := newWidth;

+  oldHeight := newHeight;

+ // make texture dimensions be powers of 2

+  newWidth  := Round(Power(2, Ceil(Log2(newWidth))));

+  newHeight := Round(Power(2, Ceil(Log2(newHeight))));

+  if (newHeight <> oldHeight) or (newWidth <> oldWidth) then

+    FitTexture(TexSurface, newWidth, newHeight);

+

+  // at this point we have the image in memory...

+  // scaled to be at most 1024x1024 pixels large

+  // scaled so that dimensions are powers of 2

+  // and converted to either RGB or RGBA

+

+  {$ifdef blindydebug}

+  Log.LogStatus('',' JB-3');

+  {$endif}

+

+

+  // if we got a Texture of Type Plain, Transparent or Colorized,

+  // then we're done manipulating it

+  // and could now create our openGL texture from it

+

+ // prepare OpenGL texture

+

+  // JB_linux : this is causing AV's on linux... ActText seems to be nil !

+//  {$IFnDEF win32}

+//  if pointer(ActTex) = nil then

+//    exit;

+//  {$endif}

+

+  glGenTextures(1, @ActTex);

+

+  glBindTexture(GL_TEXTURE_2D, ActTex);

+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);

+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);

+

+  // load data into gl texture

+  if (Typ = TEXTURE_TYPE_TRANSPARENT) or

+     (Typ = TEXTURE_TYPE_COLORIZED) then

+  begin

+    glTexImage2D(GL_TEXTURE_2D, 0, 4, newWidth, newHeight, 0, GL_RGBA, GL_UNSIGNED_BYTE, TexSurface.pixels);

+  end

+  else //if Typ = TEXTURE_TYPE_PLAIN then

+  begin

+    glTexImage2D(GL_TEXTURE_2D, 0, 3, newWidth, newHeight, 0, GL_RGB, GL_UNSIGNED_BYTE, TexSurface.pixels);

+  end;

+

+  {$ifdef blindydebug}

+  Log.LogStatus('',' JB-5');

+  {$endif}

+

+

+  Result.X := 0;

+  Result.Y := 0;

+  Result.Z := 0;

+  Result.W := 0;

+  Result.H := 0;

+  Result.ScaleW := 1;

+  Result.ScaleH := 1;

+  Result.Rot := 0;

+  Result.TexNum := ActTex;

+  Result.TexW := oldWidth / newWidth;

+  Result.TexH := oldHeight / newHeight;

+

+  Result.Int   := 1;

+  Result.ColR  := 1;

+  Result.ColG  := 1;

+  Result.ColB  := 1;

+  Result.Alpha := 1;

+

+  // new test - default use whole texure, taking TexW and TexH as const and changing these

+  Result.TexX1 := 0;

+  Result.TexY1 := 0;

+  Result.TexX2 := 1;

+  Result.TexY2 := 1;

+

+  {$ifdef blindydebug}

+  Log.LogStatus('',' JB-6');

+  {$endif}

+

+  Result.Name := Identifier;

+

+  SDL_FreeSurface(TexSurface);

+

+  {$ifdef blindydebug}

+  Log.LogStatus('',' JB-7');

+  {$endif}

+

+

+  Log.BenchmarkEnd(4);

+  if Log.BenchmarkTimeLength[4] >= 1 then

+    Log.LogBenchmark('**********> Texture Load Time Warning - ' + Identifier + '/' + TextureTypeToStr(Typ), 4)

+  else Log.LogBenchmark('**********> Texture Load Time ' + ExtractFileName(Identifier) + '/' + TextureTypeToStr(Typ), 4);

+  {$ifdef blindydebug}

+  Log.LogStatus('',' JB-8');

+  {$endif}

+

+end;

+

+

+function TTextureUnit.GetTexture(const Name: string; Typ: TTextureType; FromCache: boolean): TTexture;

+begin

+  Result := GetTexture(Name, Typ, 0, FromCache);

+end;

+

+function TTextureUnit.GetTexture(const Name: string; Typ: TTextureType; Col: LongWord; FromCache: boolean): TTexture;

+var

+  T:    integer; // texture

+  C:    integer; // cover

+  Data: array of byte;

+begin

+

+  if Name = '' then

+    exit;

+

+  // find texture entry

+  T := FindTexture(Name, Typ, Col);

+

+  if T = -1 then

+  begin

+    // create texture entry

+    T := Length(TextureDatabase.Texture);

+    SetLength(TextureDatabase.Texture, T+1);

+

+    TextureDatabase.Texture[T].Name  := Name;

+    TextureDatabase.Texture[T].Typ   := Typ;

+    TextureDatabase.Texture[T].Color := Col;

+

+    // inform database that no textures have been loaded into memory

+    TextureDatabase.Texture[T].Texture.TexNum      := 0;

+    TextureDatabase.Texture[T].TextureCache.TexNum := 0;

+  end;

+

+  // use preloaded texture

+  if (not FromCache) or (FromCache{ and (Covers.CoverExists(Name) < 0)}) then

+  begin

+    // use full texture

+    if TextureDatabase.Texture[T].Texture.TexNum = 0 then

+    begin

+      // load texture

+      {$ifdef blindydebug}

+      Log.LogStatus('...', 'GetTexture('''+Name+''','''+Typ+''')');

+      {$endif}

+      TextureDatabase.Texture[T].Texture := LoadTexture(false, Name, Typ, Col);

+      {$ifdef blindydebug}

+      Log.LogStatus('done',' ');

+      {$endif}

+    end;

+

+    // use texture

+    Result := TextureDatabase.Texture[T].Texture;

+  end;

+

+  if FromCache and Covers.CoverExists(Name) then

+  begin

+    // use cache texture

+    C := Covers.CoverNumber(Name);

+

+    if TextureDatabase.Texture[T].TextureCache.TexNum = 0 then

+    begin

+      // load texture

+      Covers.PrepareData(Name);

+      TextureDatabase.Texture[T].TextureCache := CreateTexture(Covers.Data, Name, Covers.Cover[C].W, Covers.Cover[C].H, 24);

+    end;

+

+    // use texture

+    Result := TextureDatabase.Texture[T].TextureCache;

+  end;

+end;

+

+//--------

+// Returns Pointer to an Array of Byte containing the Texture Data in the

+// requested Size

+//--------

+Function TTextureUnit.GetCoverThumbnail(const Name: string): Pointer;

+var

+  TexSurface: PSDL_Surface;

+  newHeight, newWidth: Cardinal;

+const

+  Typ = TEXTURE_TYPE_PLAIN;

+begin

+  Result := nil;

+  If (FileExists(Name)) then

+  begin

+    {$ifdef blindydebug}

+    Log.LogStatus('',' ----------------------------------------------------');

+    Log.LogStatus('',' GetCoverThumbnail('''+Name+''')');

+    {$endif}

+    TexSurface := LoadImage(Name);

+    {$ifdef blindydebug}

+    Log.LogStatus('',' ok');

+    {$endif}

+    if assigned(TexSurface) then

+    begin

+      // convert pixel format as needed

+      {$ifdef blindydebug}

+      Log.LogStatus('',' AdjustPixelFormat');

+      {$endif}

+      AdjustPixelFormat(TexSurface, Typ);

+

+      {$ifdef blindydebug}

+      Log.LogStatus('',' ok');

+      {$endif}

+

+      // Scale Texture to Covers Dimensions

+      {$ifdef blindydebug}

+      Log.LogStatus('',' ScaleTexture('''+inttostr(tnWidth)+''','''+inttostr(TnHeight)+''') (for CacheMipmap)');

+      {$endif}

+      ScaleTexture(TexSurface, TnWidth, TnHeight);

+

+      if assigned(TexSurface) AND assigned(TnSurface) then

+      begin

+        {$ifdef blindydebug}

+        Log.LogStatus('',' ok');

+        Log.LogStatus('',' BlitSurface Stuff');

+        {$endif}

+

+        SDL_BlitSurface(TexSurface, nil, TnSurface, nil);

+

+        Result := @TnBuffer[0];

+

+        {$ifdef blindydebug}

+        Log.LogStatus('',' ok');

+        {$endif}

+      end

+      else

+        Log.LogStatus(' Error creating Cover Thumbnail',' LoadTexture('''+Name+''')');

+    end

+    else

+      Log.LogError('Could not load texture for Cover Thumbnail: "' + name+' '+ TextureTypeToStr(Typ) +'"',

+                   'TTextureUnit.GetCoverThumbnail');

+

+    SDL_FreeSurface(TexSurface);

+  end;

+end;

+

+//--------

+// Sets Textures Thumbnail Size Vars and Sets LEngth of DataBuffer and Create CoverSurface

+//--------

+Procedure TTextureUnit.SetCoverSize(W, H: Integer);

+begin

+  If (H > 0) AND (W > 0) then

+  begin

+    TnWidth := W;

+    TnHeight := H;

+

+    SetLength(TnBuffer, TnWidth * TnHeight * 3);

+

+    //Free if necesary and Create new Surface at Data

+    If (Assigned(TnSurface)) then

+      SDL_FreeSurface(TnSurface);

+      

+    TnSurface := SDL_CreateRGBSurfaceFrom(@TnBuffer[0], TnWidth, TnHeight, 24, TnWidth*3, $000000ff, $0000ff00, $00ff0000, 0);

+  end;

+end;

+

+function TTextureUnit.FindTexture(const Name: string; Typ: TTextureType; Col: Cardinal): integer;

+var

+  T:    integer; // texture

+begin

+  Result := -1;

+  for T := 0 to high(TextureDatabase.Texture) do

+    if (TextureDatabase.Texture[T].Name = Name) and

+       (TextureDatabase.Texture[T].Typ = Typ) then

+    begin

+      // colorized textures must match in their color too

+      if (TextureDatabase.Texture[T].Typ <> TEXTURE_TYPE_COLORIZED) or

+         (TextureDatabase.Texture[T].Color = Col) then

+      begin

+        Result := T;

+        break;

+      end;

+    end;

+end;

+

+function TTextureUnit.LoadTexture(const Identifier: string; Typ: TTextureType; Col: LongWord): TTexture;

+begin

+  Result := LoadTexture(false, Identifier, Typ, Col);

+end;

+

+function TTextureUnit.LoadTexture(const Identifier: string): TTexture;

+begin

+  Result := LoadTexture(false, Identifier, TEXTURE_TYPE_PLAIN, 0);

+end;

+

+function TTextureUnit.CreateTexture(var Data: array of byte; const Name: string; W, H: word; Bits: byte): TTexture;

+var

+  Position:        integer;

+  Position2:       integer;

+  Pix:        integer;

+  ColInt:     real;

+  PPix:       PByteArray;

+  TempA:      integer;

+  Error:      integer;

+begin

+  Mipmapping := false;

+

+  glGenTextures(1, @ActTex); // ActText = new texture number

+  glBindTexture(GL_TEXTURE_2D, ActTex);

+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);

+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE);

+  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE);

+

+  glTexImage2D(GL_TEXTURE_2D, 0, 3, W, H, 0, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);

+  if Mipmapping then begin

+    Error := gluBuild2DMipmaps(GL_TEXTURE_2D, 3, W, H, GL_RGB, GL_UNSIGNED_BYTE, @Data[0]);

+    if Error > 0 then

+      Log.LogError('gluBuild2DMipmaps() failed', 'TTextureUnit.CreateTexture');

+  end;

+

+  Result.X := 0;

+  Result.Y := 0;

+  Result.W := 0;

+  Result.H := 0;

+  Result.ScaleW := 1;

+  Result.ScaleH := 1;

+  Result.Rot := 0;

+  Result.TexNum := ActTex;

+  Result.TexW := 1;

+  Result.TexH := 1;

+

+  Result.Int := 1;

+  Result.ColR := 1;

+  Result.ColG := 1;

+  Result.ColB := 1;

+  Result.Alpha := 1;

+

+  // 0.4.2 new test - default use whole texure, taking TexW and TexH as const and changing these

+  Result.TexX1 := 0;

+  Result.TexY1 := 0;

+  Result.TexX2 := 1;

+  Result.TexY2 := 1;

+

+  // 0.5.0

+  Result.Name := Name;

+end;

+

+procedure TTextureUnit.UnloadTexture(const Name: string; Typ: TTextureType; FromCache: boolean);

+begin

+  UnloadTexture(Name, Typ, 0, FromCache);

+end;

+

+procedure TTextureUnit.UnloadTexture(const Name: string; Typ: TTextureType; Col: Cardinal; FromCache: boolean);

+var

+  T:      integer;

+  TexNum: GLuint;

+begin

+  T := FindTexture(Name, Typ, Col);

+

+  if not FromCache then begin

+    TexNum := TextureDatabase.Texture[T].Texture.TexNum;

+    if TexNum > 0 then begin

+      glDeleteTextures(1, PGLuint(@TexNum));

+      TextureDatabase.Texture[T].Texture.TexNum := 0;

+//      Log.LogError('Unload texture no '+IntToStr(TexNum));

+    end;

+  end else begin

+    TexNum := TextureDatabase.Texture[T].TextureCache.TexNum;

+    if TexNum > 0 then begin

+      glDeleteTextures(1, @TexNum);

+      TextureDatabase.Texture[T].TextureCache.TexNum := 0;

+//      Log.LogError('Unload texture cache no '+IntToStr(TexNum));

+    end;

+  end;

+end;

+

+(* This needs some work

+procedure TTextureUnit.FlushTextureDatabase();

+var

+  i: integer;

+  Tex: ^TTexture;

+begin

+  for i := 0 to High(TextureDatabase.Texture) do

+  begin

+    // only delete non-cached entries

+    if (TextureDatabase.Texture[i].Texture.TexNum > 0) then

+    begin

+      Tex := @TextureDatabase.Texture[i].Texture;

+      glDeleteTextures(1, PGLuint(Tex^.TexNum));

+      Tex^.TexNum := 0;

+    end;

+  end;

+end;

+*)

+

+function TextureTypeToStr(TexType: TTextureType): string;

+begin

+  Result := TextureTypeStr[TexType];

+end;

+

+function ParseTextureType(const TypeStr: string; Default: TTextureType): TTextureType;

+var

+  TexType: TTextureType;

+  UpCaseStr: string;

+begin

+  UpCaseStr := UpperCase(TypeStr);

+  for TexType := Low(TextureTypeStr) to High(TextureTypeStr) do

+  begin

+    if (UpCaseStr = UpperCase(TextureTypeStr[TexType])) then

+    begin

+      Result := TexType;

+      Exit;

+    end;

+  end;

+  Log.LogWarn('Unknown texture-type: "' + TypeStr + '"', 'ParseTextureType');

+  Result := TEXTURE_TYPE_PLAIN;

+end;

+

+end.