From 07174bc088f8b14203a1417e7ffe0cc8a8be5e73 Mon Sep 17 00:00:00 2001
From: mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 22 Mar 2007 22:10:33 +0000
Subject: Added new texture for perfect sung note (formerly NoteStar), now
 named NotePerfectStar (view skin: W&C.ini). NoteStar is now used for golden
 notes. There's also a difference in drawing both, PerfectNoteStar is bigger,
 and drawn in white - whereas GoldenNotes are smaller and yellow.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@17 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UDraw.pas | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

(limited to 'Game/Code/Classes/UDraw.pas')

diff --git a/Game/Code/Classes/UDraw.pas b/Game/Code/Classes/UDraw.pas
index 31291788..2e742172 100644
--- a/Game/Code/Classes/UDraw.pas
+++ b/Game/Code/Classes/UDraw.pas
@@ -12,9 +12,10 @@ procedure SingDrawBeatDelimeters(Left, Top, Right: real; NrCzesci: integer);
 procedure SingDrawCzesc(Left, Top, Right: real; NrCzesci: integer; Space: integer);
 procedure SingDrawPlayerCzesc(X, Y, W: real; NrGracza: integer; Space: integer);
 procedure SingDrawPlayerBGCzesc(Left, Top, Right: real; NrCzesci, NrGracza: integer; Space: integer);
+{ for no use since we have UGraphicClasses
 procedure SingDrawStar(X, Y, A: real);
 procedure SingGoldenStar(X, Y, A: real);
-
+}
 // The Singbar
 procedure SingDrawSingbar(X, Y, W, H: real; Percent: integer);
 
@@ -381,8 +382,8 @@ var
             //inc(Starfr);
             //Starfr := Starfr mod 128;
 
-
-            SingDrawStar(Rec.Left+2, Rec.Top+4, A);
+            GoldenRec.SavePerfectNotePos(Rec.Left, Rec.Top);
+          {  SingDrawStar(Rec.Left+2, Rec.Top+4, A);}
         end;
 
         // detekt
@@ -500,6 +501,7 @@ begin
   end;
 end;
 
+{not used anymore tough we have UGraphicClasses
 procedure SingDrawStar(X, Y, A: real);
 var
   TempR:    real;
@@ -509,7 +511,7 @@ var
   W := 32;
   H := 32;
 
-  // Golden Star Patch
+// Golden Star Patch
 //  case Z of
 //    1: glColor4f(1, 1, 1, A);
 //    2: glColor4f(1, 1, 0.3, A);
@@ -530,8 +532,9 @@ var
     glTexCoord2f((1/16) * Starframe, 1); glVertex2f(X+W, Y-H);
   glEnd;
 end;
+}
 
-
+{not used anymore tough we have UGraphicClasses
 procedure SingGoldenStar(X, Y, A: real);
 var
   TempR:    real;
@@ -554,7 +557,7 @@ var
     glTexCoord2f((1/16) * StarfrG2, 1); glVertex2f(X+W, Y-H);
   glEnd;
 end;
-
+}
 
 procedure SingDraw;
 var
-- 
cgit v1.2.3