house_001.pd

#N canvas 0 0 1920 991 12;
#X declare -path ./audio/instruments;
#X declare -path ./audio/objects;
#X declare -path ./visuals/objects;
#X declare -lib Gem;
#X declare -path ./visuals/vfx;
#N canvas 758 223 622 529 imports 0;
#X obj 6 6 declare -path ./audio/instruments;
#X obj 6 28 declare -path ./audio/objects;
#X obj 6 51 declare -path ./visuals/objects;
#X obj 6 97 declare -lib Gem;
#X obj 6 74 declare -path ./visuals/vfx;
#X restore 9 -25 pd imports;
#X text 10 -3 m-onz;
#X text 9 18 https://m-onz.net;
#X obj 456 1183 out~ 0.99;
#X floatatom 475 843 5 0 10000 2 Cutoff - - 0;
#X floatatom 521 844 5 0 2000 2 Attack - - 0;
#X floatatom 568 846 5 0 2000 2 Release - - 0;
#X obj 405 878 polysynth~ 200 12 350;
#X msg 416 645 72 \, 68 \, 58 \, 53 \;;
#X msg 436 838 127;
#X msg 430 682 72 \, 68 \, 63 \, 58 \;;
#X msg 446 718 70 \, 66 \, 61 \, 56 \;;
#X msg 458 761 70 \, 65 \, 61 \, 54 \;;
#X obj 459 433 i;
#X obj 487 405 + 1;
#X obj 528 305 random 100;
#X obj 433 -13 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 420 49 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 422 592 sel 0 1 2 3;
#X floatatom 459 458 5 0 0 0 - - - 0;
#X obj 460 511 % 4;
#X obj 492 435 spigot;
#X obj 528 355 sel 1;
#X obj 522 376 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 556 379 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X msg 555 405 0;
#X msg 522 404 1;
#X obj 461 316 t b b;
#X floatatom 483 -11 5 0 0 0 - - - 0;
#X obj 460 287 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X floatatom 531 1183 5 0 100 2 Reverb_Level\ (0-100) - - 0;
#X obj 231 953 squarepoly~;
#X floatatom 326 915 5 0 0 0 - - - 0;
#X obj 193 847 spigot 1;
#X obj 230 977 *~ 0.1;
#N canvas 281 187 630 372 spectrolog 0;
#N canvas 556 61 872 789 FFT_Analyse 0;
#X obj 101 102 inlet~;
#X obj 101 332 *~;
#X obj 132 331 *~;
#X obj 101 356 +~;
#X obj 102 377 powtodb~;
#N canvas 0 22 346 535 init_input_window 0;
#X obj 73 217 / 10;
#X obj 55 278 line 0 0.1;
#X msg 119 246 0;
#X obj 54 176 t f f b;
#X obj 54 239 pack;
#X obj 55 301 t f f;
#X obj 54 152 - 1;
#X obj 74 114 t f f;
#X obj 55 359 * 3.14159;
#X obj 55 381 sin;
#X msg 55 401 \$1 \$1;
#X obj 55 423 *;
#X text 119 334 0...0.99;
#X text 128 359 0...pi;
#X text 79 423 hanning;
#X msg 55 88 4096;
#X obj 100 88 f 4096;
#X obj 99 60 bng 15 250 50 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000;
#X obj 99 39 loadbang;
#X obj 74 333 / 4096;
#X obj 55 448 tabwrite \$0-window;
#X text 86 381 half-sine;
#X connect 0 0 4 1;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 1 0 0;
#X connect 3 2 2 0;
#X connect 4 0 1 0;
#X connect 5 0 19 0;
#X connect 5 1 20 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 1 19 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 20 0;
#X connect 15 0 7 0;
#X connect 16 0 7 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 8 0;
#X restore 161 276 pd init_input_window;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-lin_scope 2048 float 0;
#X coords 0 100 2047 0 200 140 1;
#X restore 110 621 graph;
#N canvas 0 22 822 328 init_norm 0;
#X obj 43 230 outlet;
#X obj 43 187 - 100;
#X floatatom 43 208 9 0 0 0 - - - 0;
#X text 108 169 leistung - techn. dB;
#X msg 43 69 4096;
#X obj 80 68 f 4096;
#X obj 80 47 bng 15 250 50 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000;
#X obj 80 26 loadbang;
#X obj 43 167 rmstodb;
#X obj 43 110 / 4;
#X text 74 103 faktor 2 wegen hanning;
#X text 74 114 weiterer faktor 2 \, weil wir nur die;
#X text 73 124 erste haelfte des konjungiert komplexen spektrum sehen;
#X text 108 135 bzw. bearbeiten \, somit nur die haelfte der spektralen energie;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 4 0 9 0;
#X connect 5 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 1 0;
#X connect 9 0 8 0;
#X restore 153 421 pd init_norm;
#X obj 100 231 *~;
#X obj 102 443 -~ 60.206;
#X obj 113 517 *~ 0.98;
#X obj 100 539 +~;
#X obj 101 471 *~ 0.02;
#X msg 314 481 1 \$1;
#X obj 314 502 -;
#X obj 314 458 clip 0 1;
#X obj 314 437 / 100;
#X floatatom 314 413 5 0.5 100 0 - - - 0;
#X obj 333 366 loadbang;
#X obj 100 277 fft~;
#X obj 463 557 line 0 0.1;
#X obj 463 602 / 2;
#X obj 463 622 mtof;
#X msg 463 536 6 \, 273 26.7;
#X obj 463 580 t f f;
#X obj 494 602 - 6;
#X obj 463 642 / 44100;
#X obj 463 663 * 4096;
#X msg 656 633 6;
#X obj 656 653 / 2;
#X obj 656 673 mtof;
#X floatatom 656 693 9 0 0 0 - - - 0;
#X text 723 694 Hz;
#X obj 754 654 / 2;
#X obj 754 673 mtof;
#X floatatom 754 693 9 0 0 0 - - - 0;
#X text 822 693 Hz;
#X msg 754 634 273;
#X obj 656 612 t b b;
#X obj 463 498 tgl 15 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000 0 1;
#X obj 463 458 loadbang;
#X msg 463 478 1;
#X obj 656 592 loadbang;
#X obj 468 245 loadbang;
#X obj 703 102 inlet;
#X obj 130 253 table \$0-window 4096;
#X obj 137 214 tabreceive~ \$0-window;
#X text 353 403 temporal lowpass;
#X text 355 415 parameter between 0 .. 100 %;
#X text 23 23 spectrum~;
#X text 120 23 draws the power of a spectrum in a logarithmic scale;
#X text 118 36 (by Thomas Musil);
#X obj 113 496 tabreceive~ \$0-lin_scope;
#X obj 100 564 tabsend~ \$0-lin_scope;
#X obj 463 685 tabread4 \$0-lin_scope;
#X obj 468 267 f \$0;
#X text 553 536 transformation to log scale;
#X msg 333 385 100;
#X obj 314 341 max 0.5;
#X obj 314 319 min 100;
#X obj 440 107 inlet;
#X text 96 81 audio sig;
#X text 700 81 ON/OFF;
#X text 427 86 (0 .. 100);
#X text 408 72 temporal lowpass;
#X obj 533 244 bng 15 250 50 0 empty empty empty 0 -6 0 8 #fcfcfc #000000 #000000;
#X obj 463 735 tabwrite \$0-s;
#X msg 468 296 \; \$1-s xticks 0 12 2;
#X msg 491 330 \; \$1-s yticks 0 5 2;
#X obj 462 516 metro 100;
#X obj 704 166 switch~ 4096 2;
#X obj 463 711 clip 0 100;
#X obj 773 101 loadbang;
#X msg 773 123 1;
#X connect 0 0 8 0;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 7 0 9 1;
#X connect 8 0 19 0;
#X connect 9 0 12 0;
#X connect 10 0 11 1;
#X connect 11 0 53 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 10 1;
#X connect 15 0 13 0;
#X connect 15 0 12 1;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 57 0;
#X connect 19 0 1 0;
#X connect 19 0 1 1;
#X connect 19 1 2 0;
#X connect 19 1 2 1;
#X connect 20 0 24 0;
#X connect 21 0 22 0;
#X connect 22 0 26 0;
#X connect 23 0 20 0;
#X connect 24 0 21 0;
#X connect 24 1 25 0;
#X connect 25 0 66 1;
#X connect 26 0 27 0;
#X connect 27 0 54 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 37 0 33 0;
#X connect 38 0 28 0;
#X connect 38 1 37 0;
#X connect 39 0 69 0;
#X connect 40 0 41 0;
#X connect 41 0 39 0;
#X connect 42 0 38 0;
#X connect 43 0 55 0;
#X connect 44 0 70 0;
#X connect 46 0 8 1;
#X connect 52 0 10 0;
#X connect 54 0 71 0;
#X connect 55 0 67 0;
#X connect 55 0 68 0;
#X connect 57 0 17 0;
#X connect 58 0 17 0;
#X connect 59 0 58 0;
#X connect 60 0 59 0;
#X connect 65 0 55 0;
#X connect 69 0 23 0;
#X connect 71 0 66 0;
#X connect 72 0 73 0;
#X connect 73 0 70 0;
#X restore 17 320 pd FFT_Analyse;
#X obj 63 299 inlet;
#X obj 17 299 inlet~;
#X obj 110 299 inlet;
#N canvas 0 22 450 300 (subpatch) 0;
#X array \$0-s 268 float 0;
#X coords 0 100 267 0 267 140 1;
#X restore 23 27 graph;
#X obj 297 42 cnv 15 1 1 empty empty -10 0 0 0 10 #fcfcfc #000000 0;
#X obj 297 154 cnv 15 1 1 empty empty -90 0 0 0 10 #fcfcfc #000000 0;
#X obj 297 98 cnv 15 1 1 empty empty -50 0 0 0 10 #fcfcfc #000000 0;
#X obj 297 70 cnv 15 1 1 empty empty -30 0 0 0 10 #fcfcfc #000000 0;
#X obj 297 126 cnv 15 1 1 empty empty -70 0 0 0 10 #fcfcfc #000000 0;
#X obj 18 171 cnv 15 1 1 empty empty 10 0 5 0 10 #fcfcfc #000000 0;
#X obj 66 171 cnv 15 1 1 empty empty 40 0 5 0 10 #fcfcfc #000000 0;
#X obj 115 171 cnv 15 1 1 empty empty 160 0 5 0 10 #fcfcfc #000000 0;
#X obj 162 171 cnv 15 1 1 empty empty 640 0 5 0 10 #fcfcfc #000000 0;
#X obj 210 171 cnv 15 1 1 empty empty 2k56 0 5 0 10 #fcfcfc #000000 0;
#X obj 258 171 cnv 15 1 1 empty empty 10k2 0 5 0 10 #fcfcfc #000000 0;
#X obj 138 184 cnv 15 1 1 empty empty 320 0 5 0 10 #fcfcfc #000000 0;
#X obj 282 184 cnv 15 1 1 empty empty 20k5 0 5 0 10 #fcfcfc #000000 0;
#X obj 42 181 cnv 15 1 1 empty empty 20 0 9 0 10 #fcfcfc #000000 0;
#X obj 90 184 cnv 15 1 1 empty empty 80 0 5 0 10 #fcfcfc #000000 0;
#X obj 186 184 cnv 15 1 1 empty empty 1k28 0 5 0 10 #fcfcfc #000000 0;
#X obj 234 184 cnv 15 1 1 empty empty 5k12 0 5 0 10 #fcfcfc #000000 0;
#X obj 46 168 cnv 15 1 1 empty empty | 0 7 0 10 #fcfcfc #000000 0;
#X obj 94 168 cnv 15 1 1 empty empty | 0 7 0 10 #fcfcfc #000000 0;
#X obj 142 168 cnv 15 1 1 empty empty | 0 7 0 10 #fcfcfc #000000 0;
#X obj 190 168 cnv 15 1 1 empty empty | 0 7 0 10 #fcfcfc #000000 0;
#X obj 238 168 cnv 15 1 1 empty empty | 0 7 0 10 #fcfcfc #000000 0;
#X obj 286 168 cnv 15 1 1 empty empty | 0 7 0 10 #fcfcfc #000000 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 3 0 0 2;
#X coords 0 -1 1 1 330 210 1 0 0;
#X restore 685 1139 pd spectrolog;
#N canvas -33 30 1920 991 drum_kit 0;
#X obj 29 473 playdir~;
#X floatatom 28 451 5 0 0 0 - - - 0;
#X msg 40 418 1;
#N canvas 259 200 663 554 get 0;
#X obj 32 93 pdcontrol;
#X msg 32 65 dir;
#X obj 32 38 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 32 12 loadbang;
#X msg 31 120 \$1/sounds/kicks;
#X obj 31 145 outlet;
#X obj 101 16 inlet;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 6 0 2 0;
#X restore 81 450 pd get kick folder;
#X obj 83 427 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 226 476 playdir~;
#X floatatom 225 454 5 0 0 0 - - - 0;
#X msg 238 428 1;
#X obj 278 430 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#N canvas 432 291 663 554 get 0;
#X obj 32 93 pdcontrol;
#X msg 32 65 dir;
#X obj 32 38 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 32 12 loadbang;
#X obj 31 145 outlet;
#X obj 101 16 inlet;
#X msg 31 120 \$1/sounds/claps;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X restore 278 453 pd get clap folder;
#X obj 423 473 playdir~;
#X floatatom 422 451 5 0 0 0 - - - 0;
#X obj 475 427 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#N canvas 432 291 663 554 get 0;
#X obj 32 93 pdcontrol;
#X msg 32 65 dir;
#X obj 32 38 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 32 12 loadbang;
#X obj 31 145 outlet;
#X obj 101 16 inlet;
#X msg 31 120 \$1/sounds/snare;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X restore 475 450 pd get snare folder;
#X msg 405 425 14;
#X obj 630 475 playdir~;
#X floatatom 629 453 5 0 0 0 - - - 0;
#X obj 682 429 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#N canvas 432 291 663 554 get 0;
#X obj 32 93 pdcontrol;
#X msg 32 65 dir;
#X obj 32 38 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 32 12 loadbang;
#X obj 31 145 outlet;
#X obj 101 16 inlet;
#X msg 31 120 \$1/sounds/perc;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X restore 682 452 pd get perc folder;
#X msg 638 424 12;
#X obj 834 469 playdir~;
#X floatatom 833 447 5 0 0 0 - - - 0;
#X obj 886 423 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#N canvas 432 291 663 554 get 0;
#X obj 32 93 pdcontrol;
#X msg 32 65 dir;
#X obj 32 38 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 32 12 loadbang;
#X obj 31 145 outlet;
#X obj 101 16 inlet;
#X msg 31 120 \$1/sounds/cymbals;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X restore 886 446 pd get cymbals folder;
#X msg 804 420 8;
#X obj 1048 473 playdir~;
#X floatatom 1047 451 5 0 0 0 - - - 0;
#X obj 1100 427 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X msg 1027 416 8;
#N canvas 432 291 663 554 get 0;
#X obj 32 93 pdcontrol;
#X msg 32 65 dir;
#X obj 32 38 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 32 12 loadbang;
#X obj 31 145 outlet;
#X obj 101 16 inlet;
#X msg 31 120 \$1/sounds/hihats;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X restore 1100 450 pd get hihats folder;
#X obj 1254 476 playdir~;
#X floatatom 1253 454 5 0 0 0 - - - 0;
#X obj 1306 430 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#N canvas 432 291 663 554 get 0;
#X obj 32 93 pdcontrol;
#X msg 32 65 dir;
#X obj 32 38 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 32 12 loadbang;
#X obj 31 145 outlet;
#X obj 101 16 inlet;
#X msg 31 120 \$1/sounds/openhihats;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X restore 1306 453 pd get openhihhats folder;
#X msg 1222 419 9;
#X obj 1495 475 playdir~;
#X floatatom 1494 453 5 0 0 0 - - - 0;
#X obj 1547 429 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#N canvas 432 291 663 554 get 0;
#X obj 32 93 pdcontrol;
#X msg 32 65 dir;
#X obj 32 38 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 32 12 loadbang;
#X obj 31 145 outlet;
#X obj 101 16 inlet;
#X msg 31 120 \$1/sounds/fx;
#X connect 0 0 6 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 4 0;
#X restore 1547 452 pd get fx folder;
#X msg 1480 424 32;
#X obj 838 499 outlet~;
#X obj 74 40 inlet;
#X obj 75 332 random 100;
#X obj 1607 45 inlet;
#X obj 1609 80 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 16 45 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 271 347 random 100;
#X obj 454 298 random 100;
#X obj 662 352 random 100;
#X obj 831 360 random 100;
#X obj 1079 335 random 100;
#X obj 1299 335 random 100;
#X obj 1501 387 i;
#X obj 1522 361 random 100;
#X obj 17 16 r d1;
#X obj 22 81 spigot 1;
#X obj 248 43 inlet;
#X obj 190 48 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 196 84 spigot 1;
#X obj 191 19 r d2;
#X obj 413 41 inlet;
#X obj 355 46 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 361 82 spigot 1;
#X obj 356 17 r d3;
#X obj 649 47 inlet;
#X obj 591 52 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 597 88 spigot 1;
#X obj 592 23 r d4;
#X obj 825 56 inlet;
#X obj 767 61 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 773 97 spigot 1;
#X obj 768 32 r d5;
#X obj 1062 57 inlet;
#X obj 1004 62 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 1010 98 spigot 1;
#X obj 1005 33 r d6;
#X obj 1294 50 inlet;
#X obj 1236 55 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 1242 91 spigot 1;
#X obj 1237 26 r d7;
#X obj 1455 42 inlet;
#X obj 1397 47 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 1403 83 spigot 1;
#X obj 1398 18 r d8;
#X floatatom 57 265 5 0 0 0 - - - 0;
#X obj 25 371 i 2;
#X obj 216 386 i 1;
#X floatatom 665 151 5 0 0 0 - - - 0;
#X obj 412 383 i 11;
#X obj 617 392 i 10;
#X floatatom 806 247 5 0 0 0 - - - 0;
#X floatatom 1062 287 5 0 0 0 - - - 0;
#X floatatom 1304 256 5 0 0 0 - - - 0;
#X obj 1261 377 i 30;
#X obj 1027 387 i 1;
#X obj 768 367 i 18;
#X connect 0 0 40 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 0 1;
#X connect 4 0 3 0;
#X connect 5 0 40 0;
#X connect 6 0 5 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 5 1;
#X connect 10 0 40 0;
#X connect 11 0 10 0;
#X connect 12 0 13 0;
#X connect 13 0 10 1;
#X connect 14 0 11 0;
#X connect 15 0 40 0;
#X connect 16 0 15 0;
#X connect 17 0 18 0;
#X connect 18 0 15 1;
#X connect 19 0 16 0;
#X connect 20 0 40 0;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 23 0 20 1;
#X connect 24 0 21 0;
#X connect 25 0 40 0;
#X connect 26 0 25 0;
#X connect 27 0 29 0;
#X connect 28 0 26 0;
#X connect 29 0 25 1;
#X connect 30 0 40 0;
#X connect 31 0 30 0;
#X connect 32 0 33 0;
#X connect 33 0 30 1;
#X connect 34 0 31 0;
#X connect 35 0 40 0;
#X connect 36 0 35 0;
#X connect 37 0 38 0;
#X connect 38 0 35 1;
#X connect 39 0 36 0;
#X connect 41 0 55 1;
#X connect 43 0 44 0;
#X connect 44 0 53 0;
#X connect 44 0 51 0;
#X connect 44 0 50 0;
#X connect 44 0 49 0;
#X connect 44 0 48 0;
#X connect 44 0 47 0;
#X connect 44 0 46 0;
#X connect 44 0 42 0;
#X connect 45 0 55 0;
#X connect 52 0 36 0;
#X connect 53 0 52 1;
#X connect 54 0 45 0;
#X connect 55 0 85 0;
#X connect 56 0 58 1;
#X connect 57 0 58 0;
#X connect 58 0 86 0;
#X connect 59 0 57 0;
#X connect 60 0 62 1;
#X connect 61 0 62 0;
#X connect 62 0 88 0;
#X connect 63 0 61 0;
#X connect 64 0 66 1;
#X connect 65 0 66 0;
#X connect 66 0 89 0;
#X connect 67 0 65 0;
#X connect 68 0 70 1;
#X connect 69 0 70 0;
#X connect 70 0 95 0;
#X connect 71 0 69 0;
#X connect 72 0 74 1;
#X connect 73 0 74 0;
#X connect 74 0 94 0;
#X connect 75 0 73 0;
#X connect 76 0 78 1;
#X connect 77 0 78 0;
#X connect 78 0 93 0;
#X connect 79 0 77 0;
#X connect 80 0 82 1;
#X connect 81 0 82 0;
#X connect 83 0 81 0;
#X connect 84 0 85 1;
#X connect 85 0 1 0;
#X connect 86 0 6 0;
#X connect 87 0 89 1;
#X connect 88 0 11 0;
#X connect 89 0 16 0;
#X connect 90 0 95 1;
#X connect 91 0 94 1;
#X connect 92 0 93 1;
#X connect 93 0 31 0;
#X connect 94 0 26 0;
#X connect 95 0 21 0;
#X restore 1443 682 pd drum_kit;
#X f 79;
#X obj 1447 416 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#N canvas 348 51 1313 899 house 0;
#X floatatom 43 118 5 0 0 0 - - - 0;
#X obj 84 96 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 44 92 mseq;
#X floatatom 109 157 5 0 0 0 - - - 0;
#X obj 150 135 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 110 131 mseq;
#X obj 44 41 r metro;
#X obj 110 104 r metro;
#X obj 453 34 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X msg 173 107 - - 5 -;
#X floatatom 177 194 5 0 0 0 - - - 0;
#X obj 218 172 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 178 168 mseq;
#X obj 178 141 r metro;
#X msg 241 144 - - 9 -;
#X floatatom 256 228 5 0 0 0 - - - 0;
#X obj 297 206 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 257 202 mseq;
#X obj 257 175 r metro;
#X msg 320 178 - - - - - - - - - - 11 11;
#X floatatom 310 289 5 0 0 0 - - - 0;
#X obj 360 277 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 311 263 mseq;
#X obj 311 236 r metro;
#X floatatom 360 357 5 0 0 0 - - - 0;
#X obj 410 345 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 361 331 mseq;
#X obj 361 304 r metro;
#X floatatom 448 388 5 0 0 0 - - - 0;
#X obj 498 376 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 449 362 mseq;
#X obj 449 335 r metro;
#X floatatom 539 429 5 0 0 0 - - - 0;
#X obj 589 417 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 540 403 mseq;
#X obj 540 376 r metro;
#X obj 45 556 outlet;
#X obj 453 8 inlet;
#X obj 110 556 outlet;
#X obj 171 553 outlet;
#X obj 236 553 outlet;
#X obj 325 540 outlet;
#X obj 390 540 outlet;
#X obj 451 537 outlet;
#X obj 516 537 outlet;
#X msg 620 87 -;
#X msg 70 67 7 -;
#X msg 603 379 - - - - - - - - - - - - - - - 42;
#X obj 620 40 inlet;
#X msg 512 338 -;
#X msg 425 307 -;
#X msg 374 239 -;
#X connect 0 0 36 0;
#X connect 2 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 38 0;
#X connect 5 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 2 0;
#X connect 7 0 5 0;
#X connect 8 0 46 0;
#X connect 8 0 9 0;
#X connect 8 0 14 0;
#X connect 8 0 19 0;
#X connect 8 0 51 0;
#X connect 8 0 50 0;
#X connect 8 0 49 0;
#X connect 8 0 47 0;
#X connect 9 0 5 1;
#X connect 10 0 39 0;
#X connect 12 0 10 0;
#X connect 12 0 11 0;
#X connect 13 0 12 0;
#X connect 14 0 12 1;
#X connect 15 0 40 0;
#X connect 17 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 17 1;
#X connect 20 0 41 0;
#X connect 22 0 20 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 24 0 42 0;
#X connect 26 0 24 0;
#X connect 26 0 25 0;
#X connect 27 0 26 0;
#X connect 28 0 43 0;
#X connect 30 0 28 0;
#X connect 30 0 29 0;
#X connect 31 0 30 0;
#X connect 32 0 44 0;
#X connect 34 0 32 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 37 0 8 0;
#X connect 45 0 34 1;
#X connect 45 0 30 1;
#X connect 45 0 26 1;
#X connect 45 0 22 1;
#X connect 45 0 17 1;
#X connect 45 0 12 1;
#X connect 45 0 5 1;
#X connect 45 0 2 1;
#X connect 46 0 2 1;
#X connect 47 0 34 1;
#X connect 48 0 45 0;
#X connect 49 0 30 1;
#X connect 50 0 26 1;
#X connect 51 0 22 1;
#X restore 1449 447 pd house pattern;
#X f 69;
#X obj 1926 418 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 1532 419 s tempo;
#X obj 1591 419 s clear_drum_patterns;
#X obj 1447 364 t b b b, f 22;
#X obj 1446 339 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X msg 1532 392 235;
#X obj 1996 633 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 1444 496 s d1;
#X obj 1521 494 s d2;
#X obj 1595 494 s d3;
#X obj 1669 492 s d4;
#X obj 1744 492 s d5;
#X obj 1818 494 s d6;
#X obj 1893 493 s d7;
#X obj 1968 495 s d8;
#X obj 1442 655 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1511 655 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1580 655 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1648 657 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1717 656 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1787 657 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1854 654 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 1921 657 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X msg 1368 588 1;
#X msg 1455 564 0;
#X msg 1870 578 0;
#X obj 1310 329 loadbang;
#X obj 472 1034 heavybass~, f 12;
#X obj 455 1010 - 24;
#X obj 294 602 i;
#X floatatom 294 627 5 0 0 0 - - - 0;
#X obj 223 603 i;
#X floatatom 223 628 5 0 0 0 - - - 0;
#X obj 150 607 i;
#X floatatom 150 632 5 0 0 0 - - - 0;
#X obj 345 504 i;
#X obj 376 505 + 1;
#X floatatom 345 529 5 0 0 0 - - - 0;
#X floatatom 2031 264 5 0 100 2 Hits - - 0;
#X obj 1987 291 euclid 16 9 0;
#X floatatom 2009 228 5 0 0 2 Seq\ length - - 0;
#X floatatom 2085 261 5 0 16 2 Rotation - - 0;
#X text 2086 284 Reset;
#X obj 476 78 s metro;
#X obj 1987 184 r metro;
#X floatatom 1864 265 5 0 100 2 Hits - - 0;
#X obj 1820 292 euclid 16 9 0;
#X floatatom 1842 229 5 0 0 2 Seq\ length - - 0;
#X floatatom 1918 262 5 0 16 2 Rotation - - 0;
#X text 1919 285 Reset;
#X obj 1820 185 r metro;
#X floatatom 1709 263 5 0 100 2 Hits - - 0;
#X obj 1665 290 euclid 16 9 0;
#X floatatom 1687 227 5 0 0 2 Seq\ length - - 0;
#X floatatom 1763 260 5 0 16 2 Rotation - - 0;
#X text 1764 283 Reset;
#X obj 1665 183 r metro;
#X obj 345 553 % 100;
#X obj 149 656 % 4000;
#X obj 420 24 metro 200;
#X msg 1669 89 8 4 4 4 4 2 2, f 14;
#X obj 1671 124 unpack 0 0 0 0 0 0 0;
#X obj 1665 45 loadbang;
#X obj 325 603 + 10;
#X obj 257 605 + 10;
#X obj 181 608 + 10;
#X floatatom 625 574 5 0 100 2 Hits - - 0;
#X obj 581 601 euclid 16 9 0;
#X floatatom 603 538 5 0 0 2 Seq\ length - - 0;
#X floatatom 679 571 5 0 16 2 Rotation - - 0;
#X text 680 594 Reset;
#X obj 452 949 i;
#X msg 915 664 79 \, 75 \, 68 \, 65 \;;
#X msg 933 694 84 \, 80 \, 73 \, 70 \;;
#X msg 961 723 82 \, 78 \, 71 \, 68 \;;
#X floatatom 1037 131 5 0 100 2 Hits - - 0;
#X obj 993 158 euclid 16 9 0;
#X floatatom 1015 95 5 0 0 2 Seq\ length - - 0;
#X floatatom 1091 128 5 0 16 2 Rotation - - 0;
#X text 1092 151 Reset;
#X obj 879 513 i;
#X obj 907 485 + 1;
#X obj 948 385 random 100;
#X floatatom 879 538 5 0 0 0 - - - 0;
#X obj 915 513 spigot;
#X obj 948 435 sel 1;
#X obj 942 456 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 976 459 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X msg 975 485 0;
#X msg 942 484 1;
#X obj 881 396 t b b;
#X obj 994 186 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 880 591 % 3;
#X obj 913 638 sel 0 1 2;
#X obj 223 652 % 2000;
#N canvas 915 222 995 630 tuned_genai 0;
#X obj 153 222 playdir~, f 19;
#X obj 173 163 pdcontrol;
#X msg 173 135 dir;
#X obj 173 108 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 212 110 loadbang;
#X floatatom 122 94 5 0 0 0 - - - 0;
#X msg 172 190 \$1/sounds/ai2;
#X obj 120 69 random 2000;
#N canvas 580 123 518 506 hann-window 0;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-hann 512 float 0;
#X coords 0 1 511 0 227 152 1;
#X restore 240 262 graph;
#X obj 112 366 osc~;
#X obj 112 391 *~ -0.5;
#X obj 112 415 +~ 0.5;
#X obj 95 458 tabwrite~ \$0-hann;
#X obj 64 236 swap;
#X obj 64 260 /;
#X msg 140 150 resize \$1;
#X obj 140 174 s \$0-hann;
#X msg 137 336 0;
#X obj 64 332 t f b;
#X obj 75 114 s window-size;
#X floatatom 64 294 8 0 0 0 - - - 0;
#X text 130 294 window hz;
#X text 246 123 Calculate Hann window table (variable window size) by getting the period of the window and Hz. Also get the analysis window size in seconds and msec., f 33;
#X obj 89 206 samplerate~;
#X obj 64 160 t f b f;
#X obj 64 60 inlet;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 12 0;
#X connect 7 0 8 0;
#X connect 9 0 1 1;
#X connect 10 0 1 0;
#X connect 10 1 4 0;
#X connect 10 1 9 0;
#X connect 12 0 10 0;
#X connect 15 0 5 1;
#X connect 16 0 5 0;
#X connect 16 1 15 0;
#X connect 16 2 7 0;
#X connect 17 0 11 0;
#X connect 17 0 16 0;
#X restore 307 221 pd hann-window;
#X floatatom 307 188 5 0 0 0 - - - 0;
#X msg 307 47 512;
#X obj 317 71 loadbang;
#X msg 317 95 1024;
#X msg 357 117 2048;
#X msg 368 146 4096;
#N canvas 352 38 540 704 fft-analysis 0;
#X obj 92 534 *~;
#X obj 53 534 *~;
#X obj 330 325 *~;
#X obj 298 325 *~;
#X obj 298 351 +~;
#X obj 53 176 *~;
#X obj 53 147 inlet~;
#X obj 53 199 rfft~;
#X obj 53 603 *~;
#X obj 144 238 *~;
#X obj 298 297 rfft~;
#X obj 53 568 rifft~;
#X obj 53 636 outlet~;
#X obj 110 238 *~;
#X obj 110 261 +~;
#X obj 110 443 *~;
#X obj 110 391 clip~;
#X obj 86 177 tabreceive~ \$0-hann;
#X obj 142 341 r squelch;
#X obj 142 365 expr 0.01*$f1*$f1;
#X obj 110 287 +~ 1e-20;
#X obj 86 603 tabreceive~ \$0-hann;
#X obj 298 268 *~;
#X obj 298 147 inlet~;
#X obj 316 237 tabreceive~ \$0-hann;
#X text 108 146 filter input;
#X text 356 146 control source;
#X text 360 296 Fourier transform;
#X text 43 19 Internal workings of the timbre stamping algorithm. First the "filter input" is treated as in the compressor patch \, multiplying each channel amplitude by one over its modulus (but limited by the "squelch" parameter.) It is then multiplied by the modulus of the channel amplitude for the control source (which is Fourier analyzed in parallel with the filter input.);
#X obj 110 312 rsqrt~;
#X obj 298 374 sqrt~;
#X text 365 353 modulus of control amplitude, f 10;
#X text 148 440 multiply the two amplitude factors (for compression and to apply new timbre), f 26;
#X text 181 254 reciprocal modulus of filter input amplitude, f 12;
#X obj 375 460 r window-size;
#X msg 375 486 set \$1 4;
#X obj 375 512 block~;
#X obj 157 533 expr 2/(3*$f1);
#X obj 157 504 r window-size;
#X text 272 533 normalize;
#X obj 110 503 *~ 0;
#X connect 0 0 11 1;
#X connect 1 0 11 0;
#X connect 2 0 4 1;
#X connect 3 0 4 0;
#X connect 4 0 30 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 7 0 13 0;
#X connect 7 0 13 1;
#X connect 7 0 1 0;
#X connect 7 1 9 0;
#X connect 7 1 9 1;
#X connect 7 1 0 0;
#X connect 8 0 12 0;
#X connect 9 0 14 1;
#X connect 10 0 3 0;
#X connect 10 0 3 1;
#X connect 10 1 2 0;
#X connect 10 1 2 1;
#X connect 11 0 8 0;
#X connect 13 0 14 0;
#X connect 14 0 20 0;
#X connect 15 0 40 0;
#X connect 16 0 15 0;
#X connect 17 0 5 1;
#X connect 18 0 19 0;
#X connect 19 0 16 2;
#X connect 20 0 29 0;
#X connect 21 0 8 1;
#X connect 22 0 10 0;
#X connect 23 0 22 0;
#X connect 24 0 22 1;
#X connect 29 0 16 0;
#X connect 30 0 15 1;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 37 0 40 1;
#X connect 38 0 37 0;
#X connect 40 0 0 1;
#X connect 40 0 1 1;
#X restore 50 246 pd fft-analysis;
#X obj 50 271 outlet~;
#X obj 34 22 inlet~;
#X obj 115 24 inlet;
#X obj 191 26 loadbang;
#X floatatom 402 92 5 1 200 1 squelch - squelch 16;
#X obj 402 32 loadbang;
#X msg 402 59 30;
#X connect 0 0 15 1;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 0 0;
#X connect 6 0 0 1;
#X connect 7 0 5 0;
#X connect 9 0 8 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 9 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 16 0;
#X connect 17 0 15 0;
#X connect 18 0 7 0;
#X connect 19 0 10 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X restore 150 1014 pd tuned_genai;
#X obj 134 871 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 150 1039 *~ 0.5;
#X obj 980 -54 loadbang;
#X obj 987 24 unpack 0 0 0;
#X msg 977 -10 16 4 0, f 7;
#X obj 932 88 r metro;
#X msg 1059 -11 16 8 3, f 7;
#X msg 1129 -7 16 16 0;
#X msg 887 -11 16 1 0, f 7;
#X obj 709 307 spigot 1;
#X msg 684 200 1;
#X msg 722 196 0;
#X msg 684 228 0;
#X msg 724 228 1;
#X obj 761 144 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 797 307 spigot 0;
#X obj 787 145 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 763 117 sel 0 1;
#X obj 763 86 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X obj 947 409 > 80;
#X obj 528 330 > 80;
#X msg 1800 90 4 4 4 4 4 2 2, f 14;
#X msg 1914 89 16 4 16 4 4 2 2;
#X obj 294 651 % 1000;
#X obj 616 451 random 32;
#X obj 651 481 random 32;
#X obj 686 515 random 32;
#X obj 683 393 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 1279 -39 random 32;
#X obj 1314 -9 random 32;
#X obj 1349 25 random 32;
#X obj 1346 -97 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 453 981 spigot 1;
#X obj 503 935 tgl 20 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000 0 1;
#X floatatom 757 783 5 0 127 2 MIDI_pitch - - 0;
#X floatatom 770 820 5 0 127 2 MIDI_Velocity - - 0;
#X floatatom 783 858 5 0 10000 2 Filter_cutoff_(Hz) - - 0;
#X floatatom 797 897 5 0 1000 2 Attack_(ms) - - 0;
#X floatatom 810 936 5 0 2000 2 Release_(ms) - - 0;
#X obj 757 997 synth~ 500;
#X floatatom 824 970 5 0 10000 2 Glide\ (ms) - - 0;
#X text 836 997 outlets - audio out \, amp env level;
#X floatatom 1217 777 5 0 127 2 MIDI_Pitch_(0-127) - - 0;
#X floatatom 1229 814 5 0 127 2 MIDI_Velocity_(0-127) - - 0;
#X floatatom 1241 852 5 0 1000 2 Modulation_Index_(0-100+) - - 0;
#X floatatom 1266 930 5 0 1000 2 Attack_(ms) - - 0;
#X floatatom 1278 970 5 0 2000 2 Release_(ms) - - 0;
#X floatatom 1254 891 5 0 1000 2 Modulator_Frequency_Ratio_(0-20+) - - 0;
#X obj 1217 1045 fm~ 20 1, f 11;
#X floatatom 1291 1009 5 0 2000 2 Glide_(ms) - - 0;
#X floatatom 1388 1064 5 0 0 1 Time\ (0-2000\ ms) - - 0;
#X floatatom 1419 1086 5 0 1 1 Level\ (0-1) - - 0;
#X floatatom 1450 1110 5 0 1 1 Feedback\ (0-1) - - 0;
#X msg 1388 971 1450 2000;
#X obj 1388 1020 line;
#X text 1390 948 Automate echo;
#X obj 1327 1141 echo~ 125 0.35 0.6;
#X msg 1402 995 1 5000;
#X obj 475 143 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 852 -57 sel 0 1 2 4 5;
#X obj 853 -82 random 5;
#X obj 1304 543 sel 0 1 2;
#X obj 1270 516 random 3;
#X obj 585 142 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 117 302 random 100;
#X obj 117 352 sel 1;
#X obj 111 373 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 117 327 > 98;
#X obj 75 610 i;
#X floatatom 75 635 5 0 0 0 - - - 0;
#X obj 112 609 + 1;
#X obj 74 659 % 99;
#X obj 308 1036 *~ 0.2;
#X obj 752 1025 *~ 0.8;
#X obj 1208 1202 *~ 0.009;
#X msg 915 851 127 250 195;
#X obj 915 876 unpack 0 0 0;
#X obj 914 823 loadbang;
#X obj 1180 663 loadbang;
#X msg 1181 691 127 664 549 34 1000 2000 0.5;
#X obj 1182 716 unpack 0 0 0 0 0 0 0;
#X obj 1443 706 *~ 0.29;
#X obj 1547 -6 sel 0 1 2;
#X obj 1548 -31 random 3;
#X obj 137 1221 playdir~, f 19;
#X obj 157 1162 pdcontrol;
#X msg 157 1134 dir;
#X obj 157 1107 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 196 1109 loadbang;
#X floatatom 106 1093 5 0 0 0 - - - 0;
#X msg 156 1189 \$1/sounds/ai1;
#X msg 34 1102 5;
#X msg 36 1059 0;
#X msg 67 1023 2;
#X obj 18 953 loadbang;
#X obj 454 1134 *~ 0.79;
#X msg 322 1288 start;
#X msg 329 1316 stop;
#X text 366 1290 start streaming audio;
#X text 368 1316 stop streaming audio;
#X obj 314 1409 writesf~ 2, f 15;
#X msg 303 1244 open ./m-onz-algohouse.wav;
#X obj 461 1072 *~ 0.5;
#X connect 4 0 7 2;
#X connect 5 0 7 3;
#X connect 6 0 7 4;
#X connect 7 0 34 0;
#X connect 7 0 207 0;
#X connect 8 0 33 0;
#X connect 9 0 7 1;
#X connect 10 0 33 0;
#X connect 11 0 33 0;
#X connect 12 0 33 0;
#X connect 13 0 14 0;
#X connect 13 0 19 0;
#X connect 14 0 21 0;
#X connect 15 0 155 0;
#X connect 16 0 98 0;
#X connect 17 0 68 0;
#X connect 17 0 70 0;
#X connect 17 0 72 0;
#X connect 17 0 74 0;
#X connect 17 0 82 0;
#X connect 17 0 106 0;
#X connect 17 0 199 0;
#X connect 17 0 203 0;
#X connect 18 0 8 0;
#X connect 18 1 10 0;
#X connect 18 2 11 0;
#X connect 18 3 12 0;
#X connect 19 0 20 0;
#X connect 20 0 18 0;
#X connect 21 0 13 1;
#X connect 22 0 23 0;
#X connect 22 1 24 0;
#X connect 23 0 26 0;
#X connect 24 0 25 0;
#X connect 25 0 21 1;
#X connect 26 0 21 1;
#X connect 27 0 13 0;
#X connect 27 1 15 0;
#X connect 28 0 98 1;
#X connect 29 0 27 0;
#X connect 30 0 3 3;
#X connect 31 0 34 0;
#X connect 31 0 207 0;
#X connect 32 0 31 1;
#X connect 33 0 31 0;
#X connect 33 0 7 0;
#X connect 33 0 135 0;
#X connect 33 0 110 0;
#X connect 34 0 134 0;
#X connect 36 0 216 0;
#X connect 37 0 38 0;
#X connect 38 0 46 0;
#X connect 38 1 47 0;
#X connect 38 2 48 0;
#X connect 38 3 49 0;
#X connect 38 4 50 0;
#X connect 38 5 51 0;
#X connect 38 6 52 0;
#X connect 38 7 53 0;
#X connect 39 0 38 1;
#X connect 42 0 37 0;
#X connect 42 1 44 0;
#X connect 42 2 41 0;
#X connect 43 0 42 0;
#X connect 44 0 40 0;
#X connect 45 0 36 8;
#X connect 54 0 36 0;
#X connect 55 0 36 1;
#X connect 56 0 36 2;
#X connect 57 0 36 3;
#X connect 58 0 36 4;
#X connect 59 0 36 5;
#X connect 60 0 36 6;
#X connect 61 0 36 7;
#X connect 62 0 54 0;
#X connect 62 0 55 0;
#X connect 62 0 56 0;
#X connect 62 0 57 0;
#X connect 62 0 59 0;
#X connect 62 0 58 0;
#X connect 62 0 60 0;
#X connect 63 0 54 0;
#X connect 63 0 55 0;
#X connect 63 0 56 0;
#X connect 63 0 58 0;
#X connect 63 0 59 0;
#X connect 63 0 60 0;
#X connect 63 0 57 0;
#X connect 64 0 60 0;
#X connect 64 0 59 0;
#X connect 64 0 58 0;
#X connect 64 0 57 0;
#X connect 65 0 63 0;
#X connect 65 0 43 0;
#X connect 67 0 66 0;
#X connect 67 0 169 0;
#X connect 68 0 69 0;
#X connect 68 0 102 0;
#X connect 69 0 158 0;
#X connect 70 0 71 0;
#X connect 70 0 103 0;
#X connect 71 0 133 0;
#X connect 72 0 73 0;
#X connect 72 0 104 0;
#X connect 73 0 97 0;
#X connect 74 0 75 0;
#X connect 74 0 76 0;
#X connect 75 0 74 1;
#X connect 76 0 96 0;
#X connect 77 0 78 2;
#X connect 78 0 52 0;
#X connect 79 0 78 1;
#X connect 80 0 78 3;
#X connect 83 0 78 0;
#X connect 84 0 85 2;
#X connect 85 0 51 0;
#X connect 86 0 85 1;
#X connect 87 0 85 3;
#X connect 89 0 85 0;
#X connect 90 0 91 2;
#X connect 91 0 50 0;
#X connect 92 0 91 1;
#X connect 93 0 91 3;
#X connect 95 0 91 0;
#X connect 97 0 4 0;
#X connect 98 0 17 0;
#X connect 99 0 100 0;
#X connect 100 0 92 0;
#X connect 100 1 90 0;
#X connect 100 2 86 0;
#X connect 100 3 84 0;
#X connect 100 4 79 0;
#X connect 100 5 77 0;
#X connect 100 6 80 0;
#X connect 101 0 99 0;
#X connect 102 0 68 1;
#X connect 103 0 70 1;
#X connect 104 0 72 1;
#X connect 105 0 106 2;
#X connect 106 0 110 0;
#X connect 107 0 106 1;
#X connect 108 0 106 3;
#X connect 110 0 167 0;
#X connect 111 0 33 0;
#X connect 112 0 33 0;
#X connect 113 0 33 0;
#X connect 114 0 115 2;
#X connect 115 0 130 0;
#X connect 116 0 115 1;
#X connect 117 0 115 3;
#X connect 119 0 120 0;
#X connect 119 0 122 0;
#X connect 120 0 123 0;
#X connect 121 0 154 0;
#X connect 122 0 131 0;
#X connect 123 0 119 1;
#X connect 124 0 125 0;
#X connect 124 1 126 0;
#X connect 125 0 128 0;
#X connect 126 0 127 0;
#X connect 127 0 123 1;
#X connect 128 0 123 1;
#X connect 129 0 119 0;
#X connect 129 1 121 0;
#X connect 130 0 144 0;
#X connect 130 0 150 0;
#X connect 131 0 132 0;
#X connect 132 0 111 0;
#X connect 132 1 112 0;
#X connect 132 2 113 0;
#X connect 133 0 5 0;
#X connect 134 0 136 0;
#X connect 135 0 134 1;
#X connect 136 0 230 0;
#X connect 137 0 139 0;
#X connect 138 0 116 0;
#X connect 138 0 107 0;
#X connect 138 1 114 0;
#X connect 138 1 105 0;
#X connect 138 2 117 0;
#X connect 138 2 108 0;
#X connect 139 0 138 0;
#X connect 140 0 115 0;
#X connect 141 0 138 0;
#X connect 142 0 138 0;
#X connect 143 0 138 0;
#X connect 144 0 29 0;
#X connect 145 0 144 1;
#X connect 146 0 150 1;
#X connect 147 0 144 1;
#X connect 148 0 150 1;
#X connect 149 0 145 0;
#X connect 149 0 146 0;
#X connect 150 0 129 0;
#X connect 151 0 147 0;
#X connect 151 0 148 0;
#X connect 152 0 149 0;
#X connect 152 1 151 0;
#X connect 153 0 152 0;
#X connect 154 0 124 0;
#X connect 155 0 22 0;
#X connect 156 0 100 0;
#X connect 157 0 100 0;
#X connect 158 0 32 0;
#X connect 158 0 6 0;
#X connect 159 0 107 0;
#X connect 160 0 105 0;
#X connect 161 0 108 0;
#X connect 162 0 160 0;
#X connect 162 0 161 0;
#X connect 162 0 159 0;
#X connect 163 0 116 0;
#X connect 164 0 114 0;
#X connect 165 0 117 0;
#X connect 166 0 164 0;
#X connect 166 0 165 0;
#X connect 166 0 163 0;
#X connect 167 0 67 0;
#X connect 167 0 177 0;
#X connect 168 0 167 1;
#X connect 169 0 174 0;
#X connect 170 0 174 1;
#X connect 171 0 174 2;
#X connect 172 0 174 3;
#X connect 173 0 174 4;
#X connect 174 0 208 0;
#X connect 175 0 174 5;
#X connect 177 0 183 0;
#X connect 178 0 183 1;
#X connect 179 0 183 2;
#X connect 180 0 183 4;
#X connect 181 0 183 5;
#X connect 182 0 183 3;
#X connect 183 0 191 0;
#X connect 183 0 191 1;
#X connect 183 0 209 0;
#X connect 184 0 183 6;
#X connect 185 0 191 2;
#X connect 186 0 191 3;
#X connect 187 0 191 4;
#X connect 188 0 189 0;
#X connect 189 0 185 0;
#X connect 191 0 209 0;
#X connect 192 0 189 0;
#X connect 193 0 153 0;
#X connect 194 0 143 0;
#X connect 194 1 139 0;
#X connect 194 2 141 0;
#X connect 194 3 142 0;
#X connect 194 4 166 0;
#X connect 194 4 162 0;
#X connect 195 0 194 0;
#X connect 196 0 62 0;
#X connect 196 0 188 0;
#X connect 196 1 63 0;
#X connect 196 1 192 0;
#X connect 196 2 64 0;
#X connect 197 0 196 0;
#X connect 198 0 197 0;
#X connect 198 0 218 0;
#X connect 199 0 202 0;
#X connect 200 0 201 0;
#X connect 202 0 200 0;
#X connect 203 0 204 0;
#X connect 203 0 205 0;
#X connect 204 0 206 0;
#X connect 205 0 203 1;
#X connect 206 0 30 0;
#X connect 207 0 230 0;
#X connect 208 0 230 0;
#X connect 209 0 230 0;
#X connect 210 0 211 0;
#X connect 211 0 170 0;
#X connect 211 1 171 0;
#X connect 211 2 175 0;
#X connect 212 0 210 0;
#X connect 213 0 214 0;
#X connect 214 0 215 0;
#X connect 215 0 178 0;
#X connect 215 1 179 0;
#X connect 215 2 182 0;
#X connect 215 3 180 0;
#X connect 215 4 181 0;
#X connect 215 5 184 0;
#X connect 215 6 186 0;
#X connect 215 6 187 0;
#X connect 216 0 230 0;
#X connect 217 0 99 0;
#X connect 217 1 156 0;
#X connect 217 2 157 0;
#X connect 218 0 217 0;
#X connect 219 0 237 0;
#X connect 219 1 227 0;
#X connect 220 0 225 0;
#X connect 221 0 220 0;
#X connect 222 0 221 0;
#X connect 223 0 222 0;
#X connect 224 0 219 0;
#X connect 225 0 219 1;
#X connect 226 0 224 0;
#X connect 227 0 224 0;
#X connect 228 0 224 0;
#X connect 230 0 3 0;
#X connect 230 0 3 1;
#X connect 230 0 35 0;
#X connect 230 0 235 0;
#X connect 230 0 235 1;
#X connect 231 0 235 0;
#X connect 232 0 235 0;
#X connect 236 0 235 0;
#X connect 237 0 230 0;