changeset 10510 | 9329dab04490 |
parent 10485 | 05b771423b95 |
child 10560 | 9f09196d92a6 |
--- a/hedgewars/uLandOutline.pas Sun Nov 16 22:23:28 2014 +0100 +++ b/hedgewars/uLandOutline.pas Mon Nov 17 15:25:24 2014 +0100 @@ -124,14 +124,14 @@ begin d:= DistanceI(p2.X - p1.X, p2.Y - p1.Y); d1:= DistanceI(p2.X - p3.X, p2.Y - p3.Y); - + if d1 < d then d:= d1; if d2 < d then d:= d2; d2:= d * _1div3 / d2; - + Vx:= Vx * d2; Vy:= Vy * d2 end