#N canvas 22 22 973 526 10; #X msg 454 136 100; #X msg 489 139 1000; #X msg 532 139 3000; #X obj 305 182 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 -1; #N canvas 0 22 450 300 (subpatch) 0; #X array array101 100 float 0; #X coords 0 1.1 99 -0.1 100 50 1; #X restore 845 186 graph; #N canvas 0 22 450 300 (subpatch) 0; #X array array102 100 float 0; #X coords 0 1.1 99 -0.1 100 50 1; #X restore 845 256 graph; #N canvas 0 22 450 300 (subpatch) 0; #X array array103 100 float 0; #X coords 0 1.1 99 -0.1 100 50 1; #X restore 845 326 graph; #X obj 203 309 tabwrite~ array101; #X obj 250 355 tabwrite~ array103; #X obj 225 332 tabwrite~ array102; #N canvas 0 22 450 300 (subpatch) 0; #X array array100 100 float 0; #X coords 0 1.1 99 -0.1 100 50 1; #X restore 845 116 graph; #X obj 304 254 tabwrite~ array100; #N canvas 0 22 450 300 dirac 0; #X obj 103 44 inlet; #X obj 103 65 t b b; #X obj 71 100 del 2; #X msg 126 112 1; #X msg 70 122 0; #X obj 92 151 biquad~ 0 0 1 -1 0; #X obj 92 176 max~ 0; #X obj 92 197 outlet~; #X connect 0 0 1 0; #X connect 1 0 2 0; #X connect 1 1 3 0; #X connect 2 0 4 0; #X connect 3 0 5 0; #X connect 4 0 5 0; #X connect 5 0 6 0; #X connect 6 0 7 0; #X restore 212 222 pd dirac; #X text 113 442 IEM KUG; #X text 87 430 musil; #X text 125 430 @; #X text 133 430 iem.at; #X text 96 452 Graz \, Austria; #X text 46 419 (c) Thomas Musil 2000 - 2011; #X obj 24 46 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1 ; #X floatatom 24 110 5 0 0 0 - - -; #X floatatom 42 93 5 0 0 0 - - -; #N canvas 0 22 528 567 dsp 0; #X obj 20 65 inlet; #X obj 20 406 outlet; #X msg 31 88 \; pd dsp \$1; #X obj 20 199 cputime; #X obj 20 178 t b b; #X text 15 11 dsp; #X text 59 65 1/0 = ON/OFF; #X text 97 313 CPU-load; #X obj 62 126 loadbang; #X obj 20 126 sel 1; #X text 64 12 turn dsp-kernel on & off \,; #X obj 20 240 t f f; #X obj 211 405 outlet; #X text 65 408 average; #X text 177 405 peak; #X obj 211 154 f; #X obj 146 179 > -1; #X obj 169 155 f -1; #X obj 179 91 t f b f; #X obj 146 204 sel 1; #X obj 192 132 f -1; #X obj 20 154 metro 500; #X obj 20 220 * 0.2; #X text 74 37 -dsp-load in %; #X text 65 24 measure average- and peak-; #X obj 20 292 1p1z 0.1 0 0.9; #X obj 20 315 * 100; #X obj 20 360 int; #X obj 20 338 + 0.499; #X obj 20 383 * 0.01; #X obj 246 207 r pd; #X obj 246 231 route dsp; #X text 245 318 to toggle input; #X msg 246 283 \; dsp_tgl set \$1; #X obj 247 341 r dsp_tgl; #X obj 246 257 route float; #X obj 146 227 del 3990; #X text 179 455 IEM KUG; #X text 153 443 musil; #X text 190 443 @; #X text 199 443 iem.at; #X text 162 465 Graz \, Austria; #X msg 275 108 \; pd audio-dialog 0 0 0 0 64 0 0 0 0 0 0 0 64 0 0 0 44100 \$1; #X obj 275 81 inlet; #X text 271 56 system delay time in ms; #N canvas 0 22 486 468 once 0; #X obj 89 162 spigot; #X obj 34 59 inlet; #X obj 89 111 t a b; #X obj 126 140 f 1; #X obj 89 194 t a b; #X obj 119 216 f 0; #X obj 89 247 outlet; #X obj 207 56 inlet; #X obj 207 79 bang; #X obj 207 102 f 1; #X text 8 6 once; #X text 64 7 only the first message passes through; #X text 29 37 message in; #X text 29 289 message out (only once); #X text 203 36 anything to init once; #X obj 34 80 route bang; #X obj 34 110 t b b; #X obj 34 162 spigot; #X obj 34 194 t b b; #X text 98 377 IEM KUG; #X text 73 363 musil; #X text 110 365 @; #X text 118 365 iem.at; #X text 81 387 Graz \, Austria; #X text 120 339 @; #X text 128 339 iem.at; #X text 33 338 (c) zmoelnig; #X text 33 352 (c) Thomas Musil 2000 - 2011; #X connect 0 0 4 0; #X connect 1 0 15 0; #X connect 2 0 0 0; #X connect 2 1 3 0; #X connect 3 0 0 1; #X connect 3 0 17 1; #X connect 4 0 6 0; #X connect 4 1 5 0; #X connect 5 0 3 1; #X connect 7 0 8 0; #X connect 8 0 9 0; #X connect 9 0 3 1; #X connect 15 0 16 0; #X connect 15 1 2 0; #X connect 16 0 17 0; #X connect 16 1 3 0; #X connect 17 0 18 0; #X connect 18 0 6 0; #X connect 18 1 5 0; #X restore 69 270 pd once; #X text 112 430 (c) Thomas Musil 2000 - 2011; #X connect 0 0 2 0; #X connect 0 0 9 0; #X connect 3 0 22 0; #X connect 4 0 3 0; #X connect 4 1 3 1; #X connect 8 0 21 0; #X connect 9 0 21 0; #X connect 11 0 25 0; #X connect 11 1 45 0; #X connect 15 0 17 1; #X connect 15 0 12 0; #X connect 16 0 19 0; #X connect 17 0 16 1; #X connect 18 0 16 0; #X connect 18 1 17 0; #X connect 18 2 15 1; #X connect 19 0 15 0; #X connect 19 0 36 0; #X connect 20 0 17 1; #X connect 21 0 4 0; #X connect 22 0 11 0; #X connect 22 0 18 0; #X connect 25 0 26 0; #X connect 26 0 28 0; #X connect 27 0 29 0; #X connect 28 0 27 0; #X connect 29 0 1 0; #X connect 30 0 31 0; #X connect 31 0 35 0; #X connect 35 0 33 0; #X connect 36 0 20 0; #X connect 43 0 42 0; #X connect 45 0 25 5; #X connect 45 0 25 4; #X restore 24 69 pd dsp; #X text 420 465 3.) initial argument: interpolation time in ms; #X text 421 449 2.) inital argument: maximum delay time in ms; #X text 421 433 1.) inital argument: number of delay taps = outlets; #X msg 428 194 time \$1; #X floatatom 428 168 5 0 0 0 - - -; #X msg 420 137 0; #X text 20 146 of n delay times in ms; #X text 472 174 interpolation time in ms; #X msg 96 165 0.1 0.2 0.3; #X msg 76 190 1.8 1.7 1.6; #X obj 299 70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1; #X obj 300 117 sel 0 1; #X obj 300 92 t f b; #X msg 578 136 6000; #N canvas 0 22 472 410 del_chain 0; #X obj 158 58 inlet; #X obj 128 341 outlet; #X obj 207 86 del 10; #X obj 207 106 del 990; #X obj 207 127 del 990; #X obj 207 148 del 990; #X obj 207 169 del 990; #X obj 207 190 del 990; #X obj 207 211 del 990; #X obj 207 233 del 990; #X obj 207 254 del 990; #X connect 0 0 2 0; #X connect 2 0 3 0; #X connect 2 0 1 0; #X connect 3 0 4 0; #X connect 3 0 1 0; #X connect 4 0 5 0; #X connect 4 0 1 0; #X connect 5 0 6 0; #X connect 5 0 1 0; #X connect 6 0 7 0; #X connect 6 0 1 0; #X connect 7 0 8 0; #X connect 7 0 1 0; #X connect 8 0 1 0; #X connect 8 0 9 0; #X connect 9 0 10 0; #X connect 9 0 1 0; #X connect 10 0 1 0; #X restore 326 154 pd del_chain; #X text 21 13 n_delay2p_line~; #X obj 202 283 n_delay2p_line~ 3 5 100; #X text 161 12 One signal inlet and n delay tap outlets. Delay times change every sample with a 2-point interpolation and are given in ms. ; #X connect 0 0 27 0; #X connect 1 0 27 0; #X connect 2 0 27 0; #X connect 3 0 7 0; #X connect 3 0 9 0; #X connect 3 0 8 0; #X connect 3 0 11 0; #X connect 3 0 12 0; #X connect 12 0 11 0; #X connect 12 0 39 0; #X connect 19 0 22 0; #X connect 22 0 20 0; #X connect 22 1 21 0; #X connect 26 0 39 0; #X connect 27 0 26 0; #X connect 28 0 27 0; #X connect 31 0 39 0; #X connect 32 0 39 0; #X connect 33 0 35 0; #X connect 34 0 31 0; #X connect 34 1 32 0; #X connect 35 0 34 0; #X connect 35 1 36 0; #X connect 35 1 37 0; #X connect 36 0 27 0; #X connect 37 0 3 0; #X connect 39 0 7 0; #X connect 39 1 9 0; #X connect 39 2 8 0;