add three sc documents - three tracks of ilex
parent
4fd2ed8b53
commit
e17d9745e2
|
|
@ -0,0 +1,718 @@
|
||||||
|
/*
|
||||||
|
johchow.
|
||||||
|
|
||||||
|
inspired by frequency modulation synthesis
|
||||||
|
and innovations in computer music by John Chowning.
|
||||||
|
|
||||||
|
copyright by Luka Prinčič <luka@lukaprincic.si>
|
||||||
|
|
||||||
|
published under the conditions of Peer Production Licence
|
||||||
|
https://civicwise.org/peer-production-licence/
|
||||||
|
(see the bottom of this document for human readable summary)
|
||||||
|
|
||||||
|
|
||||||
|
*/
|
||||||
|
(
|
||||||
|
s.waitForBoot({
|
||||||
|
|
||||||
|
Routine({
|
||||||
|
|
||||||
|
"\n\n\n".postln;
|
||||||
|
">>> hello, welcome to Chowning! ------------------------------------------- ".postln;
|
||||||
|
|
||||||
|
// set
|
||||||
|
s.latency = 0.08;
|
||||||
|
s.volume = -1;
|
||||||
|
|
||||||
|
// function to tell us where we are on the timeline
|
||||||
|
~postbeats = { (" (" + TempoClock.default.beats.mod(64) + "/" + TempoClock.default.beats.mod(8) + ")" ).postln;};
|
||||||
|
|
||||||
|
b.free;
|
||||||
|
b = Buffer.alloc(s, s.sampleRate * 10, 1);
|
||||||
|
|
||||||
|
SynthDef(\fm5, {
|
||||||
|
arg f=10, i=0.5, gate=1, freq=120, amp=0.1, outBus=0, rls=2;
|
||||||
|
var c, m, d, snd;
|
||||||
|
|
||||||
|
c = freq;
|
||||||
|
m = c * f;
|
||||||
|
//d = 1200;
|
||||||
|
//m = i * d;
|
||||||
|
d = m / i;
|
||||||
|
|
||||||
|
// basic FM synthesis:
|
||||||
|
snd = SinOsc.ar( c + SinOsc.ar(m, mul: d) );
|
||||||
|
|
||||||
|
// envelope:
|
||||||
|
snd = snd * EnvGen.ar(Env.perc(releaseTime:rls, curve:-10), gate, doneAction:2);
|
||||||
|
|
||||||
|
Out.ar(outBus, snd!2 * amp * 3);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
|
||||||
|
// reverb synthdef
|
||||||
|
SynthDef(\revfx, { |inBus, outBus = 0, wet = 0.3, amp = 0.2|
|
||||||
|
var snd, rev;
|
||||||
|
|
||||||
|
snd = In.ar(inBus, 2);
|
||||||
|
|
||||||
|
snd = AnalogTape.ar(snd,
|
||||||
|
LFNoise1.kr(1/5).range(0.5,1),
|
||||||
|
LFNoise1.kr(1/5).range(0.5,1),
|
||||||
|
LFNoise1.kr(1/5).range(0.5,1) );
|
||||||
|
snd = LPF.ar(snd, LFNoise1.kr(1/5).exprange(500,15000));
|
||||||
|
rev = Greyhole.ar(snd, [1.4,2.05], feedback:0.9, modDepth:0.6, modFreq: 0.5) * wet + snd;
|
||||||
|
rev = Splay.ar(rev);
|
||||||
|
rev = rev * amp;
|
||||||
|
|
||||||
|
OffsetOut.ar(outBus, rev);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\fmkick, {
|
||||||
|
arg gate=1, rls=1, amp=0.1, freq=190, outBus=0, fxBus, fxwet=0;
|
||||||
|
var snd, square; //, env, fenv;
|
||||||
|
|
||||||
|
//env = ;
|
||||||
|
//fenv = EnvGen.ar(Env.perc(0.001, rls), gate, doneAction:2);
|
||||||
|
//
|
||||||
|
freq = freq * EnvGen.ar(Env.perc(0.01, rls, 1, -10));
|
||||||
|
square = Pulse.ar(freq*2 + 20, mul:0.2);
|
||||||
|
freq = freq * SinOsc.ar(freq/1.2, mul:3);
|
||||||
|
snd = SinOsc.ar(
|
||||||
|
freq: freq,
|
||||||
|
mul: EnvGen.ar(Env.perc(0.001, rls, 1, 10))
|
||||||
|
);
|
||||||
|
|
||||||
|
|
||||||
|
snd = snd + square;
|
||||||
|
snd = LeakDC.ar(snd);
|
||||||
|
snd = snd + WhiteNoise.ar(EnvGen.ar(Env.perc(0.00001, 0.01), levelScale:0.4));
|
||||||
|
snd = LPF.ar(snd, freq: EnvGen.ar(Env.perc(0.0001, rls, 20000, -4)) + 50);
|
||||||
|
snd = HPF.ar(snd, 20);
|
||||||
|
|
||||||
|
snd = snd * EnvGen.ar(Env([1,1,0], [rls, 0.1]));
|
||||||
|
snd = snd * EnvGen.ar(Env.cutoff, gate, doneAction:Done.freeSelf);
|
||||||
|
snd = Splay.ar(snd * amp);
|
||||||
|
|
||||||
|
Out.ar(fxBus, snd * fxwet);
|
||||||
|
Out.ar(outBus, snd);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\glc, {
|
||||||
|
arg gate=1, amp=0.1, outBus=0, rls=0.01, pan=0;
|
||||||
|
var glc;
|
||||||
|
|
||||||
|
glc = WhiteNoise.ar(LFNoise0.kr(3).range(0,3))
|
||||||
|
+ Pulse.ar(LFNoise0.kr(8).range(1000,10000), mul:LFNoise0.kr(2).range(0,3));
|
||||||
|
glc = glc * EnvGen.kr(Env.cutoff(rls), gate, doneAction:2);
|
||||||
|
|
||||||
|
|
||||||
|
//* LFPulse.ar(LFNoise0.kr(3).range(0.01,10), width:LFNoise0.kr(5).range(0.01,0.1)).range(0,0.6);
|
||||||
|
glc = RLPF.ar(in:glc, freq:LFNoise1.kr(5).exprange(300,10000), rq:LFNoise1.kr(5).range(0.2,0.9),
|
||||||
|
//mul:LFNoise0.kr(1/2).exprange(0.1,0.9)
|
||||||
|
);
|
||||||
|
glc = Decimator.ar(glc, 8000, 8);
|
||||||
|
glc = LPF.ar(glc, 8000);
|
||||||
|
|
||||||
|
glc = Pan2.ar(glc * amp, pan);
|
||||||
|
|
||||||
|
Out.ar(outBus, glc * amp);
|
||||||
|
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\phpHatSnare, {
|
||||||
|
arg gate = 1, amp = 0.1, pan = 0, outBus = 0,
|
||||||
|
rls = 1, rls1 = 0.01, lpa = 1, hpa = 1, bpa = 1;
|
||||||
|
var snd;
|
||||||
|
|
||||||
|
snd = WhiteNoise.ar;
|
||||||
|
snd = snd + (Pulse.ar(freq: Rand(5000!10, 15000)).sum * 0.2);
|
||||||
|
snd = (
|
||||||
|
LPF.ar(snd, Rand(1500,3000)) * lpa * 4
|
||||||
|
* LFSaw.ar(LFNoise1.ar(1/3).range(15,30)).range(LFNoise1.ar(1).range(0.5,0.9), 1)
|
||||||
|
* EnvGen.ar(Env.perc(0, rls), gate) )
|
||||||
|
+ (
|
||||||
|
HPF.ar(snd, Rand(5000,9000)) * hpa
|
||||||
|
* LFSaw.ar(LFNoise1.ar(1/3).range(15,30)).range(LFNoise1.ar(1).range(0.5,0.9), 1)
|
||||||
|
* EnvGen.ar(Env.perc(0, rls), gate) )
|
||||||
|
+ (
|
||||||
|
BPF.ar(snd, Rand(1000,5000), 0.2) * bpa * 4
|
||||||
|
* LFSaw.ar(LFNoise1.ar(1/3).range(15,30)).range(LFNoise1.ar(1).range(0.5,0.9), 1)
|
||||||
|
* EnvGen.ar(Env.perc(0, Rand(0.1, rls)), gate) )
|
||||||
|
;
|
||||||
|
snd = HPF.ar(snd, 200);
|
||||||
|
snd = LPF.ar(snd, 13000);
|
||||||
|
snd = snd * EnvGen.kr(Env.cutoff(rls), gate, doneAction:Done.freeSelf);
|
||||||
|
snd = Pan2.ar(snd, pan);
|
||||||
|
snd = snd * amp;
|
||||||
|
|
||||||
|
OffsetOut.ar(outBus, snd);
|
||||||
|
}
|
||||||
|
).add;
|
||||||
|
|
||||||
|
SynthDef(\envnoise, {
|
||||||
|
arg gate=1, amp=0.1, outBus=0, atk=8, crv=8, bpff=2000;
|
||||||
|
var snd;
|
||||||
|
|
||||||
|
snd = ClipNoise.ar(EnvGen.ar(Env.asr(atk, 1, 0, crv), gate, doneAction:Done.freeSelf));
|
||||||
|
snd = BPF.ar(snd, bpff);
|
||||||
|
snd = Pan2.ar(snd, LFNoise1.kr(1, mul:0.7));
|
||||||
|
|
||||||
|
Out.ar(outBus, snd * amp);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\dlywrangler, {
|
||||||
|
arg outBus=0, inBus, wet=0.1;
|
||||||
|
var snd, dly2;
|
||||||
|
snd = In.ar(inBus,2);
|
||||||
|
dly2 = CombN.ar(HPF.ar(snd,300), 1, [0.5,0.77], 5, mul:LFNoise1.kr(0.1).range(0.8,0.3));
|
||||||
|
snd = CombN.ar(snd, 1, Lag.ar(LFNoise0.ar(2).range(0.01,0.1),0.1), 3, mul:wet) + snd;
|
||||||
|
snd = Decimator.ar(snd, LFNoise1.kr(1).range(8000,22000), 0.2, 1.5) + (snd*0.5);
|
||||||
|
snd = AnalogTape.ar(snd, 1, 1);
|
||||||
|
snd = Compander.ar(snd, snd,
|
||||||
|
thresh: 0.9,
|
||||||
|
slopeBelow: 1,
|
||||||
|
slopeAbove: 0.01,
|
||||||
|
clampTime: 0.01,
|
||||||
|
relaxTime: 0.01);
|
||||||
|
snd = BHiShelf.ar(snd, 3000, 0.2, 5);
|
||||||
|
Out.ar(outBus, snd * Line.ar);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\gran, {
|
||||||
|
var snd;
|
||||||
|
|
||||||
|
snd = GrainBuf.ar(2,
|
||||||
|
trigger: Impulse.ar(LFNoise1.kr(1/10!3).exprange(80, 180) * LFNoise0.ar(100).range(0.7,1.1)),
|
||||||
|
dur: LFNoise1.ar(1).range(0.08,0.1),
|
||||||
|
sndbuf: b,
|
||||||
|
rate:[1,1/2,2],
|
||||||
|
pos:LFNoise1.kr(1/40!3).range(0,1),
|
||||||
|
pan: LFNoise0.ar(100).range(-1,1)
|
||||||
|
);
|
||||||
|
snd = LPF.ar(snd, LFNoise1.kr(1/10!3).exprange(500,10000));
|
||||||
|
snd = Mix(snd);
|
||||||
|
snd = AnalogTape.ar(snd, 1, 1, Lag2.kr(\dist.kr(0.1), 20));
|
||||||
|
snd = JPverb.ar(snd, LFNoise1.kr(1/10!2).range(1,10)) + snd;
|
||||||
|
snd = Limiter.ar( Mix(snd * 0.3), 0.8 );
|
||||||
|
snd = snd * Env.circle([0.5,0.3,0.5],90,\cub).kr;
|
||||||
|
snd = snd * Lag2.kr(\amp.kr(0.5), 20);
|
||||||
|
|
||||||
|
Out.ar(0,snd * 0.2);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\recbuf, {
|
||||||
|
arg inBus, bufnum;
|
||||||
|
|
||||||
|
RecordBuf.ar(
|
||||||
|
In.ar(
|
||||||
|
inBus, 1),
|
||||||
|
bufnum);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
~revFXbus1.free;
|
||||||
|
~revFXbus1 = Bus.audio(s, 2);
|
||||||
|
|
||||||
|
~manglebus1.free;
|
||||||
|
~manglebus1 = Bus.audio(s, 2);
|
||||||
|
|
||||||
|
s.sync;
|
||||||
|
"--- loaded SynthDefs, created Busses ...".postln;
|
||||||
|
|
||||||
|
wait(1);
|
||||||
|
|
||||||
|
//~reverb1.free;
|
||||||
|
~reverb1 = Synth(\revfx, [\inBus, ~revFXbus1, \wet, 0.4], addAction:\addToTail);
|
||||||
|
|
||||||
|
"--- recording to buffer ...".postln;
|
||||||
|
~recbuf = Synth(\recbuf, [\inBus, ~revFXbus1, \bufnum, b], addAction:\addToTail);
|
||||||
|
|
||||||
|
//~dlywrangler.free;
|
||||||
|
~dlywrangler = Synth(\dlywrangler, [\inBus, ~manglebus1], addAction:\addToTail);
|
||||||
|
|
||||||
|
s.sync;
|
||||||
|
|
||||||
|
"--- created FX Synths ...".postln;
|
||||||
|
|
||||||
|
wait(1);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
//~recbuf.free
|
||||||
|
|
||||||
|
// clear everything
|
||||||
|
|
||||||
|
Pbindef(\fmP).clear;
|
||||||
|
Pbindef(\fmPt).clear;
|
||||||
|
Pbindef(\fmPq).clear;
|
||||||
|
Pbindef(\fmPe).clear;
|
||||||
|
Pbindef(\fmPb).clear;
|
||||||
|
|
||||||
|
Pbindef(\fmkickP).clear;
|
||||||
|
Pbindef(\phpSnareP).clear;
|
||||||
|
Pbindef(\glcP).clear;
|
||||||
|
|
||||||
|
"--- cleared patterns ...".postln;
|
||||||
|
"--- waiting for 8th bar to start patterns Routine ...\n".postln;
|
||||||
|
|
||||||
|
wait(1);
|
||||||
|
|
||||||
|
Routine({
|
||||||
|
|
||||||
|
"--- start patterns Routine ...".postln;
|
||||||
|
"--- starting FM pattern fmP ...".postln;
|
||||||
|
|
||||||
|
|
||||||
|
Pbindef(\fmP, *[
|
||||||
|
instrument: \fm5,
|
||||||
|
dur:1,
|
||||||
|
degree: 0,
|
||||||
|
octave: 3,
|
||||||
|
i: Pwhite(0.4,0.6),
|
||||||
|
f: Pdup(44, Pseq([4,5,6,7,8,9,10, Prand((4..18), inf)])),
|
||||||
|
outBus: ~revFXbus1,
|
||||||
|
amp: Pseg([0.05,0.3,0.05], 22, \lin, inf),
|
||||||
|
]).play(quant:4);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(32);
|
||||||
|
|
||||||
|
"--- starting FM pattern fmPt ...".postln;
|
||||||
|
|
||||||
|
Pbindef(\fmPt, *[
|
||||||
|
instrument: \fm5,
|
||||||
|
dur:1.5,
|
||||||
|
degree: 6,
|
||||||
|
octave: 3,
|
||||||
|
i: Pwhite(0.2,0.9),
|
||||||
|
f: Pdup(33, Prand((4..18)/4, inf)),
|
||||||
|
outBus: ~revFXbus1,
|
||||||
|
amp: Pseg([0.05,0.3,0.05], 15, \lin, inf),
|
||||||
|
]).play(quant:4);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(32);
|
||||||
|
|
||||||
|
"--- starting FM pattern fmPq...".postln;
|
||||||
|
|
||||||
|
Pbindef(\fmPq, *[
|
||||||
|
instrument: \fm5,
|
||||||
|
dur:1/3,
|
||||||
|
degree: 6,
|
||||||
|
rls:1,
|
||||||
|
octave: 5,
|
||||||
|
i: Pwhite(0.4,0.7),
|
||||||
|
f: Pdup(12, Pn(Pshuf([1,2,3,4]*2,4))), //Pdup(18, Prand((4..18)/4, inf)),
|
||||||
|
outBus: ~revFXbus1,
|
||||||
|
amp: Pseg([0.05,0.3,0.05], 29, \lin, inf) * 0.2,
|
||||||
|
]).play(quant:4);
|
||||||
|
|
||||||
|
"--- starting granulator ...".postln;
|
||||||
|
~gran = Synth(\gran, [\amp, 1]);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(32);
|
||||||
|
|
||||||
|
"--- raising volume - gran amp 7 ...".postln;
|
||||||
|
~gran.set(\amp, 7);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(40);
|
||||||
|
|
||||||
|
"--- envnoiseP slide in ...".postln;
|
||||||
|
|
||||||
|
Pbindef(\envnoiseP, *[
|
||||||
|
instrument: \envnoise,
|
||||||
|
atk:8,
|
||||||
|
crv:8,
|
||||||
|
dur: Pseq([8]),
|
||||||
|
amp:0.2,
|
||||||
|
bpff: 500,
|
||||||
|
legato: 1
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(8);
|
||||||
|
|
||||||
|
"--- starting FM pattern fmPe and fmPb ...".postln;
|
||||||
|
|
||||||
|
Pbindef(\fmPe, *[
|
||||||
|
instrument: \fm5,
|
||||||
|
dur:1/8,
|
||||||
|
legato: 0.5,
|
||||||
|
rls: Pseq([0.2,0.1,0.1,0.1],inf),
|
||||||
|
degree: 6,
|
||||||
|
octave: 9,
|
||||||
|
i: Pseg([0.4,0.6,0.4], 10, \lin, inf),
|
||||||
|
f: 5.8, //Pdup(64, Prand((4..18)/4, inf)),
|
||||||
|
outBus: ~manglebus1,
|
||||||
|
amp: Pseg([0.05,0.3,0.05], 15, \lin, inf) * 0.05,
|
||||||
|
]).play(quant:4);
|
||||||
|
|
||||||
|
Pbindef(\fmPb, *[
|
||||||
|
instrument: \fm5,
|
||||||
|
dur:Pseq([Rest(1/2),Pn(8)]),
|
||||||
|
degree: 0,
|
||||||
|
octave: 2,
|
||||||
|
rls:10,
|
||||||
|
i: 1,
|
||||||
|
f: 1,
|
||||||
|
outBus: 0,
|
||||||
|
amp: 0.1,
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(32);
|
||||||
|
|
||||||
|
"--- fm pause...".postln;
|
||||||
|
|
||||||
|
~recbuf.free;
|
||||||
|
|
||||||
|
Pbindef(\fmP).stop;
|
||||||
|
Pbindef(\fmPt).stop;
|
||||||
|
Pbindef(\fmPq).stop;
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(16);
|
||||||
|
|
||||||
|
"--- envnoiseP ...".postln;
|
||||||
|
|
||||||
|
Pbindef(\envnoiseP, *[
|
||||||
|
instrument: \envnoise,
|
||||||
|
atk:8,
|
||||||
|
crv:8,
|
||||||
|
dur: Pseq([8]),
|
||||||
|
amp:0.2,
|
||||||
|
bpff: 500,
|
||||||
|
legato: 1
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
"--- ~recbuf ...".postln;
|
||||||
|
// restart recording into buffer for granulator
|
||||||
|
~recbuf = Synth(\recbuf, [\inBus, ~revFXbus1, \bufnum, b], addAction:\addToTail);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(8);
|
||||||
|
|
||||||
|
"--- starting fm+beats ...".postln;
|
||||||
|
|
||||||
|
Pbindef(\fmP, *[
|
||||||
|
f: Pdup(44, Prand((4..18), inf)),
|
||||||
|
amp: Pseg([0.05,0.3,0.05], 22, \lin, inf),
|
||||||
|
]).play(quant:8);
|
||||||
|
Pbindef(\fmPt).play(quant:8);
|
||||||
|
Pbindef(\fmPq).play(quant:8);
|
||||||
|
|
||||||
|
Pbindef(\glcP, *[
|
||||||
|
instrument: \glc,
|
||||||
|
dur:1/8,
|
||||||
|
legato: Pseq([0.3,0.1,0.9], inf),
|
||||||
|
amp: Pseq([0.3,0.1,0.2], inf),
|
||||||
|
outBus: ~manglebus1,
|
||||||
|
manglewet: Pseg([0.001, 0.2, 0.05, 0.5], [8,0], \exp, inf),
|
||||||
|
setmangle: Pfunc({ |ev|
|
||||||
|
s.bind{
|
||||||
|
~dlywrangler.set(\wet, ev.manglewet)
|
||||||
|
}
|
||||||
|
})
|
||||||
|
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
Pbindef(\fmkickP, *[
|
||||||
|
instrument: \fmkick,
|
||||||
|
dur: 2,
|
||||||
|
freq: 100 * Pwhite(0.8,1.3),
|
||||||
|
amp:0.5,
|
||||||
|
rls: Pwhite(0.4,0.7),
|
||||||
|
outBus:0,
|
||||||
|
fxBus: ~manglebus1,
|
||||||
|
fxwet: Pwhite(0.1,0.5),
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(40); // ================= <
|
||||||
|
|
||||||
|
Pbindef(\envnoiseP, *[
|
||||||
|
instrument: \envnoise,
|
||||||
|
atk:4,
|
||||||
|
crv:8,
|
||||||
|
dur: Pseq([Rest(4),4]),
|
||||||
|
amp:0.2,
|
||||||
|
bpff: 2500,
|
||||||
|
legato: 1
|
||||||
|
]).play(quant:4);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(4);
|
||||||
|
|
||||||
|
|
||||||
|
"--- beats pause ...".postln;
|
||||||
|
|
||||||
|
Pbindef(\fmkickP).stop;
|
||||||
|
Pbindef(\glcP).stop;
|
||||||
|
|
||||||
|
|
||||||
|
"--- return beats on next 8 bar ...".postln;
|
||||||
|
|
||||||
|
Pbindef(\glcP, *[
|
||||||
|
manglewet: Pseg([0.001, 0.3, 0.05, 0.7], [8,0], \exp, inf),
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
Pbindef(\fmkickP, *[
|
||||||
|
dur: Pseq([Pn(1,7), 3/4, 1/4,
|
||||||
|
1, 1/2, 3/2, 1, 1, 1, 1, 3/4, 1/4],inf)
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
Pbindef(\phpSnareP, *[
|
||||||
|
instrument: 'phpHatSnare',
|
||||||
|
dur: Pseq([ Rest(1), Pn(2)]),
|
||||||
|
rls: Pwhite(0.3,0.6),
|
||||||
|
amp:0.11,
|
||||||
|
bpa: 0,
|
||||||
|
lpa: 3,
|
||||||
|
hpa: 1,
|
||||||
|
legato:0.1,
|
||||||
|
outBus: ~manglebus1
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(28);
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
"--- envnoise slidein ...".postln;
|
||||||
|
Pbindef(\envnoiseP, *[
|
||||||
|
instrument: \envnoise,
|
||||||
|
atk:8,
|
||||||
|
crv:12,
|
||||||
|
dur: Pseq([8]),
|
||||||
|
amp:0.2,
|
||||||
|
bpff: 3500,
|
||||||
|
legato: 1
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
wait(6);
|
||||||
|
|
||||||
|
"--- beats pause II ...".postln;
|
||||||
|
Pbindef(\fmkickP).stop;
|
||||||
|
Pbindef(\glcP).stop;
|
||||||
|
Pbindef(\phpSnareP).stop;
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(2);
|
||||||
|
|
||||||
|
"--- return beats II on next 8 bar ...".postln;
|
||||||
|
|
||||||
|
Pbindef(\glcP).play(quant:8);
|
||||||
|
Pbindef(\phpSnareP).play(quant:8);
|
||||||
|
|
||||||
|
Pbindef(\fmkickP, *[
|
||||||
|
instrument: \fmkick,
|
||||||
|
dur: Pseq([
|
||||||
|
Pwrand([
|
||||||
|
Pseq([3/4, 4/4, 3/4]),
|
||||||
|
Pseq([3/4, 7/4]),
|
||||||
|
Pseq([1/4, 2/4, 3/4, 4/4]),
|
||||||
|
Pseq([1/4, 1/4, 1/4, 7/4])
|
||||||
|
], [0.7, 0.1, 0.1, 0.1]),
|
||||||
|
Pconst(6/4, Pwrand([1/4, 1/8, 1/2, Pn(1/6,3)], [0.3,0.1,0.5,0.1],inf))
|
||||||
|
], inf),
|
||||||
|
freq: 100 * Pwhite(0.8,1.3),
|
||||||
|
amp:0.4,
|
||||||
|
rls: Pwhite(0.4,0.7),
|
||||||
|
outBus:0,
|
||||||
|
fxBus: ~manglebus1,
|
||||||
|
fxwet: Pwhite(0.1,0.5),
|
||||||
|
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(8);
|
||||||
|
|
||||||
|
|
||||||
|
Pbindef(\envnoiseP, *[
|
||||||
|
instrument: \envnoise,
|
||||||
|
atk:4,
|
||||||
|
crv:8,
|
||||||
|
dur: Pseq([Rest(4),4]),
|
||||||
|
amp:0.2,
|
||||||
|
bpff: 5500,
|
||||||
|
legato: 1
|
||||||
|
]).play(quant:4);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(7);
|
||||||
|
|
||||||
|
"--- beats pause 3 ...".postln;
|
||||||
|
|
||||||
|
Pbindef(\fmkickP).stop;
|
||||||
|
Pbindef(\glcP).stop;
|
||||||
|
Pbindef(\phpSnareP).stop;
|
||||||
|
|
||||||
|
"--- return beats 3".postln;
|
||||||
|
|
||||||
|
Pbindef(\fmkickP).play(quant:8);
|
||||||
|
Pbindef(\glcP).play(quant:8);
|
||||||
|
Pbindef(\glcP, *[
|
||||||
|
manglewet: Pseg([0.01, 0.5, 0.1, 0.9], [8,0], \exp, inf),
|
||||||
|
]).play(quant:8);
|
||||||
|
Pbindef(\phpSnareP, *[
|
||||||
|
instrument: 'phpHatSnare',
|
||||||
|
dur: Pseq([
|
||||||
|
Rest(1),
|
||||||
|
5/4,
|
||||||
|
Pconst(7/4, Prand([Rest(1/4),1/4,1/2,1/8,1,1/2],inf)),
|
||||||
|
], inf),
|
||||||
|
rls: Pwhite(0.3,0.6),
|
||||||
|
amp:0.1,
|
||||||
|
bpa: 0,
|
||||||
|
lpa: 3,
|
||||||
|
hpa: 1,
|
||||||
|
legato:0.1,
|
||||||
|
outBus: ~manglebus1
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
"--- ~gran.set(\amp, 3);".postln;
|
||||||
|
~gran.set(\amp, 3);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(17);
|
||||||
|
|
||||||
|
"--- ~gran.set(\dist, 1);".postln;
|
||||||
|
~gran.set(\dist, 1);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(16);
|
||||||
|
|
||||||
|
"--- ~gran.set(\dist, 2);".postln;
|
||||||
|
~gran.set(\dist, 2);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(16);
|
||||||
|
|
||||||
|
"--- ~gran.set(\dist, 4);".postln;
|
||||||
|
~gran.set(\dist, 4);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(24);
|
||||||
|
|
||||||
|
"--- envnoise slidein ...".postln;
|
||||||
|
Pbindef(\envnoiseP, *[
|
||||||
|
instrument: \envnoise,
|
||||||
|
atk:16,
|
||||||
|
crv: -3,
|
||||||
|
dur: Pseq([16]),
|
||||||
|
amp:0.1,
|
||||||
|
bpff: 7500,
|
||||||
|
legato: 1
|
||||||
|
]).play(quant:8);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(16);
|
||||||
|
|
||||||
|
"--- ~gran.set(\dist, 3);".postln;
|
||||||
|
~gran.set(\dist, 3);
|
||||||
|
|
||||||
|
|
||||||
|
"--- stop everything. wait.".postln;
|
||||||
|
|
||||||
|
Pbindef(\fmP).stop;
|
||||||
|
Pbindef(\fmPt).stop;
|
||||||
|
Pbindef(\fmPq).stop;
|
||||||
|
Pbindef(\fmPe).stop;
|
||||||
|
~recbuf.free;
|
||||||
|
|
||||||
|
Pbindef(\fmkickP).stop;
|
||||||
|
Pbindef(\phpSnareP).stop;
|
||||||
|
Pbindef(\glcP).stop;
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(32);
|
||||||
|
|
||||||
|
"--- ~gran.set(\dist, 1);".postln;
|
||||||
|
~gran.set(\dist, 1);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(24);
|
||||||
|
|
||||||
|
"--- ~gran.set(\amp, 0);".postln;
|
||||||
|
~gran.set(\amp, 0);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(3);
|
||||||
|
Pbindef(\fmPb).stop;
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
wait(64);
|
||||||
|
|
||||||
|
~postbeats.();
|
||||||
|
// END OF ROUTINE /////////////////////////// ------------------------
|
||||||
|
"<<< end of pattern Routine ---------------------------------.".postln;
|
||||||
|
}).play(quant:8);
|
||||||
|
//"<<< end of primary Routine ---------------------------------.".postln;
|
||||||
|
// reached when pattern Routine starts, in fact.
|
||||||
|
}).play;
|
||||||
|
|
||||||
|
}) // end wait for boot
|
||||||
|
)
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
/*
|
||||||
|
PEER PRODUCTION LICENCE
|
||||||
|
(https://civicwise.org/peer-production-licence-_-human-readable-summary/)
|
||||||
|
|
||||||
|
You are free to:
|
||||||
|
Share — copy and redistribute the material in any medium or format
|
||||||
|
Adapt — remix, transform, and build upon the material
|
||||||
|
|
||||||
|
Under the following terms:
|
||||||
|
|
||||||
|
Attribution — You must give appropriate credit, provide a link to the
|
||||||
|
license, and indicate if changes were made. You may do so in any reasonable
|
||||||
|
manner, but not in any way that suggests the licensor endorses you or your
|
||||||
|
use.
|
||||||
|
|
||||||
|
ShareAlike — If you remix, transform, or build upon the material, you must
|
||||||
|
distribute your contributions under the same license as the original.
|
||||||
|
|
||||||
|
Non Capitalist — The commercial exploitation of this work is only allowed to
|
||||||
|
cooperatives, organizations and non-profit groups, to organizations of
|
||||||
|
self-managed workers, and where there are no exploitative relationships. Any
|
||||||
|
surplus or surplus obtained by the exercise of the rights granted by this
|
||||||
|
License on the Work must be distributed by and among the workers.
|
||||||
|
|
||||||
|
Understanding that:
|
||||||
|
|
||||||
|
Disclaimer — Some of these conditions may not apply if permission is
|
||||||
|
obtained from the copyright holder.
|
||||||
|
|
||||||
|
Public Domain — When the work or any of its elements is in the public domain
|
||||||
|
according to the applicable law, this situation will not be affected by the
|
||||||
|
license.
|
||||||
|
|
||||||
|
Other rights — The following rights are not affected by the license in any
|
||||||
|
way:
|
||||||
|
|
||||||
|
The rights derived from legitimate uses or other limitations recognized
|
||||||
|
by law are not affected by the foregoing.
|
||||||
|
|
||||||
|
The moral rights of the author.
|
||||||
|
|
||||||
|
Rights that other people may hold over the work itself or its use, such
|
||||||
|
as image or privacy rights.
|
||||||
|
|
||||||
|
Notice — When reusing or distributing the work, you must make the terms of
|
||||||
|
the license of this work very clear. The best way to do it is to link to
|
||||||
|
this page.
|
||||||
|
|
||||||
|
FULL LICENCE: https://civicwise.org/peer-production-licence/
|
||||||
|
|
||||||
|
*/
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
//////////////////////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
@ -0,0 +1,304 @@
|
||||||
|
/*
|
||||||
|
|
||||||
|
oceamelt.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
*/
|
||||||
|
(
|
||||||
|
|
||||||
|
Routine({
|
||||||
|
|
||||||
|
"\n\n\n-------------------------------------\n>>> starting...".postln;
|
||||||
|
|
||||||
|
s.latency = 0.1;
|
||||||
|
TempoClock.tempo = 140/120;
|
||||||
|
|
||||||
|
~disdelBus.free;
|
||||||
|
~disdelBus = Bus.audio(s, 2);
|
||||||
|
|
||||||
|
~revBus.free;
|
||||||
|
~revBus = Bus.audio(s,2);
|
||||||
|
|
||||||
|
SynthDef(\fm4, {
|
||||||
|
arg gate=1, outBus=0, amp=0.1, freq=160,
|
||||||
|
atk=0, rls=0, f=9, i=0.9, noiseamt=1;
|
||||||
|
var c, m, d, snd, env, mod, modp;
|
||||||
|
|
||||||
|
c = freq; // c = carrier frequency
|
||||||
|
m = c * f; // f = ratio (factor) between carrier freq and mod freq
|
||||||
|
d = m / i; // index = ratio between depth/distance and mod freq
|
||||||
|
|
||||||
|
c = [c, c * 1.4, c * 2.6, c / 1.95];
|
||||||
|
|
||||||
|
mod = SinOsc.ar( SinOsc.ar(m, mul:d), mul: d);
|
||||||
|
modp = LFPulse.ar( SinOsc.ar(m, mul:d), mul: d);
|
||||||
|
|
||||||
|
// basic FM synthesis:
|
||||||
|
snd = SinOsc.ar( c + mod );
|
||||||
|
|
||||||
|
// but let's add more oscilators with similary modulated frequencies
|
||||||
|
snd = snd + ( LFPulse.ar(c + mod * LFNoise1.kr(7/6).range(0.99,1.01) ) * LFNoise1.ar(1/3).range(0.8,1) );
|
||||||
|
snd = snd + ( LFTri.ar(c + modp * LFNoise1.kr(7/6).range(0.99,1.01) ) * LFNoise1.ar(1/3).range(0.8,1) );
|
||||||
|
|
||||||
|
snd = Splay.ar(snd, center:LFNoise1.kr(1/10));
|
||||||
|
snd = HPF.ar(
|
||||||
|
LPF.ar(
|
||||||
|
WhiteNoise.ar(2) + Dust2.ar(300, mul:10),
|
||||||
|
EnvGen.ar(Env.perc(0, 0.05)).exprange(Rand(500,20000),200)
|
||||||
|
//* Rand(500,15000)
|
||||||
|
//15500
|
||||||
|
),
|
||||||
|
100
|
||||||
|
) * noiseamt + snd;
|
||||||
|
snd = LeakDC.ar(snd);
|
||||||
|
env = EnvGen.ar(Env.asr(atk, 1, rls, 0), gate, doneAction:2);
|
||||||
|
snd = snd * env * amp;
|
||||||
|
|
||||||
|
Out.ar(outBus, snd);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
|
||||||
|
SynthDef(\disdel, {
|
||||||
|
arg inBus, outBus=0, amp=0.5;
|
||||||
|
var in, snd, local;
|
||||||
|
|
||||||
|
in = In.ar(inBus, 2);
|
||||||
|
|
||||||
|
snd = in;
|
||||||
|
|
||||||
|
//snd = LocalIn.ar(2) + snd;
|
||||||
|
snd = snd[1] + JPverb.ar(snd[0], LFNoise0.kr(1/4).range(1,3));
|
||||||
|
snd = snd[0] + JPverb.ar(snd[1], LFNoise0.kr(1/4).range(1,3));
|
||||||
|
snd = Splay.ar(snd);
|
||||||
|
|
||||||
|
snd[0] = DelayN.ar(snd[0], 3, LFNoise0.kr(1/4).range(0.5,3));
|
||||||
|
snd[0] = Decimator.ar(snd[0], 6000, 11);
|
||||||
|
snd[0] = snd[0] + DelayN.ar(snd[0], 3, LFNoise0.kr(1/4).range(0.5,3));
|
||||||
|
snd[0] = Decimator.ar(snd[0], 9000, 11);
|
||||||
|
|
||||||
|
snd[1] = DelayN.ar(snd[1], 3, LFNoise0.kr(1/4).range(0.5,3));
|
||||||
|
snd[1] = Decimator.ar(snd[1], 12000, 14);
|
||||||
|
snd[1] = snd[0] + DelayN.ar(snd[1], 3, LFNoise0.kr(1/4).range(0.5,3));
|
||||||
|
snd[1] = Decimator.ar(snd[1], 7000, 14);
|
||||||
|
//SndOut.ar(snd.reverse, 0.4);
|
||||||
|
|
||||||
|
snd = snd * LFPulse.ar(LFNoise0.kr([1,1]).range(8,16)).range(LFNoise1.kr(0.2,1),1);
|
||||||
|
|
||||||
|
snd = snd * amp;
|
||||||
|
|
||||||
|
Out.ar(inBus, snd);
|
||||||
|
Out.ar(outBus, snd);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
|
||||||
|
SynthDef(\rev, {
|
||||||
|
arg inBus, outBus=0, amp=0.7;
|
||||||
|
var snd;
|
||||||
|
|
||||||
|
snd = In.ar(inBus, 2);
|
||||||
|
|
||||||
|
snd = snd + JPverb.ar(snd, 10);
|
||||||
|
|
||||||
|
snd = snd * amp;
|
||||||
|
Out.ar(inBus, snd);
|
||||||
|
Out.ar(outBus, snd);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\gran, {
|
||||||
|
arg buf;
|
||||||
|
var snd;
|
||||||
|
|
||||||
|
snd = GrainBuf.ar(2,
|
||||||
|
trigger: Impulse.ar(LFNoise1.kr(1/10!3).exprange(80, 180) * LFNoise0.ar(100).range(0.7,1.1)),
|
||||||
|
dur: LFNoise1.ar(1).range(0.08,0.1),
|
||||||
|
sndbuf: buf,
|
||||||
|
rate:[1,1/2,2],
|
||||||
|
pos:LFNoise1.kr(1/40!3).range(0,1),
|
||||||
|
pan: LFNoise0.ar(100).range(-1,1)
|
||||||
|
);
|
||||||
|
snd = LPF.ar(snd, LFNoise1.kr(1/10!3).exprange(500,10000));
|
||||||
|
snd = Mix(snd);
|
||||||
|
snd = AnalogTape.ar(snd, 1, 1, Lag2.kr(\dist.kr(0.1), 20));
|
||||||
|
snd = JPverb.ar(snd, LFNoise1.kr(1/10!2).range(1,10)) + snd;
|
||||||
|
snd = Limiter.ar( Mix(snd * 0.3), 0.8 );
|
||||||
|
snd = snd * Env.circle([0.5,0.3,0.5],90,\cub).kr;
|
||||||
|
snd = snd * Lag2.kr(\amp.kr(0.5), \lagamp.kr(20));
|
||||||
|
|
||||||
|
Out.ar(0, snd);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
SynthDef(\recbuf, {
|
||||||
|
arg inBus, bufnum, run=1;
|
||||||
|
|
||||||
|
RecordBuf.ar(
|
||||||
|
In.ar(
|
||||||
|
inBus, 1),
|
||||||
|
bufnum, run: run);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
Pbindef(\fm4p, *[
|
||||||
|
instrument: \fm4,
|
||||||
|
dur:Pxrand([
|
||||||
|
Pseq([2, Pn(1,30), 4, Rest(28)] / 16, 4),
|
||||||
|
Pseq([Pn(2,8), Pn(1,16), 4, Rest(28)] / 16, 4),
|
||||||
|
Pseq([Pn(2,8), Pn(1,16), 4, Rest(20), Pn(4,2)] / 16, 4),
|
||||||
|
Pseq([2, Pn(1,30), 4, Rest(28), Pn(2,16)] / 16, 4),
|
||||||
|
Pseq([4, 2, 2, Pn(1,24), 4, Rest(28)] / 16, 4),
|
||||||
|
Pseq([4, 2, 2, Pn(1,24), 8, Rest(24)] / 16, 4),
|
||||||
|
Pseq([4, 2, 2, Pn(1,24), Pn(3,4), Rest(20)] / 16, 4),
|
||||||
|
Pseq([4, 2, 2, Pn(1,24), Pn(4,2), Rest(24)] / 16, 4)
|
||||||
|
], inf),
|
||||||
|
i:Prand((1..10)*0.1, inf),
|
||||||
|
f:Prand((1..10), inf),
|
||||||
|
legato:Pwhite(0.1,0.5),
|
||||||
|
atk:Pwhite(0,0.01),
|
||||||
|
rls:Pwhite(0,0.001),
|
||||||
|
octave:4,
|
||||||
|
amp:0.02,
|
||||||
|
outBus: 0,
|
||||||
|
]);
|
||||||
|
|
||||||
|
Pbindef(\fm4p2, *[
|
||||||
|
instrument: \fm4,
|
||||||
|
dur:2,
|
||||||
|
i:1,//Prand((1..10)*0.1, inf),
|
||||||
|
f:1, //Prand((1..10), inf),
|
||||||
|
//f:5,
|
||||||
|
legato:0.1,
|
||||||
|
atk:0.01,
|
||||||
|
rls:1,
|
||||||
|
octave:3,
|
||||||
|
degree: 0,
|
||||||
|
amp:0.02,
|
||||||
|
noiseamt:0,
|
||||||
|
outBus: ~revBus,//0, //Pwrand([0, ~disDel], [0.95,0.05], inf)
|
||||||
|
]);
|
||||||
|
|
||||||
|
~buf_b.free;
|
||||||
|
~buf_b = Buffer.alloc(s, s.sampleRate * 10, 1);
|
||||||
|
~buf_c.free;
|
||||||
|
~buf_c = Buffer.alloc(s, s.sampleRate * 10, 1);
|
||||||
|
|
||||||
|
1.wait;
|
||||||
|
|
||||||
|
~disdel = Synth(\disdel, [\inBus, ~disdelBus, \amp, 0.2]);
|
||||||
|
~recbuf = Synth(\recbuf, [\inBus, ~disdelBus, \bufnum, ~buf_b], addAction:\addToTail);
|
||||||
|
~gran = Synth(\gran, [\bufnum, ~buf_b, \amp, 0], addAction:\addToTail);
|
||||||
|
|
||||||
|
0.1.wait;
|
||||||
|
|
||||||
|
~reverb = Synth(\rev, [\inBus, ~revBus]);
|
||||||
|
~recbufc = Synth(\recbuf, [\inBus, ~revBus, \bufnum, ~buf_c], addAction:\addToTail);
|
||||||
|
~gran_c = Synth(\gran, [\buf, ~buf_c, \amp, 0], addAction:\addToTail);
|
||||||
|
|
||||||
|
// =========================================
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
">>> starting timeline, waiting on 4bar border ...".postln;
|
||||||
|
|
||||||
|
Routine({
|
||||||
|
|
||||||
|
Pbindef(\fm4p, *[outBus: 0]).play;
|
||||||
|
postln(TempoClock.beats.value);
|
||||||
|
|
||||||
|
16.wait;
|
||||||
|
postln(TempoClock.beats.value);
|
||||||
|
|
||||||
|
Pbindef(\fm4p, *[outBus: Pwrand([0, ~disdelBus], [0.7,0.3], inf),]).play;
|
||||||
|
|
||||||
|
16.wait;
|
||||||
|
|
||||||
|
postln(TempoClock.beats.value.mod(8));
|
||||||
|
~gran.set(\lagamp, 32, \amp, 8);
|
||||||
|
|
||||||
|
32.wait;
|
||||||
|
|
||||||
|
postln(TempoClock.beats.value.mod(8));
|
||||||
|
">>> gran amp set 0".postln;
|
||||||
|
s.bind({~gran.set(\lagamp, 0, \amp, 0);});
|
||||||
|
|
||||||
|
2.wait;
|
||||||
|
|
||||||
|
">>> gran amp set 16, lag 32".postln;
|
||||||
|
|
||||||
|
~gran.set(\lagamp, 32, \amp, 12);
|
||||||
|
|
||||||
|
32.wait;
|
||||||
|
|
||||||
|
postln(TempoClock.beats.value.mod(8));
|
||||||
|
">>> gran amp set 0".postln;
|
||||||
|
Pbindef(\fm4p2).play(quant:1);
|
||||||
|
s.bind({~gran.set(\lagamp, 0, \amp, 0) });
|
||||||
|
|
||||||
|
2.wait;
|
||||||
|
|
||||||
|
">>> gran + gran_c fadein".postln;
|
||||||
|
~gran.set(\lagamp, 32, \amp, 16);
|
||||||
|
~gran_c.set(\lagamp, 32, \amp, 3);
|
||||||
|
|
||||||
|
32.wait;
|
||||||
|
|
||||||
|
">>> gran amp set 0".postln;
|
||||||
|
s.bind({~gran.set(\lagamp, 0, \amp, 0)});
|
||||||
|
s.bind({~gran_c.set(\lagamp, 0, \amp, 0)});
|
||||||
|
|
||||||
|
2.wait;
|
||||||
|
|
||||||
|
">>> gran + gran_c fadein".postln;
|
||||||
|
~gran.set(\lagamp, 32, \amp, 16);
|
||||||
|
~gran_c.set(\lagamp, 32, \amp, 4);
|
||||||
|
|
||||||
|
32.wait;
|
||||||
|
|
||||||
|
">>> gran amp set 0".postln;
|
||||||
|
s.bind({~gran.set(\lagamp, 0, \amp, 0)});
|
||||||
|
s.bind({~gran_c.set(\lagamp, 0, \amp, 0)});
|
||||||
|
|
||||||
|
2.wait;
|
||||||
|
|
||||||
|
">>> gran + gran_c fadein".postln;
|
||||||
|
~gran.set(\lagamp, 32, \amp, 16);
|
||||||
|
~gran_c.set(\lagamp, 32, \amp, 4);
|
||||||
|
|
||||||
|
64.wait;
|
||||||
|
">>> stop recording. stop patterns.".postln;
|
||||||
|
s.bind({~gran.set(\lagamp, 0, \amp, 0)});
|
||||||
|
s.bind({~gran_c.set(\lagamp, 0, \amp, 1)});
|
||||||
|
~recbuf.set(\run, 0); // stop recording
|
||||||
|
~recbufc.set(\run, 0); // stop recording
|
||||||
|
Pbindef(\fm4p).stop;
|
||||||
|
Pbindef(\fm4p2).stop;
|
||||||
|
2.wait;
|
||||||
|
~gran_c.set(\lagamp, 32, \amp, 8);
|
||||||
|
|
||||||
|
128.wait;
|
||||||
|
~gran.set(\lagamp, 64, \amp, 16);
|
||||||
|
64.wait;
|
||||||
|
~gran.set(\lagamp, 64, \amp, 0);
|
||||||
|
32.wait;
|
||||||
|
|
||||||
|
Pbindef(\fm4p2).play;
|
||||||
|
s.bind({~gran_c.set(\lagamp, 0, \amp, 4)});
|
||||||
|
|
||||||
|
32.wait;
|
||||||
|
|
||||||
|
~gran_c.set(\lagamp, 32, \amp, 2);
|
||||||
|
|
||||||
|
64.wait;
|
||||||
|
|
||||||
|
Pbindef(\fm4p2).stop;
|
||||||
|
|
||||||
|
~gran_c.set(\lagamp, 16, \amp, 0);
|
||||||
|
|
||||||
|
|
||||||
|
}).play(quant:4);
|
||||||
|
|
||||||
|
}).play;
|
||||||
|
)
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
////////////////////////////////////////////////////////////////////////////////
|
||||||
|
|
@ -0,0 +1,131 @@
|
||||||
|
(
|
||||||
|
/*
|
||||||
|
|
||||||
|
carbdiox.
|
||||||
|
|
||||||
|
*/
|
||||||
|
|
||||||
|
s.waitForBoot({
|
||||||
|
|
||||||
|
Routine({
|
||||||
|
|
||||||
|
// load synthdefs
|
||||||
|
SynthDef(\fm4, {
|
||||||
|
arg gate=1, outBus=0, amp=0.1, freq=160,
|
||||||
|
atk=5, rls=5, f=9, i=0.9;
|
||||||
|
var c, m, d, snd, env, mod, modp;
|
||||||
|
|
||||||
|
c = freq; // c = carrier frequency
|
||||||
|
m = c * f; // f = ratio (factor) between carrier freq and mod freq
|
||||||
|
d = m / i; // index = ratio between depth/distance and mod freq
|
||||||
|
|
||||||
|
c = [c, c * 2, c / 2];
|
||||||
|
|
||||||
|
mod = SinOsc.ar( SinOsc.ar(m, mul:d), mul: d);
|
||||||
|
modp = LFPulse.ar( SinOsc.ar(m, mul:d), mul: d);
|
||||||
|
|
||||||
|
// basic FM synthesis:
|
||||||
|
snd = SinOsc.ar( c + mod );
|
||||||
|
|
||||||
|
// but let's add more oscilators with similary modulated frequencies
|
||||||
|
snd = snd + ( LFPulse.ar(c + mod * LFNoise1.kr(1).range(0.99,1.05) ) * LFNoise1.ar(1/3).range(0.8,1) );
|
||||||
|
snd = snd + ( LFTri.ar(c + modp * LFNoise1.kr(1).range(0.99,1.05) ) * LFNoise1.ar(1/3).range(0.8,1) );
|
||||||
|
|
||||||
|
snd = Splay.ar(snd, center:LFNoise1.kr(1/10));
|
||||||
|
snd = LeakDC.ar(snd);
|
||||||
|
env = EnvGen.ar(Env.asr(atk, 1, rls, 0), gate, doneAction:2);
|
||||||
|
snd = snd * env * amp;
|
||||||
|
|
||||||
|
Out.ar(outBus, snd);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
// reverb synthdef
|
||||||
|
SynthDef(\revfx, { |inBus, outBus = 0, wet = 0.5, amp = 0.2|
|
||||||
|
var snd, rev;
|
||||||
|
|
||||||
|
snd = In.ar(inBus, 2);
|
||||||
|
|
||||||
|
snd = AnalogTape.ar(snd,
|
||||||
|
LFNoise1.kr(1/5).range(0.5,1),
|
||||||
|
LFNoise1.kr(1/5).range(0.5,1),
|
||||||
|
LFNoise1.kr(1/5).range(0.5,1) );
|
||||||
|
snd = LPF.ar(snd, LFNoise1.kr(1/30).exprange(500,20000));
|
||||||
|
rev = Greyhole.ar(snd, [1.4,2.05], feedback:0.5, modDepth:0.6, modFreq: 0.5) * wet + snd;
|
||||||
|
rev = rev + JPverb.ar(rev, 20, 0, 5);
|
||||||
|
rev = Splay.ar(rev);
|
||||||
|
rev = rev * amp;
|
||||||
|
|
||||||
|
Out.ar(outBus, rev);
|
||||||
|
}).add;
|
||||||
|
|
||||||
|
s.sync;
|
||||||
|
|
||||||
|
~fxBus1.free; ~fxBus1 = Bus.audio(s, 2);
|
||||||
|
~fxBus2.free; ~fxBus2 = Bus.audio(s, 2);
|
||||||
|
~fxBus3.free; ~fxBus3 = Bus.audio(s, 2);
|
||||||
|
|
||||||
|
1.wait;
|
||||||
|
|
||||||
|
//~reverb1.free;
|
||||||
|
~reverb1 = Synth(\revfx, [\inBus, ~fxBus1], addAction:\addToTail);
|
||||||
|
//~reverb2.free;
|
||||||
|
~reverb2 = Synth(\revfx, [\inBus, ~fxBus2], addAction:\addToTail);
|
||||||
|
//~reverb3.free;
|
||||||
|
~reverb3 = Synth(\revfx, [\inBus, ~fxBus3], addAction:\addToTail);
|
||||||
|
|
||||||
|
~droneP = Pbind(*[
|
||||||
|
instrument: \fm4,
|
||||||
|
legato:1,
|
||||||
|
atk:Pseq([40, Pn(20,7)]),
|
||||||
|
rls:Pseq([Pn(20,7), 0]),
|
||||||
|
i:Pwhite(0.5,1),
|
||||||
|
f:Pseq((1..5).mirror1, inf),
|
||||||
|
octave: Pdup(3, Pseq([4, [4,5], 4])),
|
||||||
|
degree:-3,
|
||||||
|
amp: 0.5,
|
||||||
|
]
|
||||||
|
);
|
||||||
|
|
||||||
|
1.wait;
|
||||||
|
|
||||||
|
// play it all here:
|
||||||
|
Routine({
|
||||||
|
|
||||||
|
~droneP1 = Pbindf(~droneP, *[ outBus: ~fxBus1, dur:Pseq([Pn(60,7), 60]),
|
||||||
|
postln: Pfunc({|ev|
|
||||||
|
postln(
|
||||||
|
"drone 1 ~ dur:" ++ ev.dur +
|
||||||
|
"atk:" ++ ev.atk + "rls:" ++ ev.rls +
|
||||||
|
"f:" ++ ev.f + "i:" ++ ev.i)
|
||||||
|
})] ).play;
|
||||||
|
|
||||||
|
20.wait;
|
||||||
|
|
||||||
|
~droneP2 = Pbindf(~droneP, *[ outBus: ~fxBus2, dur:Pseq([Pn(60,7), 40]),
|
||||||
|
postln: Pfunc({|ev|
|
||||||
|
postln(
|
||||||
|
"drone 2 ~ dur:" ++ ev.dur +
|
||||||
|
"atk:" ++ ev.atk + "rls:" ++ ev.rls +
|
||||||
|
"f:" ++ ev.f + "i:" ++ ev.i)
|
||||||
|
})] ).play;
|
||||||
|
|
||||||
|
20.wait;
|
||||||
|
|
||||||
|
~droneP3 = Pbindf(~droneP, *[ outBus: ~fxBus3, dur:Pseq([Pn(60,7), 20]),
|
||||||
|
postln: Pfunc({|ev|
|
||||||
|
postln(
|
||||||
|
"drone 3 ~ dur:" ++ ev.dur +
|
||||||
|
"atk:" ++ ev.atk + "rls:" ++ ev.rls +
|
||||||
|
"f:" ++ ev.f + "i:" ++ ev.i)
|
||||||
|
})] ).play;
|
||||||
|
|
||||||
|
|
||||||
|
}).play
|
||||||
|
}).play // end of Routine
|
||||||
|
}) // end of wait for boot.
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
|
x=(1..5);x++x.reverse
|
||||||
|
|
||||||
|
(1..5).mirror1
|
||||||
Loading…
Reference in New Issue