hedgewars/uRender.pas
changeset 6982 8d41d22a291d
parent 6710 42504695122d
child 6986 409dd3851309
--- a/hedgewars/uRender.pas	Tue May 01 20:54:30 2012 +0400
+++ b/hedgewars/uRender.pas	Tue May 01 19:56:55 2012 +0200
@@ -493,17 +493,14 @@
 end;
 
 procedure Tint(r, g, b, a: Byte); inline;
-const 
-    lastTint: Longword = 0;
-var 
-    nc, tw: Longword;
+var nc, tw: Longword;
 begin
 nc:= (a shl 24) or (b shl 16) or (g shl 8) or r;
 
 if nc = lastTint then
     exit;
 
-if cGrayScale then
+if GrayScale then
     begin
     tw:= round(r * RGB_LUMINANCE_RED + g * RGB_LUMINANCE_GREEN + b * RGB_LUMINANCE_BLUE);
     if tw > 255 then