1
0
Fork 0

minor changes to comb-hh-beat, added older 240plucks

main
Luka Prinčič 2020-11-05 12:23:37 +01:00
parent e5f25a05b7
commit 61e494238c
2 changed files with 63 additions and 3 deletions

60
200214_240_plucks.scd Normal file
View File

@ -0,0 +1,60 @@
// posted this earlier this year at
// http://sccode.org/1-5cM
(
SynthDef("plucking", {arg out = 0, amp = 0.1, freq = 440, decay = 5, coef = 0.1;
var env, snd;
env = EnvGen.kr(Env.linen(0, decay, 0), doneAction: 2);
snd = Pluck.ar(
in: PinkNoise.ar(amp),
trig: Impulse.kr(0),
maxdelaytime: 0.1,
delaytime: freq.reciprocal,
decaytime: decay,
coef: coef);
snd = LeakDC.ar(snd).clip2;
Out.ar(out, snd * env);
}).add;
b = Bus.audio(s,1);
SynthDef("reverbBus", { arg outBus = 0, inBus, wet = 0.5;
var input, rev;
input = In.ar(inBus,1);
rev = JPverb.ar(input * wet, t60:3);
Out.ar(outBus, input + rev);
}).add;
)
( // start reverb at the end of the group
~reverb = Synth("reverbBus", [\inBus, b, \wet, 0.6]);
Pbind(
\instrument, "plucking",
\out, b,
\scale, Scale.major.tuning_(\just),
\octave, 4,
\degree, Pseq([1,3,7,8,Prand([7,10,11,13,14]),8,7,3], inf),
\dur, Pseq([Pwrand([
Pseq([0.2,0.2]),
//0.2,
0.4,
Pseq([0.1],4),
Pseq([0.05],4)],
[0.5,0.3,0.1,0.1] // weights
)], 240),
\coef, Pwrand([0.8, 0.6, 0.4, 0.2], [0.4,0.3,0.2,0.1], inf),
\amp, 1,
\addAction, 0, // make sure new synths are added to head of group (optional)
).play;
)
// set reverb 'wetness'
~reverb.set(\wet,1);
( // set tempo
var bpm = 50;
t = TempoClock.default;
t.tempo_(bpm/60) // beats per minute
)

View File

@ -114,7 +114,7 @@ Pbindef(\pbdx,
\instrument, \bdx, \instrument, \bdx,
\dur, Pseq([3,Prand([3,2,1]),Prand([2,Pseq([1/2],2)])] * 1/4, inf), \dur, Pseq([3,Prand([3,2,1]),Prand([2,Pseq([1/2],2)])] * 1/4, inf),
\legato, Prand((1..5) * 0.2, inf), \legato, Prand((1..5) * 0.2, inf),
\freq, 70 * Prand((1..9) + 100 * 0.01,inf), \freq, 70 * Prand((1..9) + 120 * 0.01,inf),
\amp, 0.7 \amp, 0.7
).play; ).play;
@ -122,14 +122,14 @@ Pbindef(\pbdx,
Pbindef(\pcl, Pbindef(\pcl,
\instrument, \sc808clap, \instrument, \sc808clap,
\dur, Pseq([2,Prand([2,2.5])],inf), \dur, Pseq([2,Prand([2,2.5])],inf),
\amp, 3, \amp, 2,
).play ).play
; ;
Pbindef(\psn, Pbindef(\psn,
\instrument, \sc808sn, \instrument, \sc808sn,
\dur, Prand([1.5,1.25,0.75],inf), \dur, Prand([1.5,1.25,0.75],inf),
\amp, 2, \amp, 1,
\legato, 0.04 \legato, 0.04
).play ).play
; ;