hedgewars/uRender.pas
changeset 7110 c91d33837b0d
parent 7069 bcf9d8e64e92
child 7080 dbf43c07a507
child 8026 4a4f21070479
child 8145 6408c0ba4ba1
--- a/hedgewars/uRender.pas	Thu May 03 22:48:02 2012 +0200
+++ b/hedgewars/uRender.pas	Tue May 22 11:19:32 2012 +0200
@@ -55,6 +55,8 @@
 implementation
 uses uVariables;
 
+var LastTint: LongWord = 0;
+
 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt);
 begin
 r.y:= r.y + Height * Position;
@@ -406,10 +408,10 @@
 
 procedure DrawHedgehog(X, Y: LongInt; Dir: LongInt; Pos, Step: LongWord; Angle: real);
 const VertexBuffer: array [0..3] of TVertex2f = (
-        (x: -16; y: -16),
-        (x:  16; y: -16),
-        (x:  16; y:  16),
-        (x: -16; y:  16));
+        (X: -16; Y: -16),
+        (X:  16; Y: -16),
+        (X:  16; Y:  16),
+        (X: -16; Y:  16));
 var l, r, t, b: real;
     TextureBuffer: array [0..3] of TVertex2f;
 begin