summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ROM.lps86
-rw-r--r--romunit.pas4
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;