/* -- trans.fail / XENO TOPIC . NETWORK -- */ s.boot s.plotTree; s.meter; {PinkNoise.ar!2}.play // init > + load all libs/ & smp/ this.executeFile(PathName.new(thisProcess.nowExecutingPath).pathOnly +/+ "xinit.scd") // (re)launch busses ~launchBusses.() // test video plate ~sOsc.("testPictureToggle", 1); ~sOsc.("testPictureToggle", 0); ( // INTRO TITLES fork { // strobe warning "... strobe warning title".postln; ~oscTitles0a.value; 8.wait; ~sOsc.("drawPlatesToggle", 0); 2.wait; // title "... title: trans.fail".postln; // ~oscTitles0b.value; 6.wait; ~sOsc.("drawPlatesToggle", 0); 3.wait; // ZERO TITLE1 ~oscTitles1.value; 5.wait; ~sOsc.("drawPlatesToggle", 0); // init for zero ~sOsc.("drawPlatesimgAbank", 3); ~sOsc.("drawPlatesimgBbank", 3); ~sOsc.("drawPlatesimgCbank", 3); ~sOsc.("drawPlatesimgBblendMode", 2); ~sOsc.("drawPlatesimgCblendMode", 3); ~sOsc.("drawImageBlenderToggle", 0); ~platesSpeedRandRange = 0; "--- ready for next.".postln; } ) // ZERO ///////////////////////////////////////////////////////////////////////////////////// ( ~qebsts = [(11..17),(23..36)].lace.copyRange(0,11) * 0.01; Pbindef(\playBufP, *[ instrument: \playBuf, //Pbindef(\playBufP).clear bufnum: ~getSmp.("qebrus_machines_snip1"), dur: Pn(Pshuf([1/2, 1/2, 1/4, Pn(1/8,2), 1/2],8) * 1/2, inf), 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, Pseq(~qebsts)), Pn(0.1, 48*2), 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.92, 48), Pn(Pshuf((0..11)+5*0.01+0.8,4),1), 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); ~sOsc.("drawPlatesimgBid", 45.rand); ~sOsc.("drawPlatesimgCid", 45.rand); ~sOsc.("drawPlatesTexAspeed", e.speedrange.rand); ~sOsc.("drawPlatesTexBspeed", e.speedrange.rand); ~sOsc.("drawPlatesTexCspeed", e.speedrange.rand); ~sOsc.("drawPlatesTexAdirection", 127.rand); ~sOsc.("drawPlatesTexBdirection", 127.rand); ~sOsc.("drawPlatesTexCdirection", 127.rand); }; ]).play(quant:4); Pbindef(\playBufBleep, *[ instrument: \playBuf, bufnum: ~getSmp.("Bleeps007"), legato:1, dur:Pseq([ Rest(64), Pseq([1/4,Pn(3,7)],inf) ]), amp:0.3, rate: 1 ]).play(quant:4); Pbindef(\playBufBleep2, *[ instrument: \playBuf, bufnum: ~getSmp.("Bleeps015"), legato:Pwhite(0.01,0.1), dur:Pseq([ Rest(64*2), Pseq([1/4,Pn(1.5,7)],inf) * 1/2 ]), amp:0.5, rate: 0.25 ]).play(quant:4); Pbindef(\playBufHat, *[ instrument: \playBuf, bufnum: ~getSmp.("Hats076"), legato:1, dur: Pseq([ Rest(32*3), Pn(1/4), ]), 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.("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(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), ],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.21, 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); ~platesSpeedRandRange = 3; ~platesSpeedRandRange = 9; ~platesSpeedRandRange = 30; ~platesSpeedRandRange = 40; ~platesSpeedRandRange = 70; Pbindef(\playBufP).stop; ( // 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! ( fork { ~sOsc.("drawPlatesToggle", 0); // turns of ZERO video plate 1.wait; ~oscTitles2.value; 5.wait; ~sOsc.("drawPlatesToggle", 0); ~sOsc.("drawImageBlenderBank", 0 ); ~sOsc.("drawImageBlenderID", 1); ~sOsc.("iblNum", 10); //{ iblNum = int(oscVal2) ; } // 6 ~sOsc.("iblX", 74 ); //{ iblX = ((oscVal2-64) / 64.0) * width/2 ; } // 7 int( ((oscVal2-64) / 64.0) * width/2 ); } ~sOsc.("iblY", 84 ); //{ iblY = ((oscVal2-64) / 64.0) * width/2 ; } // 8 ~sOsc.("iblWidth", 87); //{ iblWidth = oscVal2 * oscVal2 * 0.2 * norm(width, 0, width) ; } // 9 int(oscVal2 * oscVal2 * 0.05 * norm(width, 0, width)); ~sOsc.("iblHeight", 70 ); //{ iblHeight = oscVal2 * oscVal2 * 0.1 * norm(height, 0, height) ; } // 10 ~sOsc.("iblRot", 0 ); //{ iblRot = radians(oscVal2 * 360 / 120) ; } // 11 ~sOsc.("iblTexWidth", 64 ); //{ iblTexWidth = (oscVal2 - 64) * oscVal2 ; } // 18 ~sOsc.("iblTexHeight", 64 ); //{ iblTexHeight = (oscVal2 - 64) * oscVal2 ; } // 19 ~sOsc.("iblTexSpeedXfactor", 70 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22 ~sOsc.("iblTexSpeedYfactor", 64 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23 ~sOsc.("iblH", 64 ); //{ iblH = int(oscVal2) ; } // 24 ~sOsc.("iblS", 127); //{ iblS = int(oscVal2) ; } // 25 ~sOsc.("iblB", 127 ); //{ iblB = int(oscVal2) ; } // 26 ~sOsc.("iblA", 40 ); //{ iblA = int(oscVal2) ; } // 27 ~sOsc.("iblBflicker", 0 ); //{ iblBflicker = int(oscVal2) ; } // 28 ~sOsc.("iblItX", 94 ); //{ iblItX = ((oscVal2-64) * abs(oscVal2-64) * 0.1) ; } // 29 ~sOsc.("iblItY", 64 ); //{ iblItY = ((oscVal2-64) * abs(oscVal2-64) * 0.1) ; } // 30 ~sOsc.("iblItTexX", 9); //{ iblItTexX = oscVal2 * 4 ; } // 31 ~sOsc.("iblItTexY", 10 ); //{ iblItTexY = oscVal2 * 4; } // 32 ~sOsc.("iblItRot", 20); //{ iblItRot = radians(oscVal2) ; } // 33 }; // start interrup granulation Pbindef(\granPlayP, *[ instrument: \granPlay, dur: 16, legato: 1, amp: 0.6, pitch: [0.5,1], autoPosN: 0.03, autoPosS: 0.01, outBus: ~lpfFXBus1, gpos: Pdup(3, Pxrand([0.4,0.45,0.6,0.2],inf)), bufnum: Prand([ ~getSmp.("somanymen_1"), ~getSmp.("somanymen_2") ],inf) ]).play(quant:4); // prep other patterns Pbindef(\playBufErr1, *[ instrument: \playBuf, bufnum: Pdup(3, Prand([ ~getSmp.("Misc034"), ~getSmp.("Misc106"), ~getSmp.("Misc188"), ~getSmp.("RawGlitch_259"), ~getSmp.("RawGlitch_412"), ~getSmp.("RawGlitch_336") ],inf) ), start: 0, legato:1, dur:12, amp:0.7, rate:1, osc: Pfunc { |e| ~sOsc.("drawImageBlenderToggle", 1); } ]); Pbindef(\playBufErr2, *[ instrument: \playBuf, bufnum: ~getSmp.("RawGlitch_335"), start: 0, legato:1, dur:8, amp:0.7, rate:1, osc: Pfunc { |e| ~sOsc.("drawImageBlenderID", 29.rand); ~sOsc.("iblTexSpeedXfactor", 20.rand+50 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22 ~sOsc.("iblTexSpeedYfactor", 20.rand+50 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23 } ]); Pbindef(\harpsiPingP, *[ instrument: \beep_sus, dur: Pseq([1,Pn(6)]), amp: 0.5, octave: 9, degree:Pseq([Rest(),Pn(-1)]), legato:0.01, outBus: ~revFXbus1, osc: Pfunc { |e| ~sOsc.("iblItRot", 10.rand+10); //{ iblItRot = radians(oscVal2) ; } // 33 } ]); ) // --------------------------------------------------------- Pbindef(\playBufErr1).play(quant:4); // first noise, image on, ( // 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; Pbindef(\playBufErr1).stop; Pbindef(\playBufErr2).stop; Pbindef(\harpsiPingP).stop; Pbindef(\akjDisChordp, *[ instrument: \akjDisChord, freq:300, dur: 16, legato: 1.3, amp: 0.8, out: 0 ]).play(quant:4); ) ( // -------------------------------------------- fork { ~sOsc.("drawImageBlenderToggle", 0); 2.wait; ~oscTitles3.value; 5.wait; ~sOsc.("drawPlatesToggle", 0); // init TRAP video ~sOsc.("drawImageBlenderBank", 2 ); ~sOsc.("drawImageBlenderID", 18); ~sOsc.("iblNum", 20); //{ iblNum = int(oscVal2) ; } // 6 ~sOsc.("iblX", 64 ); //{ iblX = ((oscVal2-64) / 64.0) * width/2 ; } // 7 int( ((oscVal2-64) / 64.0) * width/2 ); } ~sOsc.("iblY", 24 ); //{ iblY = ((oscVal2-64) / 64.0) * width/2 ; } // 8 ~sOsc.("iblWidth", 77); //{ iblWidth = oscVal2 * oscVal2 * 0.2 * norm(width, 0, width) ; } // 9 int(oscVal2 * oscVal2 * 0.05 * norm(width, 0, width)); ~sOsc.("iblHeight", 20 ); //{ iblHeight = oscVal2 * oscVal2 * 0.1 * norm(height, 0, height) ; } // 10 ~sOsc.("iblRot", 0 ); //{ iblRot = radians(oscVal2 * 360 / 120) ; } // 11 ~sOsc.("iblTexWidth", 64 ); //{ iblTexWidth = (oscVal2 - 64) * oscVal2 ; } // 18 ~sOsc.("iblTexHeight", 64 ); //{ iblTexHeight = (oscVal2 - 64) * oscVal2 ; } // 19 ~sOsc.("iblTexSpeedXfactor", 69 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22 ~sOsc.("iblTexSpeedYfactor", 59 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23 ~sOsc.("iblH", 70 ); //{ iblH = int(oscVal2) ; } // 24 ~sOsc.("iblS", 127); //{ iblS = int(oscVal2) ; } // 25 ~sOsc.("iblB", 127 ); //{ iblB = int(oscVal2) ; } // 26 ~sOsc.("iblA", 127 ); //{ iblA = int(oscVal2) ; } // 27 ~sOsc.("iblBflicker", 0 ); //{ iblBflicker = int(oscVal2) ; } // 28 ~sOsc.("iblItX", 64 ); //{ iblItX = ((oscVal2-64) * abs(oscVal2-64) * 0.1) ; } // 29 ~sOsc.("iblItY", 89 ); //{ iblItY = ((oscVal2-64) * abs(oscVal2-64) * 0.1) ; } // 30 ~sOsc.("iblItTexX", 40); //{ iblItTexX = oscVal2 * 4 ; } // 31 ~sOsc.("iblItTexY", 127 ); //{ iblItTexY = oscVal2 * 4; } // 32 ~sOsc.("iblItRot", 0); //{ iblItRot = radians(oscVal2) ; } // 33 } ) ( // stop granulated glitches Pbindef(\granGlitcho3).stop; // start glitches and highhats ------------------------------------ Pbindef(\playBufBd1, *[ instrument: \playBuf, bufnum: Prand([ ~getSmp.("loop9"), ~getSmp.("loop7"), ~getSmp.("loop33"), ~getSmp.("loop37") ], inf), dur: Prand([4,2,1,1/2,Pn(1/4,2),Pn(1/8,4),Pseq([3/8,1/8]),Pseq([3/4,1/4])],inf), legato:0.1, start: Pxrand([0,1,2,3,4,5,6,7],inf) * 1/16, amp:1, osc: Pfunc { |e| ~sOsc.("drawImageBlenderToggle", 1); ~sOsc.("drawImageBlenderID", 19.rand); ~sOsc.("iblTexSpeedXfactor", 30.rand+50 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22 ~sOsc.("iblTexSpeedYfactor", 20.rand+54 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23 } ]).play(quant:4); Pbindef(\akjClickp, *[ instrument: \akjClick, dur: Pseq([ Pn(1/8, 7), Rest(1/8), // 1 Rest(1), // 1 Pn(1/4, 3), Rest(3/8), Pn(1/8, 1), Pn(1/4, 3), Rest(3/8), Pn(1/8, 1), Pn(1/4, 3), Rest(4/8), Pn(1/8, 7), Rest(1/8), Prand([ Rest(1), Pn(1/6,6) ]), Pn(1/8, 3), Rest(1/8), Prand([ Rest(1.25), Pn(1/4, 5) ]), Prand([ Pn(1/8, 3), Pn(1/16, 6) ]), Rest(1/8), ],inf), amp: 8/20, releaseTime: 0.3, freq:1, out: 0 ]).play(quant:4); ) ( // add bass -------------------------------- / Pbindef(\akjBazp, *[ instrument: \akjBaz, freq: 300, dur: 10, amp: 0.3, legato: 0.20, out: 0, osc: Pfunc { |e| ~sOsc.("iblH", 20.rand+54 ); ~sOsc.("iblItTexY", 127.rand ); } ]).play(quant:4); ) ( // start granulated noises ------------------------------- / Pbindef(\granGlitcho, *[ instrument: \granPlay, dur: 4, legato: 1, amp: [0.5, 0.5], pitch: [0.5, 1], 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: Prand([~getSmp.("loop99"), ~getSmp.("loop97")],inf) ]).play(quant:4); ) // take time. // stop psycho background chord Pbindef(\akjDisChordp).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; Pbindef(\akjBazp).stop; ~sOsc.("drawImageBlenderToggle", 0); 2.wait; // title4 PARITY ~oscTitles4.value; Pbindef(\granPlayPMARO, *[ instrument: \granPlay, dur: 16, legato: 1, amp: 0.9, pitch: 1, autoPosN: 0.02, autoPosS: 0.01, outBus: ~lpfFXBus1, gpos: Pdup(2, Pseq([ 0.9, 0.8, 0.7, 0.65, 0.2, 0.1 ],inf)), width: 0.4, bufnum: ~getSmp.("saudade_CUT1") ]).play; 5.wait; ~sOsc.("drawPlatesToggle", 0); // init VIDEO player ~sOsc.value("playVideoToggle", 0); ~sOsc.value("playVideoBank", 0 );//) { playVideoBank = int(oscVal2); } // 44 ~sOsc.value("playVideoID", 0 );//) { playVideoID = int(oscVal2); } // 45 ~sOsc.value("playVideoPausePlay", 0 ); //) { playVideoPausePlay = boolean(int(oscVal2)); } // 47 ~sOsc.value("playVideoHue", 79 ); //) { playVideoHue = int(oscVal2); } // 44 ~sOsc.value("playVideoSaturation", 0 ); //) { playVideoSaturation = int(oscVal2); } // 44 ~sOsc.value("playVideoBrightness", 127 ); //) { playVideoBrightness = int(oscVal2); } // 44 ~sOsc.value("playVideoAlpha", 127 );//) { playVideoAlpha = int(oscVal2); } // 44 ~sOsc.value("playVideoSpeed", 100); //) { playVideoPausePlay = boolean(int(oscVal2)); } // 47 ~sOsc.value("playVideoJump", 0); } ) ( // start noise and clicks + video cuts ------------------------------------// Pbindef(\noise, *[ instrument: \noise, dur:10, legato:0.2, amp:0.08, videojump: Pseq([10,15,20,25,30,35,40,45,50,55],inf), osc: Pfunc { |e| ~sOsc.value("playVideoToggle", 1); ~sOsc.value("playVideoPausePlay", 1 ); ~sOsc.value("playVideoJump", e.videojump); } ]).play(quant:4); Pbindef(\playBufHatM, *[ instrument: \playBuf, bufnum: [~getSmp.("Hats108"),~getSmp.("Hats085")], legato:1, //dur:Pseq([Pn(1/4,6),Pn(1/8,3)],inf), dur:8, amp: [2,0.3] * 1.2, rate: Pwhite(0.95,1.01), osc: Pfunc { |e| ~sOsc.value("playVideoToggle", 1); ~sOsc.value("playVideoHue", 127.rand ); //) { playVideoHue = int(oscVal2); } // 44 ~sOsc.value("playVideoSaturation", 64+64.rand ); //) { playVideoSaturation = int(oscVal2); } // 44 } ]).play(quant:4); ( Ndef(\subwob2, { var snd = SinOsc.ar([43,42]* 0.5); snd = (snd*2).tanh; snd = (snd*2).clip2; 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).stop; ) ( // stop noises, granulation and sub ----------------------------------/ Ndef(\subwob2).release; Pbindef(\playBufHatM).stop; Pbindef(\noise).stop; Pbindef(\granPlayPMARO).stop; ) (// stop video ----------------------------------------------/ ~sOsc.value("playVideoPausePlay", 0 ); // cut to black ~sOsc.value("playVideoToggle", 0); ) // ADJUST --- ( // on release of granulator ------------------------------------------/ // stop video ~sOsc.value("playVideoPausePlay", 0 ); ~sOsc.value("playVideoToggle", 0); fork { 3.wait; ~oscTitles5.value; 5.wait; ~sOsc.("drawPlatesToggle", 0); ~sOsc.("drawImageBlenderBank", 4 ); ~sOsc.("drawImageBlenderID", 4); ~sOsc.("iblNum", 6); //{ iblNum = int(oscVal2) ; } // 6 ~sOsc.("iblX", 64 ); //{ iblX = ((oscVal2-64) / 64.0) * width/2 ; } // 7 int( ((oscVal2-64) / 64.0) * width/2 ); } ~sOsc.("iblY", 64 ); //{ iblY = ((oscVal2-64) / 64.0) * width/2 ; } // 8 ~sOsc.("iblWidth", 88); //{ iblWidth = oscVal2 * oscVal2 * 0.2 * norm(width, 0, width) ; } // 9 int(oscVal2 * oscVal2 * 0.05 * norm(width, 0, width)); ~sOsc.("iblHeight", 77 ); //{ iblHeight = oscVal2 * oscVal2 * 0.1 * norm(height, 0, height) ; } // 10 ~sOsc.("iblRot", 0 ); //{ iblRot = radians(oscVal2 * 360 / 120) ; } // 11 ~sOsc.("iblTexWidth", 64 ); //{ iblTexWidth = (oscVal2 - 64) * oscVal2 ; } // 18 ~sOsc.("iblTexHeight", 64 ); //{ iblTexHeight = (oscVal2 - 64) * oscVal2 ; } // 19 ~sOsc.("iblTexSpeedXfactor", 70 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22 ~sOsc.("iblTexSpeedYfactor", 69 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23 ~sOsc.("iblH", 64 ); //{ iblH = int(oscVal2) ; } // 24 ~sOsc.("iblS", 127); //{ iblS = int(oscVal2) ; } // 25 ~sOsc.("iblB", 127 ); //{ iblB = int(oscVal2) ; } // 26 ~sOsc.("iblA", 40 ); //{ iblA = int(oscVal2) ; } // 27 ~sOsc.("iblBflicker", 0 ); //{ iblBflicker = int(oscVal2) ; } // 28 ~sOsc.("iblItX", 94 ); //{ iblItX = ((oscVal2-64) * abs(oscVal2-64) * 0.1) ; } // 29 ~sOsc.("iblItY", 64 ); //{ iblItY = ((oscVal2-64) * abs(oscVal2-64) * 0.1) ; } // 30 ~sOsc.("iblItTexX", 9); //{ iblItTexX = oscVal2 * 4 ; } // 31 ~sOsc.("iblItTexY", 10 ); //{ iblItTexY = oscVal2 * 4; } // 32 ~sOsc.("iblItRot", 128); //{ iblItRot = radians(oscVal2) ; } // 33 }; ) // ADJUST // ( // start noise ----- LOUD! -------------------------------// Pbindef(\lcmnoip, \instrument, \lcmnoise, \dur, 8, \amp, 0.3, \amp1, 0.1, \amp2, 3, \legato, 1, \outBus, ~satBus1, \osc, Pfunc { |e| ~sOsc.("drawImageBlenderToggle", 1); ~sOsc.("drawImageBlenderID", 29.rand); ~sOsc.("iblTexSpeedXfactor", 30.rand+30 ); ~sOsc.("iblTexSpeedYfactor", 30.rand+30 ); ~sOsc.("iblItRot", 128.rand); // } ).play(quant:4) ) ( // add second layer of noise -------------------------------------------// Pbindef(\playBufGlitch1, *[ instrument: \playBuf, bufnum: Prand([ ~getSmp.("qebrus_machines_snip5"), ~getSmp.("qebrus_machines_snip2"), ~getSmp.("qebrus_machines_snip1") ],inf), legato:1, //dur:Pseq([Pn(1/4,6),Pn(1/8,3)],inf), dur:8, start:Pwhite(0.0,0.4), rate: [0.5,0.7,1], amp: 0.4, sdel: 0.01, //outBus: 0, outBus: Prand([0, ~satBus1],inf), ]).play(quant:4); ) // stop second layer of noise ---------------------------------------------------- / Pbindef(\playBufGlitch1).stop; ( // stop first layer of noise, start sawtooth pad ----------------------------------/ Pbindef(\lcmnoip).stop; Pbindef(\sawp0, \instrument, \softSaw, \dur, 10, \attackTime, 5, \releaseTime,5, \legato,1, \degree, Pseq([ [-2,2,12,25], [-2,1,9,19], [-2,3,11,20], [-2,6,8,22], [-2,3,12,18], [-2,5,7,21], ],inf), \octave, 3, \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; 5.wait; ~sOsc.("drawPlatesToggle", 0); ~sOsc.("drawImageBlenderBank", 1 ); ~sOsc.("drawImageBlenderID", 4); ~sOsc.("iblNum", 60); //{ iblNum = int(oscVal2) ; } // 6 ~sOsc.("iblX", 0 ); //{ iblX = ((oscVal2-64) / 64.0) * width/2 ; } // 7 int( ((oscVal2-64) / 64.0) * width/2 ); } ~sOsc.("iblY", 64 ); //{ iblY = ((oscVal2-64) / 64.0) * width/2 ; } // 8 ~sOsc.("iblWidth", 17); //{ iblWidth = oscVal2 * oscVal2 * 0.2 * norm(width, 0, width) ; } // 9 int(oscVal2 * oscVal2 * 0.05 * norm(width, 0, width)); ~sOsc.("iblHeight", 128 ); //{ iblHeight = oscVal2 * oscVal2 * 0.1 * norm(height, 0, height) ; } // 10 ~sOsc.("iblRot", 60 ); //{ iblRot = radians(oscVal2 * 360 / 120) ; } // 11 ~sOsc.("iblTexWidth", 64 ); //{ iblTexWidth = (oscVal2 - 64) * oscVal2 ; } // 18 ~sOsc.("iblTexHeight", 64 ); //{ iblTexHeight = (oscVal2 - 64) * oscVal2 ; } // 19 ~sOsc.("iblTexSpeedXfactor", 70 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22 ~sOsc.("iblTexSpeedYfactor", 69 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23 ~sOsc.("iblH", 64 ); //{ iblH = int(oscVal2) ; } // 24 ~sOsc.("iblS", 127); //{ iblS = int(oscVal2) ; } // 25 ~sOsc.("iblB", 127 ); //{ iblB = int(oscVal2) ; } // 26 ~sOsc.("iblA", 40 ); //{ iblA = int(oscVal2) ; } // 27 ~sOsc.("iblBflicker", 0 ); //{ iblBflicker = int(oscVal2) ; } // 28 ~sOsc.("iblItX", 84 ); //{ iblItX = ((oscVal2-64) * abs(oscVal2-64) * 0.1) ; } // 29 ~sOsc.("iblItY", 64 ); //{ iblItY = ((oscVal2-64) * abs(oscVal2-64) * 0.1) ; } // 30 ~sOsc.("iblItTexX", 9); //{ iblItTexX = oscVal2 * 4 ; } // 31 ~sOsc.("iblItTexY", 50 ); //{ iblItTexY = oscVal2 * 4; } // 32 ~sOsc.("iblItRot", 0); //{ iblItRot = radians(oscVal2) ; } // 33 }; ) ( // images and bleeps --------------------------------------------------------// Pbindef(\playBufBleep2, *[ instrument: \playBuf, bufnum: ~getSmp.("Bleeps007"), legato:1, dur:Pseq([1/4,Pn(3,7)],inf), amp:0.2, rate: 1, osc: Pfunc { |e| ~sOsc.("drawImageBlenderToggle", 1); ~sOsc.("drawImageBlenderID", 41.rand); ~sOsc.("iblTexSpeedXfactor", 30.rand+55 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22 ~sOsc.("iblItTexX", 20.rand+60); //{ iblItTexX = oscVal2 * 4 ; } // 31 ~sOsc.("iblItTexY", 20.rand+60 ); //{ iblItTexY = oscVal2 * 4; } // 32 } ]).play(quant:4); ) ( // hihat -------------------------------------------------------------------// Pbindef(\playBufHat2, *[ instrument: \playBuf, bufnum: ~getSmp.("Hats076"), legato:1, dur:Pseq([Pn(1/4,6),Pn(1/8,3)],inf), dur:1/4, 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); ); ( // -add 3/4 beeps + slight changes in direction --------------------------// //Pbindef(\playBufBleep3).clear 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: 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); ) ( // glitchy-noise, changing rotation image ---------------------------------------// Pbindef(\playBufGlitch4, *[ instrument: \playBuf, bufnum: ~getSmp.("Misc106"), legato:0.3, dur:16, amp:0.4, rate: 1, rotation: Pseq([0,1], inf), osc: Pfunc { |e| ~sOsc.("iblItRot", e.rotation); ~sOsc.("iblRot", 15.rand + 53 ); } ]).play(quant:4); ) ( // stop verything, start OVERFLOW title, init images // stop the sawPAD ------------------------------------------------// Pbindef(\sawp0).stop; Pbindef(\playBufHat2).stop; Pbindef(\playBufBleep2).stop; Pbindef(\playBufBleep3).stop; Pbindef(\playBufGlitch4).stop; ~sOsc.("drawImageBlenderToggle", 0); fork { 4.wait; // title7 OVERFLOW ~oscTitles7.value; 5.wait; ~sOsc.("drawPlatesToggle", 0); ~sOsc.("drawPlatesToggle", 0); ~sOsc.("drawPlatesimgAbank", 5); ~sOsc.("drawPlatesimgBbank", 5); ~sOsc.("drawPlatesimgCbank", 5); ~sOsc.("drawPlatesimgBblendMode", 2); ~sOsc.("drawPlatesimgCblendMode", 1); ~sOsc.("drawPlatesTexAspeed", 0); ~sOsc.("drawPlatesTexBspeed", 0); ~sOsc.("drawPlatesTexCspeed", 0); } ) ( // start the cutter and images ! -----------------------------------------// Pbindef(\playBufqebP, *[ instrument: \playBuf, bufnum: ~getSmp.("qebrus_machines_snip4"), dur: Pn( Pshuf([1/2, 1/2, 1/4, Pn(1/8,2), 1/2],8) * 1/2, inf), legato:[0.9,0.1,0.2] * Pwhite(0.9,1), amp: Pwhite(0.5,0.6) * 0.7, rate: Pwhite(0.99,1), hpff: 100, start: Pseq([ Pn(0, 60), Pwhite(0,0.15, 40), Pwhite(0,0.25, 50), Pwhite(0,0.35, 40), Pwhite(0,0.55, 50), Pwhite(0,0.65, 50), Pwhite(0,0.55, 100), Pwhite(0,0.25, 50), Pwhite(0,0.15, 40), Pwhite(0,0.55, 100), Pwhite(0,0.25, 50), Pwhite(0,0.15, 40), Pwhite(0,0.05, 40), ], inf), sdel: Pdup(50, Pxrand([1,2,3,4]*0.001,inf)), outBus: ~lpfFXBus1, speedrange: Pseq([Pseg([0,0,50,50,0], [90,120,120,60]), Pn(0)]), brightness: 127, osc: Pfunc { |e| ~sOsc.("drawPlatesToggle", 1); ~sOsc.("drawPlatesimgAid", 19.rand); ~sOsc.("drawPlatesimgBid", 19.rand); ~sOsc.("drawPlatesimgCid", 19.rand); ~sOsc.("drawPlatesTexAspeed", e.speedrange.rand); ~sOsc.("drawPlatesTexBspeed", e.speedrange.rand); ~sOsc.("drawPlatesTexCspeed", e.speedrange.rand); ~sOsc.("drawPlatesTexAdirection", 127.rand); ~sOsc.("drawPlatesTexBdirection", 127.rand); ~sOsc.("drawPlatesTexCdirection", 127.rand); ~sOsc.("drawPlatesimgAbright", e.brightness); ~sOsc.("drawPlatesimgBbright", e.brightness); ~sOsc.("drawPlatesimgCbright", e.brightness); }; ]).play(quant:4); ) ( // start fade in granular, + highhats ------------------------------------// Pbindef(\granPlayP, *[ instrument: \granPlay, dur: 4, legato: 1, amp: Pseq([ Pseg([0,0.5], 90), Pn(0.5)]), pitch: [0.5,1], autoPosN: 0.03, autoPosS: 0.01, outBus: ~lpfFXBus1, gpos: Pdup(6, Pxrand([0,0.1,0.3],inf)), bufnum: ~getSmp.("qebrus_machines_snip4") ]).play(quant:4); Pbindef(\playBufHat5, *[ instrument: \playBuf, bufnum: ~getSmp.("Hats079"), legato:1, dur:1/4, amp: 2 * Pseq([1,1/5],inf) * Pwhite(0.3,1), rate: Pwhite(0.95,1.01), ]).play(quant:8); ); ( // start bass Pbindef(\sawp2, \instrument, \softSaw, \dur, 10, \attackTime, 5, \releaseTime,5, \legato,1, \scale, Scale.minor, \note, Pxrand([-4,-2,0,1],inf), \out, ~satBus1, \octave, 3, \amp, 0.9, ).play(quant:4); ) // slow cutoff ~lpfFX1.set(\cutoffLag, 30, \cutoff, 500); // fadout images, 60 sec -------------------------------------// Pbindef(\playBufqebP, *[ brightness: Pseq([Pseg([127, 0],60), Pn(0)]) ]); // stop highhat Pbindef(\playBufHat5).stop; ( // start closing filter Pbindef(\sawp2).stop; ~lpfFX1.set(\cutoffLag, 40, \cutoff, 50); ) ( // stop cutter buf, granulator, off video Pbindef(\playBufqebP).stop; Pbindef(\granPlayP).stop; ~sOsc.("drawPlatesToggle", 0); ) // end credit? ~oscTitles8.value; ~sOsc.("drawPlatesToggle", 0); //////////////////////////////////////////////////////////////////////////////////////// // ENDE //////////////////////////////////////////////////////////////////////////////// //////////////////////////////////////////////////////////////////////////////////////// ////////////////////////////////////////////////////////////////////////////////////////