// title: Drone with deep dusting
// author: Paul Anderson
// description:
// Has a low frequency drone, with Dust fed into the TwoTube physical model. The result of the physical model is shifted down in frequency.
// code:
(
{
	var env;
	env = LFPar.ar(0.3,add:1);
	Mix.new([SinOsc.ar(80)*env,SinOsc.ar(40)*env])*Saw.ar(80)*0.5;
}.play;


// Adding dust.

{
var delay1, delay2, source, shift;

//k from -1 to 1

//in samples
delay1= 100;
delay2= 40;

	//source= Dust.ar(300)*4*EnvGen.ar(Env([1,1,0],[(delay1+delay2)/SampleRate.ir,0.0]),);
		//Impulse.kr(MouseY.kr(1,4))););

	source = Dust.ar(5);
	shift = TwoTube.ar(source,1,0.99,delay1,delay2);
	//FreqShift.ar(shift, 400);
	PitchShift.ar(shift, pitchRatio: 0.1);
}.play
)