improve finalize 01ZERO chapter, raise volume to CARRY

2023_Upgrade_notes.md

@@ -12,25 +12,43 @@
 ## ZERO 
 
 add:
-- bass/kick
+- [x] bass/kick
+- [x] ~~pads~~ granulator
 - percusion?
-- pads
-
 
 ## INTERRUPT 
 
-
+- contains:
+- 'beautiful'. does it need anything?
 
 ## TRAP 
+- pyscho chord (akjDisChord)
+- glitch-hat 
+- noiseglitches
+- sub bass
+- granulated noises moving over textures
 
 ## PARITY 
 
+- maro:saudade - granulated
+- video/parking  + noises
+
 ## ADJUST 
 
+- noise + image blender (fast textures)
+
 ## CARRY 
 
+- sinister sad pads + bleeps + hats + beeps + noise 
+- loudness ?
+
 ## OVERFLOW 
 
-
+- back to cutter
+- granulator 
+- highhat
+- bassline 
+
+- end via lpf
 
 

scd/lib/15-synthDefs.scd

@@ -50,7 +50,7 @@ SynthDef(\granPlay, {
 // -- PLAY BUFFER -- // -------------------------------------------------------------------
 
 SynthDef(\playBuf, {
-	arg outBus = 0, bufnum = 0, gate=1, rate=1, start=0.4, atk=0.01, rls=0.01, amp=0.1, sdel=0, hpff=0;
+	arg outBus = 0, bufnum = 0, gate=1, pan=0, rate=1, start=0.4, atk=0.01, rls=0.01, amp=0.1, sdel=0, hpff=0;
 	var env, snd, rscale;
 
 	rscale = BufRateScale.kr(bufnum);
@@ -63,7 +63,7 @@ SynthDef(\playBuf, {
 	snd = HPF.ar(snd, hpff);
 	env = EnvGen.ar(Env.adsr(atk, 0,1,rls), gate, doneAction:2);
 	snd = snd * env * amp;
-
+	snd = Balance2.ar(snd[0], snd[1], pan);
     Out.ar(outBus, snd);
 }).add;
 

scd/xenotopic.network.scd

@@ -58,6 +58,8 @@ fork {
 
 // ZERO /////////////////////////////////////////////////////////////////////////////////////
 (
+~qebsts = [(11..17),(23..36)].lace.copyRange(0,11) * 0.01;
+
 Pbindef(\playBufP, *[ instrument: \playBuf,
 	//Pbindef(\playBufP).clear
 	bufnum:	~getSmp.("qebrus_machines_snip1"),
@@ -65,33 +67,24 @@ Pbindef(\playBufP, *[ instrument: \playBuf,
 	legato:[0.9,0.1,0.2] * Pwhite(0.9,1),
 	amp: Pwhite(0.5,0.6) * 0.6,
 	rate: Pwhite(0.99,1),
-
 	start: Pseq([
-
 		Pn(0.1, 48*2),
-		Pdup(24,Pseries(0.11,0.01,12)),
+		Pdup(24, Pseq(~qebsts)),
 		Pn(0.1, 48*2),
-
+		Pn(Pshuf( ~qebsts, 4),2),
-		Pn(Pshuf((0..11)+5*0.01,4),2),
+		Pdup(12 * 4 * 2, Pseq(
-		Pn(Pshuf((0..11)+5*0.02,4),2),
+			[3.1, 3.5, 1.2, 2.5, 1, 3.3]) )
-		Pn(Pshuf((0..11)+5*0.03,4),2),
+		* Pn(Pshuf( ~qebsts, 4), 2 * 6),
-		Pn(Pshuf((0..11)+5*0.04,4),2),
+		Pn(0.91, 48),
-		Pn(Pshuf((0..11)+5*0.05,4),2),
-		Pn(Pshuf((0..11)+5*0.06,4),2),
-
-		Pn(0.89, 48),
 		Pn(Pshuf((0..11)+5*0.01+0.78,4),1),
-		Pn(0.88, 48),
+		Pn(0.92, 48),
 		Pn(Pshuf((0..11)+5*0.01+0.8,4),1),
-		Pn(0.89, 48),
+		Pn(0.93, 48),
-
+		Pdup(24, Pseq(~qebsts)),
-		Pdup(24,Pseries(0.11,0.01,12)),
-
 		Pn(0.1, 48*2)
 	], 1),
 
 	speedrange: Pseq([Pseg([0,0,50,50,0], [64,120,120,60]),Pn(0)]),
-
 	osc: Pfunc { |e|
 		~sOsc.("drawPlatesToggle", 1);
 		~sOsc.("drawPlatesimgAid", 45.rand);
@@ -104,8 +97,6 @@ Pbindef(\playBufP, *[ instrument: \playBuf,
 		~sOsc.("drawPlatesTexBdirection", 127.rand);
 		~sOsc.("drawPlatesTexCdirection", 127.rand);
 	};
-
-
 ]).play(quant:4);
 
 
@@ -124,7 +115,7 @@ Pbindef(\playBufBleep2, *[ instrument: \playBuf,
 	bufnum: ~getSmp.("Bleeps015"),
 	legato:Pwhite(0.01,0.1),
 	dur:Pseq([
-		Rest(64),
+		Rest(64*2),
 		Pseq([1/4,Pn(1.5,7)],inf) * 1/2
 	]),
 	amp:0.5,
@@ -135,25 +126,29 @@ Pbindef(\playBufHat, *[ instrument: \playBuf,
 	bufnum: ~getSmp.("Hats076"),
 	legato:1,
 	dur: Pseq([
-		Rest(32),
+		Rest(32*3),
 		Pn(1/4),
 	]),
-	amp: 3 * Pseq([1, 1/5],inf) * Pwhite(0.3,1),
+	amp: 2 * Pseq([1, 1/5],inf) * Pwhite(0.3,1),
 	rate: Pwhite(0.95,1.01),
 	pan: 0
 ]).play(quant:4);
 
+
 // kick
 Pbindef(\playBufKickP, *[ instrument: \playBuf,
-	bufnum:	~getSmp.("qebrus_machines_snip1"),
+	bufnum:	[
-	legato: 1, //[1,0.1,0.2],
+		~getSmp.("Kicks062"),
-	sustain: 0.15,
+		~getSmp.("Kicks026"),
-	amp: Pwhite(0.5,0.6) * [0.4,0.7],
+	],
-	rate: Pwhite(0.99,1),
+	sustain: 2,
-	start: [0.022,0.2064],
+	amp: Pwhite(0.8,1) * [0.8,Pwhite(0.1,0.3)],
+	rate: [1,0.8],
+	start: 0,
+	pan: Pseq([-1,1],inf) / 4,
 	dur:
 	Pseq([
-		Rest(48),
+		Rest(32),
 		Pxrand([
 			Pshuf([ 1/2, 1/4, 1/8, 1/8],8),
 			Pshuf([ 1,1/2, 1/4, 1/8, 1/8],4),
@@ -161,21 +156,33 @@ Pbindef(\playBufKickP, *[ instrument: \playBuf,
 			Pshuf([ 1,1/4,1/4,1/4,1/8,1/8],4),
 			Pshuf([ 1/2,1/4,1/4], 8),
 			Pshuf([ 1,1/2,1/4,1/4], 4),
-			Pshuf([1/2,Pn(1/6,3),1/4,1/4], 4)
 		],inf)
 	])
-
 ]).play(quant:4);
 
 
-
+Pbindef(\granPlayPzero, *[
-
+	instrument: \granPlay,
+	bufnum:	~getSmp.("qebrus_machines_snip1"),
+	dur: 		16,
+	legato: 	1,
+	atk:		8,
+	rls:		8,
+	amp: 		Pseq([ Pseg([0,1],128,\sqr), Pn(1)]) * 0.18,
+	width:		1,
+	pitch: 		1, //[0.5,1],
+	autoPosN: 	0.08,
+	autoPosS: 	0.02,
+	outBus: 	[~lpfFXBus1,~revFXbus1],
+	//outBus: 	0,
+	gpos: 		0.12, //Pdup(3, Pxrand([0.4,0.45,0.6,0.2],inf)),
+]).play(quant:4);
 );
 
 //
 // granulator? pad?
 
-
+/*
 Pbindef(\playBufBleep).play(quant:4);
 Pbindef(\playBufBleep2).play(quant:4);
 Pbindef(\playBufHat).play(quant:4);
@@ -188,25 +195,29 @@ Pbindef(\playBufHat).play(quant:4);
 
 Pbindef(\playBufP).stop;
 
-/////////////////////////////////////////////////////////////////////////////////////////
+(
-// INTERRUPT!
+// clear ZERO
-
+Pbindef(\playBufBleep).clear;
+Pbindef(\playBufBleep2).clear;
+Pbindef(\playBufHat).clear;
+Pbindef(\playBufKickP).clear;
+Pbindef(\playBufP).clear;
+)
+*/
 (
 // stop ZERO
 Pbindef(\playBufBleep).stop;
 Pbindef(\playBufBleep2).stop;
 Pbindef(\playBufHat).stop;
 Pbindef(\playBufKickP).stop;
+Pbindef(\granPlayPzero).stop
 )
 
-
+/////////////////////////////////////////////////////////////////////////////////////////
-
+// INTERRUPT!
-//
+(
-~sOsc.("drawPlatesToggle", 0);
-
-
-
 fork {
+	~sOsc.("drawPlatesToggle", 0); // turns of ZERO video plate
 	4.wait;
 	~oscTitles2.value;
 	5.wait;
@@ -315,6 +326,7 @@ Pbindef(\harpsiPingP).play(quant:4);
 Pbindef(\playBufErr2).play(quant:4);
 )
 
+// take time.
 
 // -----------------------------------------------------------
 ( // stop INTERRUPT, start TRAP sound
@@ -336,7 +348,6 @@ Pbindef(\akjDisChordp, *[
 ( // --------------------------------------------
 
 fork {
-
 	~sOsc.("drawImageBlenderToggle", 0);
 	2.wait;
 	~oscTitles3.value;
@@ -448,15 +459,18 @@ Pbindef(\granGlitcho, *[
 ]).play(quant:4);
 )
 
+// take time.
+
+// stop psycho background chord
 Pbindef(\akjDisChordp).stop
 
-Pbindef(\granGlitcho).stop
-
-
 
 ( // start PARITY title, stop noises,click and bass ------------------- /
 fork {
 
+	// stop granulated noises
+	Pbindef(\granGlitcho).stop
+
 	// image off, stop noises and bass.
 	Pbindef(\playBufBd1).stop;
 	Pbindef(\akjClickp).stop;
@@ -528,11 +542,7 @@ Pbindef(\playBufHatM, *[ instrument: \playBuf,
 		~sOsc.value("playVideoSaturation", 64+64.rand ); //) {  playVideoSaturation = int(oscVal2); } // 44
 	}
 ]).play(quant:4);
-)
 
-// start deep sub --------------------------------------------------//
-Ndef(\subwob2).fadeTime = 10;
-(
 Ndef(\subwob2, {
 	var snd = SinOsc.ar([43,42]* 0.5);
 	snd = (snd*2).tanh;
@@ -540,7 +550,14 @@ 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
+});
+
+Ndef(\subwob2).fadeTime = 10;
+
+// start deep sub --------------------------------------------------//
+(
+Ndef(\subwob2).fadeTime = 10;
+
 )
 
 ( // stop noises, granulation and sub ----------------------------------/
@@ -601,22 +618,21 @@ fork {
 )
 
 // ADJUST //
-( // start noise ---------------------------------------//
+( // start noise ----- LOUD! -------------------------------//
 Pbindef(\lcmnoip,
 	\instrument, \lcmnoise,
 	\dur, 8,
 	\amp, 0.3,
-	\amp1, 0.1, //Pseq([1,0.1],inf),
+	\amp1, 0.1,
-	\amp2, 3, //Pseq([0.6,1],inf),
+	\amp2, 3,
 	\legato, 1,
-	//\legato, 0.5,
 	\outBus, ~satBus1,
 	\osc, Pfunc { |e|
 		~sOsc.("drawImageBlenderToggle", 1);
 	    ~sOsc.("drawImageBlenderID", 29.rand);
-		~sOsc.("iblTexSpeedXfactor", 30.rand+30 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22
+		~sOsc.("iblTexSpeedXfactor", 30.rand+30 );
-		~sOsc.("iblTexSpeedYfactor", 30.rand+30 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23
+		~sOsc.("iblTexSpeedYfactor", 30.rand+30 );
-		~sOsc.("iblItRot", 128.rand); //{ iblItRot = radians(oscVal2) ; } // 33
+		~sOsc.("iblItRot", 128.rand);
 		//
 	}
 ).play(quant:4)
@@ -664,14 +680,16 @@ Pbindef(\sawp0,
 		[-2,5,7,21],
 	],inf),
 	\octave, 3,
-	\amp, [1,0.5,0.2,0.1] * 0.7,
+	\amp, [1,0.5,0.2,0.1] * 1,
 	\out, 0
 ).play(quant:4);
 )
 
 (
+// off image plate
 ~sOsc.("drawImageBlenderToggle", 0);
 
+// CARRY
 fork {
 	4.wait;
 	~oscTitles6.value;
@@ -707,9 +725,9 @@ fork {
 };
 )
 
-// CARRY (
 
-( // start images and bleeps --------------------------------------------------------//
+
+( // images and bleeps --------------------------------------------------------//
 Pbindef(\playBufBleep2, *[ instrument: \playBuf,
 	bufnum: ~getSmp.("Bleeps007"),
 	legato:1,
@@ -723,7 +741,6 @@ Pbindef(\playBufBleep2, *[ instrument: \playBuf,
 		~sOsc.("iblItTexX", 20.rand+60); //{ iblItTexX = oscVal2 * 4 ; } // 31
 		~sOsc.("iblItTexY", 20.rand+60 ); //{ iblItTexY = oscVal2 * 4; } // 32
 	}
-
 ]).play(quant:4);
 )
 
@@ -733,8 +750,9 @@ Pbindef(\playBufHat2, *[ instrument: \playBuf,
 	legato:1,
 	dur:Pseq([Pn(1/4,6),Pn(1/8,3)],inf),
 	dur:1/4,
-	amp: 1 * Pseq([1,1/5],inf) * Pwhite(0.3,1),
+	amp: 0.6 * Pseq([1,1/5],inf) * Pwhite(0.3,1),
-	rate: Pwhite(0.95,1.01)
+	rate: Pwhite(0.95,1.01),
+	pan: Pwhite(0,10) - 5 * 0.2
 ]).play(quant:4);
 );
 
@@ -745,19 +763,20 @@ Pbindef(\playBufBleep3, *[ instrument: \playBuf,
 	bufnum: ~getSmp.("Bleeps015"),
 	legato:Pwhite(0.01,0.1),
 	dur:Pseq([1/4,Pn(1.5,7)],inf) * 1/2,
-	amp:0.08,
+	amp: Pseg([0.7,1,0.7], 44, \sqr, inf) * 0.2,
 	rate: 1,
+	pan: Pseg([0,10], 10, \lin, inf) - 5 * 0.1,
 	yspeed: 64 + (Prand((0..3), inf) * Pseq([-1,1],inf)),
 	osc: Pfunc { |e| ~sOsc.("iblTexSpeedYfactor", e.yspeed ); }
 ]).play(quant:4);
 )
 
-( // noise, changing rotation image  ---------------------------------------//
+( // glitchy-noise, changing rotation image  ---------------------------------------//
 Pbindef(\playBufGlitch4, *[ instrument: \playBuf,
 	bufnum: ~getSmp.("Misc106"),
 	legato:0.3,
 	dur:16,
-	amp:0.2,
+	amp:0.4,
 	rate: 1,
 	rotation: Pseq([0,1], inf),
 	osc: Pfunc { |e|
@@ -770,10 +789,12 @@ Pbindef(\playBufGlitch4, *[ instrument: \playBuf,
 
 
 
+
+( // stop verything, start OVERFLOW title, init images
+
 // stop the sawPAD ------------------------------------------------//
 Pbindef(\sawp0).stop;
 
-( // stop verything, start OVERFLOW title, init images
 Pbindef(\playBufHat2).stop;
 Pbindef(\playBufBleep2).stop;
 Pbindef(\playBufBleep3).stop;
@@ -888,7 +909,8 @@ Pbindef(\sawp2,
 ).play(quant:4);
 )
 
-~lpfFX1.set(\cutoffLag, 1, \cutoff, 800);
+// slow cutoff
+~lpfFX1.set(\cutoffLag, 30, \cutoff, 500);
 
 
 // fadout images, 60 sec -------------------------------------//
@@ -908,13 +930,9 @@ Pbindef(\granPlayP).stop;
 ~sOsc.("drawPlatesToggle", 0);
 )
 
-
-
 // end credit?
 ~oscTitles8.value;
 
-
-
 ~sOsc.("drawPlatesToggle", 0);
 
 ////////////////////////////////////////////////////////////////////////////////////////