From e184a2f6e11c22840823bd2054eb921dd43fac3d 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 13:49:54 +0100
Subject: [PATCH] 240 plucks expanded with variations, now 3 total.

---
 200214_240_plucks.scd | 106 +++++++++++++++++++++++++++++++++++-------
 1 file changed, 89 insertions(+), 17 deletions(-)

diff --git a/200214_240_plucks.scd b/200214_240_plucks.scd
index 89c2438..8c6e6ad 100644
--- a/200214_240_plucks.scd
+++ b/200214_240_plucks.scd
@@ -1,6 +1,9 @@
 // posted this earlier this year at
 // http://sccode.org/1-5cM
+// and this is now a combination of above and variations at
+// http://sccode.org/1-5cR and http://sccode.org/1-5cQ
 
+// SynthDefs, buses, tempoclock:
 (
 SynthDef("plucking", {arg out = 0, amp = 0.1, freq = 440, decay = 5, coef = 0.1;
 	var env, snd;
@@ -16,7 +19,6 @@ SynthDef("plucking", {arg out = 0, amp = 0.1, freq = 440, decay = 5, coef = 0.1;
 	Out.ar(out, snd * env);
 }).add;
 
-b = Bus.audio(s,1);
 
 SynthDef("reverbBus", { arg outBus = 0, inBus, wet = 0.5;
 	var input, rev;
@@ -24,37 +26,107 @@ SynthDef("reverbBus", { arg outBus = 0, inBus, wet = 0.5;
 	rev = JPverb.ar(input * wet, t60:3);
     Out.ar(outBus, input + rev);
 }).add;
+
+// create separate bus for send->reverb
+b = Bus.audio(s,1);
+
+// tempoclock.
+t = TempoClock.default;
+
 )
 
 
-( // start reverb at the end of the group
+
+
+/////////////////////////////////////////////////////////////////////////////////////
+// variation 2
+(
+r = Synth("reverbBus", [\inBus, b, \wet, 0.5]);
+
+t.tempo_(80/60); // beats per minute
+
+Pbind(
+	\instrument, "plucking",
+	\scale, Scale.major.tuning_(\just),
+	\octave, 4,
+	\degree, Pseq([1,3,7,8], inf), // four main notes
+	\mtranspose, Pseq([Pseq([0],3),Pseq([-5],3)],inf), // switched mode every 3 notes (*2)
+	
+	\gtranspose, Pseq([Pseq([0],36),Pseq([4],36),Pseq([[-3]],36),Pseq([2],36)],inf),
+	\ctranspose, Pser([Pseries(-4,1,6) +.x Pseq([0], 144)],1),
+
+	\coef, Pser([Prand([0.2,0.3,0.4,0.5],1), Prand([0.8,0.7,0.6,0.5],11)], inf),
+	\dur, Prand([0.25,0.26,0.24,0.255,0.255,0.25], 240), 
+	\decay, Prand([1,2,3,4,5], inf),
+	\out, b, \amp, 0.4,
+).play;
+)
+
+
+/////////////////////////////////////////////////////////////////////////////////////
+// variation 1 
+(
 ~reverb = Synth("reverbBus", [\inBus, b, \wet, 0.6]);
 
+t.tempo_(60/60); 
+
 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),
+	\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,
+	\amp, 0.4,
 	\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
+/////////////////////////////////////////////////////////////////////////////////////
+// variation 3
+(
+r = Synth("reverbBus", [\inBus, b, \wet, 0.5]);
+
+t.tempo_(1); // 
+
+Pbind(
+	\instrument, "plucking",
+	\scale, Scale.major.tuning_(\just),
+	\octave, 4,
+
+	\degree, Pseq([1, 3, 7, 3,-4,-2, 7, 8, 1,-2, 2, 3], inf),
+	\mtranspose, Pseq([Pseq([0],144),Pseq([0],48),Pseq([3],48),Pseq([4],48)], inf),
+	\gtranspose, Pseq([Pseq([0],36),Pseq([4],36),Pseq([[-3]],36),Pseq([2],36)],inf),
+	\ctranspose, Pser([Pseries(-4,1,4) +.x Pseq([0], 144)],2),
+
+	\coef, Pseq([ Pseq([
+			Prand([0.2,0.3,0.4,0.5],1),
+			Prand([0.6,0.5],5),
+			Prand([0.2,0.3],1),
+			Prand([0.6,0.5],5)
+		], 1),
+			Prand([0.7,0.6],12)
+		],inf),
+	
+	\dur, Pseq([Prand([0.25,0.25,0.24,0.245,0.255,0.25], 140),0.26,0.3,0.4,0.7], inf)
+	      * Pseq([Pseq([0.8],110), Pgeom(0.8,1.002,34)],inf), 
+
+	\decay, Pseq([8, Prand([1,2,3,4], 4),3,2,1], inf),
+
+	\out, b, \amp, 0.4,
+).play;
 )
\ No newline at end of file