add multichannel compression abstraction

svn path=/trunk/externals/nusmuk/; revision=17412

2 files changed, 132 insertions, 0 deletions

diff --git a/nusmuk-audio/compress_limit_sidechain~-help.pd b/nusmuk-audio/compress_limit_sidechain~-help.pd
new file mode 100644
index 0000000..43b15b3
--- /dev/null
+++ b/nusmuk-audio/compress_limit_sidechain~-help.pd
@@ -0,0 +1,62 @@
+#N canvas 573 156 913 451 10;
+#X declare -path ../puremapping;
+#X declare -path ../puremapping;
+#X declare -path ../puremapping;
+#X obj 55 306 compress_limit_sidechain~;
+#X obj 56 63 noise~;
+#X obj 146 383 dac~;
+#X obj 56 85 *~ 0.01;
+#X obj 252 94 mtof;
+#X obj 252 28 metro 1000;
+#X obj 252 71 makenote 60 200;
+#X msg 252 50 64;
+#X obj 252 198 *~, f 8;
+#X obj 340 167 line~;
+#X obj 340 97 sel 0;
+#X msg 340 137 0 200;
+#X msg 380 136 1 30;
+#X obj 252 7 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 252 228 *~ 0.3, f 8;
+#X obj 248 367 s sidechain01;
+#X obj 266 266 r sidechain01;
+#X obj 252 116 saw~;
+#X floatatom 317 228 5 0 0 0 - - -, f 5;
+#X obj 246 306 compress_limit_sidechain~;
+#X text 471 104 with [compress_limit_sidechain~] you can link the dynamic
+processing of several audio stream.;
+#X text 472 146 the right outlet outputs the incomming signal amplitude
+while the right inlet expect the control amplitude.;
+#X obj 476 195 compress_limit_sidechain~;
+#X obj 634 195 f;
+#X obj 764 197 compress_limit~;
+#X text 658 195 is equivalent to;
+#X text 503 231 with this \, you can link dynamic compression on several
+channel.;
+#X text 501 266 This example shows a stereo compression effect.;
+#X connect 0 0 2 0;
+#X connect 0 1 15 0;
+#X connect 1 0 3 0;
+#X connect 3 0 0 0;
+#X connect 3 0 19 0;
+#X connect 4 0 17 0;
+#X connect 5 0 7 0;
+#X connect 6 0 4 0;
+#X connect 6 1 10 0;
+#X connect 7 0 6 0;
+#X connect 8 0 14 0;
+#X connect 9 0 8 1;
+#X connect 10 0 11 0;
+#X connect 10 1 12 0;
+#X connect 11 0 9 0;
+#X connect 12 0 9 0;
+#X connect 13 0 5 0;
+#X connect 14 0 19 0;
+#X connect 16 0 0 1;
+#X connect 16 0 19 1;
+#X connect 17 0 8 0;
+#X connect 18 0 14 1;
+#X connect 19 0 2 1;
+#X connect 19 1 15 0;
+#X connect 22 1 23 0;
+#X connect 23 0 22 1;
diff --git a/nusmuk-audio/compress_limit_sidechain~.pd b/nusmuk-audio/compress_limit_sidechain~.pd
new file mode 100644
index 0000000..5c0633c
--- /dev/null
+++ b/nusmuk-audio/compress_limit_sidechain~.pd
@@ -0,0 +1,70 @@
+#N canvas 514 427 571 550 10;
+#X declare -path ../puremapping;
+#X obj 23 14 inlet~;
+#X obj 24 373 /~;
+#X obj 24 442 outlet~;
+#X obj 323 279 dbtorms;
+#X obj 323 258 + 3;
+#X obj 323 303 + 0.1;
+#X obj 323 350 moses 1;
+#X obj 323 420 f;
+#X obj 323 396 + 0.5;
+#X obj 323 373 * 0.5;
+#X obj 234 82 env~ 128 64;
+#X obj 323 325 env+ 11;
+#X obj 323 467 line~;
+#X obj 335 83 env~ 1024 128;
+#X obj 234 102 max;
+#X msg 323 444 \$1 4;
+#X obj 24 324 / 44100;
+#X msg 24 296 128;
+#X obj 23 79 delwrite~ \$0-delay 3;
+#X text 370 422 change this curve if you wish;
+#X obj 282 37 declare -path ../puremapping;
+#X obj 361 171 bang~;
+#X msg 361 193 0;
+#X obj 323 215 max;
+#X obj 323 237 f;
+#X obj 24 232 samplerate~;
+#X obj 234 123 t f f;
+#X obj 24 167 r pd;
+#X obj 24 189 route dsp;
+#X obj 24 211 sel 1;
+#X obj 24 254 t b f;
+#X obj 24 347 delread~ \$0-delay;
+#X obj 234 143 outlet;
+#X obj 323 193 inlet;
+#X connect 0 0 10 0;
+#X connect 0 0 13 0;
+#X connect 0 0 18 0;
+#X connect 1 0 2 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 0;
+#X connect 5 0 11 0;
+#X connect 6 0 9 0;
+#X connect 6 1 7 0;
+#X connect 7 0 15 0;
+#X connect 8 0 7 0;
+#X connect 9 0 8 0;
+#X connect 10 0 14 0;
+#X connect 11 0 6 0;
+#X connect 12 0 1 1;
+#X connect 13 0 14 1;
+#X connect 14 0 26 0;
+#X connect 15 0 12 0;
+#X connect 16 0 31 0;
+#X connect 17 0 16 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 1;
+#X connect 23 0 24 0;
+#X connect 24 0 23 1;
+#X connect 24 0 4 0;
+#X connect 25 0 30 0;
+#X connect 26 0 32 0;
+#X connect 27 0 28 0;
+#X connect 28 0 29 0;
+#X connect 29 0 25 0;
+#X connect 30 0 17 0;
+#X connect 30 1 16 1;
+#X connect 31 0 1 0;
+#X connect 33 0 23 0;