Greedy approach: divide while it divides
authorunc0rr
Wed, 19 Mar 2014 00:34:14 +0400
changeset 10203 adeab6c21fe5
parent 10202 f7c8cb11a70e
child 10204 50e52e511300
Greedy approach: divide while it divides
hedgewars/uLandGenTemplateBased.pas
--- a/hedgewars/uLandGenTemplateBased.pas	Wed Mar 19 00:28:52 2014 +0400
+++ b/hedgewars/uLandGenTemplateBased.pas	Wed Mar 19 00:34:14 2014 +0400
@@ -276,8 +276,12 @@
 procedure Distort2(var Template: TEdgeTemplate; var pa: TPixAr);
 var i: Longword;
 begin
-    for i:= 1 to Template.BezierizeCount do
-        DivideEdges(pa);
+    //for i:= 1 to Template.BezierizeCount do
+    //    DivideEdges(pa);
+    repeat
+        i:= pa.Count;
+        DivideEdges(pa)
+    until i = pa.Count;
 
     {for i:= 1 to Template.BezierizeCount do
         begin