interpolation auf dreifache Punktanzahl begrenzen

2 files changed, 37 insertions, 37 deletions

diff --git a/ROM.lps b/ROM.lps
index 6d5de5b..fae3e1e 100644
--- a/ROM.lps
+++ b/ROM.lps
@@ -17,9 +17,9 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="286"/>
-        <CursorPos Y="306"/>
-        <FoldState Value=" T3iC04043 pidqc0A1I"/>
+        <TopLine Value="775"/>
+        <CursorPos X="20" Y="800"/>
+        <FoldState Value=" T3iC04043T"/>
         <UsageCount Value="110"/>
         <Loaded Value="True"/>
       </Unit1>
@@ -59,121 +59,121 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="320" Column="33" TopLine="298"/>
+        <Caret Line="16" Column="42"/>
       </Position1>
       <Position2>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="322" Column="33" TopLine="298"/>
+        <Caret Line="243" Column="9" TopLine="242"/>
       </Position2>
       <Position3>
         <Filename Value="ROM.lpr"/>
+        <Caret Line="16" Column="42"/>
       </Position3>
       <Position4>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="16" Column="42"/>
+        <Caret Line="238" Column="45" TopLine="209"/>
       </Position4>
       <Position5>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="243" Column="9" TopLine="242"/>
+        <Caret Line="241" Column="15" TopLine="212"/>
       </Position5>
       <Position6>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="16" Column="42"/>
+        <Caret Line="225" Column="3" TopLine="204"/>
       </Position6>
       <Position7>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="238" Column="45" TopLine="209"/>
       </Position7>
       <Position8>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="241" Column="15" TopLine="212"/>
+        <Caret Line="284" Column="42" TopLine="257"/>
       </Position8>
       <Position9>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="225" Column="3" TopLine="204"/>
+        <Caret Line="19" Column="58" TopLine="3"/>
       </Position9>
       <Position10>
         <Filename Value="ROM.lpr"/>
+        <Caret Line="40" TopLine="22"/>
       </Position10>
       <Position11>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="284" Column="42" TopLine="257"/>
+        <Caret Line="117" TopLine="100"/>
       </Position11>
       <Position12>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="19" Column="58" TopLine="3"/>
+        <Caret Line="216" Column="56" TopLine="198"/>
       </Position12>
       <Position13>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="40" TopLine="22"/>
+        <Caret Line="250" Column="22" TopLine="219"/>
       </Position13>
       <Position14>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="117" TopLine="100"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="30" TopLine="28"/>
       </Position14>
       <Position15>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="216" Column="56" TopLine="198"/>
+        <Caret Line="19" Column="58"/>
       </Position15>
       <Position16>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="250" Column="22" TopLine="219"/>
+        <Caret Line="37" TopLine="19"/>
       </Position16>
       <Position17>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="30" TopLine="28"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="99" TopLine="83"/>
       </Position17>
       <Position18>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="19" Column="58"/>
+        <Caret Line="19" Column="7"/>
       </Position18>
       <Position19>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="37" TopLine="19"/>
+        <Caret Line="36" Column="7" TopLine="7"/>
       </Position19>
       <Position20>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="99" TopLine="83"/>
+        <Caret Line="95" Column="26" TopLine="66"/>
       </Position20>
       <Position21>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="19" Column="7"/>
+        <Caret Line="96" Column="11" TopLine="67"/>
       </Position21>
       <Position22>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="36" Column="7" TopLine="7"/>
+        <Caret Line="205" Column="18" TopLine="176"/>
       </Position22>
       <Position23>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="95" Column="26" TopLine="66"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="30"/>
       </Position23>
       <Position24>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="96" Column="11" TopLine="67"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="888" Column="63" TopLine="871"/>
       </Position24>
       <Position25>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="205" Column="18" TopLine="176"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="1009" TopLine="975"/>
       </Position25>
       <Position26>
         <Filename Value="romunit.pas"/>
-        <Caret Line="30"/>
+        <Caret Line="13" Column="64"/>
       </Position26>
       <Position27>
         <Filename Value="romunit.pas"/>
-        <Caret Line="888" Column="63" TopLine="871"/>
+        <Caret Line="272" Column="22" TopLine="243"/>
       </Position27>
       <Position28>
         <Filename Value="romunit.pas"/>
-        <Caret Line="1009" TopLine="975"/>
+        <Caret Line="276" Column="47" TopLine="265"/>
       </Position28>
       <Position29>
         <Filename Value="romunit.pas"/>
-        <Caret Line="13" Column="64"/>
       </Position29>
       <Position30>
         <Filename Value="romunit.pas"/>
-        <Caret Line="272" Column="22" TopLine="243"/>
+        <Caret Line="30" Column="23"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
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);