From 9242b7404d97b8ec38f12ecda93f475d436c865d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Luka=20Prin=C4=8Di=C4=8D?= <luka@lukaprincic.si>
Date: Thu, 4 May 2023 09:49:33 +0200
Subject: [PATCH] improve chapter 2

---
 scd/xenotopic.network.scd | 66 +++++++++++++++++++++++++++++----------
 1 file changed, 49 insertions(+), 17 deletions(-)

diff --git a/scd/xenotopic.network.scd b/scd/xenotopic.network.scd
index dc28f61..99a55b2 100644
--- a/scd/xenotopic.network.scd
+++ b/scd/xenotopic.network.scd
@@ -168,7 +168,7 @@ Pbindef(\granPlayPzero, *[
 	legato: 	1,
 	atk:		8,
 	rls:		8,
-	amp: 		Pseq([ Pseg([0,1],128,\sqr), Pn(1)]) * 0.18,
+	amp: 		Pseq([ Pseg([0,1],128,\sqr), Pn(1)]) * 0.21,
 	width:		1,
 	pitch: 		1, //[0.5,1],
 	autoPosN: 	0.08,
@@ -218,7 +218,7 @@ Pbindef(\granPlayPzero).stop
 (
 fork {
 	~sOsc.("drawPlatesToggle", 0); // turns of ZERO video plate
-	4.wait;
+	1.wait;
 	~oscTitles2.value;
 	5.wait;
 	~sOsc.("drawPlatesToggle", 0);
@@ -320,14 +320,40 @@ Pbindef(\harpsiPingP, *[
 )
 
 // ---------------------------------------------------------
+
 Pbindef(\playBufErr1).play(quant:4); // first noise, image on,
-( // fast enought start harpPing and bassnoise!
+
+( // soon start harpPing and bassnoise!
 Pbindef(\harpsiPingP).play(quant:4);
 Pbindef(\playBufErr2).play(quant:4);
 )
 
+( // start granulated noises ------------------------------- /
+Pbindef(\granGlitcho3, *[
+	instrument: \granPlay,
+	dur: 		Pseq([8, Rest(16)], inf),
+	legato: 	1,
+	amp: 		1,
+	pitch: 		0.25,
+	autoPosN: 	0.3,
+	autoPosS: 	0.3,
+	gpos: 		[0.6,0.7,0.8,0.2],
+	width:		1,
+	outBus:		~revFXbus1,
+	//bufnum: 	Pdup(2, Pseq([~getSmp.("loop99"), ~getSmp.("loop97")],inf))
+	bufnum: 	~getSmp.("loop99"),
+	echo:		Pfunc({|e| e.value.postln})
+]).play(quant:4);
+)
+
+
+
 // take time.
 
+
+/////////////////////////////////////////////////////////////////////////////////////////
+// TRAP
+
 // -----------------------------------------------------------
 ( // stop INTERRUPT, start TRAP sound
 Pbindef(\granPlayP).stop;
@@ -335,6 +361,7 @@ Pbindef(\playBufErr1).stop;
 Pbindef(\playBufErr2).stop;
 Pbindef(\harpsiPingP).stop;
 
+
 Pbindef(\akjDisChordp, *[
 	instrument: \akjDisChord,
 	freq:300,
@@ -384,9 +411,13 @@ fork {
 }
 )
 
-// TRAP //
 
-( // start glitches and highhats ------------------------------------
+(
+// stop granulated glitches
+Pbindef(\granGlitcho3).stop;
+
+// start glitches and highhats ------------------------------------
+
 Pbindef(\playBufBd1, *[ instrument: \playBuf,
 	bufnum: Prand([
 		~getSmp.("loop9"),
@@ -448,28 +479,28 @@ Pbindef(\granGlitcho, *[
 	instrument: \granPlay,
 	dur: 		4,
 	legato: 	1,
-	amp: 		0.5,
-	pitch: 		[0.5,1],
-	autoPosN: 	0.1,
-	autoPosS: 	0.1,
-	outBus: 	0,
+	amp: 		[0.5, 0.5],
+	pitch: 		[0.5, 1],
+	autoPosN: 	Pwhite(0.1,0.3),
+	autoPosS: 	Pwhite(0.1,0.3),
+	outBus: 	[~localfdlyBus,0],
 	gpos: 		[0.6,0.7,0.8,0.2],
 	width:		1,
-	bufnum: 	Pdup(16, Pseq([~getSmp.("loop99"), ~getSmp.("loop97")],inf))
+	bufnum: 	Prand([~getSmp.("loop99"), ~getSmp.("loop97")],inf)
 ]).play(quant:4);
 )
 
 // take time.
 
 // stop psycho background chord
-Pbindef(\akjDisChordp).stop
+Pbindef(\akjDisChordp).stop;
 
 
 ( // start PARITY title, stop noises,click and bass ------------------- /
 fork {
 
 	// stop granulated noises
-	Pbindef(\granGlitcho).stop
+	Pbindef(\granGlitcho).stop;
 
 	// image off, stop noises and bass.
 	Pbindef(\playBufBd1).stop;
@@ -543,6 +574,7 @@ Pbindef(\playBufHatM, *[ instrument: \playBuf,
 	}
 ]).play(quant:4);
 
+(
 Ndef(\subwob2, {
 	var snd = SinOsc.ar([43,42]* 0.5);
 	snd = (snd*2).tanh;
@@ -550,13 +582,13 @@ Ndef(\subwob2, {
 	snd = RLPF.ar(snd,
 		SinOsc.ar(LFNoise1.kr(1/5).range(0.5,6)).range(50,LFNoise1.kr(1/5).range(60,150)));
 	Rotate2.ar(snd[0],DelayN.ar(snd[1],0.1,0.04),LFNoise1.kr(1/5).range(-1,1)) * 0.5 * 1;
-});
-
+}).play(quant:4);
+)
 Ndef(\subwob2).fadeTime = 10;
-
+)
 // start deep sub --------------------------------------------------//
 (
-Ndef(\subwob2).fadeTime = 10;
+Ndef(\subwob2).stop;
 
 )