hedgewars/uLandGenTemplateBased.pas
changeset 10477 b219c5a2317f
parent 10472 8d04cebedb16
child 10478 12662c21e0e9
--- a/hedgewars/uLandGenTemplateBased.pas	Sun Nov 09 14:33:31 2014 -0500
+++ b/hedgewars/uLandGenTemplateBased.pas	Sun Nov 09 14:58:43 2014 -0500
@@ -6,10 +6,11 @@
 procedure GenTemplated(var Template: TEdgeTemplate);
 procedure DivideEdges(fillPointsCount: LongWord; var pa: TPixAr);
 
+var minDistance: LongInt; // different details size
+
 implementation
 uses uVariables, uConsts, uFloat, uLandUtils, uRandom, SDLh, math;
 
-var minDistance: LongInt; // different details size
 
 procedure SetPoints(var Template: TEdgeTemplate; var pa: TPixAr; fps: PPointArray);
 var i: LongInt;
@@ -337,7 +338,7 @@
         for x:= 0 to LAND_WIDTH - 1 do
             Land[y, x]:= lfBasic;
     
-    minDistance:= max(cFeatureSize,12);
+    minDistance:= max(cFeatureSize*5,12);
     MaxHedgehogs:= Template.MaxHedgehogs;
     hasGirders:= Template.hasGirders;
     playHeight:= Template.TemplateHeight;