Einzelnen Beitrag anzeigen

mse1

Registriert seit: 21. Nov 2007
115 Beiträge
 
#22

AW: BASS.DLL - Rauschen erzeugen / create noise

  Alt 23. Mai 2014, 10:22
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;
Miniaturansicht angehängter Grafiken
pinknoise.png  
Martin Schreiber
  Mit Zitat antworten Zitat