luka
/
trans.fail_xenotopic.network
1
0
Fork 0
Code

improve chapter 2

main
Luka Prinčič 2023-05-04 09:49:33 +02:00
parent 1162a1117a
commit 9242b7404d
1 changed files with 49 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
scd/xenotopic.network.scd
View File

@ -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,
amp: [0.5, 0.5],
pitch: [0.5, 1],
autoPosN: 0.1,
autoPosS: 0.1,
outBus: 0,
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;
)