romunit.pas: glatterer Übergang

2 files changed, 46 insertions, 44 deletions

diff --git a/ROM.lps b/ROM.lps
index 6572224..222e634 100644
--- a/ROM.lps
+++ b/ROM.lps
@@ -7,8 +7,9 @@
       <Unit0>
         <Filename Value="ROM.lpr"/>
         <IsPartOfProject Value="True"/>
+        <TopLine Value="91"/>
         <CursorPos X="5" Y="31"/>
-        <UsageCount Value="107"/>
+        <UsageCount Value="108"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
@@ -16,10 +17,10 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="179"/>
-        <CursorPos X="11" Y="202"/>
+        <TopLine Value="891"/>
+        <CursorPos X="59" Y="900"/>
         <FoldState Value=" T3iF04053 pidrN0A1="/>
-        <UsageCount Value="107"/>
+        <UsageCount Value="108"/>
         <Loaded Value="True"/>
       </Unit1>
       <Unit2>
@@ -27,7 +28,7 @@
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="-1"/>
         <CursorPos Y="10"/>
-        <UsageCount Value="106"/>
+        <UsageCount Value="107"/>
       </Unit2>
       <Unit3>
         <Filename Value="../units/matheunit.pas"/>
@@ -58,122 +59,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="ROM.lpr"/>
+        <Caret Line="26" Column="19"/>
       </Position1>
       <Position2>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="18" Column="9"/>
+        <Caret Line="33" Column="9" TopLine="4"/>
       </Position2>
       <Position3>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="26" Column="19"/>
+        <Caret Line="93" Column="13" TopLine="64"/>
       </Position3>
       <Position4>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="33" Column="9" TopLine="4"/>
+        <Caret Line="256" Column="21" TopLine="234"/>
       </Position4>
       <Position5>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="93" Column="13" TopLine="64"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="23" Column="29" TopLine="5"/>
       </Position5>
       <Position6>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="256" Column="21" TopLine="234"/>
+        <Caret Line="258" Column="14" TopLine="234"/>
       </Position6>
       <Position7>
         <Filename Value="romunit.pas"/>
-        <Caret Line="23" Column="29" TopLine="5"/>
+        <Caret Line="15" Column="30"/>
       </Position7>
       <Position8>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="258" Column="14" TopLine="234"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="32" Column="23" TopLine="14"/>
       </Position8>
       <Position9>
         <Filename Value="romunit.pas"/>
-        <Caret Line="15" Column="30"/>
+        <Caret Line="876" Column="31"/>
       </Position9>
       <Position10>
         <Filename Value="romunit.pas"/>
-        <Caret Line="32" Column="23" TopLine="14"/>
+        <Caret Line="888" TopLine="865"/>
       </Position10>
       <Position11>
         <Filename Value="romunit.pas"/>
-        <Caret Line="876" Column="31"/>
+        <Caret Line="36"/>
       </Position11>
       <Position12>
         <Filename Value="romunit.pas"/>
-        <Caret Line="888" TopLine="865"/>
+        <Caret Line="1063" Column="40" TopLine="1041"/>
       </Position12>
       <Position13>
         <Filename Value="romunit.pas"/>
-        <Caret Line="36"/>
+        <Caret Line="1062" Column="26" TopLine="1041"/>
       </Position13>
       <Position14>
         <Filename Value="romunit.pas"/>
-        <Caret Line="1063" Column="40" TopLine="1041"/>
+        <Caret Line="1068" Column="72" TopLine="1042"/>
       </Position14>
       <Position15>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="1062" Column="26" TopLine="1041"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="286" Column="22" TopLine="139"/>
       </Position15>
       <Position16>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="1068" Column="72" TopLine="1042"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="280" Column="25" TopLine="254"/>
       </Position16>
       <Position17>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="286" Column="22" TopLine="139"/>
+        <Caret Line="17" Column="11"/>
       </Position17>
       <Position18>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="280" Column="25" TopLine="254"/>
+        <Caret Line="271" Column="26" TopLine="257"/>
       </Position18>
       <Position19>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="17" Column="11"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="26" Column="19" TopLine="8"/>
       </Position19>
       <Position20>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="271" Column="26" TopLine="257"/>
+        <Caret Line="286" Column="37" TopLine="257"/>
       </Position20>
       <Position21>
         <Filename Value="romunit.pas"/>
-        <Caret Line="26" Column="19" TopLine="8"/>
+        <Caret Line="35" Column="61" TopLine="17"/>
       </Position21>
       <Position22>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="286" Column="37" TopLine="257"/>
+        <Caret Line="151" Column="15" TopLine="122"/>
       </Position22>
       <Position23>
-        <Filename Value="romunit.pas"/>
-        <Caret Line="35" Column="61" TopLine="17"/>
+        <Filename Value="ROM.lpr"/>
+        <Caret Line="21" Column="58" TopLine="16"/>
       </Position23>
       <Position24>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="151" Column="15" TopLine="122"/>
+        <Caret Line="183" Column="25" TopLine="154"/>
       </Position24>
       <Position25>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="21" Column="58" TopLine="16"/>
+        <Caret Line="165" Column="6" TopLine="152"/>
       </Position25>
       <Position26>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="183" Column="25" TopLine="154"/>
+        <Caret Line="59" Column="29" TopLine="35"/>
       </Position26>
       <Position27>
         <Filename Value="ROM.lpr"/>
-        <Caret Line="165" Column="6" TopLine="152"/>
+        <Caret Line="166" Column="9" TopLine="147"/>
       </Position27>
       <Position28>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="59" Column="29" TopLine="35"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="1036" Column="116" TopLine="1015"/>
       </Position28>
       <Position29>
-        <Filename Value="ROM.lpr"/>
-        <Caret Line="166" Column="9" TopLine="147"/>
+        <Filename Value="romunit.pas"/>
+        <Caret Line="337" Column="62" TopLine="319"/>
       </Position29>
       <Position30>
         <Filename Value="romunit.pas"/>
-        <Caret Line="1036" Column="116" TopLine="1015"/>
+        <Caret Line="31" Column="14" TopLine="13"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/romunit.pas b/romunit.pas
index f62b8fe..c1c0a7c 100644
--- a/romunit.pas
+++ b/romunit.pas
@@ -827,9 +827,9 @@ begin
   for i:=j-1 downto 0 do
     dat[i+k]:=dat[i];
   for i:=0 to k-1 do                     // weich auf 0 abklingen lassen
-    dat[i]['y']:=dat[k]['y']   *   sqr(sin(pi/2*i/k));
+    dat[i]['y']:=dat[2*k-1-i]['y']   *   sqr(sin(pi/2*i/k));
   for i:=j+k to length(dat)-1 do         // dito
-    dat[i]['y']:=dat[j+k-1]['y'] * sqr(sin(pi/2*(length(dat)-1-i)/(length(dat)-j-k)));
+    dat[i]['y']:=dat[2*j+2*k-1-i]['y'] * sqr(sin(pi/2*(length(dat)-1-i)/(length(dat)-j-k)));
   for i:=0 to length(dat)-1 do begin
     dat[i]['x']:=dat[i]['y'];
     dat[i]['y']:=0;