diff options
| -rw-r--r-- | ROM.lps | 86 | ||||
| -rw-r--r-- | romunit.pas | 4 |
2 files changed, 46 insertions, 44 deletions
@@ -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; |