perk-bell.pd

#N canvas 153 28 977 396 10;
#X obj 9 51 outlet~;
#X obj 125 129 hsl 60 10 0 1 0 0 \$0-a \$0-ra pitch -2 -7 0 10 -24614
-262144 -355 1770 1;
#X obj 125 152 hsl 60 10 0 1 0 0 \$0-c \$0-rc gain -2 -7 0 10 -24614
-262144 -355 2360 1;
#X obj 212 129 hsl 60 10 0 1 0 0 \$0-b \$0-rb duration -2 -7 0 10 -24614
-262144 -355 4130 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 192 126 cnv 12 15 13 empty empty 1 1 6 0 12 -33289 -262144 0
;
#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 text 118 40 outlet audio~;
#X obj 369 13 inlet controls;
#X obj 368 47 s \$0-controls;
#N canvas 47 74 1068 587 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..;
#N canvas 585 31 645 708 additive-bell 0;
#X obj 220 661 outlet~;
#X obj 46 45 r \$0-pitch;
#N canvas 0 22 466 316 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 384 606 pd rh_scalelog;
#X msg 431 582 0.1;
#X msg 477 582 10;
#X obj 220 631 *~ 1;
#N canvas 186 273 859 481 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 119 199 pd partial;
#X msg 359 159 1 1 0.56 0;
#X msg 372 183 0.67 0.9 0.56 1;
#X msg 383 208 1 0.65 0.92 0;
#X msg 390 237 1.8 0.55 0.92 1.7;
#X msg 403 267 2.67 0.325 1.19 0;
#X msg 413 291 1.67 0.35 1.7 0;
#X msg 420 319 1.46 0.25 2 0;
#X msg 427 345 1.33 0.2 2.74 0;
#X msg 431 373 1 0.1 3.76 0;
#X msg 434 401 1.33 0.075 4.07 0;
#N canvas 186 273 823 445 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 144 229 pd partial;
#N canvas 186 273 827 449 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 163 256 pd partial;
#N canvas 186 273 827 449 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 188 286 pd partial;
#N canvas 186 273 827 449 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 205 318 pd partial;
#N canvas 186 273 831 453 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 230 348 pd partial;
#N canvas 186 273 831 453 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 249 375 pd partial;
#N canvas 186 273 827 449 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 274 405 pd partial;
#N canvas 186 273 827 449 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 294 435 pd partial;
#N canvas 186 273 827 449 partial 0;
#X obj 465 234 sqrt;
#X text 46 209 relative frequency;
#X obj 17 341 *~;
#X obj 227 322 line~;
#X obj 227 349 *~;
#X obj 227 376 *~;
#X msg 227 285 0 \$1;
#X obj 465 261 sqrt;
#X obj 227 158 t b b;
#X text 303 209 relative duration;
#X msg 465 288 \$1 5;
#X obj 227 185 del 5;
#X obj 465 207 * 0.1;
#X text 550 178 get amplitude from argument 1;
#X text 524 206 normalize to 0.1;
#X text 516 233 take fourth root (square root twice);
#X text 544 250 because we'll raise line~ output to;
#X text 543 267 fourth power;
#X text 515 292 attack time 5 msec;
#X text 280 184 decay after 5 msec;
#X text 469 157 attack;
#X obj 227 258 *;
#X text 264 258 actual duration;
#X obj 16 246 *;
#X obj 17 314 osc~;
#X text 49 252 times global freq.;
#X text 60 279 plus detune;
#X text 271 285 decay msg to line~;
#X text 266 350 raise to fourth power for;
#X text 267 368 natural-sounding decay shape;
#X text 256 75 1 amplitude \; 2 relative duration \; 3 relative frequency
\; 4 detune;
#X obj 56 30 inlet;
#X obj 226 211 f;
#X obj 465 180 f;
#X obj 17 200 f;
#X obj 72 113 unpack 0 0 0 0;
#X obj 17 279 +;
#X obj 53 62 route trigger freq duration;
#X obj 17 368 outlet~;
#X text 282 50 route:;
#X msg 73 300 0.25;
#X connect 0 0 7 0;
#X connect 2 0 38 0;
#X connect 3 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 2 1;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 8 1 33 0;
#X connect 10 0 3 0;
#X connect 11 0 32 0;
#X connect 12 0 0 0;
#X connect 21 0 6 0;
#X connect 23 0 36 0;
#X connect 24 0 2 0;
#X connect 31 0 37 0;
#X connect 32 0 21 0;
#X connect 33 0 12 0;
#X connect 34 0 23 0;
#X connect 35 0 33 1;
#X connect 35 1 32 1;
#X connect 35 2 34 1;
#X connect 35 3 36 1;
#X connect 36 0 24 0;
#X connect 37 0 34 0;
#X connect 37 0 8 0;
#X connect 37 0 40 0;
#X connect 37 1 23 1;
#X connect 37 2 21 1;
#X connect 37 3 35 0;
#X connect 40 0 24 1;
#X restore 319 465 pd partial;
#X obj 147 11 r \$0-duration;
#X msg 148 151 duration \$1;
#X obj 123 167 t a;
#X obj 231 530 +~;
#X msg 79 142 freq \$1;
#X obj 50 117 mtof;
#X obj 29 162 inlet;
#N canvas 0 22 466 316 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 148 105 pd rh_scalelog;
#X msg 196 82 50;
#X msg 241 81 5000;
#X obj 46 76 * 70;
#X obj 47 97 + 40;
#X msg 40 241 trigger bang;
#X obj 222 572 *~;
#X msg 91 533 0 5 \, 1 5 5;
#X obj 90 560 vline~;
#X obj 28 192 t b b;
#X obj 50 215 delay 5;
#X obj 384 529 r \$0-gain;
#X obj 195 53 r \$0-loadbang;
#X obj 431 554 r \$0-loadbang;
#X obj 269 136 r \$0-loadbang;
#X connect 1 0 36 0;
#X connect 2 0 5 1;
#X connect 3 0 2 1;
#X connect 4 0 2 2;
#X connect 5 0 0 0;
#X connect 6 0 29 0;
#X connect 7 0 6 0;
#X connect 8 0 17 0;
#X connect 9 0 18 0;
#X connect 10 0 19 0;
#X connect 11 0 20 0;
#X connect 12 0 21 0;
#X connect 13 0 22 0;
#X connect 14 0 23 0;
#X connect 15 0 24 0;
#X connect 16 0 25 0;
#X connect 17 0 29 0;
#X connect 18 0 29 0;
#X connect 19 0 29 0;
#X connect 20 0 29 0;
#X connect 21 0 29 0;
#X connect 22 0 29 0;
#X connect 23 0 29 0;
#X connect 24 0 29 0;
#X connect 25 0 29 0;
#X connect 26 0 33 0;
#X connect 27 0 28 0;
#X connect 28 0 6 0;
#X connect 28 0 17 0;
#X connect 28 0 18 0;
#X connect 28 0 19 0;
#X connect 28 0 20 0;
#X connect 28 0 21 0;
#X connect 28 0 22 0;
#X connect 28 0 23 0;
#X connect 28 0 24 0;
#X connect 28 0 25 0;
#X connect 29 0 39 1;
#X connect 30 0 28 0;
#X connect 31 0 30 0;
#X connect 32 0 42 0;
#X connect 33 0 27 0;
#X connect 34 0 33 1;
#X connect 35 0 33 2;
#X connect 36 0 37 0;
#X connect 37 0 31 0;
#X connect 38 0 28 0;
#X connect 39 0 5 0;
#X connect 40 0 41 0;
#X connect 41 0 39 0;
#X connect 42 0 40 0;
#X connect 42 1 43 0;
#X connect 43 0 38 0;
#X connect 44 0 2 0;
#X connect 45 0 34 0;
#X connect 45 0 35 0;
#X connect 46 0 3 0;
#X connect 46 0 4 0;
#X connect 47 0 7 0;
#X connect 47 0 8 0;
#X connect 47 0 9 0;
#X connect 47 0 10 0;
#X connect 47 0 11 0;
#X connect 47 0 12 0;
#X connect 47 0 13 0;
#X connect 47 0 14 0;
#X connect 47 0 15 0;
#X connect 47 0 16 0;
#X restore 6 29 pd additive-bell;
#X obj 8 7 inlet;
#X text 112 26 inlets trigger \, control \, add \, multiply;
#X msg 408 227 pitch duration gain;
#X obj 483 110 s \$0-pitch;
#X obj 557 109 s \$0-duration;
#X obj 651 110 s \$0-gain;
#X msg 608 232 0.3 0.7 0.4;
#X obj 596 142 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 606 297 pd rgb;
#N canvas 361 43 829 678 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 463 293 pd list-functions;
#X obj 607 181 t b b;
#X obj 633 207 s \$0-loadbang;
#X connect 7 0 10 0;
#X connect 8 0 11 0;
#X connect 9 0 15 0;
#X connect 10 0 15 1;
#X connect 11 0 15 1;
#X connect 13 0 14 0;
#X connect 15 0 20 0;
#X connect 15 1 21 0;
#X connect 15 2 22 0;
#X connect 16 0 0 0;
#X connect 17 0 16 0;
#X connect 19 0 26 0;
#X connect 23 0 26 1;
#X connect 24 0 27 0;
#X connect 27 0 23 0;
#X connect 27 1 28 0;
#X coords 0 -1 1 1 180 65 1 100 100;