BASS.DLL - Rauschen erzeugen / create noise

[mse1]

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;