From 61e494238c31ccca9176d7c831331323c024d7fe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Luka=20Prin=C4=8Di=C4=8D?= <luka@lukaprincic.si>
Date: Thu, 5 Nov 2020 12:23:37 +0100
Subject: [PATCH] minor changes to comb-hh-beat, added older 240plucks

---
 200214_240_plucks.scd          | 60 ++++++++++++++++++++++++++++++++++
 2020-11-04_13-comb-hh-beat.scd |  6 ++--
 2 files changed, 63 insertions(+), 3 deletions(-)
 create mode 100644 200214_240_plucks.scd

diff --git a/200214_240_plucks.scd b/200214_240_plucks.scd
new file mode 100644
index 0000000..89c2438
--- /dev/null
+++ b/200214_240_plucks.scd
@@ -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
+)
\ No newline at end of file
diff --git a/2020-11-04_13-comb-hh-beat.scd b/2020-11-04_13-comb-hh-beat.scd
index 61d8c79..fc12213 100644
--- a/2020-11-04_13-comb-hh-beat.scd
+++ b/2020-11-04_13-comb-hh-beat.scd
@@ -114,7 +114,7 @@ Pbindef(\pbdx,
 	\instrument, \bdx,
 	\dur, Pseq([3,Prand([3,2,1]),Prand([2,Pseq([1/2],2)])] * 1/4, 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
 ).play;
 
@@ -122,14 +122,14 @@ Pbindef(\pbdx,
 Pbindef(\pcl,
 	\instrument, \sc808clap,
 	\dur, Pseq([2,Prand([2,2.5])],inf),
-	\amp, 3,
+	\amp, 2,
 ).play
 ;
 
 Pbindef(\psn,
 	\instrument, \sc808sn,
 	\dur, Prand([1.5,1.25,0.75],inf),
-	\amp, 2,
+	\amp, 1,
 	\legato, 0.04
 ).play
 ;