From 96cfe6094f1497d6692d21b9db143ea14317c547 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 31 Jul 2018 13:35:42 +0200 Subject: romunit.pas: glatterer Übergang MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- romunit.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'romunit.pas') 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; -- cgit v1.2.3-54-g00ecf