# HG changeset patch
# User nemo
# Date 1351459914 14400
# Node ID 667b7583c389f1f8038cbd296dc1b0f87c68c4ba
# Parent  34fc0644d231f78a0aeaa12bbd20ca525ac4dd29
double cleaver rotation speed, also make spin direction dX dependent.

diff -r 34fc0644d231 -r 667b7583c389 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Mon Oct 29 00:03:42 2012 +0400
+++ b/hedgewars/GSHandlers.inc	Sun Oct 28 17:31:54 2012 -0400
@@ -5249,6 +5249,7 @@
 procedure doStepKnife(Gear: PGear);
 var ox, oy: LongInt;
     la: hwFloat;
+    a: real;
 begin
     // Gear is shrunk so it can actually escape the hog without carving into the terrain
     if (Gear^.Radius = 6) and (Gear^.CollisionMask = $FFFF) then Gear^.Radius:= 16;
@@ -5260,7 +5261,9 @@
         Gear^.Health:= hwRound(hwSqr((hwAbs(Gear^.dY)+hwAbs(Gear^.dX))*_4));
         doStepFallingGear(Gear);
         AllInactive := false;
-        CalcRotationDirAngle(Gear)
+        a:= Gear^.DirAngle;
+        CalcRotationDirAngle(Gear);
+        Gear^.DirAngle:= a+(Gear^.DirAngle-a)*2*hwSign(Gear^.dX) // double rotation
         end
     else if (Gear^.CollisionIndex = -1) and (Gear^.Timer = 0) then
         begin