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
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

View File

@ -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;

View File

@ -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);
////////////////////////////////////////////////////////////////////////////////////////