1
0
Fork 0

improve finalize 01ZERO chapter, raise volume to CARRY

main
Luka Prinčič 2023-05-03 13:16:07 +02:00
parent 2b8899e160
commit ee861a38cf
3 changed files with 124 additions and 88 deletions

View File

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

View File

@ -50,7 +50,7 @@ SynthDef(\granPlay, {
// -- PLAY BUFFER -- // ------------------------------------------------------------------- // -- PLAY BUFFER -- // -------------------------------------------------------------------
SynthDef(\playBuf, { 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; var env, snd, rscale;
rscale = BufRateScale.kr(bufnum); rscale = BufRateScale.kr(bufnum);
@ -62,8 +62,8 @@ SynthDef(\playBuf, {
snd = [snd, DelayL.ar(snd,0.2, sdel)]; snd = [snd, DelayL.ar(snd,0.2, sdel)];
snd = HPF.ar(snd, hpff); snd = HPF.ar(snd, hpff);
env = EnvGen.ar(Env.adsr(atk, 0,1,rls), gate, doneAction:2); 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); Out.ar(outBus, snd);
}).add; }).add;

View File

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