# HG changeset patch
# User unc0rr
# Date 1342795365 -14400
# Node ID 63f56edae4c643d19710343bc67fe4da44991363
# Parent  38a23771ee45ef995fdda75f561c818e68fce5e8
Replace stupid 'mod' with 'and'

diff -r 38a23771ee45 -r 63f56edae4c6 hedgewars/uGearsHandlers.pas
--- a/hedgewars/uGearsHandlers.pas	Fri Jul 20 15:39:13 2012 +0100
+++ b/hedgewars/uGearsHandlers.pas	Fri Jul 20 18:42:45 2012 +0400
@@ -35,12 +35,12 @@
 
 procedure PrevAngle(Gear: PGear; dA: LongInt); inline;
 begin
-    Gear^.Angle := (LongInt(Gear^.Angle) + 4 - dA) mod 4
+    Gear^.Angle := (Gear^.Angle - dA) and 3
 end;
 
 procedure NextAngle(Gear: PGear; dA: LongInt); inline;
 begin
-    Gear^.Angle := (LongInt(Gear^.Angle) + 4 + dA) mod 4
+    Gear^.Angle := (Gear^.Angle + dA) and 3
 end;
 
 procedure cakeStep(Gear: PGear);