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> 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, 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) ~chanExpan = [1,1]; // multi channel expansion (just stereo here)
~bpm = 1; // bpm, for now constant, it could drift... ~bpm = 1; // bpm, for now constant, it could drift...
@ -35,7 +44,7 @@
DEFINE SYNTHS AND ADD TO SERVER 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), 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; LFSaw.kr(1.5 * ~bpm) ) * 0.5 * ~chanExpan * gain;
OffsetOut.ar(0, out); }).add; 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 // effects and master out midi control
MIDIdef.cc(\midifXcombWet, { | val | ~fX.set(\combWet, val/177); }, 60 ); // <- controller number 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); var cutoff; cutoff = (exp(val/12)+50).asInt.min(20000);
//post("val:" + val); postln(" cutoff:" + cutoff); //post("val:" + val); postln(" cutoff:" + cutoff);
~fX.set(\lpfCutoff, cutoff); }, 61 ); // <- controller number ~fX.set(\lpfCutoff, cutoff); }, 61 ); // <- controller number