From ee861a38cf488165a3046d379c09899b0904bf00 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luka=20Prin=C4=8Di=C4=8D?= Date: Wed, 3 May 2023 13:16:07 +0200 Subject: [PATCH] improve finalize 01ZERO chapter, raise volume to CARRY --- 2023_Upgrade_notes.md | 28 ++++-- scd/lib/15-synthDefs.scd | 6 +- scd/xenotopic.network.scd | 178 +++++++++++++++++++++----------------- 3 files changed, 124 insertions(+), 88 deletions(-) diff --git a/2023_Upgrade_notes.md b/2023_Upgrade_notes.md index 236ea85..cafdce8 100644 --- a/2023_Upgrade_notes.md +++ b/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 diff --git a/scd/lib/15-synthDefs.scd b/scd/lib/15-synthDefs.scd index 1a7aa54..69641b7 100644 --- a/scd/lib/15-synthDefs.scd +++ b/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); @@ -62,8 +62,8 @@ SynthDef(\playBuf, { snd = [snd, DelayL.ar(snd,0.2, sdel)]; snd = HPF.ar(snd, hpff); env = EnvGen.ar(Env.adsr(atk, 0,1,rls), gate, doneAction:2); - snd = snd * env * amp ; - + snd = snd * env * amp; + snd = Balance2.ar(snd[0], snd[1], pan); Out.ar(outBus, snd); }).add; diff --git a/scd/xenotopic.network.scd b/scd/xenotopic.network.scd index ea23b0c..dc28f61 100644 --- a/scd/xenotopic.network.scd +++ b/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((0..11)+5*0.01,4),2), - Pn(Pshuf((0..11)+5*0.02,4),2), - Pn(Pshuf((0..11)+5*0.03,4),2), - Pn(Pshuf((0..11)+5*0.04,4),2), - Pn(Pshuf((0..11)+5*0.05,4),2), - Pn(Pshuf((0..11)+5*0.06,4),2), - - Pn(0.89, 48), + Pn(Pshuf( ~qebsts, 4),2), + Pdup(12 * 4 * 2, Pseq( + [3.1, 3.5, 1.2, 2.5, 1, 3.3]) ) + * Pn(Pshuf( ~qebsts, 4), 2 * 6), + Pn(0.91, 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), - - Pdup(24,Pseries(0.11,0.01,12)), - + Pn(0.93, 48), + Pdup(24, Pseq(~qebsts)), 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,47 +126,63 @@ 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"), - legato: 1, //[1,0.1,0.2], - sustain: 0.15, - amp: Pwhite(0.5,0.6) * [0.4,0.7], - rate: Pwhite(0.99,1), - start: [0.022,0.2064], + bufnum: [ + ~getSmp.("Kicks062"), + ~getSmp.("Kicks026"), + ], + sustain: 2, + 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), - Pshuf([1/4,1/4,1/4,1/8,1/8],8), - 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) + Pshuf([ 1/4,1/4,1/4,1/8,1/8],8), + 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), ],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 ) - - -// -~sOsc.("drawPlatesToggle", 0); - - - +///////////////////////////////////////////////////////////////////////////////////////// +// INTERRUPT! +( 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), - \amp2, 3, //Pseq([0.6,1],inf), + \amp1, 0.1, + \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.("iblTexSpeedYfactor", 30.rand+30 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23 - ~sOsc.("iblItRot", 128.rand); //{ iblItRot = radians(oscVal2) ; } // 33 + ~sOsc.("iblTexSpeedXfactor", 30.rand+30 ); + ~sOsc.("iblTexSpeedYfactor", 30.rand+30 ); + ~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), - rate: Pwhite(0.95,1.01) + amp: 0.6 * Pseq([1,1/5],inf) * Pwhite(0.3,1), + 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); ////////////////////////////////////////////////////////////////////////////////////////