// title: friture plus
// author: bernhard
// description:
// Random deep fryer. Can turn in to rain, waves and other stuff.
// code:
// random deep fryer. can turn in to rain, waves and other stuff.
// nice with multichannel iteration. Change number at "!2".
// volume compensation for high quality filter with "1/q.sqrt" for mul in BPF.
// variable "dist" for distortion, increasing can go loud, decrease "amp" if so.
// LFNoise1 with noisefreq,noisemul,noiseoffset gives it the wavy feel.

(
SynthDef(\friture, {
	arg amp=0.5, dist=2, dens=12, dustamp=1, offset=0, noisefreq=2, noisemul=2,
	noiseoffset=0, frq1=200, frq2=2500, rq1=0.5, rq2=0.1, out=0;

	var sig, env;

	sig = {BPF.ar((Dust2.ar(dens, dustamp, offset)*LFNoise1.ar(noisefreq,noisemul,noiseoffset)),rrand(frq1,frq2),q=rrand(rq1,rq2),1/q.sqrt)}!2;
	sig = (sig*dist).tanh*amp;


	Out.ar(out,sig);

	}).add;
)

y = Synth.new(\friture);
y.free;

y.set(\dens,161);
y.set(\amp,0.5);
y.set(\dist,1);
y.set(\rq1,0.2);
y.set(\rq2,0.4);
y.set(\frq1,133);
y.set(\frq2,193);
y.set(\noisefreq,1);
y.set(\noisemul,2);
y.set(\noiseoffset,(-2));
y.set(\out,0);