// Grain/Fold bird singing or other environmental recording

s.boot

b = Buffer.alloc(s, s.sampleRate * 4.0, 1)
{ RecordBuf.ar(AudioIn.ar(1),b,loop:0,doneAction:2) }.play
b.plot
b.normalize
b.write("/tmp/2019-05-23-base.aiff")

{ PlayBuf.ar(1,b,rate:1,doneAction:Done.freeSelf) }.play
{ SinOsc.ar(0.07+SinOsc.ar(0.5,mul:0.4)).exp.clip(-1,1) }.plot(8)

(
SynthDef(\ins,{|out=0,gate=1|
	var sig =
	PitchShift.ar(
		TGrains.ar(1,
			trigger:Dust.ar(7),
			bufnum:b,
			rate:0.1,
			centerPos:(BufDur.kr(b)/2)+Dwhite(0,0.1)+SinOsc.kr(0.04),
			dur:0.4,
			amp:1,
			interp:1),
		pitchRatio:0.1);
	Out.ar(out,
		EnvGen.kr(Env.asr(),gate,doneAction:2)  *
		GVerb.ar(
			Fold.ar(10*Splay.ar(
				[sig,
					Fold.ar(sig,
						hi:Saw.ar(0.05,mul:0.2,add:0.41)/8)].mirror),-1,1),
			roomsize:290))
}).add;
)

Pdef(\pins,Pfindur(30,Pmono(\ins)))
Pdef(\pins).record("/tmp/2019-05-23.wav")