From 363e03ebace83d75e6af88aa04a4ea538dc46403 Mon Sep 17 00:00:00 2001 From: Nova deViator Date: Fri, 3 Apr 2015 19:42:38 +0200 Subject: [PATCH] added effects, minor fixes --- 4K_BPM_SCLOrk.scd | 49 ++++++++++++++++++++++++++++------------------- 1 file changed, 29 insertions(+), 20 deletions(-) diff --git a/4K_BPM_SCLOrk.scd b/4K_BPM_SCLOrk.scd index 767e854..c4974e6 100644 --- a/4K_BPM_SCLOrk.scd +++ b/4K_BPM_SCLOrk.scd @@ -1,28 +1,37 @@ -( /* - _____ ____ __. /\ ____________________ _____ - / | || |/ _| / / \______ \______ \/ \ - / | || < / / | | _/| ___/ \ / \ -/ ^ / | \ / / | | \| | / Y \ -\____ ||____|__ \ / / |______ /|____| \____|__ / - |__| \/ \/ \/ \/ - __________________ .____ ________ __ - / _____/\_ ___ \| | \_____ \_______| | __ - \_____ \ / \ \/| | / | \_ __ \ |/ / - / \\ \___| |___/ | \ | \/ < -/_______ / \______ /_______ \_______ /__| |__|_ \ - \/ \/ \/ \/ \/ - v150403 -"4K/BPM" - for SCLOrk +/* ************************************************************************* + _____ ____ __. /\ ____________________ _____ + / | || |/ _| / / \______ \______ \/ \ + / | || < / / | | _/| ___/ \ / \ + / ^ / | \ / / | | \| | / Y \ + \____ ||____|__ \ / / |______ /|____| \____|__ / + |__| \/ \/ \/ \/ + __________________ .____ ________ __ + / _____/\_ ___ \| | \_____ \_______| | __ + \_____ \ / \ \/| | / | \_ __ \ |/ / + / \\ \___| |___/ | \ | \/ < + /_______ / \______ /_______ \_______ /__| |__|_ \ + \/ \/ \/ \/ \/ + v150403 + +"4K/BPM SCLOrk" for Santa Clara University Laptop Orchestra by Luka Prinčič / Nova deViator + thanks to Bruno Ruviaro + + adapted from 4K/BPM Sonoretum patch, released and + installed at Sonoretum project / Kapelica Gallery, Ljubljana + thanks to Marko Košnik, Sandra Sajovic and Jurij Krpan released under GNU GPL. feel free to copy, reuse, remix, - provided that you share under same conditions: GNU GPL. */ + provided that you share under same conditions: GNU GPL. + +***************************************************************************** */ + +( - -// HERE BE SOME FUNKY VARIABLES // +// HERE BE SOME FUNKY VARIABLES /////////////////////////////////////// ~chanExpan = [1,1]; // multi channel expansion (just stereo here) ~bpm = 1; // bpm, for now constant, it could drift... @@ -35,7 +44,7 @@ DEFINE SYNTHS AND ADD TO SERVER ******************************* */ -SynthDef(\kindaBass, { | out=0, gain=0.1 | +SynthDef(\kindaBass, { | out=0, gain=0 | out = SinOsc.ar( ((LFSaw.kr(-0.05,1) + 1) * 100 + 40 ), LFTri.kr(40,0,1), LFSaw.kr(1.5 * ~bpm) ) * 0.5 * ~chanExpan * gain; OffsetOut.ar(0, out); }).add; @@ -214,7 +223,7 @@ MIDIdef.cc(\midipulseVerb, { | val | ~pulseVerb.set(\gain, val/127); }, 18 ); // effects and master out midi control MIDIdef.cc(\midifXcombWet, { | val | ~fX.set(\combWet, val/177); }, 60 ); // <- controller number -MIDIdef.cc(\midifXlpfCutoff, { | val | +MIDIdef.cc(\midifXlpfCutoff, { | val | var cutoff; cutoff = (exp(val/12)+50).asInt.min(20000); //post("val:" + val); postln(" cutoff:" + cutoff); ~fX.set(\lpfCutoff, cutoff); }, 61 ); // <- controller number