💾 Archived View for heavysquare.com › noise › 2019-05-23.sc.txt captured on 2021-12-03 at 14:04:38.
-=-=-=-=-=-=-
// 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")