aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Hanspeter Portner <dev@open-music-kontrollers.ch>2014-08-07 08:29:23 +0200
committerGravatar Hanspeter Portner <dev@open-music-kontrollers.ch>2014-08-07 08:29:23 +0200
commit424dd0e4dc3416cc4607f28675b4ff422180c3e5 (patch)
tree6ee1e02b4a874faaf14f6f1e56d721b5c076554e
parent6e81f9300e3e8330b5bbf6716be1d9605054bdd5 (diff)
downloadchimaera_sc-424dd0e4dc3416cc4607f28675b4ff422180c3e5.zip
chimaera_sc-424dd0e4dc3416cc4607f28675b4ff422180c3e5.tar.gz
chimaera_sc-424dd0e4dc3416cc4607f28675b4ff422180c3e5.tar.bz2
chimaera_sc-424dd0e4dc3416cc4607f28675b4ff422180c3e5.tar.xz
add Map class
-rw-r--r--classes/ChimaeraMap.sc107
-rw-r--r--ignore/instruments/2F/pluck_cubic.sc13
2 files changed, 114 insertions, 6 deletions
diff --git a/classes/ChimaeraMap.sc b/classes/ChimaeraMap.sc
new file mode 100644
index 0000000..8141fdd
--- /dev/null
+++ b/classes/ChimaeraMap.sc
@@ -0,0 +1,107 @@
+/*
+ * Copyright (c) 2013 Hanspeter Portner (dev@open-music-kontrollers.ch)
+ *
+ * This software is provided 'as-is', without any express or implied
+ * warranty. In no event will the authors be held liable for any damages
+ * arising from the use of this software.
+ *
+ * Permission is granted to anyone to use this software for any purpose,
+ * including commercial applications, and to alter it and redistribute it
+ * freely, subject to the following restrictions:
+ *
+ * 1. The origin of this software must not be misrepresented; you must not
+ * claim that you wrote the original software. If you use this software
+ * in a product, an acknowledgment in the product documentation would be
+ * appreciated but is not required.
+ *
+ * 2. Altered source versions must be plainly marked as such, and must not be
+ * misrepresented as being the original software.
+ *
+ * 3. This notice may not be removed or altered from any source
+ * distribution.
+ */
+
+ChimaeraMapLinearCPS {
+ *kr { |freq, n=128, oct=2|
+ var bot = oct*12 - 0.5 - (n % 18 / 6);
+ var top = n/3 + bot;
+
+ // linear mapping from [0,1] to MIDI notes
+ freq = LinLin.kr(freq, 0, 1, bot, top);
+
+ // MIDI notes to frequency mapping
+ freq = freq.midicps;
+
+ ^freq;
+ }
+}
+
+ChimaeraMapStepCPS {
+ *kr { |freq, n=128, oct=2|
+ var bot = oct*12 - 0.5 - (n % 18 / 6);
+ var top = n/3 + bot;
+
+ // linear mapping from [0,1] to MIDI notes
+ freq = LinLin.kr(freq, 0, 1, bot, top);
+
+ // binary stepwise mapping
+ freq = freq.round;
+
+ // MIDI notes to frequency mapping
+ freq = freq.midicps;
+
+ ^freq;
+ }
+}
+
+ChimaeraMapPolyStepCPS {
+ *kr { |freq, n=128, oct=2, order=3|
+ var bot = oct*12 - 0.5 - (n % 18 / 6);
+ var top = n/3 + bot;
+
+ var ex = 2 ** ((order-1) / order);
+ var ro, rel, odd, sig;
+
+ // linear mapping from [0,1] to MIDI notes
+ freq = LinLin.kr(freq, 0, 1, bot, top);
+
+ // polynomial stepwise mapping
+ ro = freq.round; // round to whole note
+ rel = freq - ro; // relative difference to next whole note
+ odd = order.mod(2); // is order odd?
+ sig = Select.kr(odd, [
+ InRange.kr(rel, 0, 1) * 2 - 1, // even: is rel negative?
+ 1 // odd:
+ ]);
+ freq = rel * ex ** order * sig + ro;
+
+ // MIDI notes to frequency mapping
+ freq = freq.midicps;
+
+ ^freq;
+ }
+}
+
+ChimaeraMap2ndOrderStepCPS {
+ *kr { |freq, n=128, oct=2|
+ ^ChimaeraMapPolyStepCPS.kr(freq, n:n, oct:oct, order:2);
+ }
+}
+
+ChimaeraMap3rdOrderStepCPS {
+ *kr { |freq, n=128, oct=2|
+ ^ChimaeraMapPolyStepCPS.kr(freq, n:n, oct:oct, order:3);
+ }
+}
+
+ChimaeraMap4thOrderStepCPS {
+ *kr { |freq, n=128, oct=2|
+ ^ChimaeraMapPolyStepCPS.kr(freq, n:n, oct:oct, order:4);
+ }
+}
+
+ChimaeraMap5thOrderStepCPS {
+ *kr { |freq, n=128, oct=2|
+ ^ChimaeraMapPolyStepCPS.kr(freq, n:n, oct:oct, order:5);
+ }
+}
diff --git a/ignore/instruments/2F/pluck_cubic.sc b/ignore/instruments/2F/pluck_cubic.sc
index 59fdeac..84f1022 100644
--- a/ignore/instruments/2F/pluck_cubic.sc
+++ b/ignore/instruments/2F/pluck_cubic.sc
@@ -29,18 +29,19 @@
*/
{|synthname, n|
- var bot = 3*12 - 0.5 - (n % 18 / 6);
- var top = n/3 + bot;
-
SynthDef(synthname, {|freq=0, amp=0, p=0, gate=0, out=0|
var suicide, up=0.1, down=1.0, env, sig, vol, cut;
suicide = DetectSilence.kr(Line.kr(0.1, 0.0, 1.0)+gate, 0.0001, down, doneAction:2);
env = Linen.kr(gate, up, 1.0, down);
- freq = freq * n / 3 + bot;
- freq = freq - freq.round * (2**(2/3)) ** 3 + freq.round;
- freq = freq.midicps;
+ //freq = ChimaeraMapLinearCPS.kr(freq, n:n, oct:2);
+ //freq = ChimaeraMapStepCPS.kr(freq, n:n, oct:2);
+ //freq = ChimaeraMapPolyStepCPS.kr(freq, n:n, oct:2, order:3);
+ //freq = ChimaeraMap2ndOrderStepCPS.kr(freq, n:n, oct:2);
+ freq = ChimaeraMap3rdOrderStepCPS.kr(freq, n:n, oct:2);
+ //freq = ChimaeraMap4thOrderStepCPS.kr(freq, n:n, oct:2);
+ //freq = ChimaeraMap5thOrderStepCPS.kr(freq, n:n, oct:2);
vol = LinExp.kr(amp, 0.0, 1.0, 0.5, 1.0);
sig = Pluck.ar(WhiteNoise.ar(0.1), gate, 1, freq.reciprocal, 10, 0.20);