forest-all-around/puredata/radio_theatre_0.hing01/radio_toner.pd

#N canvas 528 33 836 672 12;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff10 50 float 3;
#A 0 0.809524 0.809524 0.819048 0.819048 0.819048 0.809524 0.7 0.695239
0.695239 0.695239 0.695239 0.438095 0.695239 0.690477 0.685715 0.447619
0.680952 0.680952 0.680952 0.680952 0.680952 0.82381 0.82381 0.666666
0.666666 0.671429 0.671429 0.814286 0.814286 0.657142 0.657142 0.657142
0.642856 0.623807 0.623807 0.623807 0.809524 0.361905 0.809524 0.361905
0.714285 0.714285 0.723809 0.761905 0.761905 0.771429 0.771429 0.771429
0.771429 0.800001;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 48 496 graph;
#X obj 371 405 tgl 20 0 empty empty 3001 17 7 0 10 #f8fc00 #000000
#000000 0 1;
#X obj 228 472 metro 2000;
#X obj 228 611 s NOTE;
#X msg 318 472 symbol riff10;
#X msg 45 359 1999 0 0 \$1;
#X obj 45 383 s NOTE;
#X obj 228 506 riff 170 3120;
#X obj 45 339 tgl 15 0 empty empty harmonica 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X text 101 456 plane;
#X obj 228 428 loadbang;
#X obj 168 19 inlet;
#X floatatom 168 44 5 0 0 0 - - - 0;
#X obj 257 300 radio_bell;
#X obj 257 281 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 245 145 > 15;
#X obj 245 168 change;
#X obj 275 254 del;
#X obj 245 191 sel 1;
#X msg 275 231 10000;
#N canvas 60 317 1181 582 (subpatch) 0;
#N canvas 1 89 450 250 (subpatch) 0;
#X array fruit_energy 10 float 3;
#A 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 0.2 10 0 200 50 1 0 0;
#X restore 15 36 graph;
#X obj 24 439 pack f f;
#X msg 172 419 0;
#X obj 478 116 array sum;
#X floatatom 183 18 5 0 0 0 sum FRUIT_ENERGY - 0;
#X obj 478 93 metro 100;
#X obj 140 340 loadbang;
#X obj 547 7 loadbang;
#X obj 547 30 t b b;
#X obj 24 371 snapshot~;
#X msg 24 319 start;
#X msg 74 319 stop;
#X obj 69 396 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 24 394 5 0 0 0 - - - 0;
#X obj 140 376 t b b;
#X obj 69 416 metro 50;
#X obj 24 348 ear~ 2000 10000;
#X obj 478 139 max 0.001;
#X obj 302 30 loadbang;
#X msg 302 55 \; pd dsp 1;
#N canvas 0 50 450 250 (subpatch) 0;
#X array fruity_sequence 20 float 3;
#A 0 1 0.86 0.85 0.72 0.7 0.81 0.68 0.48 1 0.79 0.74 0.68 0.53 0.56
0.92 0.86 0.86 0.8 0.8 0.87;
#X coords 0 1 20 0 200 100 1 0 0;
#X restore 955 194 graph;
#X obj 805 55 f;
#X obj 838 55 + 1;
#X obj 805 78 mod 20;
#X floatatom 805 101 5 0 0 0 - - - 0;
#X obj 805 35 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X floatatom 805 146 5 0 0 0 - - - 0;
#X obj 478 165 *;
#X obj 895 78 metro 60000;
#X obj 895 58 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 895 35 loadbang;
#X obj 955 269 hradio 10 1 0 20 empty empty empty 0 -8 0 10 #f8fc00
#0400fc #000000 0;
#X obj 478 188 +;
#X obj 407 54 tgl 15 0 empty empty set_to_stop_the_world 17 7 0 10
#fcfcfc #000000 #000000 0 1;
#X obj 805 168 s F_SEQ;
#X obj 404 439 pack f f;
#X obj 520 340 loadbang;
#X obj 404 371 snapshot~;
#X msg 404 319 start;
#X msg 454 319 stop;
#X obj 449 396 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 404 394 5 0 0 0 - - - 0;
#X obj 520 376 t b b;
#X obj 449 416 metro 50;
#X obj 404 348 ear~ 2000 10000;
#X msg 552 419 2;
#X obj 784 439 pack f f;
#X obj 900 340 loadbang;
#X obj 784 371 snapshot~;
#X msg 784 319 start;
#X msg 834 319 stop;
#X obj 829 396 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 784 394 5 0 0 0 - - - 0;
#X obj 900 376 t b b;
#X obj 829 416 metro 50;
#X obj 784 348 ear~ 2000 10000;
#X msg 932 419 4;
#X obj 24 416 * 0.1;
#X obj 404 416 * 0.1;
#X obj 784 416 * 0.1;
#X msg 628 32 \; fruit_energy const 0;
#X msg 579 84 symbol fruit_energy;
#X obj 478 224 s FRUIT_ENERGY;
#X msg 24 462 \; fruit_energy \$2 \$1;
#X msg 404 462 \; fruit_energy \$2 \$1;
#X msg 784 461 \; fruit_energy \$2 \$1;
#X obj 24 253 r DO;
#X obj 74 276 r DO_DONE;
#X obj 404 253 r MI;
#X obj 454 276 r MI_DONE;
#X obj 784 253 r SOL;
#X obj 834 276 r SOL_DONE;
#X msg 975 35 \; fruity_sequence const 1;
#X obj 805 123 tabread fruity_sequence;
#X obj 407 23 inlet;
#X connect 1 0 63 0;
#X connect 2 0 1 1;
#X connect 3 0 17 0;
#X connect 5 0 3 0;
#X connect 6 0 14 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 8 1 61 0;
#X connect 8 1 60 0;
#X connect 9 0 13 0;
#X connect 10 0 16 0;
#X connect 11 0 16 0;
#X connect 12 0 15 0;
#X connect 13 0 57 0;
#X connect 14 0 12 0;
#X connect 14 1 2 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 27 0;
#X connect 18 0 19 0;
#X connect 21 0 22 0;
#X connect 21 0 23 0;
#X connect 22 0 21 1;
#X connect 23 0 24 0;
#X connect 24 0 31 0;
#X connect 24 0 73 0;
#X connect 25 0 21 0;
#X connect 26 0 27 1;
#X connect 26 0 34 0;
#X connect 27 0 32 0;
#X connect 28 0 25 0;
#X connect 29 0 28 0;
#X connect 30 0 29 0;
#X connect 32 0 62 0;
#X connect 33 0 32 1;
#X connect 35 0 64 0;
#X connect 36 0 42 0;
#X connect 37 0 41 0;
#X connect 38 0 44 0;
#X connect 39 0 44 0;
#X connect 40 0 43 0;
#X connect 41 0 58 0;
#X connect 42 0 40 0;
#X connect 42 1 45 0;
#X connect 43 0 37 0;
#X connect 44 0 37 0;
#X connect 45 0 35 1;
#X connect 46 0 65 0;
#X connect 47 0 53 0;
#X connect 48 0 52 0;
#X connect 49 0 55 0;
#X connect 50 0 55 0;
#X connect 51 0 54 0;
#X connect 52 0 59 0;
#X connect 53 0 51 0;
#X connect 53 1 56 0;
#X connect 54 0 48 0;
#X connect 55 0 48 0;
#X connect 56 0 46 1;
#X connect 57 0 1 0;
#X connect 58 0 35 0;
#X connect 59 0 46 0;
#X connect 61 0 3 2;
#X connect 66 0 10 0;
#X connect 67 0 11 0;
#X connect 68 0 38 0;
#X connect 69 0 39 0;
#X connect 70 0 49 0;
#X connect 71 0 50 0;
#X connect 73 0 26 0;
#X connect 74 0 33 0;
#X coords 0 -1 1 1 220 100 1 5 5;
#X restore 595 212 pd;
#X obj 605 323 radio_do;
#X obj 705 323 radio_mi;
#X obj 605 423 radio_sol;
#X obj 595 192 tgl 15 0 empty empty set\\\ to\\\ sleep 17 7 0 10 #fcfcfc
#000000 #000000 0 1;
#X obj 228 452 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 45 168 change;
#X obj 45 191 sel 1;
#X obj 45 145 > 10;
#X obj 45 281 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 63 254 del;
#X obj 595 66 loadbang;
#X msg 595 91 1;
#X obj 367 281 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 355 168 change;
#X obj 385 254 del;
#X obj 355 191 sel 1;
#X msg 385 231 10000;
#X obj 355 145 > 22;
#X msg 367 301 0;
#X obj 145 168 change;
#X obj 145 191 sel 1;
#X obj 163 254 del;
#X msg 163 231 10000;
#X msg 45 301 1;
#X msg 63 231 4000;
#X obj 145 145 > 13;
#X obj 145 281 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 145 301 0;
#X obj 467 281 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 455 168 change;
#X obj 485 254 del;
#X obj 455 191 sel 1;
#X msg 485 231 10000;
#X obj 455 145 > 28;
#X msg 467 301 1;
#X msg 172 334 1;
#X msg 453 335 0;
#X connect 1 0 7 3;
#X connect 2 0 7 0;
#X connect 4 0 7 1;
#X connect 5 0 6 0;
#X connect 7 0 3 0;
#X connect 8 0 5 0;
#X connect 10 0 4 0;
#X connect 10 0 25 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 12 0 28 0;
#X connect 12 0 38 0;
#X connect 12 0 46 0;
#X connect 12 0 54 0;
#X connect 14 0 13 0;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 17 0 14 0;
#X connect 18 0 14 0;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X connect 24 0 20 0;
#X connect 25 0 2 0;
#X connect 26 0 27 0;
#X connect 27 0 45 0;
#X connect 27 0 29 0;
#X connect 28 0 26 0;
#X connect 29 0 44 0;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 32 0 24 0;
#X connect 33 0 39 0;
#X connect 34 0 36 0;
#X connect 35 0 33 0;
#X connect 36 0 33 0;
#X connect 36 0 37 0;
#X connect 37 0 35 0;
#X connect 38 0 34 0;
#X connect 39 0 24 0;
#X connect 40 0 41 0;
#X connect 41 0 43 0;
#X connect 41 0 47 0;
#X connect 42 0 47 0;
#X connect 43 0 42 0;
#X connect 44 0 8 0;
#X connect 45 0 30 0;
#X connect 46 0 40 0;
#X connect 47 0 48 0;
#X connect 47 0 56 0;
#X connect 48 0 8 0;
#X connect 49 0 55 0;
#X connect 49 0 57 0;
#X connect 50 0 52 0;
#X connect 51 0 49 0;
#X connect 52 0 49 0;
#X connect 52 0 53 0;
#X connect 53 0 51 0;
#X connect 54 0 50 0;
#X connect 55 0 24 0;
#X connect 56 0 1 0;
#X connect 57 0 1 0;