No more occasional long straight edges
authorunc0rr
Tue, 15 Apr 2014 22:36:44 +0400
changeset 10225 0278759252b6
parent 10223 b6b98dfa3807
child 10226 cb63617a0c2f
No more occasional long straight edges
hedgewars/uLandGenTemplateBased.pas
--- a/hedgewars/uLandGenTemplateBased.pas	Tue Apr 15 21:46:08 2014 +0400
+++ b/hedgewars/uLandGenTemplateBased.pas	Tue Apr 15 22:36:44 2014 +0400
@@ -260,8 +260,9 @@
 
     if distR + distL < minDistance * 2 + 10 then
     begin
-        // limits are too narrow, leave point alone
-        newPoint:= p1
+        // limits are too narrow, just divide
+        newPoint.x:= mp.x;
+        newPoint.y:= mp.y;
     end
     else
     begin