From fa232b972bb4785be01f804555d04d52095ca6fb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luka=20Prin=C4=8Di=C4=8D?= Date: Tue, 2 May 2023 18:53:11 +0200 Subject: [PATCH] many changes, cleanups... --- scd/lib/05-func.scd | 38 ++ scd/lib/10-osc.scd | 10 +- scd/xenotopic.network.scd | 889 +++++++++++++++++--------------------- scd/xinit.scd | 13 + 4 files changed, 459 insertions(+), 491 deletions(-) diff --git a/scd/lib/05-func.scd b/scd/lib/05-func.scd index 828a6d1..0c956a8 100644 --- a/scd/lib/05-func.scd +++ b/scd/lib/05-func.scd @@ -6,3 +6,41 @@ regexp.matchRegexp(buf.path) } }; + + +// function to (re)launch effect busses +~launchBusses = { + + // feedback delay bus // ----------------------------------------------------------- + ~localfdlyBus.free; ~localfdlyBus = Bus.audio(s, 2); + + ~localFeedFX.free; ~localFeedFX = Synth(\localFeedbackDelay1, [\inBus, ~localfdlyBus, \outBus, 0, \amount, 0.9], addAction:\addToTail); + + // control + //~localFeedFX.set(\amount, 0.9) + + + + // low pass filter // ---------------------------------------------------------------- + ~lpfFXBus1.free; ~lpfFXBus1 = Bus.audio(s, 2); + + ~lpfFX1.free; ~lpfFX1 = Synth(\lpfFX, [\inBus, ~lpfFXBus1, \outBus, ~localfdlyBus, \cutoff, 20000], target: ~localFeedFX, addAction:\addBefore); + + // control + //~lpfFX1.set(\cutoffLag, 2, \cutoff, 50) + //~lpfFX1.set(\cutoffLag, 3, \cutoff, 20000) + + + // reverb fx ---------------------------------------------------------------------------- + ~revFXbus1.free; ~revFXbus1 = Bus.audio(s, 2); + ~reverb1.free; + ~reverb1 = Synth(\revfx, [\inBus, ~revFXbus1, \wet, 1], addAction:\addToTail); + + + // saturation fx ------------------------------------------------------------------------- + ~satBus1.free; ~satBus1 = Bus.audio(s, 2); + ~saturator1.free; ~saturator1 = Synth(\saturator, [\inBus, ~satBus1, \amp, 1], addAction:\addToTail); + + //~saturator1.set(\amp, 1) + //~saturator1.set(\amp, 0) +}; diff --git a/scd/lib/10-osc.scd b/scd/lib/10-osc.scd index b15d56e..a80fbfc 100644 --- a/scd/lib/10-osc.scd +++ b/scd/lib/10-osc.scd @@ -9,7 +9,7 @@ ( ~conOsc = NetAddr.new("localhost", 12000); -//~conOsc = NetAddr.new("roosta.remote", 12000); +//~conOsc = NetAddr.new("roosta.local", 12000); ~sOsc = { // helper function to reduce redundancy arg target, value; target = "/" +/+ target; // +/+ does not add whitespace @@ -84,6 +84,14 @@ ~sOsc.("drawPlatesTexCspeed", 0); ~sOsc.("drawPlatesToggle", 1); }; +~oscTitles8 = { + ~sOsc.("drawPlatesimgCid", 9); + ~sOsc.("drawPlatesimgCbank", 7); + ~sOsc.("drawPlatesimgCblendMode", 7); + ~sOsc.("drawPlatesTexCspeed", 0); + ~sOsc.("drawPlatesToggle", 1); +}; + ); diff --git a/scd/xenotopic.network.scd b/scd/xenotopic.network.scd index 988d070..ea23b0c 100644 --- a/scd/xenotopic.network.scd +++ b/scd/xenotopic.network.scd @@ -1,166 +1,105 @@ -/* - trans.fail / XENO TOPIC . NETWORK -*/ +/* -- trans.fail / XENO TOPIC . NETWORK -- */ -//( -//s.waitForBoot({ - -s.boot; -( -s.meter; +s.boot s.plotTree; -s.scope; -) -// init > + load all libs/ & smp/ +s.meter; +{PinkNoise.ar!2}.play + +// init > + load all libs/ & smp/ this.executeFile(PathName.new(thisProcess.nowExecutingPath).pathOnly +/+ "xinit.scd") -// server latency for Patterns? -s.latency = 0.05; // nujno za video! +// (re)launch busses +~launchBusses.() -// init tempo -TempoClock.default.tempo = 120/120; - -///////////////////////////////////////////////////////////////////////////////////////// -// BUSSES - -( -// feedback delay bus // ----------------------------------------------------------- -~localfdlyBus.free; ~localfdlyBus = Bus.audio(s, 2); - -~localFeedFX.free; ~localFeedFX = Synth(\localFeedbackDelay1, [\inBus, ~localfdlyBus, \outBus, 0, \amount, 0.9], addAction:\addToTail); - -// control -//~localFeedFX.set(\amount, 0.9) +// test video plate +~sOsc.("testPictureToggle", 1); +~sOsc.("testPictureToggle", 0); +( // INTRO TITLES +fork { + // strobe warning + "... strobe warning title".postln; + ~oscTitles0a.value; + 8.wait; -// low pass filter // ---------------------------------------------------------------- -~lpfFXBus1.free; ~lpfFXBus1 = Bus.audio(s, 2); + ~sOsc.("drawPlatesToggle", 0); + 2.wait; -~lpfFX1.free; ~lpfFX1 = Synth(\lpfFX, [\inBus, ~lpfFXBus1, \outBus, ~localfdlyBus, \cutoff, 20000], target: ~localFeedFX, addAction:\addBefore); + // title + "... title: trans.fail".postln; +// + ~oscTitles0b.value; + 6.wait; -// control -//~lpfFX1.set(\cutoffLag, 2, \cutoff, 50) -//~lpfFX1.set(\cutoffLag, 30, \cutoff, 20000) + ~sOsc.("drawPlatesToggle", 0); + 3.wait; + // ZERO TITLE1 + ~oscTitles1.value; + 5.wait; -// reverb fx ---------------------------------------------------------------------------- -~revFXbus1.free; ~revFXbus1 = Bus.audio(s, 2); -~reverb1.free; -~reverb1 = Synth(\revfx, [\inBus, ~revFXbus1, \wet, 1], addAction:\addToTail); + ~sOsc.("drawPlatesToggle", 0); -// saturation fx ------------------------------------------------------------------------- -~satBus1.free; ~satBus1 = Bus.audio(s, 2); -~saturator1.free; ~saturator1 = Synth(\saturator, [\inBus, ~satBus1, \amp, 1], addAction:\addToTail); + // init for zero + ~sOsc.("drawPlatesimgAbank", 3); + ~sOsc.("drawPlatesimgBbank", 3); + ~sOsc.("drawPlatesimgCbank", 3); + ~sOsc.("drawPlatesimgBblendMode", 2); + ~sOsc.("drawPlatesimgCblendMode", 3); + ~sOsc.("drawImageBlenderToggle", 0); -//~saturator1.set(\amp, 1) -//~saturator1.set(\amp, 0) + ~platesSpeedRandRange = 0; + "--- ready for next.".postln; +} ) - - -///////////////////////////////////////////////////////////////////////////////////////////// -////////////////////////////////////////////////////////////////////////////////////////////// -// processing control / init - -~sOsc.value("playVideoToggle", 1); -~sOsc.value("playVideoToggle", 0); - -~sOsc.("drawPlatesimgAid", 15); - -~sOsc.("drawPlatesToggle", 0); - -~sOsc.value("drawTilesToggle", 1); -~sOsc.value("drawTilesToggle", 0); - -~sOsc.value("drawImageBlenderToggle", 1); -~sOsc.value("drawImageBlenderToggle", 0); - - -osc: Pfunc { |e| - ~sOsc.value("drawFlylinesflyBrightRotation", e.brot); - ~sOsc.value("drawFlylinesLineLength", e.linlen); - // ~sOsc.value("drawFlylinesflyDirection", e.dir); -}; - - - - - - -// strobe warning -~oscTitles0a.value -~sOsc.("drawPlatesToggle", 0); - -// title -~oscTitles0b.value -~sOsc.("drawPlatesToggle", 0); - - - - - // ZERO ///////////////////////////////////////////////////////////////////////////////////// -/////////////////////////////////////////////////////////////////////////////////////////////// -// qebrus 1 /////////////////////////////////////////////////////////////////////////////////// - -// ZERO TITLE1 -~oscTitles1.value -~sOsc.("drawPlatesToggle", 0); - -( -~zeroVinit = { -~sOsc.("drawPlatesToggle", 1); -~sOsc.("drawPlatesimgAbank", 3); -~sOsc.("drawPlatesimgBbank", 3); -~sOsc.("drawPlatesimgCbank", 3); -~sOsc.("drawPlatesimgBblendMode", 2); -~sOsc.("drawPlatesimgCblendMode", 3); - -}; -~zeroVinit.value; -) - - ( Pbindef(\playBufP, *[ instrument: \playBuf, + //Pbindef(\playBufP).clear bufnum: ~getSmp.("qebrus_machines_snip1"), - dur: Pxrand([1,1/2,1/2,1/4,Pn(1/8,2)],inf) * 1/2, + 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), + amp: Pwhite(0.5,0.6) * 0.6, rate: Pwhite(0.99,1), start: Pseq([ - Pn(0.1, 200), - Pwhite(0.05,0.15,100), - Pwhite(0.05,0.25,100), - Pwhite(0.05,0.35,100), - Pwhite(0.05,0.55,100), - Pwhite(0.05,0.85,100), - Pwhite(0.05,0.95,100), - Pn(0.89,79), - Pn(0.88,79), - Pn(0.89,79), - Pn(0.1, 100), - Pwhite(0.05,0.95,100), - Pn(0.1, 100), - Pwhite(0.05,0.95,100), - Pn(0.88,79), - Pn(0.1, 100), - Pwhite(0.05,0.95,100), - Pn(0.1, 100), - Pwhite(0.05,0.95,100), - Pn(0.88,79), - ], inf), + + Pn(0.1, 48*2), + Pdup(24,Pseries(0.11,0.01,12)), + 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((0..11)+5*0.01+0.78,4),1), + Pn(0.88, 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.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", 0.rand); - ~sOsc.("drawPlatesTexBspeed", 0.rand); - ~sOsc.("drawPlatesTexCspeed", 0.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); @@ -169,101 +108,110 @@ Pbindef(\playBufP, *[ instrument: \playBuf, ]).play(quant:4); -( -~platesSpeedRandRange = 0; -Pbindef(\playBufP, *[ instrument: \playBuf, - osc: Pfunc { |e| - ~sOsc.("drawPlatesimgAid", 45.rand); - ~sOsc.("drawPlatesimgBid", 45.rand); - ~sOsc.("drawPlatesimgCid", 45.rand); - ~sOsc.("drawPlatesTexAspeed", ~platesSpeedRandRange.rand); - ~sOsc.("drawPlatesTexBspeed", ~platesSpeedRandRange.rand); - ~sOsc.("drawPlatesTexCspeed", ~platesSpeedRandRange.rand); - ~sOsc.("drawPlatesTexAdirection", 127.rand); - ~sOsc.("drawPlatesTexBdirection", 127.rand); - ~sOsc.("drawPlatesTexCdirection", 127.rand); - }; -]) -); - Pbindef(\playBufBleep, *[ instrument: \playBuf, bufnum: ~getSmp.("Bleeps007"), legato:1, - dur:Pseq([1/4,Pn(3,7)],inf), + 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([1/4,Pn(1.5,7)],inf) * 1/2, - amp:0.2, + dur:Pseq([ + Rest(64), + 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([Pn(1/4,6),Pn(1/8,3)],inf), - dur:1/4, - amp: 3 * Pseq([1,1/5],inf) * Pwhite(0.3,1), - rate: Pwhite(0.95,1.01) -]); + dur: Pseq([ + Rest(32), + Pn(1/4), + ]), + amp: 3 * 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], + dur: + Pseq([ + Rest(48), + 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) + ],inf) + ]) + +]).play(quant:4); + + + + ); - +// +// granulator? pad? Pbindef(\playBufBleep).play(quant:4); Pbindef(\playBufBleep2).play(quant:4); Pbindef(\playBufHat).play(quant:4); -~platesSpeedRandRange = 10; -~platesSpeedRandRange = 20; -~platesSpeedRandRange = 30; +~platesSpeedRandRange = 3; +~platesSpeedRandRange = 9; ~platesSpeedRandRange = 30; +~platesSpeedRandRange = 40; ~platesSpeedRandRange = 70; +Pbindef(\playBufP).stop; + +///////////////////////////////////////////////////////////////////////////////////////// +// INTERRUPT! ( -Pbindef(\playBufP).stop; +// stop ZERO Pbindef(\playBufBleep).stop; Pbindef(\playBufBleep2).stop; Pbindef(\playBufHat).stop; -~sOsc.("drawPlatesToggle", 0); - +Pbindef(\playBufKickP).stop; ) -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// - - - - - -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -// INTERRUPT! -// somanymen granulation 1 - - -// title2 INTERRUPT -~oscTitles2.value +// ~sOsc.("drawPlatesToggle", 0); -( -~drawImageBlenderInit.value; -~zeroVinit = { +fork { + 4.wait; + ~oscTitles2.value; + 5.wait; + ~sOsc.("drawPlatesToggle", 0); + ~sOsc.("drawImageBlenderBank", 0 ); ~sOsc.("drawImageBlenderID", 1); ~sOsc.("iblNum", 10); //{ iblNum = int(oscVal2) ; } // 6 @@ -293,13 +241,7 @@ Pbindef(\playBufHat).stop; }; -~zeroVinit.value; -~sOsc.("drawImageBlenderToggle", 1); -) - -( -TempoClock.default.tempo = 120/120; - +// start interrup granulation Pbindef(\granPlayP, *[ instrument: \granPlay, dur: 16, @@ -314,8 +256,9 @@ Pbindef(\granPlayP, *[ ~getSmp.("somanymen_1"), ~getSmp.("somanymen_2") ],inf) -]); +]).play(quant:4); +// prep other patterns Pbindef(\playBufErr1, *[ instrument: \playBuf, bufnum: Pdup(3, Prand([ @@ -331,7 +274,10 @@ Pbindef(\playBufErr1, *[ instrument: \playBuf, legato:1, dur:12, amp:0.7, - rate:1 + rate:1, + osc: Pfunc { |e| + ~sOsc.("drawImageBlenderToggle", 1); + } ]); Pbindef(\playBufErr2, *[ instrument: \playBuf, @@ -346,7 +292,6 @@ Pbindef(\playBufErr2, *[ instrument: \playBuf, ~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, *[ @@ -360,41 +305,45 @@ Pbindef(\harpsiPingP, *[ osc: Pfunc { |e| ~sOsc.("iblItRot", 10.rand+10); //{ iblItRot = radians(oscVal2) ; } // 33 } - ]); ) -Pbindef(\granPlayP).play(quant:4); - -Pbindef(\playBufErr1).play(quant:4); +// --------------------------------------------------------- +Pbindef(\playBufErr1).play(quant:4); // first noise, image on, +( // fast enought start harpPing and bassnoise! Pbindef(\harpsiPingP).play(quant:4); -// bass: Pbindef(\playBufErr2).play(quant:4); +) -( +// ----------------------------------------------------------- +( // 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); ) -~sOsc.("drawImageBlenderToggle", 0); +( // -------------------------------------------- +fork { + ~sOsc.("drawImageBlenderToggle", 0); + 2.wait; + ~oscTitles3.value; + 5.wait; + ~sOsc.("drawPlatesToggle", 0); -//////////////////////////////////////////////////////////////////////////////////////////////////// -//////////////////////////////////////////////////////////////////////////////////////////////////// - -// TRAP // - - -// title3 TRAP -~oscTitles3.value -~sOsc.("drawPlatesToggle", 0); - -// init -( + // init TRAP video ~sOsc.("drawImageBlenderBank", 2 ); ~sOsc.("drawImageBlenderID", 18); ~sOsc.("iblNum", 20); //{ iblNum = int(oscVal2) ; } // 6 @@ -421,26 +370,12 @@ Pbindef(\harpsiPingP).stop; ~sOsc.("iblItTexX", 40); //{ iblItTexX = oscVal2 * 4 ; } // 31 ~sOsc.("iblItTexY", 127 ); //{ iblItTexY = oscVal2 * 4; } // 32 ~sOsc.("iblItRot", 0); //{ iblItRot = radians(oscVal2) ; } // 33 +} ) +// TRAP // - -( -Pbindef(\akjDisChordp, *[ - instrument: \akjDisChord, - freq:300, - dur: 16, - legato: 1.3, - amp: 0.8, - out: 0 -]).play(quant:4); -) - - - - -( - +( // start glitches and highhats ------------------------------------ Pbindef(\playBufBd1, *[ instrument: \playBuf, bufnum: Prand([ ~getSmp.("loop9"), @@ -458,11 +393,8 @@ Pbindef(\playBufBd1, *[ instrument: \playBuf, ~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([ @@ -477,14 +409,14 @@ Pbindef(\akjClickp, *[ Prand([ Rest(1.25), Pn(1/4, 5) ]), Prand([ Pn(1/8, 3), Pn(1/16, 6) ]), Rest(1/8), ],inf), - amp: 9/20, + amp: 8/20, releaseTime: 0.3, freq:1, out: 0 ]).play(quant:4); ) -( +( // add bass -------------------------------- / Pbindef(\akjBazp, *[ instrument: \akjBaz, freq: 300, @@ -500,7 +432,7 @@ Pbindef(\akjBazp, *[ ]).play(quant:4); ) -( +( // start granulated noises ------------------------------- / Pbindef(\granGlitcho, *[ instrument: \granPlay, dur: 4, @@ -516,83 +448,59 @@ Pbindef(\granGlitcho, *[ ]).play(quant:4); ) - - - Pbindef(\akjDisChordp).stop + Pbindef(\granGlitcho).stop -( -Pbindef(\playBufBd1).stop; -Pbindef(\akjClickp).stop; -Pbindef(\akjBazp).stop; -~sOsc.("drawImageBlenderToggle", 0); + + +( // start PARITY title, stop noises,click and bass ------------------- / +fork { + + // 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); + + +} ) - - -//////////////////////////////////////////////////////////////////////////////////////////////////// -//////////////////////////////////////////////////////////////////////////////////////////////////// -//////////////////////////////////////////////////////////////////////////////////////////////////// -//////////////////////////////////////////////////////////////////////////////////////////////////// -// PARITY ///////////////////////////////////////////////////////////////////////////////////////// - - -// title4 PARITY -~oscTitles4.value -~sOsc.("drawPlatesToggle", 0); - -( // init video -~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); -) - -Pbindef(\granPlayPMARO).clear - -( -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; - -) - - -Pbindef(\granPlayPMARO).stop -( -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("playVideoHue", 127.rand ); //) { playVideoHue = int(oscVal2); } // 44 - ~sOsc.value("playVideoSaturation", 64+64.rand ); //) { playVideoSaturation = int(oscVal2); } // 44 - } -]).play(quant:4); -); -Pbindef(\playBufHatM).clear - -( +( // start noise and clicks + video cuts ------------------------------------// Pbindef(\noise, *[ instrument: \noise, dur:10, @@ -605,11 +513,24 @@ Pbindef(\noise, *[ ~sOsc.value("playVideoJump", e.videojump); } -]).play(quant:4) +]).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); ) -Pbindef(\noise).clear - +// start deep sub --------------------------------------------------// Ndef(\subwob2).fadeTime = 10; ( Ndef(\subwob2, { @@ -618,41 +539,44 @@ Ndef(\subwob2, { 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.2 * 1.3; + 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; + +( // stop noises, granulation and sub ----------------------------------/ Ndef(\subwob2).release; +Pbindef(\playBufHatM).stop; +Pbindef(\noise).stop; +Pbindef(\granPlayPMARO).stop; +) -Pbindef(\playBufHatM).stop -Pbindef(\noise).stop -Pbindef(\granPlayPMARO).stop -// pause + +(// stop video ----------------------------------------------/ ~sOsc.value("playVideoPausePlay", 0 ); - // cut to black ~sOsc.value("playVideoToggle", 0); +) -//////////////////////////////////////////////////////////////////////////////////////////////////// -//////////////////////////////////////////////////////////////////////////////////////////////////// -//////////////////////////////////////////////////////////////////////////////////////////////////// -// ADJUST ///////////////////////////////////////////////////////////////////////////////////////// -//////////////////////////////////////////////////////////////////////////////////////////////////// +// 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); -// title5 ADJUST -~oscTitles5.value -~sOsc.("drawPlatesToggle", 0); - -( - ~sOsc.("drawImageBlenderBank", 4 ); + ~sOsc.("drawImageBlenderBank", 4 ); ~sOsc.("drawImageBlenderID", 4); - ~sOsc.("iblNum", 3); //{ iblNum = int(oscVal2) ; } // 6 + ~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", 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.("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 @@ -671,18 +595,17 @@ Pbindef(\granPlayPMARO).stop ~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", 50); //{ iblItRot = radians(oscVal2) ; } // 33 - + ~sOsc.("iblItRot", 128); //{ iblItRot = radians(oscVal2) ; } // 33 +}; ) -// ~sOsc.("drawImageBlenderToggle", 1); - -( +// ADJUST // +( // start noise ---------------------------------------// Pbindef(\lcmnoip, \instrument, \lcmnoise, \dur, 8, - \amp, 0.6, + \amp, 0.3, \amp1, 0.1, //Pseq([1,0.1],inf), \amp2, 3, //Pseq([0.6,1],inf), \legato, 1, @@ -691,17 +614,15 @@ Pbindef(\lcmnoip, \osc, Pfunc { |e| ~sOsc.("drawImageBlenderToggle", 1); ~sOsc.("drawImageBlenderID", 29.rand); - ~sOsc.("iblTexSpeedXfactor", 10.rand+60 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22 - ~sOsc.("iblTexSpeedYfactor", 10.rand+60 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23 + ~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 + // } - ).play(quant:4) ) -Pbindef(\lcmnoip).stop - - -( +( // add second layer of noise -------------------------------------------// Pbindef(\playBufGlitch1, *[ instrument: \playBuf, @@ -715,69 +636,19 @@ Pbindef(\playBufGlitch1, dur:8, start:Pwhite(0.0,0.4), rate: [0.5,0.7,1], - amp: 0.5, + 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; -~sOsc.("drawImageBlenderToggle", 0); -) - -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -// CARRY (or PARITY?) - - -// title6 CARRY -~oscTitles6.value -~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", 80 ); //{ 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 - - -) - - - - - - -Pbindef(\sawp0).clear - -( Pbindef(\sawp0, \instrument, \softSaw, \dur, 10, @@ -797,17 +668,48 @@ Pbindef(\sawp0, \out, 0 ).play(quant:4); ) + ( -Pbindef(\playBufHat2, *[ instrument: \playBuf, - bufnum: ~getSmp.("Hats076"), - 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) -]).play(quant:4); -); -( +~sOsc.("drawImageBlenderToggle", 0); + +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 +}; +) + +// CARRY ( + +( // start images and bleeps --------------------------------------------------------// Pbindef(\playBufBleep2, *[ instrument: \playBuf, bufnum: ~getSmp.("Bleeps007"), legato:1, @@ -818,53 +720,73 @@ Pbindef(\playBufBleep2, *[ instrument: \playBuf, ~sOsc.("drawImageBlenderToggle", 1); ~sOsc.("drawImageBlenderID", 41.rand); ~sOsc.("iblTexSpeedXfactor", 30.rand+55 ); //{ iblTexSpeedXfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 22 - ~sOsc.("iblTexSpeedYfactor", 20.rand+55 ); //{ iblTexSpeedYfactor = ((oscVal2-64) * abs(oscVal2-64) * 0.6) ; } // 23 - ~sOsc.("iblItTexX", 20.rand+60); //{ iblItTexX = oscVal2 * 4 ; } // 31 - ~sOsc.("iblItTexY", 20.rand+60 ); //{ iblItTexY = oscVal2 * 4; } // 32 + ~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: 1 * Pseq([1,1/5],inf) * Pwhite(0.3,1), + rate: Pwhite(0.95,1.01) +]).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:0.08, - rate: 1 + rate: 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 ---------------------------------------// Pbindef(\playBufGlitch4, *[ instrument: \playBuf, bufnum: ~getSmp.("Misc106"), legato:0.3, - dur:32, + dur:16, amp:0.2, - rate: 1 + rate: 1, + rotation: Pseq([0,1], inf), + osc: Pfunc { |e| + ~sOsc.("iblItRot", e.rotation); + ~sOsc.("iblRot", 15.rand + 53 ); + } ]).play(quant:4); ) + + + +// stop the sawPAD ------------------------------------------------// Pbindef(\sawp0).stop; -( + +( // stop verything, start OVERFLOW title, init images Pbindef(\playBufHat2).stop; Pbindef(\playBufBleep2).stop; Pbindef(\playBufBleep3).stop; Pbindef(\playBufGlitch4).stop; ~sOsc.("drawImageBlenderToggle", 0); -) -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -// OVERFLOW -// title7 OVERFLOW -~oscTitles7.value -~sOsc.("drawPlatesToggle", 0); +fork { + 4.wait; + // title7 OVERFLOW + ~oscTitles7.value; + 5.wait; + ~sOsc.("drawPlatesToggle", 0); - -( -~zeroVinit = { ~sOsc.("drawPlatesToggle", 0); ~sOsc.("drawPlatesimgAbank", 5); ~sOsc.("drawPlatesimgBbank", 5); @@ -874,20 +796,19 @@ Pbindef(\playBufGlitch4).stop; ~sOsc.("drawPlatesTexAspeed", 0); ~sOsc.("drawPlatesTexBspeed", 0); ~sOsc.("drawPlatesTexCspeed", 0); -}; -~platesSpeedRandRange = 0; - -~zeroVinit.value; +} ) -( +( // start the cutter and images ! -----------------------------------------// Pbindef(\playBufqebP, *[ instrument: \playBuf, bufnum: ~getSmp.("qebrus_machines_snip4"), - dur: Pxrand([1,1/2,1/2,1/4,Pn(1/8,2)],inf) * 1/2, + 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: 120, + hpff: 100, start: Pseq([ Pn(0, 60), @@ -905,39 +826,36 @@ Pbindef(\playBufqebP, *[ instrument: \playBuf, 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", ~platesSpeedRandRange.rand); - ~sOsc.("drawPlatesTexBspeed", ~platesSpeedRandRange.rand); - ~sOsc.("drawPlatesTexCspeed", ~platesSpeedRandRange.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); ) -~platesSpeedRandRange = 5; -~platesSpeedRandRange = 10; -~platesSpeedRandRange = 15; -~platesSpeedRandRange = 20; -~platesSpeedRandRange = 30; -~platesSpeedRandRange = 40; -~platesSpeedRandRange = 50; - - - -( +( // start fade in granular, + highhats ------------------------------------// Pbindef(\granPlayP, *[ instrument: \granPlay, dur: 4, legato: 1, - amp: 0.5, + amp: Pseq([ Pseg([0,0.5], 90), Pn(0.5)]), pitch: [0.5,1], autoPosN: 0.03, autoPosS: 0.01, @@ -945,19 +863,17 @@ Pbindef(\granPlayP, *[ 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: 4 * 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), -]).play(quant:4); +]).play(quant:8); ); -( +( // start bass Pbindef(\sawp2, \instrument, \softSaw, \dur, 10, @@ -966,49 +882,42 @@ Pbindef(\sawp2, \legato,1, \scale, Scale.minor, \note, Pxrand([-4,-2,0,1],inf), - //\out, 0 - //\out, ~lpfFXBus1, \out, ~satBus1, - \octave, [3,4,5], - \octave, [3,4], - \octave, [3], - \amp, [1,0.5,0.2,0.1] * 0.6, + \octave, 3, + \amp, 0.9, ).play(quant:4); ) +~lpfFX1.set(\cutoffLag, 1, \cutoff, 800); + +// fadout images, 60 sec -------------------------------------// +Pbindef(\playBufqebP, *[ brightness: Pseq([Pseg([127, 0],60), Pn(0)]) ]); + +// stop highhat Pbindef(\playBufHat5).stop; -~platesSpeedRandRange = 2; -Pbindef(\playBufqebP).stop; - -( +( // start closing filter Pbindef(\sawp2).stop; -~lpfFX1.set(\cutoffLag, 30, \cutoff, 50); +~lpfFX1.set(\cutoffLag, 40, \cutoff, 50); ) +( // stop cutter buf, granulator, off video +Pbindef(\playBufqebP).stop; Pbindef(\granPlayP).stop; - ~sOsc.("drawPlatesToggle", 0); - -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// - -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// - -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// - -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// -///////////////////////////////////////////////////////////////////////////////////////// +~sOsc.("drawPlatesToggle", 0); +) +// end credit? +~oscTitles8.value; +~sOsc.("drawPlatesToggle", 0); +//////////////////////////////////////////////////////////////////////////////////////// +// ENDE //////////////////////////////////////////////////////////////////////////////// +//////////////////////////////////////////////////////////////////////////////////////// +//////////////////////////////////////////////////////////////////////////////////////// \ No newline at end of file diff --git a/scd/xinit.scd b/scd/xinit.scd index e59495e..4d72b78 100644 --- a/scd/xinit.scd +++ b/scd/xinit.scd @@ -35,5 +35,18 @@ s.freeAllBuffers; // free all buffers now! ~bfrList.add(Buffer.readChannel(s, item.fullPath, channels:[0])); // [0] forces mono! }); +" \n\n".postln; + +"~~~ setting server latency to 0.05".postln; +// server latency for Patterns? +s.latency = 0.05; // nujno za video! + +"~~~ setting defaut tempo to 120/120".postln; +// init tempo +TempoClock.default.tempo = 120/120; + "... done.\n\n".postln; + + + "";