1 files changed, 1 insertions, 1 deletions
diff --git a/romunit.pas b/romunit.pas
index 761bd68..cc2a2ef 100644
--- a/romunit.pas
+++ b/romunit.pas
@@ -797,7 +797,7 @@ begin
   setlength(tdat,length(dat));
   for i:=0 to length(dat)-1 do
     tdat[i]:=dat[i];
-  setlength(dat,round(xLen/tmp+1));
+  setlength(dat,min(3*length(dat),round(xLen/tmp+1)));
   j:=0;
   for i:=0 to length(dat)-1 do begin
     dat[i]['x']:=tdat[0]['x'] + xLen*i/(length(dat)-1);