hedgewars/uGearsRender.pas
changeset 13218 1ac1f5a91ec0
parent 13155 2f7c25bf4201
child 13219 9c81e34f1933
--- a/hedgewars/uGearsRender.pas	Wed Mar 14 23:55:13 2018 +0100
+++ b/hedgewars/uGearsRender.pas	Thu Mar 15 02:08:07 2018 +0100
@@ -1554,7 +1554,7 @@
             gtDuck: DrawSpriteRotatedF(sprDuck, x, y, 1, Gear^.Tag, 
                     // replace with something based on dx/dy?
                     Gear^.DirAngle + 10-round(20 * abs(1 - (RealTicks mod round(0.1/max(0.00005,cWindSpeedf))) / round(0.05/max(0.00005,cWindSpeedf))) ));
-            gtGenericFaller: DrawCircle(x, y, 3, 3, $FF, $00, $00, $FF);  // debug
+            gtGenericFaller: DrawCircle(x, y, max(3, Gear^.Radius), 3, $FF, $00, $00, $FF); // debug
          end;
     if Gear^.State and gstFrozen <> 0 then untint
 end;