From 4132ead2bfafcec23657b75b9b6eb20871ce838c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Luka=20Prin=C4=8Di=C4=8D?= <luka@lukaprincic.si>
Date: Thu, 12 Mar 2020 15:44:47 +0100
Subject: [PATCH] expanded Lorenz patterns

---
 LorenzPattern.scd | 37 ++++++++++++++++++++++++++++---------
 1 file changed, 28 insertions(+), 9 deletions(-)

diff --git a/LorenzPattern.scd b/LorenzPattern.scd
index fcb8764..7aac144 100644
--- a/LorenzPattern.scd
+++ b/LorenzPattern.scd
@@ -1,7 +1,7 @@
 ( // basic synth SynthDef
-SynthDef(\blipo, { | out, freq = 440, amp = 0.1, nharms = 10, pan = 0, gate = 1, sustain |
+SynthDef(\blipo, { | out, freq = 440, amp = 0.1, nharms = 10, pan = 0, gate = 1, sustain, attack=0.1 |
     var audio = Blip.ar(freq * (SinOsc.kr(3).range(1,1.01)), nharms, amp);
-    var env = Linen.kr(gate, releaseTime: sustain, doneAction: Done.freeSelf); 
+    var env = Linen.kr(gate, attackTime: attack, releaseTime: sustain, doneAction: Done.freeSelf); 
     OffsetOut.ar(out, Pan2.ar(audio, pan, env) );
 }).add;
 
@@ -18,18 +18,37 @@ SynthDef("reverbo", { arg outBus = 0, inBus, wet = 0.1;
 
 (
 // start reverb effect on the private bus
-~fxRev = Synth("reverbo", [\inBus, ~revbus, \wet, 0.6]);
+~fxRev = Synth("reverbo", [\inBus, ~revbus, \wet, 0.9]);
 
-Pbind(
+~dotsP = Pbind(
+	\dur, Pflatten(1, Plorenz() * 1),
+	\attack, 0.01,
+	\octave, 3,
+	\nharms, Prand((2..7),500) );
+
+~linesP = Pbind(
+	\dur, Pflatten(1, Plorenz() * 5),
+	\attack, 3,
+	\octave, Prand([2,3,4],inf),
+	\nharms, Prand((1..4),80),
+	\amp, 0.075 );
+
+~highP = Pbind(
+	\dur, Pflatten(1, Plorenz() * 5),
+	\attack, 3,
+	\octave, 5,
+	\nharms, Prand((1..3),50),
+	\amp, 0.008 );
+
+Pbindf(
+	Ptpar([ 0, ~dotsP, 60, ~linesP, 160, ~highP]),
 	\instrument, \blipo,
-	\dur, Pflatten(1, Plorenz() * 0.8),
 	\degree, (Pflatten(1, Plorenz()) * 18).asInteger,
 	\mtranspose, Prand([Pn(0,24),Pn(2,24),Pn(4,24)], inf),
-	\detune, Prand([0,1,2,0.5,1.5], inf),
-	\nharms, Prand((2..10),300),
-	\octave, 3,
+	\detune, Prand([0,1,0.5,1.5], inf),
+	\scale, Scale.minor(\just),
 	\legato, Prand((4..7),inf) * 0.2,
 	\pan, Prand((-10..10),inf) * 0.1,
 	\out, ~revbus
 ).play;
-)
\ No newline at end of file
+)