From 075cb824a31c5e6e1cc6ee6f0087ac5598ba003a Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 28 Jun 2010 15:42:13 +0000
Subject: - new option "PossibleScore": show max possible score in singscreen
 (toggle on/off with "S") - fade the "ball" also - fixed screensong preview
 volume - update of acinerella

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2565 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Menu/UDrawTexture.pas | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

(limited to 'Game/Code/Menu')

diff --git a/Game/Code/Menu/UDrawTexture.pas b/Game/Code/Menu/UDrawTexture.pas
index 5509b29c..128375d9 100644
--- a/Game/Code/Menu/UDrawTexture.pas
+++ b/Game/Code/Menu/UDrawTexture.pas
@@ -5,7 +5,9 @@ uses UTexture;
 
 procedure DrawLine(X1, Y1, X2, Y2, ColR, ColG, ColB: real);
 procedure DrawQuad(X, Y, W, H, ColR, ColG, ColB: real);
-procedure DrawTexture(Texture: TTexture);
+procedure DrawTexture(Texture: TTexture; Alph: real) overload;
+procedure DrawTexture(Texture: TTexture) overload;
+
 
 implementation
 uses gl;
@@ -30,16 +32,17 @@ begin
   glEnd;
 end;
 
-procedure DrawTexture(Texture: TTexture);
+procedure DrawTexture(Texture: TTexture; Alph: real);
 var
   x1, x2, x3, x4:       real;
   y1, y2, y3, y4:       real;
   xt1, xt2, xt3, xt4:   real;
   yt1, yt2, yt3, yt4:   real;
 begin
-  with Texture do begin
+  with Texture do
+  begin
     // rysuje paski gracza
-    glColor4f(ColR * Int, ColG * Int, ColB * Int, Alpha);
+    glColor4f(ColR * Int, ColG * Int, ColB * Int, Alpha*Alph);
     glEnable(GL_TEXTURE_2D);
     glEnable(GL_BLEND);
     glDepthRange(0, 10);
@@ -94,8 +97,13 @@ begin
       glTexCoord2f(TexX2*TexW, TexY1*TexH); glVertex3f(x4, y4, z);
     glEnd;
   end;
-  glDisable(GL_DEPTH_TEST); 
+  glDisable(GL_DEPTH_TEST);
   glDisable(GL_TEXTURE_2D);
 end;
 
+procedure DrawTexture(Texture: TTexture);
+begin
+  DrawTexture(Texture, 1);
+end;
+
 end.
-- 
cgit v1.2.3