hedgewars/uLandGenTemplateBased.pas
branchios-revival
changeset 11175 e1a098f950a9
parent 10564 0cb20aa8877a
child 11532 bf86c6cb9341
--- a/hedgewars/uLandGenTemplateBased.pas	Sat Sep 12 05:46:59 2015 +0200
+++ b/hedgewars/uLandGenTemplateBased.pas	Mon Sep 14 07:02:06 2015 +0200
@@ -9,7 +9,7 @@
 var minDistance, dabDiv: LongInt; // different details size
 
 implementation
-uses uVariables, uConsts, uFloat, uLandUtils, uRandom, SDLh, math;
+uses uVariables, uTypes, uConsts, uFloat, uLandUtils, uRandom, SDLh, math;
 
 
 procedure SetPoints(var Template: TEdgeTemplate; var pa: TPixAr; fps: PPointArray);
@@ -327,6 +327,9 @@
         DivideEdges(Template.FillPointsCount, pa)
     until i = pa.Count;
 
+{$IFDEF IPHONEOS}
+    if GameType <> gmtLandPreview then
+{$ENDIF}
     // make it smooth
     BezierizeEdge(pa, _0_2);
 end;