[PD] Natural Log Compression?

Sun Dec 7 22:03:07 CET 2014

I just realised I totally forgot to attach the patches...

On 7 December 2014 at 10:21, Stephan Horvath <horvaths95 at gmail.com> wrote:

> Hello,
>
> I'm building my own compressor and I've been analysing patches I've found
> but I can't figure out a part of this one.
>
> If you open the patch [st-compressor], then open the [pd workings]
> subpatch and then the [pd rh_scalelog] subpatch, I can't figure out why
> 'Roman H' is using natural log for ratio, attack and release. I must be
> missing something because on another patch [tb_compressor~], all it uses
> for the ratio is
>
> [ratio(
> |
> [swap 1]
> |   /
> [/ ]
> |
> [s $0-ratio]
>
> This is obviously calculating the inverse of the ratio, which has a 0-100
> range.
>
> I would really like to know what is the idea behind Roman's rh_scalelog.
>
> Thanks
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.puredata.info/pipermail/pd-list/attachments/20141207/aa49ce4e/attachment-0001.html>
-------------- next part --------------
#N canvas 242 45 956 333 10;
#X obj 641 194 loadbang;
#N canvas 0 22 774 606 rgb 0;
#X obj 296 207 * 256;
#X obj 344 180 * 256;
#X obj 346 201 * 256;
#X obj 312 270 +;
#X obj 298 228 t b f;
#X obj 312 293 +;
#X obj 346 223 t b f;
#X obj 252 186 int;
#X msg 263 68 0;
#X obj 252 163 * -1;
#X obj 296 162 * -1;
#X obj 343 158 * -1;
#X obj 103 123 vsl 10 40 1 255 0 0 ertteetyeyterttretretrrtrtrtrtrt
hhghghghghghghgggggh empty 0 -8 0 10 -4160 -262144 -1 0 0;
#X obj 115 123 vsl 10 40 1 255 0 0 ertteetyeyterttretretrrtrtrtrtrt
hhghghghghghghgggggh empty 0 -8 0 10 -4034 -262144 -1 0 0;
#X obj 127 123 vsl 10 40 1 255 0 0 ertteetyeyterttretretrrtrtrtrtrt
hhghghghghghghgggggh empty 0 -8 0 10 -258113 -262144 -1 0 0;
#X obj 252 144 int;
#X obj 293 142 int;
#X obj 342 138 int;
#N canvas 0 22 474 324 list-enumerate 0;
#X obj 107 63 t a b;
#N canvas 473 338 454 304 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 126 264 outlet;
#X obj 184 264 outlet;
#N canvas 0 22 537 411 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 68 155 list prepend color;
#X msg 69 135 \$1 0 28;
#X connect 0 0 7 0;
#X connect 0 1 1 1;
#X connect 1 0 4 1;
#X connect 2 0 9 0;
#X connect 2 1 1 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 7 0 2 0;
#X connect 7 1 6 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X restore 294 389 pd list-enumerate;
#X obj 299 419 s \$0-controls;
#X msg 306 356 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1 \$1
\$1 \$1 \$1;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 4 1 3 1;
#X connect 5 0 20 0;
#X connect 6 0 3 0;
#X connect 6 1 5 1;
#X connect 7 0 3 0;
#X connect 8 0 12 0;
#X connect 8 0 13 0;
#X connect 8 0 14 0;
#X connect 9 0 7 0;
#X connect 10 0 0 0;
#X connect 11 0 1 0;
#X connect 12 0 15 0;
#X connect 13 0 16 0;
#X connect 14 0 17 0;
#X connect 15 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 11 0;
#X connect 18 0 19 0;
#X connect 20 0 18 0;
#X coords 0 -1 1 1 40 70 1 100 100;
#X restore 217 231 pd rgb;
#X obj 658 6 inlet modulation-add;
#X obj 786 6 inlet modulation-multiply;
#X obj 480 8 r \$0-values;
#X obj 659 26 list prepend add;
#X obj 787 27 list prepend mul;
#X obj 369 13 inlet controls;
#X obj 368 47 s \$0-controls;
#X obj 13 33 inlet~;
#X obj 12 78 outlet~;
#N canvas 47 74 1072 591 modulate.oOo..oOo..oOo.. 0;
#X obj 101 271 +;
#X obj 101 250 t b f;
#X obj 82 82 route 0 1 2 3 4 5 6 7;
#X obj 244 216 route 0 1 2 3 4 5 6 7;
#X obj 138 271 +;
#X obj 138 250 t b f;
#X obj 175 271 +;
#X obj 175 250 t b f;
#X obj 212 271 +;
#X obj 212 250 t b f;
#X obj 248 271 +;
#X obj 248 250 t b f;
#X obj 286 271 +;
#X obj 286 250 t b f;
#X obj 323 271 +;
#X obj 323 250 t b f;
#X obj 360 271 +;
#X obj 360 250 t b f;
#X obj 61 8 inlet;
#X obj 99 490 outlet;
#X obj 155 486 outlet;
#X obj 208 489 outlet;
#X obj 264 489 outlet;
#X obj 318 486 outlet;
#X obj 370 486 outlet;
#X obj 425 485 outlet;
#X obj 492 484 outlet;
#X obj 78 409 clip 0 1;
#X obj 132 411 clip 0 1;
#X obj 186 412 clip 0 1;
#X obj 240 414 clip 0 1;
#X obj 294 416 clip 0 1;
#X obj 348 418 clip 0 1;
#X obj 402 419 clip 0 1;
#X obj 456 421 clip 0 1;
#X obj 418 177 route add mul;
#X obj 117 332 t b f;
#X obj 156 335 t b f;
#X obj 193 335 t b f;
#X obj 230 335 t b f;
#X obj 266 335 t b f;
#X obj 304 335 t b f;
#X obj 341 335 t b f;
#X obj 378 335 t b f;
#X obj 118 356 * 1;
#X obj 156 356 * 1;
#X obj 193 356 * 1;
#X obj 231 355 * 1;
#X obj 266 356 * 1;
#X obj 304 356 * 1;
#X obj 341 356 * 1;
#X obj 378 356 * 1;
#X obj 397 275 route 0 1 2 3 4 5 6 7;
#X obj 550 262 +;
#X obj 550 241 t b f;
#X obj 587 262 +;
#X obj 587 241 t b f;
#X obj 624 262 +;
#X obj 624 241 t b f;
#X obj 661 262 +;
#X obj 661 241 t b f;
#X obj 697 262 +;
#X obj 697 241 t b f;
#X obj 735 262 +;
#X obj 735 241 t b f;
#X obj 772 262 +;
#X obj 772 241 t b f;
#X obj 809 262 +;
#X obj 809 241 t b f;
#X obj 548 481 outlet;
#X obj 604 477 outlet;
#X obj 657 480 outlet;
#X obj 713 480 outlet;
#X obj 767 477 outlet;
#X obj 819 477 outlet;
#X obj 874 476 outlet;
#X obj 941 475 outlet;
#X obj 527 400 clip 0 1;
#X obj 581 402 clip 0 1;
#X obj 635 403 clip 0 1;
#X obj 689 405 clip 0 1;
#X obj 743 407 clip 0 1;
#X obj 797 409 clip 0 1;
#X obj 851 410 clip 0 1;
#X obj 905 412 clip 0 1;
#X obj 867 168 route add mul;
#X obj 566 323 t b f;
#X obj 605 326 t b f;
#X obj 642 326 t b f;
#X obj 679 326 t b f;
#X obj 715 326 t b f;
#X obj 753 326 t b f;
#X obj 790 326 t b f;
#X obj 827 326 t b f;
#X obj 567 347 * 1;
#X obj 605 347 * 1;
#X obj 642 347 * 1;
#X obj 680 346 * 1;
#X obj 715 347 * 1;
#X obj 753 347 * 1;
#X obj 790 347 * 1;
#X obj 827 347 * 1;
#X obj 693 206 route 8 9 10 11 12 13 14 5;
#X obj 846 266 route 8 9 10 11 12 13 14 15;
#X msg 79 110 \$1 20;
#X msg 92 130 \$1 20;
#X msg 120 111 \$1 20;
#X msg 133 131 \$1 20;
#X msg 161 110 \$1 20;
#X msg 174 130 \$1 20;
#X msg 202 111 \$1 20;
#X msg 215 131 \$1 20;
#X obj 92 171 line 0 1;
#X obj 109 194 line 0 1;
#X obj 149 166 line 0 1;
#X obj 166 189 line 0 1;
#X obj 207 163 line 0 1;
#X obj 224 186 line 0 1;
#X obj 264 158 line 0 1;
#X obj 281 181 line 0 1;
#X msg 501 51 \$1 20;
#X msg 514 71 \$1 20;
#X msg 542 52 \$1 20;
#X msg 555 72 \$1 20;
#X msg 583 51 \$1 20;
#X msg 596 71 \$1 20;
#X msg 624 52 \$1 20;
#X msg 637 72 \$1 20;
#X obj 512 111 line 0 1;
#X obj 571 107 line 0 1;
#X obj 588 130 line 0 1;
#X obj 629 104 line 0 1;
#X obj 646 127 line 0 1;
#X obj 686 99 line 0 1;
#X obj 703 122 line 0 1;
#X obj 504 22 route 8 9 10 11 12 13 14 15;
#X obj 530 132 line 0 1;
#X obj 845 94 list trim;
#X obj 849 72 inlet;
#X connect 0 0 44 0;
#X connect 1 0 0 0;
#X connect 1 1 0 1;
#X connect 2 0 104 0;
#X connect 2 1 105 0;
#X connect 2 2 106 0;
#X connect 2 3 107 0;
#X connect 2 4 108 0;
#X connect 2 5 109 0;
#X connect 2 6 110 0;
#X connect 2 7 111 0;
#X connect 3 0 0 0;
#X connect 3 1 4 0;
#X connect 3 2 6 0;
#X connect 3 3 8 0;
#X connect 3 4 10 0;
#X connect 3 5 12 0;
#X connect 3 6 14 0;
#X connect 3 7 16 0;
#X connect 4 0 45 0;
#X connect 5 0 4 0;
#X connect 5 1 4 1;
#X connect 6 0 46 0;
#X connect 7 0 6 0;
#X connect 7 1 6 1;
#X connect 8 0 47 0;
#X connect 9 0 8 0;
#X connect 9 1 8 1;
#X connect 10 0 48 0;
#X connect 11 0 10 0;
#X connect 11 1 10 1;
#X connect 12 0 49 0;
#X connect 13 0 12 0;
#X connect 13 1 12 1;
#X connect 14 0 50 0;
#X connect 15 0 14 0;
#X connect 15 1 14 1;
#X connect 16 0 51 0;
#X connect 17 0 16 0;
#X connect 17 1 16 1;
#X connect 18 0 2 0;
#X connect 18 0 135 0;
#X connect 27 0 19 0;
#X connect 28 0 20 0;
#X connect 29 0 21 0;
#X connect 30 0 22 0;
#X connect 31 0 23 0;
#X connect 32 0 24 0;
#X connect 33 0 25 0;
#X connect 34 0 26 0;
#X connect 35 0 3 0;
#X connect 35 1 52 0;
#X connect 36 0 44 0;
#X connect 36 1 44 1;
#X connect 37 0 45 0;
#X connect 37 1 45 1;
#X connect 38 0 46 0;
#X connect 38 1 46 1;
#X connect 39 0 47 0;
#X connect 39 1 47 1;
#X connect 40 0 48 0;
#X connect 40 1 48 1;
#X connect 41 0 49 0;
#X connect 41 1 49 1;
#X connect 42 0 50 0;
#X connect 42 1 50 1;
#X connect 43 0 51 0;
#X connect 43 1 51 1;
#X connect 44 0 27 0;
#X connect 45 0 28 0;
#X connect 46 0 29 0;
#X connect 47 0 30 0;
#X connect 48 0 31 0;
#X connect 49 0 32 0;
#X connect 50 0 33 0;
#X connect 51 0 34 0;
#X connect 52 0 36 0;
#X connect 52 1 37 0;
#X connect 52 2 38 0;
#X connect 52 3 39 0;
#X connect 52 4 40 0;
#X connect 52 5 41 0;
#X connect 52 6 42 0;
#X connect 52 7 43 0;
#X connect 53 0 94 0;
#X connect 54 0 53 0;
#X connect 54 1 53 1;
#X connect 55 0 95 0;
#X connect 56 0 55 0;
#X connect 56 1 55 1;
#X connect 57 0 96 0;
#X connect 58 0 57 0;
#X connect 58 1 57 1;
#X connect 59 0 97 0;
#X connect 60 0 59 0;
#X connect 60 1 59 1;
#X connect 61 0 98 0;
#X connect 62 0 61 0;
#X connect 62 1 61 1;
#X connect 63 0 99 0;
#X connect 64 0 63 0;
#X connect 64 1 63 1;
#X connect 65 0 100 0;
#X connect 66 0 65 0;
#X connect 66 1 65 1;
#X connect 67 0 101 0;
#X connect 68 0 67 0;
#X connect 68 1 67 1;
#X connect 77 0 69 0;
#X connect 78 0 70 0;
#X connect 79 0 71 0;
#X connect 80 0 72 0;
#X connect 81 0 73 0;
#X connect 82 0 74 0;
#X connect 83 0 75 0;
#X connect 84 0 76 0;
#X connect 85 0 102 0;
#X connect 85 1 103 0;
#X connect 86 0 94 0;
#X connect 86 1 94 1;
#X connect 87 0 95 0;
#X connect 87 1 95 1;
#X connect 88 0 96 0;
#X connect 88 1 96 1;
#X connect 89 0 97 0;
#X connect 89 1 97 1;
#X connect 90 0 98 0;
#X connect 90 1 98 1;
#X connect 91 0 99 0;
#X connect 91 1 99 1;
#X connect 92 0 100 0;
#X connect 92 1 100 1;
#X connect 93 0 101 0;
#X connect 93 1 101 1;
#X connect 94 0 77 0;
#X connect 95 0 78 0;
#X connect 96 0 79 0;
#X connect 97 0 80 0;
#X connect 98 0 81 0;
#X connect 99 0 82 0;
#X connect 100 0 83 0;
#X connect 101 0 84 0;
#X connect 102 0 53 0;
#X connect 102 1 55 0;
#X connect 102 2 57 0;
#X connect 102 3 59 0;
#X connect 102 4 61 0;
#X connect 102 5 63 0;
#X connect 102 6 65 0;
#X connect 102 7 67 0;
#X connect 103 0 86 0;
#X connect 103 1 87 0;
#X connect 103 2 88 0;
#X connect 103 3 89 0;
#X connect 103 4 90 0;
#X connect 103 5 91 0;
#X connect 103 6 92 0;
#X connect 103 7 93 0;
#X connect 104 0 112 0;
#X connect 105 0 113 0;
#X connect 106 0 114 0;
#X connect 107 0 115 0;
#X connect 108 0 116 0;
#X connect 109 0 117 0;
#X connect 110 0 118 0;
#X connect 111 0 119 0;
#X connect 112 0 1 0;
#X connect 113 0 5 0;
#X connect 114 0 7 0;
#X connect 115 0 9 0;
#X connect 116 0 11 0;
#X connect 117 0 13 0;
#X connect 118 0 15 0;
#X connect 119 0 17 0;
#X connect 120 0 128 0;
#X connect 121 0 136 0;
#X connect 122 0 129 0;
#X connect 123 0 130 0;
#X connect 124 0 131 0;
#X connect 125 0 132 0;
#X connect 126 0 133 0;
#X connect 127 0 134 0;
#X connect 128 0 54 0;
#X connect 129 0 58 0;
#X connect 130 0 60 0;
#X connect 131 0 62 0;
#X connect 132 0 64 0;
#X connect 133 0 66 0;
#X connect 134 0 68 0;
#X connect 135 0 120 0;
#X connect 135 1 121 0;
#X connect 135 2 122 0;
#X connect 135 3 123 0;
#X connect 135 4 124 0;
#X connect 135 5 125 0;
#X connect 135 6 126 0;
#X connect 135 7 127 0;
#X connect 136 0 56 0;
#X connect 137 0 35 0;
#X connect 137 0 85 0;
#X connect 138 0 137 0;
#X restore 482 68 pd modulate.oOo..oOo..oOo..;
#X obj 453 183 s \$0-ratio;
#X obj 537 177 s \$0-threshold;
#X obj 630 166 s \$0-attack;
#X obj 705 163 s \$0-release;
#X obj 715 136 s \$0-gain;
#N canvas 305 22 833 678 workings 0;
#X obj 215 435 outlet~;
#X obj 54 -136 inlet~;
#N canvas 273 164 490 455 processing 0;
#X obj 7 271 *~;
#N canvas 283 384 348 382 amp-factor 0;
#X obj 19 22 inlet~;
#X obj 84 23 inlet;
#X text 120 23 Ratio;
#X obj 168 26 inlet;
#X text 204 26 Threshold;
#X obj 200 54 loadbang;
#X msg 200 78 100;
#X obj 200 102 sig~;
#X obj 168 102 sig~;
#X obj 168 134 +~;
#X obj 155 161 -~;
#X obj 155 206 /~;
#X obj 155 184 max~ 0;
#X obj 142 262 -~;
#X obj 142 286 dbtorms~;
#X obj 142 311 outlet~;
#X obj 84 179 sig~;
#X obj 97 129 - 1;
#X obj 84 156 /;
#X obj 19 68 rmstodb~;
#X obj 19 45 abs~;
#X text 18 4 Signal;
#X text 189 310 Factor in RMS;
#X obj 89 68 t f f;
#X connect 0 0 20 0;
#X connect 1 0 23 0;
#X connect 3 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 9 1;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 9 0 10 1;
#X connect 10 0 12 0;
#X connect 11 0 13 1;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 16 0 11 1;
#X connect 17 0 18 1;
#X connect 18 0 16 0;
#X connect 19 0 10 0;
#X connect 20 0 19 0;
#X connect 23 0 18 0;
#X connect 23 1 17 0;
#X restore 143 109 pd amp-factor;
#X obj 294 112 /;
#X obj 294 91 57;
#X obj 294 70 t b f;
#X obj 333 112 /;
#X obj 333 91 57;
#X obj 333 70 t b f;
#X obj 7 31 inlet~;
#X obj 7 350 outlet~;
#X obj 179 24 inlet ratio;
#X obj 216 50 inlet threshold;
#X obj 294 25 inlet attack;
#X obj 333 47 inlet release;
#X obj 120 232 inlet gain;
#X obj 120 253 + 100;
#X obj 120 275 dbtorms;
#N canvas 584 247 522 372 att-rel-filtering 0;
#N canvas 385 378 597 426 a-r-det 0;
#X obj 43 51 inlet~;
#X obj 43 200 outlet~;
#X obj 94 200 outlet~;
#X obj 43 145 max~ 0;
#X obj 94 171 -~;
#X obj 94 121 loadbang;
#X msg 94 146 1;
#X obj 105 50 inlet~;
#X obj 43 97 -~;
#X text 7 33 vgl.: "soll" mit "ist";
#X obj 43 121 sgn~;
#X text 33 218 Attack / Release;
#X connect 0 0 8 1;
#X connect 3 0 4 1;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 10 0 3 0;
#X restore 50 86 pd a-r-det;
#X text 26 99 att;
#X text 111 101 rel;
#X obj 22 195 vcf~;
#X msg 134 162 0.4;
#X obj 50 126 *~;
#X obj 105 128 *~;
#X obj 75 163 +~;
#X obj 134 138 loadbang;
#X obj 22 26 inlet~;
#X text 67 26 amp-factor;
#X obj 164 84 inlet;
#X text 200 85 attack;
#X text 237 104 release;
#X obj 196 106 inlet;
#X obj 22 272 outlet~;
#X obj 290 47 block~ 2;
#X obj 22 239 *~ 0.971042;
#X obj 109 233 tabsend~ \$0-factor;
#X obj 105 62 tabreceive~ \$0-factor;
#X obj 316 124 table \$0-factor 16;
#X connect 0 0 5 0;
#X connect 0 1 6 0;
#X connect 3 0 17 0;
#X connect 3 0 18 0;
#X connect 4 0 3 2;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 3 1;
#X connect 8 0 4 0;
#X connect 9 0 3 0;
#X connect 9 0 0 0;
#X connect 11 0 5 1;
#X connect 14 0 6 1;
#X connect 17 0 15 0;
#X connect 19 0 0 1;
#X restore 143 148 pd att-rel-filtering;
#X obj 78 230 *~;
#X connect 0 0 9 0;
#X connect 1 0 17 0;
#X connect 2 0 17 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 4 1 2 1;
#X connect 5 0 17 2;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 5 1;
#X connect 8 0 0 0;
#X connect 8 0 1 0;
#X connect 10 0 1 1;
#X connect 11 0 1 2;
#X connect 12 0 4 0;
#X connect 13 0 7 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 18 1;
#X connect 17 0 18 0;
#X connect 18 0 0 1;
#X restore 147 104 pd processing;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 257 31 pd rh_scalelog;
#X msg 350 7 10;
#X msg 304 7 1;
#X obj 393 27 * 60;
#X obj 392 3 - 1;
#X obj 258 -44 r \$0-ratio;
#X obj 393 -21 r \$0-threshold;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 494 21 pd rh_scalelog;
#X msg 541 -3 1;
#X msg 587 -5 300;
#X obj 494 -52 r \$0-attack;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 625 26 pd rh_scalelog;
#X obj 624 -48 r \$0-release;
#X msg 670 0 10;
#X msg 717 -1 3000;
#X obj 188 34 - 20;
#X obj 188 9 * 50;
#X obj 187 -17 r \$0-gain;
#X text 441 105 BY ROMAN H;
#X obj 541 -31 r \$0-loadbang;
#X obj 671 -27 r \$0-loadbang;
#X obj 304 -22 r \$0-loadbang;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 2;
#X connect 4 0 3 2;
#X connect 5 0 3 1;
#X connect 6 0 2 3;
#X connect 7 0 6 0;
#X connect 8 0 3 0;
#X connect 9 0 7 0;
#X connect 10 0 2 4;
#X connect 11 0 10 1;
#X connect 12 0 10 2;
#X connect 13 0 10 0;
#X connect 14 0 2 5;
#X connect 15 0 14 0;
#X connect 16 0 14 1;
#X connect 17 0 14 2;
#X connect 18 0 2 1;
#X connect 19 0 18 0;
#X connect 20 0 19 0;
#X connect 22 0 11 0;
#X connect 22 0 12 0;
#X connect 23 0 16 0;
#X connect 23 0 17 0;
#X connect 24 0 5 0;
#X connect 24 0 4 0;
#X restore 13 54 pd workings;
#X obj 125 129 hsl 60 10 0 1 0 0 \$0-a \$0-ra ratio -2 -7 0 10 -258971
-262144 -355 2891 1;
#X obj 125 152 hsl 60 10 0 1 0 0 \$0-c \$0-rc attack -2 -7 0 10 -258971
-262144 -355 1180 1;
#X obj 212 129 hsl 60 10 0 1 0 0 \$0-b \$0-rb threshold -2 -7 0 10
-258971 -262144 -355 2891 1;
#X obj 212 152 hsl 60 10 0 1 0 0 \$0-d \$0-rd release -2 -7 0 10 -258971
-262144 -355 1180 1;
#X obj 125 175 hsl 60 10 0 1 0 0 \$0-e \$0-re gain -2 -7 0 10 -258971
-262144 -355 2891 1;
#X obj 105 126 cnv 12 15 13 empty empty 0 1 6 0 12 -33289 -262144 0
;
#X obj 105 149 cnv 12 15 13 empty empty 2 1 6 0 12 -33289 -262144 0
;
#X obj 105 172 cnv 12 15 13 empty empty 4 1 6 0 12 -33289 -262144 0
;
#X obj 192 126 cnv 12 15 13 empty empty 1 1 6 0 12 -33289 -262144 0
;
#X obj 192 149 cnv 12 15 13 empty empty 3 1 6 0 12 -33289 -262144 0
;
#N canvas 361 43 833 682 list-functions 0;
#N canvas 0 22 462 312 list-enumerate 0;
#X obj 107 63 t a b;
#N canvas 473 338 454 304 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 107 209 outlet;
#X obj 165 209 outlet;
#N canvas 0 22 537 411 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 76 154 list prepend label;
#X connect 0 0 7 0;
#X connect 0 1 1 1;
#X connect 1 0 4 1;
#X connect 2 0 8 0;
#X connect 2 1 1 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 7 0 2 0;
#X connect 7 1 6 0;
#X connect 8 0 4 0;
#X restore 37 184 pd list-enumerate;
#X obj 37 230 s \$0-controls;
#N canvas 0 22 482 332 list-enumerate 0;
#N canvas 473 338 458 308 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 112 253 outlet;
#N canvas 0 22 541 415 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 107 63 t a b;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 1 1 0 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 5 0 1 0;
#X connect 6 0 5 0;
#X connect 6 1 0 1;
#X restore 149 183 pd list-enumerate;
#X obj 190 231 808_state \$1/controls;
#N canvas 0 22 498 348 list-enumerate 0;
#N canvas 473 338 458 308 count 0;
#X obj 131 154 f 0;
#X obj 156 153 + 1;
#X msg 147 133 0;
#X obj 131 183 outlet;
#X obj 131 59 inlet;
#X obj 131 96 b;
#X obj 178 61 inlet;
#X obj 178 98 b;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 1 0 0 1;
#X connect 2 0 0 1;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 7 0;
#X connect 7 0 2 0;
#X restore 186 155 pd count;
#X obj 107 113 t a b;
#X obj 107 33 inlet;
#X obj 107 181 list prepend;
#X obj 112 253 outlet;
#N canvas 0 22 541 415 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 110 88 pd drip;
#X obj 194 215 t a;
#X obj 106 209 list prepend;
#X obj 107 63 t a b b;
#X connect 0 0 3 1;
#X connect 1 0 3 0;
#X connect 1 1 0 0;
#X connect 2 0 8 0;
#X connect 3 0 7 0;
#X connect 5 0 1 0;
#X connect 6 0 7 1;
#X connect 7 0 6 0;
#X connect 7 0 4 0;
#X connect 8 0 5 0;
#X connect 8 1 0 1;
#X connect 8 2 7 1;
#X restore 411 149 pd list-enumerate;
#X obj 104 251 r \$0-controls;
#X obj 272 98 r \$0-values;
#N canvas 283 65 551 703 replacelist 0;
#X obj 164 224 list;
#X obj 327 98 inlet;
#X obj 250 98 inlet;
#X text 331 72 orig;
#X text 256 74 pos;
#X text 77 70 list to insert;
#X obj 85 94 inlet;
#X obj 207 281 list split;
#X obj 85 526 list;
#X obj 85 598 outlet;
#X obj 85 317 list prepend;
#X obj 85 120 t a b a b;
#X obj 85 430 list prepend 0;
#X obj 250 125 t f f;
#X obj 207 524 list prepend;
#X obj 85 469 route 0 1;
#X obj 316 347 f;
#X obj 286 282 t a b;
#X obj 316 377 > 0;
#X obj 122 358 r \$0-init;
#X obj 122 377 0;
#X obj 300 524 r \$0-init;
#X obj 176 317 r \$0-init;
#X obj 118 527 r \$0-init;
#X obj 159 131 s \$0-init;
#X text 47 25 list-replace: Replace the list starting at position POS
with a new list \, overwriting the old elements.;
#N canvas 0 22 458 308 length 0;
#X obj 171 164 + 1;
#X obj 92 127 b;
#X obj 126 204 f;
#X obj 158 138 1;
#X obj 142 166 f 1;
#X obj 216 168 0;
#X obj 136 59 t a b b;
#N canvas 0 22 537 411 drip 0;
#X obj 64 206 list split 1;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X connect 0 0 8 0;
#X connect 0 1 2 1;
#X connect 0 2 3 0;
#X connect 0 2 11 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 1 1;
#X connect 9 0 12 0;
#X connect 12 0 1 0;
#X connect 12 1 2 1;
#X restore 92 104 pd drip;
#X obj 137 36 inlet;
#X obj 125 238 outlet;
#X connect 0 0 4 1;
#X connect 1 0 4 0;
#X connect 2 0 9 0;
#X connect 3 0 4 1;
#X connect 4 0 0 0;
#X connect 4 0 2 1;
#X connect 5 0 2 1;
#X connect 6 0 7 0;
#X connect 6 1 3 0;
#X connect 6 2 5 0;
#X connect 7 0 1 0;
#X connect 7 1 2 0;
#X connect 8 0 6 0;
#X restore 268 216 pd length;
#X obj 162 254 list split;
#X connect 0 0 27 0;
#X connect 1 0 0 1;
#X connect 2 0 13 0;
#X connect 6 0 11 0;
#X connect 7 1 8 1;
#X connect 7 1 14 1;
#X connect 8 0 9 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 11 1 0 0;
#X connect 11 2 26 0;
#X connect 11 3 24 0;
#X connect 12 0 15 0;
#X connect 13 0 27 1;
#X connect 13 1 16 1;
#X connect 14 0 9 0;
#X connect 15 0 8 0;
#X connect 15 1 14 0;
#X connect 16 0 18 0;
#X connect 17 0 14 1;
#X connect 17 0 8 1;
#X connect 17 1 16 0;
#X connect 18 0 12 1;
#X connect 19 0 20 0;
#X connect 20 0 12 1;
#X connect 21 0 14 1;
#X connect 22 0 10 1;
#X connect 23 0 8 1;
#X connect 26 0 7 1;
#X connect 27 0 10 1;
#X connect 27 1 7 0;
#X connect 27 2 17 0;
#X restore 289 199 pd replacelist;
#X obj 423 265 t a;
#X obj 272 130 swap;
#X obj 50 109 inlet;
#N canvas 0 22 545 419 drip2 0;
#X obj 64 123 until;
#X obj 64 181 list append;
#X obj 194 206 bang;
#X text 146 90 First store list \, then start the loop;
#X text 163 118 "until" bangs its output until told to stop by a "bang"
to its right inlet.;
#X text 182 160 Store the remaining list.;
#X text 239 205 third outlet of "split" tells us to stop.;
#X obj 64 243 outlet;
#X obj 64 57 inlet;
#X text 237 44 From list-help.pd;
#X obj 143 243 outlet;
#X obj 64 86 t b a;
#X obj 64 206 list split 2;
#X connect 0 0 1 0;
#X connect 1 0 12 0;
#X connect 2 0 0 1;
#X connect 8 0 11 0;
#X connect 11 0 0 0;
#X connect 11 1 1 1;
#X connect 12 0 7 0;
#X connect 12 1 1 1;
#X connect 12 2 2 0;
#X connect 12 2 10 0;
#X restore 190 285 pd drip2;
#X obj 253 24 inlet;
#X obj 144 355 route 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15;
#X obj 144 381 s \$0-ra;
#X obj 156 401 s \$0-rb;
#X obj 167 422 s \$0-rc;
#X obj 179 442 s \$0-rd;
#X obj 194 381 s \$0-re;
#X obj 206 401 s \$0-rf;
#X obj 217 422 s \$0-rg;
#X obj 229 442 s \$0-rh;
#X obj 250 383 s \$0-ri;
#X obj 262 403 s \$0-rj;
#X obj 273 424 s \$0-rk;
#X obj 285 444 s \$0-rl;
#X obj 299 383 s \$0-rm;
#X obj 312 403 s \$0-rn;
#X obj 323 424 s \$0-ro;
#X obj 335 444 s \$0-rp;
#X obj 35 505 r \$0-a;
#X msg 35 530 0 \$1;
#X obj 78 505 r \$0-b;
#X msg 77 529 1 \$1;
#X obj 121 505 r \$0-c;
#X obj 164 505 r \$0-d;
#X msg 121 530 2 \$1;
#X msg 163 529 3 \$1;
#X obj 208 503 r \$0-e;
#X obj 251 503 r \$0-f;
#X obj 294 503 r \$0-g;
#X obj 337 503 r \$0-h;
#X msg 208 528 4 \$1;
#X msg 250 526 5 \$1;
#X msg 294 527 6 \$1;
#X msg 336 527 7 \$1;
#X obj 383 503 r \$0-i;
#X obj 426 502 r \$0-j;
#X obj 468 503 r \$0-k;
#X obj 512 503 r \$0-l;
#X obj 556 501 r \$0-m;
#X obj 599 501 r \$0-o;
#X obj 642 501 r \$0-p;
#X obj 685 501 r \$0-q;
#X msg 383 528 8 \$1;
#X msg 425 527 9 \$1;
#X msg 469 528 10 \$1;
#X msg 511 527 11 \$1;
#X msg 556 526 12 \$1;
#X msg 598 524 13 \$1;
#X msg 641 525 14 \$1;
#X msg 684 525 15 \$1;
#X obj 683 559 s \$0-values;
#X obj 413 202 t a a;
#X obj 412 182 list;
#X obj 257 47 t a b a;
#X obj 294 150 * 2;
#X obj 295 170 + 1;
#X obj 191 253 t a a;
#X connect 0 0 1 0;
#X connect 2 0 1 0;
#X connect 3 0 68 0;
#X connect 4 0 64 1;
#X connect 5 0 13 0;
#X connect 6 0 9 0;
#X connect 7 0 8 0;
#X connect 7 0 3 1;
#X connect 8 0 7 2;
#X connect 9 0 7 0;
#X connect 9 1 66 0;
#X connect 10 0 0 0;
#X connect 11 0 13 0;
#X connect 12 0 65 0;
#X connect 13 0 14 0;
#X connect 13 1 15 0;
#X connect 13 2 16 0;
#X connect 13 3 17 0;
#X connect 13 4 18 0;
#X connect 13 5 19 0;
#X connect 13 6 20 0;
#X connect 13 7 21 0;
#X connect 13 8 22 0;
#X connect 13 9 23 0;
#X connect 13 10 24 0;
#X connect 13 11 25 0;
#X connect 13 12 26 0;
#X connect 13 13 27 0;
#X connect 13 14 28 0;
#X connect 13 15 29 0;
#X connect 30 0 31 0;
#X connect 31 0 62 0;
#X connect 32 0 33 0;
#X connect 33 0 62 0;
#X connect 34 0 36 0;
#X connect 35 0 37 0;
#X connect 36 0 62 0;
#X connect 37 0 62 0;
#X connect 38 0 42 0;
#X connect 39 0 43 0;
#X connect 40 0 44 0;
#X connect 41 0 45 0;
#X connect 42 0 62 0;
#X connect 43 0 62 0;
#X connect 44 0 62 0;
#X connect 45 0 62 0;
#X connect 46 0 54 0;
#X connect 47 0 55 0;
#X connect 48 0 56 0;
#X connect 49 0 57 0;
#X connect 50 0 58 0;
#X connect 51 0 59 0;
#X connect 52 0 60 0;
#X connect 53 0 61 0;
#X connect 54 0 62 0;
#X connect 55 0 62 0;
#X connect 56 0 62 0;
#X connect 57 0 62 0;
#X connect 58 0 62 0;
#X connect 59 0 62 0;
#X connect 60 0 62 0;
#X connect 61 0 62 0;
#X connect 63 0 7 2;
#X connect 63 1 3 1;
#X connect 64 0 63 0;
#X connect 65 0 2 0;
#X connect 65 1 64 0;
#X connect 65 2 4 0;
#X connect 66 0 67 0;
#X connect 67 0 7 1;
#X connect 68 0 11 0;
#X connect 68 1 7 2;
#X restore 529 287 pd list-functions;
#X msg 386 231 ratio threshold attack release gain;
#X msg 644 254 0.49 0.49 0.2 0.2 0.49;
#X obj 643 216 t b b;
#X obj 684 227 s \$0-loadbang;
#X obj 89 31 inlet~;
#X obj 88 76 outlet~;
#N canvas 305 22 837 682 workings 0;
#X obj 215 435 outlet~;
#X obj 54 -136 inlet~;
#N canvas 273 164 494 459 processing 0;
#X obj 7 271 *~;
#N canvas 283 384 352 386 amp-factor 0;
#X obj 19 22 inlet~;
#X obj 84 23 inlet;
#X text 120 23 Ratio;
#X obj 168 26 inlet;
#X text 204 26 Threshold;
#X obj 200 54 loadbang;
#X msg 200 78 100;
#X obj 200 102 sig~;
#X obj 168 102 sig~;
#X obj 168 134 +~;
#X obj 155 161 -~;
#X obj 155 206 /~;
#X obj 155 184 max~ 0;
#X obj 142 262 -~;
#X obj 142 286 dbtorms~;
#X obj 142 311 outlet~;
#X obj 84 179 sig~;
#X obj 97 129 - 1;
#X obj 84 156 /;
#X obj 19 68 rmstodb~;
#X obj 19 45 abs~;
#X text 18 4 Signal;
#X text 189 310 Factor in RMS;
#X obj 89 68 t f f;
#X connect 0 0 20 0;
#X connect 1 0 23 0;
#X connect 3 0 8 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 9 1;
#X connect 7 0 13 0;
#X connect 8 0 9 0;
#X connect 9 0 10 1;
#X connect 10 0 12 0;
#X connect 11 0 13 1;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 16 0 11 1;
#X connect 17 0 18 1;
#X connect 18 0 16 0;
#X connect 19 0 10 0;
#X connect 20 0 19 0;
#X connect 23 0 18 0;
#X connect 23 1 17 0;
#X restore 143 109 pd amp-factor;
#X obj 294 112 /;
#X obj 294 91 57;
#X obj 294 70 t b f;
#X obj 333 112 /;
#X obj 333 91 57;
#X obj 333 70 t b f;
#X obj 7 31 inlet~;
#X obj 7 350 outlet~;
#X obj 179 24 inlet ratio;
#X obj 216 50 inlet threshold;
#X obj 294 25 inlet attack;
#X obj 333 47 inlet release;
#X obj 120 232 inlet gain;
#X obj 120 253 + 100;
#X obj 120 275 dbtorms;
#N canvas 584 247 526 376 att-rel-filtering 0;
#N canvas 385 378 597 426 a-r-det 0;
#X obj 43 51 inlet~;
#X obj 43 200 outlet~;
#X obj 94 200 outlet~;
#X obj 43 145 max~ 0;
#X obj 94 171 -~;
#X obj 94 121 loadbang;
#X msg 94 146 1;
#X obj 105 50 inlet~;
#X obj 43 97 -~;
#X text 7 33 vgl.: "soll" mit "ist";
#X obj 43 121 sgn~;
#X text 33 218 Attack / Release;
#X connect 0 0 8 1;
#X connect 3 0 4 1;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 10 0 3 0;
#X restore 50 86 pd a-r-det;
#X text 26 99 att;
#X text 111 101 rel;
#X obj 22 195 vcf~;
#X msg 134 162 0.4;
#X obj 50 126 *~;
#X obj 105 128 *~;
#X obj 75 163 +~;
#X obj 134 138 loadbang;
#X obj 22 26 inlet~;
#X text 67 26 amp-factor;
#X obj 164 84 inlet;
#X text 200 85 attack;
#X text 237 104 release;
#X obj 196 106 inlet;
#X obj 22 272 outlet~;
#X obj 290 47 block~ 2;
#X obj 22 239 *~ 0.971042;
#X obj 105 62 tabreceive~ \$0-factorb;
#X obj 109 233 tabsend~ \$0-factorb;
#X obj 316 124 table \$0-factorb 16;
#X connect 0 0 5 0;
#X connect 0 1 6 0;
#X connect 3 0 17 0;
#X connect 3 0 19 0;
#X connect 4 0 3 2;
#X connect 5 0 7 0;
#X connect 6 0 7 1;
#X connect 7 0 3 1;
#X connect 8 0 4 0;
#X connect 9 0 3 0;
#X connect 9 0 0 0;
#X connect 11 0 5 1;
#X connect 14 0 6 1;
#X connect 17 0 15 0;
#X connect 18 0 0 1;
#X restore 143 148 pd att-rel-filtering;
#X obj 78 230 *~;
#X connect 0 0 9 0;
#X connect 1 0 17 0;
#X connect 2 0 17 1;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 4 1 2 1;
#X connect 5 0 17 2;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 7 1 5 1;
#X connect 8 0 0 0;
#X connect 8 0 1 0;
#X connect 10 0 1 1;
#X connect 11 0 1 2;
#X connect 12 0 4 0;
#X connect 13 0 7 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 18 1;
#X connect 17 0 18 0;
#X connect 18 0 0 1;
#X restore 147 104 pd processing;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 257 31 pd rh_scalelog;
#X msg 350 7 10;
#X msg 304 7 1;
#X obj 393 27 * 60;
#X obj 392 3 - 1;
#X obj 258 -44 r \$0-ratio;
#X obj 393 -21 r \$0-threshold;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 494 21 pd rh_scalelog;
#X msg 541 -3 1;
#X msg 587 -5 300;
#X obj 494 -52 r \$0-attack;
#N canvas 0 22 462 312 rh_scalelog 0;
#X obj 20 155 exp;
#X obj 20 107 *;
#X obj 20 130 +;
#X obj 98 87 log;
#X obj 194 84 log;
#X obj 123 123 t b f;
#X obj 123 145 -;
#X obj 20 183 outlet;
#X obj 20 19 inlet;
#X obj 98 23 inlet;
#X obj 194 24 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 3 0 5 0;
#X connect 4 0 6 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 1 1;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 4 0;
#X restore 625 26 pd rh_scalelog;
#X obj 624 -48 r \$0-release;
#X msg 670 0 10;
#X msg 717 -1 3000;
#X obj 188 34 - 20;
#X obj 188 9 * 50;
#X obj 187 -17 r \$0-gain;
#X text 441 105 BY ROMAN H;
#X obj 541 -31 r \$0-loadbang;
#X obj 671 -27 r \$0-loadbang;
#X obj 304 -22 r \$0-loadbang;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 2 2;
#X connect 4 0 3 2;
#X connect 5 0 3 1;
#X connect 6 0 2 3;
#X connect 7 0 6 0;
#X connect 8 0 3 0;
#X connect 9 0 7 0;
#X connect 10 0 2 4;
#X connect 11 0 10 1;
#X connect 12 0 10 2;
#X connect 13 0 10 0;
#X connect 14 0 2 5;
#X connect 15 0 14 0;
#X connect 16 0 14 1;
#X connect 17 0 14 2;
#X connect 18 0 2 1;
#X connect 19 0 18 0;
#X connect 20 0 19 0;
#X connect 22 0 11 0;
#X connect 22 0 12 0;
#X connect 23 0 16 0;
#X connect 23 0 17 0;
#X connect 24 0 5 0;
#X connect 24 0 4 0;
#X restore 89 52 pd workings;
#X connect 0 0 31 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 4 0 11 0;
#X connect 5 0 11 1;
#X connect 6 0 11 1;
#X connect 7 0 8 0;
#X connect 9 0 17 0;
#X connect 11 0 12 0;
#X connect 11 1 13 0;
#X connect 11 2 14 0;
#X connect 11 3 15 0;
#X connect 11 4 16 0;
#X connect 17 0 10 0;
#X connect 29 0 28 0;
#X connect 30 0 28 1;
#X connect 31 0 30 0;
#X connect 31 1 32 0;
#X connect 33 0 35 0;
#X connect 35 0 34 0;
#X coords 0 -1 1 1 180 89 1 100 100;
-------------- next part --------------
#N canvas 233 35 1118 767 10;
#X obj 252 640 outlet~;
#X obj 252 506 *~;
#X obj 252 614 *~;
#N canvas 0 22 450 300 delWrite 0;
#X obj 68 80 delwrite~ \$0-comp 500;
#X obj 68 39 inlet~;
#X obj 68 156 outlet~;
#X connect 1 0 0 0;
#X restore 85 289 pd delWrite;
#X obj 481 393 dbtorms;
#X obj 533 364 /;
#X obj 533 333 swap 1;
#X obj 586 340 /;
#X obj 586 318 swap 1000;
#X obj 267 466 lop~;
#X obj 267 411 clip~ 0 1;
#X obj 481 415 s \$0-thresh;
#X obj 533 386 s \$0-ratio;
#X obj 267 589 line~;
#X obj 267 568 pack f 5;
#X obj 267 544 r \$0-gain;
#X obj 638 297 s \$0-gain;
#N canvas 0 22 872 621 rms 0;
#X obj 257 107 env~ 512;
#X obj 257 245 -~;
#X obj 257 293 *~;
#X obj 257 345 +~;
#X obj 257 385 /~;
#X obj 378 221 +~ 0;
#X obj 272 220 r \$0-thresh;
#X obj 272 318 r \$0-thresh;
#X obj 272 269 r \$0-ratio;
#X obj 257 34 inlet~;
#X obj 257 407 outlet~;
#X obj 373 37 inlet;
#X obj 373 59 switch~;
#X obj 257 135 dbtorms~;
#X text 221 74 Input;
#X text 231 136 RMS;
#X text 424 59 turn DSP on/off for this sub-patch;
#X connect 0 0 13 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 10 0;
#X connect 5 0 4 1;
#X connect 6 0 1 1;
#X connect 7 0 3 1;
#X connect 8 0 2 1;
#X connect 9 0 0 0;
#X connect 11 0 12 0;
#X connect 13 0 1 0;
#X connect 13 0 5 0;
#X restore 267 288 pd rms;
#N canvas 0 22 859 606 peak 0;
#X obj 244 134 abs~;
#X obj 244 243 -~;
#X obj 244 291 *~;
#X obj 244 343 +~;
#X obj 244 383 /~;
#X obj 365 219 +~ 0;
#X obj 259 218 r \$0-thresh;
#X obj 259 316 r \$0-thresh;
#X obj 259 267 r \$0-ratio;
#X obj 244 49 inlet~;
#X obj 244 405 outlet~;
#X obj 470 125 inlet;
#X obj 470 147 switch~;
#X text 206 99 Input;
#X text 208 135 Peak;
#X text 521 148 turn DSP on/off for this sub-patch;
#X connect 0 0 1 0;
#X connect 0 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 10 0;
#X connect 5 0 4 1;
#X connect 6 0 1 1;
#X connect 7 0 3 1;
#X connect 8 0 2 1;
#X connect 9 0 0 0;
#X connect 11 0 12 0;
#X restore 315 288 pd peak;
#X obj 300 230 == 0;
#X obj 300 185 t f f;
#X obj 85 32 inlet~;
#X obj 300 161 r \$0-rmspeak;
#X obj 691 271 s \$0-rmspeak;
#X obj 743 247 s \$0-lookahead;
#X obj 142 341 r \$0-lookahead;
#X obj 481 223 route threshold ratio response gain rmspeak lookahead
;
#X obj 481 35 inlet control;
#X obj 512 96 loadbang;
#X obj 481 170 t a a;
#X obj 508 198 s \$0-dump;
#X obj 481 358 + 100;
#X obj 638 251 + 100;
#X obj 638 273 dbtorms;
#X obj 288 444 r \$0-response;
#X obj 586 362 s \$0-response;
#X obj 450 640 outlet;
#X obj 450 575 r \$0-dump;
#N canvas 368 180 728 661 dump 0;
#X obj 124 52 inlet;
#X obj 125 625 outlet;
#X msg 187 486 threshold \$1;
#X msg 239 436 ratio \$1;
#X msg 294 385 response \$1;
#X msg 344 336 gain \$1;
#X msg 397 284 rmspeak \$1;
#X msg 449 235 lookahead \$1;
#X obj 187 141 route threshold ratio response gain rmspeak lookahead
;
#X obj 166 509 list;
#X obj 218 460 list;
#X obj 273 409 list;
#X obj 323 359 list;
#X obj 376 304 list;
#X obj 428 257 list;
#X obj 585 219 t b b b b b b;
#X obj 502 171 sel dump;
#X obj 428 548 list trim;
#X connect 0 0 1 0;
#X connect 0 0 8 0;
#X connect 2 0 9 1;
#X connect 3 0 10 1;
#X connect 4 0 11 1;
#X connect 5 0 12 1;
#X connect 6 0 13 1;
#X connect 7 0 14 1;
#X connect 8 0 2 0;
#X connect 8 1 3 0;
#X connect 8 2 4 0;
#X connect 8 3 5 0;
#X connect 8 4 6 0;
#X connect 8 5 7 0;
#X connect 8 6 16 0;
#X connect 9 0 17 0;
#X connect 10 0 17 0;
#X connect 11 0 17 0;
#X connect 12 0 17 0;
#X connect 13 0 17 0;
#X connect 14 0 17 0;
#X connect 15 0 9 0;
#X connect 15 1 10 0;
#X connect 15 2 11 0;
#X connect 15 3 12 0;
#X connect 15 4 13 0;
#X connect 15 5 14 0;
#X connect 16 0 15 0;
#X connect 17 0 1 0;
#X restore 450 597 pd dump;
#X msg 512 125 threshold -2 \, ratio 2 \, response 40 \, gain 0 \,
rmspeak 0 \, lookahead 0;
#N canvas 0 22 450 300 delRead 0;
#X obj 68 41 inlet~;
#X obj 133 155 outlet~;
#X obj 133 42 inlet lookAhead;
#X obj 133 116 delread~ \$0-comp 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X restore 85 365 pd delRead;
#X text 129 32 Input;
#X text 25 287 delwrite~;
#X text 51 320 dymmy;
#X text 50 332 cable;
#X text 31 365 delread~;
#X text 141 320 Lookahead in ms;
#X text 334 409 Clip signal;
#X text 298 465 Attack/release using LPF;
#X text 277 505 Gain Control;
#X text 318 311 Gain computation;
#X text 318 325 RMS/Peak;
#X text 330 544 Make-up gain;
#X text 339 185 RMS/Peak;
#X text 339 198 selector;
#X text 498 628 Dump/send controls;
#X text 498 641 for UI object;
#X text 569 98 initialise controls;
#X text 538 181 send controls to UI;
#X text 479 437 Convert dB FS;
#X text 479 448 to Pd dB scale;
#X text 479 460 and then linear;
#X text 479 471 amplitude.;
#X text 561 403 inverse of ratio;
#X text 637 380 convert ms to frequency;
#X text 657 316 convert dBFS scale to Pd dB scale;
#X text 707 290 RMS/peak selection;
#X text 781 264 lookahead value in ms;
#X text 757 206 route incoming data;
#X text 810 18 Varun Nair;
#X text 810 31 2013;
#X text 811 44 re-sounding.com;
#X text 812 57 @ntkeep;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 40 0;
#X connect 4 0 11 0;
#X connect 5 0 12 0;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X connect 7 0 35 0;
#X connect 8 0 7 0;
#X connect 8 1 7 1;
#X connect 9 0 1 1;
#X connect 10 0 9 0;
#X connect 13 0 2 1;
#X connect 14 0 13 0;
#X connect 15 0 14 0;
#X connect 17 0 10 0;
#X connect 18 0 10 0;
#X connect 19 0 17 1;
#X connect 20 0 19 0;
#X connect 20 1 18 1;
#X connect 21 0 3 0;
#X connect 21 0 17 0;
#X connect 21 0 18 0;
#X connect 22 0 20 0;
#X connect 25 0 40 1;
#X connect 26 0 31 0;
#X connect 26 1 6 0;
#X connect 26 2 8 0;
#X connect 26 3 32 0;
#X connect 26 4 23 0;
#X connect 26 5 24 0;
#X connect 27 0 29 0;
#X connect 28 0 39 0;
#X connect 29 0 26 0;
#X connect 29 1 30 0;
#X connect 31 0 4 0;
#X connect 32 0 33 0;
#X connect 33 0 16 0;
#X connect 34 0 9 1;
#X connect 37 0 38 0;
#X connect 38 0 36 0;
#X connect 39 0 29 0;
#X connect 40 0 1 0;