luka
/
4K-BPM-SCLork
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

added effects, minor fixes

master
Nova deViator 2015-04-03 19:42:38 +02:00
parent 6353d120fb
commit 363e03ebac
1 changed files with 29 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
4K_BPM_SCLOrk.scd
View File

@ -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 <nova@deviator.si>
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