Golden notes are implemented from now on. So "golden notes" twinkle, and perfect sung notes twinkle too.

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

1 files changed, 13 insertions, 9 deletions

diff --git a/Game/Code/Classes/UDraw.pas b/Game/Code/Classes/UDraw.pas
index e9433790..4e4691ad 100644
--- a/Game/Code/Classes/UDraw.pas
+++ b/Game/Code/Classes/UDraw.pas
@@ -1,7 +1,7 @@
 unit UDraw;

 

 interface

-uses UThemes, ModiSDK;

+uses UThemes, ModiSDK, UGraphicClasses;

 

 procedure SingDraw;

 procedure SingModiDraw (PlayerInfo: TPlayerInfo);

@@ -200,6 +200,8 @@ var
   Pet:      integer;

   TempR:    real;

   R,G,B:    real;

+

+  GoldenStarPos : real;

 begin

   glColor3f(1, 1, 1);

   glEnable(GL_TEXTURE_2D);

@@ -214,11 +216,9 @@ begin
           // Golden Note Patch

           case Wartosc of

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

-            2: glColor4f(1, 1, 0.3, 0.85);

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

           end; // case

 

-

-

           // lewa czesc  -  left part

           Rec.Left := (Start-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left + 0.5 + 10*ScreenX;

           Rec.Right := Rec.Left + NotesW;

@@ -232,6 +232,11 @@ begin
             glTexCoord2f(7/8, 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+Dlugosc-Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote) * TempR + Left - NotesW - 0.5 + 10*ScreenX;

@@ -256,12 +261,11 @@ begin
           glTexCoord2f(1,   0); glVertex2f(Rec.Right, Rec.Top);

         glEnd;

 

-

           // Golden Star Patch

-          //case Wartosc of

-          //  2: SingGoldenStar(Rec.Left, Rec.Top, 1, StarfrG);

-          //end; // case

-

+          if Wartosc = 2 then

+            begin

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

+            end;

 

         end; // if not FreeStyle

       end; // with