MSEide+MSEgui git master 9b2b47fd benutzt nun den Filter von Paul Kellet für pink:
Code:
procedure tsignoise.sighandlerpink1(const ainfo: psighandlerinfoty);
var
white: double;
begin
fz:= 36969 * (fz and $ffff) + (fz shr 16); //mwc by George Marsaglia
fw:= 18000 * (fw and $ffff) + (fw shr 16);
white:= (integer((fz shl 16) + fw)/fscale);
fb0:= 0.99886 * fb0 + white * 0.0555179; //filter by Paul Kellet
fb1:= 0.99332 * fb1 + white * 0.0750759;
fb2:= 0.96900 * fb2 + white * 0.1538520;
fb3:= 0.86650 * fb3 + white * 0.3104856;
fb4:= 0.55000 * fb4 + white * 0.5329522;
fb5:= -0.7616 * fb5 - white * 0.0168980;
foutputpo^:= (fb0+fb1+fb2+fb3+fb4+fb5+fb6+white*0.5362) *
famplitudepo^.value + foffsetpo^.value;
fb6:= white * 0.115926;
end;