hedgewars/uGearsHandlers.pas
changeset 10015 4feced261c68
parent 9998 736015b847e3
parent 9950 2759212a27de
child 10108 c68cf030eded
--- a/hedgewars/uGearsHandlers.pas	Sun Jan 19 00:18:28 2014 +0400
+++ b/hedgewars/uGearsHandlers.pas	Tue Jan 21 22:38:13 2014 +0100
@@ -31,7 +31,10 @@
 
 
 
-const dirs: array[0..3] of TPoint =   ((X: 0; Y: -1), (X: 1; Y: 0),(X: 0; Y: 1),(X: -1; Y: 0));
+const dirs: array[0..3] of TPoint = ((x: 0;  y: -1),
+                                     (x: 1;  y:  0),
+                                     (x: 0;  y:  1),
+                                     (x: -1; y:  0));
 
 procedure PrevAngle(Gear: PGear; dA: LongInt); inline;
 begin