diff options
Diffstat (limited to 'romunit.pas')
-rw-r--r-- | romunit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
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; |