hedgewars/uLandGenTemplateBased.pas
changeset 13924 e26573441808
parent 11537 de40095f3327
child 14121 4d22be35cfa2
--- a/hedgewars/uLandGenTemplateBased.pas	Sun Oct 14 12:01:11 2018 -0400
+++ b/hedgewars/uLandGenTemplateBased.pas	Sun Oct 14 18:01:58 2018 +0200
@@ -82,21 +82,6 @@
     end
 end;
 
-
-procedure Distort1(var Template: TEdgeTemplate; var pa: TPixAr);
-var i: Longword;
-begin
-    for i:= 1 to Template.BezierizeCount do
-        begin
-        BezierizeEdge(pa, _0_5);
-        RandomizePoints(pa);
-        RandomizePoints(pa)
-        end;
-    for i:= 1 to Template.RandPassesCount do
-        RandomizePoints(pa);
-    BezierizeEdge(pa, _0_1);
-end;
-
 procedure FindPoint(si: LongInt; fillPointsCount: LongWord; var newPoint: TPoint; var pa: TPixAr);
 const mapBorderMargin = 40;
 var p1, p2, p4, fp, mp: TPoint;