sound-from-earth/radio_theatre_soundfromearth/radio_mote_random.pd
2024-12-03 17:57:14 +01:00

936 lines
28 KiB
Text

#N canvas 244 25 1008 523 10;
#X obj 8 32 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #c6ffc7 #000000 #000000 0 1;
#X obj 88 191 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #fcfcfc #000000 #000000;
#X msg 187 224 1;
#X obj 187 277 v \$0-STATE;
#N canvas 466 23 769 755 world 0;
#X floatatom 16 194 5 0 0 0 - - - 0;
#X obj 16 443 t a b;
#X obj 16 522 spigot;
#X obj 67 507 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 67 484 == 0;
#X obj 16 466 sel 1;
#X text 41 552 think;
#X obj 16 578 gauss 1 0;
#X floatatom 16 624 5 0 0 0 - - - 0;
#X obj 16 694 sel 1;
#X obj 65 712 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 110 654 5 0 0 0 stress - - 0;
#X obj 278 705 +;
#X obj 278 652 t a b;
#X obj 278 476 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 278 630 8 0 0 0 - - - 0;
#X obj 16 671 >;
#X obj 278 525 t b b;
#X obj 325 566 sel 1 0;
#X obj 34 224 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8 #f8fc00 #000000;
#X obj 278 728 max 0;
#X text 69 360 world is quiet?;
#X text 90 435 status of me;
#X obj 147 479 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 16 601 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 195 graph;
#X obj 278 453 loadbang;
#X text 78 377 condition of state change;
#X obj 278 496 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 350 pd;
#X obj 325 543 v \$0-STATE;
#X obj 305 675 v \$0-STRESS;
#X obj 278 751 v \$0-STRESS;
#X obj 67 461 v \$0-STATE;
#X obj 16 747 outlet;
#X obj 373 385 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 373 405 metro 50;
#X obj 373 362 loadbang;
#X obj 373 428 v \$0-STATE;
#X obj 373 451 s \$0-status-now;
#X obj 16 166 +;
#X obj 49 166 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 283 144 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 119 37 r \$0-group;
#X obj 86 14 loadbang;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 283 101 v;
#X obj 386 37 r \$0-group;
#X obj 353 14 loadbang;
#X obj 283 60 metro 200;
#X obj 16 60 metro 100;
#X obj 16 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 283 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 16 360 <;
#X obj 31 311 r \$0-cond;
#X floatatom 31 334 5 0 0 0 - - - 0;
#X floatatom 325 590 5 0 0 1 working\ stress - - 0;
#X floatatom 344 613 5 0 0 1 resting\ relax - - 0;
#X obj 146 549 r \$0-stress;
#X msg 146 572 set \$1;
#X msg 199 595 set \$1;
#X obj 199 572 r \$0-relax;
#X obj 86 60 v;
#X obj 353 60 v;
#X obj 353 83 makefilename world_sleep%d;
#X obj 86 83 makefilename world_energy_sum%d;
#X obj 283 122 change;
#X obj 609 609 r \$0-group;
#X obj 576 586 loadbang;
#X obj 576 632 v;
#X obj 576 655 makefilename world_stamp%d;
#X obj 555 678 v;
#X obj 523 451 gauss 1 0;
#X obj 523 472 abs;
#X floatatom 523 493 5 0 0 0 - - - 0;
#X obj 523 544 sel 1;
#X obj 523 101 v;
#X obj 626 37 r \$0-group;
#X obj 593 14 loadbang;
#X obj 523 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 593 60 v;
#X obj 593 83 makefilename world_stamp%d;
#X floatatom 533 123 5 0 0 0 - - - 0;
#X obj 523 571 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 515 705 - 1;
#X obj 523 60 metro 1000;
#X obj 523 255 t a b;
#X obj 523 334 spigot;
#X obj 574 319 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 574 296 == 0;
#X obj 523 278 sel 1;
#X text 597 247 status of me;
#X obj 654 291 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 574 273 v \$0-STATE;
#X obj 523 148 > 1;
#X obj 515 726 max 0;
#X obj 523 523 > 2;
#X obj 430 726 v \$0-STRESS;
#X obj 523 618 t b b b;
#X msg 430 705 0;
#X obj 603 147 v;
#X obj 636 124 r \$0-name;
#X obj 624 183 print;
#X obj 597 123 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X connect 0 0 19 0;
#X connect 0 0 54 0;
#X connect 1 0 5 0;
#X connect 1 1 33 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 24 0;
#X connect 8 0 16 0;
#X connect 9 0 34 0;
#X connect 11 0 16 1;
#X connect 12 0 20 0;
#X connect 13 0 12 0;
#X connect 13 1 31 0;
#X connect 14 0 28 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 15 0;
#X connect 17 1 30 0;
#X connect 18 0 57 0;
#X connect 18 1 58 0;
#X connect 20 0 11 0;
#X connect 20 0 32 0;
#X connect 24 0 8 0;
#X connect 26 0 14 0;
#X connect 28 0 17 0;
#X connect 30 0 18 0;
#X connect 31 0 12 1;
#X connect 33 0 4 0;
#X connect 33 0 23 0;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 37 0 35 0;
#X connect 38 0 39 0;
#X connect 40 0 0 0;
#X connect 41 0 40 1;
#X connect 43 0 46 0;
#X connect 44 0 63 1;
#X connect 45 0 51 0;
#X connect 45 0 63 0;
#X connect 46 0 40 0;
#X connect 47 0 67 0;
#X connect 48 0 64 1;
#X connect 49 0 50 0;
#X connect 49 0 64 0;
#X connect 50 0 47 0;
#X connect 51 0 43 0;
#X connect 52 0 51 0;
#X connect 53 0 50 0;
#X connect 54 0 1 0;
#X connect 55 0 56 0;
#X connect 56 0 54 1;
#X connect 57 0 15 0;
#X connect 58 0 15 0;
#X connect 59 0 60 0;
#X connect 60 0 57 0;
#X connect 61 0 58 0;
#X connect 62 0 61 0;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 47 1;
#X connect 66 0 43 1;
#X connect 67 0 42 0;
#X connect 68 0 70 1;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 71 0 72 1;
#X connect 72 0 85 0;
#X connect 73 0 74 0;
#X connect 74 0 75 0;
#X connect 75 0 97 0;
#X connect 76 0 84 0;
#X connect 77 0 83 0;
#X connect 77 0 95 0;
#X connect 78 0 81 1;
#X connect 79 0 81 0;
#X connect 79 0 86 0;
#X connect 80 0 86 0;
#X connect 81 0 82 0;
#X connect 82 0 77 1;
#X connect 84 0 99 0;
#X connect 85 0 96 0;
#X connect 86 0 77 0;
#X connect 87 0 91 0;
#X connect 87 1 94 0;
#X connect 88 0 73 0;
#X connect 89 0 88 1;
#X connect 90 0 89 0;
#X connect 91 0 88 0;
#X connect 94 0 90 0;
#X connect 94 0 93 0;
#X connect 95 0 87 0;
#X connect 96 0 72 0;
#X connect 97 0 76 0;
#X connect 99 0 34 0;
#X connect 99 1 100 0;
#X connect 99 2 72 0;
#X connect 100 0 98 0;
#X connect 101 0 103 0;
#X connect 102 0 101 1;
#X connect 104 0 101 0;
#X restore 105 149 pd world and me;
#N canvas 142 231 712 447 expressions 0;
#X obj 24 211 inlet;
#X obj 24 292 outlet;
#X obj 24 263 t b a;
#X obj 226 258 s \$0-word;
#X obj 134 392 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10 #fcfcfc #000000 #000000;
#X floatatom 134 347 5 0 0 0 - - - 0;
#X obj 134 281 t a a;
#X obj 24 240 count 4;
#X obj 157 184 loadbang;
#X obj 157 230 s \$0-word-max;
#X obj 63 195 r \$0-word-max;
#X floatatom 63 218 5 0 0 0 - - - 0;
#X msg 157 207 4;
#X obj 134 369 array_copier \$0-sign;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign1 60 float 3;
#A 0 0.466666 0.171429 0.180952 0.27619 0.304762 0.314285 0.361905 0.4 0.438096 0.504763 0.542858 0.561906 0.580954 0.600001 0.619049 0.628573 0.647621 0.652383 0.657145 0.666669 0.676192 0.676192 0.676192 0.619049 0.476191 0.380952 0.314285 0.295238 0.323809 0.342857 0.361905 0.380952 0.409524 0.428572 0.44762 0.471429 0.495239 0.514287 0.533334 0.552382 0.561906 0.57143 0.580954 0.580954 0.580954 0.580954 0.580954 0.566668 0.552382 0.514287 0.457143 0.438096 0.419048 0.380952 0.323809 0.323809 0.352381 0.380952 0.419048 0.361905;
#X coords 0 3 60 0 150 105 1 0 0;
#X restore 196 45 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign3 60 float 3;
#A 0 0.638096 0.580953 0.552382 0.533334 0.514286 0.504762 0.485714 0.476191 0.723812 0.733336 0.438096 0.466667 0.495239 0.514287 0.533334 0.561906 0.565081 0.568255 0.57143 0.576192 0.580954 0.585716 0.590478 0.590478 0.590478 0.590478 0.590478 0.590478 0.590478 0.590478 0.580954 0.576192 0.57143 0.552382 0.542858 0.533334 0.509525 0.476191 0.419048 0.44762 0.466667 0.485715 0.533334 0.542858 0.552382 0.57143 0.580954 0.580954 0.580954 0.580954 0.523811 0.476191 0.428572 0.457143 0.457143 0.457143 0.44762 0.428572 0.419048 0.409524;
#X coords 0 3 60 0 150 105 1 0 0;
#X restore 536 45 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array \$0-sign2 60 float 3;
#A 0 0.161905 0.161905 0.371429 0.400001 0.457144 0.476192 0.495239 0.514287 0.542859 0.552383 0.561906 0.561906 0.561906 0.561906 0.523811 0.466668 0.314286 0.333334 0.361905 0.376191 0.390477 0.409525 0.42381 0.438096 0.442858 0.44762 0.457144 0.466668 0.469842 0.473017 0.476192 0.476192 0.480954 0.485716 0.485716 0.485716 0.485716 0.485716 0.485716 0.485716 0.476192 0.457144 0.400001 0.385715 0.352381 0.333334 0.295238 0.285714 0.285714 0.285714 0.304762 0.304762 0.314286 0.32381 0.333334 0.342857 0.342857 0.342857 0.342857 0.238095;
#X coords 0 3 60 0 150 105 1 0 0;
#X restore 366 45 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign0 60 float 3;
#A 0 0.180952 0.180952 0.238095 0.266667 0.295239 0.295239 0.32381 0.333334 0.352382 0.37143 0.380953 0.390477 0.400001 0.419049 0.428573 0.447621 0.447621 0.457144 0.466668 0.466668 0.476192 0.476192 0.476192 0.476192 0.476192 0.476192 0.466668 0.466668 0.457144 0.447621 0.438097 0.433335 0.428573 0.428573 0.409525 0.409525 0.390477 0.380953 0.37143 0.37143 0.361906 0.361906 0.352382 0.352382 0.342858 0.342858 0.342858 0.342858 0.342858 0.342858 0.342858 0.342858 0.352382 0.352382 0.352382 0.361906 0.361906 0.361906 0.361906 0.123809;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 15 42 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign4 60 float 3;
#A 0 0.514286 0.538096 0.561906 0.561906 785.714 0.561906 0.561906 0.561906 0.561906 0.561906 1014.29 0.561906 0.561906 0.561906 0.561906 0.561906 800 0.561906 0.561906 0.561906 0.561906 0.561905 800 0.550477 0.544763 0.539048 0.533334 0.52762 0.521905 0.516191 0.510477 885.714 0.499048 0.493334 0.48762 0.481905 0.476191 0.470477 814.286 0.459048 0.453334 0.447619 0.466667 0.485715 0.504762 814.286 942.857 814.286 1042.86 0.554287 0.561906 0.561906 814.286 0.52381 0.514286 0.504762 814.286 0.00952131 0.00952131 0.00952131;
#X coords 0 1500 60 0 150 105 1 0 0;
#X restore 452 244 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 6 0;
#X connect 5 0 13 0;
#X connect 6 0 5 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 12 0;
#X connect 10 0 11 0;
#X connect 11 0 7 1;
#X connect 12 0 9 0;
#X connect 13 0 4 0;
#X restore 88 307 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign 60 float 2;
#X coords 0 1 60 0 25 25 1 0 0;
#X restore 26 42 graph;
#X obj 112 52 hradio 15 1 0 5 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 8 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #c6ffc7 #9c00ff #000000;
#X msg 37 379 0;
#X obj 319 346 loadbang;
#X obj 301 446 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X text 35 360 stop!;
#X msg 321 446 0;
#X obj 321 469 v \$0-STATE;
#X obj 88 469 s NOTE;
#X obj 358 369 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 432 101 v \$0-STRESS;
#X obj 432 147 v \$0-STRESS;
#X obj 432 81 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 432 124 * 0.5;
#X obj 72 53 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set w 0 -8 0 10 #b8b8b8 #202020 #000000 0 256;
#X obj 432 271 r \$0-word-max;
#X obj 432 317 s \$0-word-max-set;
#X msg 432 294 set \$1;
#X obj 54 52 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00 #000000 0 1;
#X msg 432 209 set \$1;
#X obj 432 186 r \$0-SLEEP;
#X obj 432 232 s \$0-SLEEP-set;
#X obj 319 369 f \$0;
#X obj 319 392 makefilename %d-sign;
#N canvas 70 273 585 334 statesave 0;
#X obj 60 72 savestate;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#N canvas 0 0 426 370 save-sign 0;
#X obj 58 168 makefilename;
#X obj 27 73 until;
#X obj 27 96 f, f 8;
#X obj 90 106 + 1;
#X obj 27 50 t a b, f 8;
#X msg 72 73 0;
#X obj 58 191 t b a b a;
#X obj 77 279 list prepend append;
#X obj 77 302 list trim;
#X obj 58 145 r \$0-signname_set;
#X obj 77 325 s \$0-save;
#X obj 27 27 inlet;
#X obj 36 220 array size;
#X obj 105 220 array get;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 12 0;
#X connect 6 1 12 1;
#X connect 6 2 13 0;
#X connect 6 3 13 2;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 9 0 0 0;
#X connect 11 0 4 0;
#X connect 12 0 7 0;
#X connect 13 0 7 0;
#X restore 293 146 pd save-sign;
#X msg 293 123 4;
#N canvas 102 423 357 236 save-riff 0;
#X obj 75 23 r \$0-riff-para;
#X obj 75 115 list store;
#X obj 75 69 list prepend append;
#X obj 75 92 list trim;
#X obj 75 46 t a b;
#X obj 75 138 list prepend append;
#X obj 75 161 list trim;
#X obj 75 184 s \$0-save;
#X obj 22 72 inlet;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 4 1 1 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 8 0 1 0;
#X restore 279 169 pd save-riff;
#N canvas 0 0 394 201 save-name 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 54 43 r \$0-name;
#X obj 21 21 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 264 192 pd save-name;
#X msg 60 264 4;
#N canvas 0 23 386 217 loaded 0;
#X obj 16 15 inlet;
#X obj 222 111 list store;
#X obj 222 59 r \$0-loaded;
#X obj 222 82 route clear;
#X obj 16 54 t a b;
#X obj 16 146 s \$0-loaded;
#X msg 43 77 clear;
#X obj 16 100 list prepend append;
#X obj 16 123 list trim;
#X text 60 42 'set';
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 3 1 1 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X restore 135 149 pd loaded;
#N canvas 543 33 591 665 load-sign 0;
#X obj 181 378 array size;
#X obj 274 360 makefilename;
#X obj 274 337 r \$0-signname_set;
#X obj 240 308 v \$0-signname_idx;
#X obj 181 494 array set;
#X obj 240 282 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 285 139 v \$0-signname_idx;
#X obj 99 265 - 1;
#X obj 42 288 list split;
#X obj 61 222 v \$0-split-idx;
#X obj 70 374 v \$0-split-idx;
#X obj 99 345 -;
#X obj 70 311 t b a a;
#X obj 42 417 list split;
#X obj 81 193 v \$0-split-idx;
#X obj 81 170 list length;
#X obj 42 147 t a b a;
#X obj 42 520 t a b;
#X obj 213 125 until;
#X obj 213 243 s \$0-loaded;
#X msg 213 220 send \$1;
#X obj 213 177 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 42 612 s \$0-loaded;
#X msg 69 543 clear;
#X obj 42 566 list prepend append;
#X obj 42 589 list trim;
#X obj 213 154 t b b;
#X obj 213 32 inlet;
#X obj 213 197 symbol \$0-load-sign;
#X obj 42 124 r \$0-load-sign;
#X obj 432 108 makefilename %s%%d;
#X msg 432 131 set \$1;
#X obj 432 85 symbol \$0-sign;
#X obj 432 154 s \$0-signname_set;
#X obj 432 65 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 432 42 loadbang;
#X obj 213 69 t a a b;
#X obj 285 116 - 1;
#X obj 207 308 - 1;
#X connect 1 0 4 2;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 1 0;
#X connect 3 0 38 0;
#X connect 5 0 3 0;
#X connect 7 0 8 1;
#X connect 7 0 9 0;
#X connect 8 0 13 0;
#X connect 8 1 12 0;
#X connect 9 0 7 0;
#X connect 10 0 11 0;
#X connect 11 0 10 0;
#X connect 11 0 13 1;
#X connect 12 0 10 0;
#X connect 12 1 11 1;
#X connect 12 2 0 0;
#X connect 13 0 17 0;
#X connect 13 1 4 0;
#X connect 15 0 14 0;
#X connect 16 0 8 0;
#X connect 16 1 9 0;
#X connect 16 2 15 0;
#X connect 17 0 24 0;
#X connect 17 1 23 0;
#X connect 18 0 26 0;
#X connect 20 0 19 0;
#X connect 21 0 28 0;
#X connect 23 0 22 0;
#X connect 24 0 25 0;
#X connect 25 0 22 0;
#X connect 26 0 21 0;
#X connect 26 1 5 0;
#X connect 27 0 36 0;
#X connect 28 0 20 0;
#X connect 29 0 16 0;
#X connect 30 0 31 0;
#X connect 31 0 33 0;
#X connect 32 0 30 0;
#X connect 34 0 32 0;
#X connect 35 0 34 0;
#X connect 36 0 18 0;
#X connect 36 1 37 0;
#X connect 36 2 34 0;
#X connect 37 0 6 0;
#X connect 38 0 3 0;
#X restore 60 287 pd load-sign;
#N canvas 22 33 382 405 load-name 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 223 97 symbol \$0-load-name;
#X obj 52 24 r \$0-load-name;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 80 217 s \$0-name-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 16 0;
#X connect 11 0 12 1;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 17 0;
#X connect 13 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 16 2 15 0;
#X restore 90 218 pd load-name;
#N canvas 0 23 561 478 load-riff 0;
#X obj 223 28 inlet;
#X obj 52 367 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 459 s \$0-loaded;
#X msg 79 390 clear;
#X obj 52 413 list prepend append;
#X obj 52 436 list trim;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 52 24 r \$0-load-riff;
#X obj 223 97 symbol \$0-load-riff;
#X obj 80 340 s \$0-id-set;
#X obj 103 317 s \$0-key-set;
#X obj 126 294 s \$0-range-set;
#X obj 80 218 unpack f f f f f;
#X obj 173 248 s \$0-sdelay-rend-set;
#X obj 149 271 s \$0-sdelay-rstart-set;
#X obj 109 165 - 5;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 9 1 19 0;
#X connect 10 0 22 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 13 2 12 0;
#X connect 14 0 13 0;
#X connect 15 0 3 0;
#X connect 19 0 16 0;
#X connect 19 1 17 0;
#X connect 19 2 18 0;
#X connect 19 3 21 0;
#X connect 19 4 20 0;
#X connect 22 0 9 1;
#X connect 22 0 10 0;
#X restore 75 241 pd load-riff;
#X obj 415 114 list store;
#X obj 415 163 print;
#X obj 385 99 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 415 75 t a b;
#X obj 415 29 list prepend append;
#X obj 415 52 list trim;
#N canvas 0 0 394 201 save-group 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 21 21 inlet;
#X obj 54 43 r \$0-group;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X restore 250 215 pd save-group;
#N canvas 22 33 382 405 load-group 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-group;
#X obj 52 24 r \$0-load-group;
#X obj 80 217 s \$0-group-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 10 1;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 10 1 17 0;
#X connect 11 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 14 1 11 0;
#X connect 14 2 13 0;
#X connect 15 0 3 0;
#X connect 16 0 14 0;
#X restore 105 195 pd load-group;
#X obj 221 90 t b b b b b b b;
#N canvas 417 223 349 308 save-world 0;
#X obj 21 189 list prepend append;
#X obj 21 212 list trim;
#X obj 21 235 s \$0-save;
#X obj 21 21 inlet;
#X obj 36 44 r \$0-cond;
#X obj 21 67 f;
#X obj 21 166 pack f f f f;
#X obj 44 90 r \$0-level;
#X obj 90 136 r \$0-relax;
#X obj 67 113 r \$0-stress;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 6 1;
#X connect 8 0 6 3;
#X connect 9 0 6 2;
#X restore 235 238 pd save-world;
#X obj 60 111 t b b b b b a;
#N canvas 84 297 417 482 load-world 0;
#X obj 223 28 inlet;
#X obj 52 337 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 429 s \$0-loaded;
#X msg 79 360 clear;
#X obj 52 383 list prepend append;
#X obj 52 406 list trim;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-world;
#X obj 52 24 r \$0-load-world;
#X obj 80 310 s \$0-cond-set;
#X obj 80 218 unpack f f f f;
#X obj 161 241 s \$0-relax-set;
#X obj 134 264 s \$0-stress-set;
#X obj 107 287 s \$0-level-set;
#X obj 109 165 - 4;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 9 1 17 0;
#X connect 10 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 13 2 12 0;
#X connect 14 0 3 0;
#X connect 15 0 13 0;
#X connect 17 0 16 0;
#X connect 17 1 20 0;
#X connect 17 2 19 0;
#X connect 17 3 18 0;
#X connect 21 0 9 1;
#X connect 21 0 10 0;
#X restore 120 172 pd load-world;
#X connect 0 0 16 0;
#X connect 0 0 22 0;
#X connect 0 1 20 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 4 0 3 0;
#X connect 7 0 9 0;
#X connect 12 0 13 0;
#X connect 14 0 12 0;
#X connect 15 0 12 0;
#X connect 15 1 12 1;
#X connect 16 0 17 0;
#X connect 17 0 15 0;
#X connect 20 0 1 0;
#X connect 20 1 21 0;
#X connect 20 2 18 0;
#X connect 20 3 6 0;
#X connect 20 4 5 0;
#X connect 20 5 4 0;
#X connect 20 6 1 1;
#X connect 22 0 7 0;
#X connect 22 1 11 0;
#X connect 22 2 10 0;
#X connect 22 3 19 0;
#X connect 22 4 23 0;
#X connect 22 5 8 0;
#X restore 458 444 pd statesave;
#X obj 338 92 pack s f;
#X obj 338 46 t b f;
#X obj 338 26 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 338 138 s FEED;
#X obj 197 252 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 373 433 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 338 115 list trim;
#X obj 166 31 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6 #606060 #000000 0 256;
#X obj 7 195 loadbang;
#X obj 7 241 v \$0-STRESS;
#X obj 7 218 metro 100;
#X obj 7 264 int;
#X obj 112 36 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word empty -8 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 24 72 nbx 4 14 -1e+37 1e+37 0 0 \$0-id \$0-id-set id -14 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 81 72 nbx 4 14 -1e+37 1e+37 0 0 \$0-range \$0-range-set r -8 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 144 72 nbx 4 14 -1e+37 1e+37 0 0 \$0-sdelay-rstart \$0-sdelay-rstart-set d1 -14 7 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 128 10 15 0 0 0 @ \$0-name-set \$0-name 0;
#X obj 416 35 r \$0-name;
#X obj 265 72 nbx 1 14 -1e+37 1e+37 0 0 \$0-key \$0-key-set k -7 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 338 69 symbol;
#N canvas 0 23 369 268 riffpara 0;
#X obj 74 18 r \$0-key;
#X obj 152 87 t b a;
#X obj 113 64 t b a;
#X obj 74 41 t b a;
#X obj 23 41 r \$0-id;
#X obj 113 41 r \$0-range;
#X obj 43 190 s \$0-riff-para;
#X obj 23 213 outlet;
#X obj 152 64 r \$0-sdelay-rstart;
#X obj 191 110 t b a;
#X obj 23 167 pack f f f f f;
#X obj 191 87 r \$0-sdelay-rend;
#X connect 0 0 3 0;
#X connect 1 0 10 0;
#X connect 1 1 10 3;
#X connect 2 0 10 0;
#X connect 2 1 10 2;
#X connect 3 0 10 0;
#X connect 3 1 10 1;
#X connect 4 0 10 0;
#X connect 5 0 2 0;
#X connect 8 0 1 0;
#X connect 9 0 10 0;
#X connect 9 1 10 4;
#X connect 10 0 6 0;
#X connect 10 0 7 0;
#X connect 11 0 9 0;
#X restore 301 307 pd riffpara;
#X symbolatom 22 10 15 0 0 0 & \$0-group-set \$0-group 0;
#X obj 8 136 v \$0-STATE;
#X obj 8 159 sel 1 0;
#X obj 611 204 send;
#X obj 611 62 bng 15 250 50 0 empty empty register\ me\ :) 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 632 112 loadbang;
#X text 804 90 on 'connect';
#X obj 752 415 pack f f;
#X obj 659 351 loadbang;
#X obj 752 341 snapshot~;
#X msg 752 287 start;
#X msg 802 287 stop;
#X obj 659 374 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 752 366 5 0 0 0 - - - 0;
#X obj 659 394 metro 50;
#X obj 752 316 ear~ 2000 10000;
#X obj 752 256 sel 1 0;
#X obj 861 405 r \$0-group;
#X obj 807 474 send;
#X obj 828 382 loadbang;
#X obj 752 230 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 752 438 spigot;
#X obj 705 456 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 611 438 1;
#X obj 611 227 r \$0-onconnect-listen;
#X obj 611 82 symbol \$0-onconnect-listen;
#X text 862 13 * group interactions;
#X obj 611 23 loadbang;
#X obj 611 250 t b a;
#X obj 57 90 nbx 5 14 -1e+37 1e+37 0 0 \$0-cond \$0-cond-set condi -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 49 108 nbx 6 14 -1e+37 1e+37 0 0 \$0-stress \$0-stress-set stress -38 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 157 108 nbx 6 14 -1e+37 1e+37 0 0 \$0-relax \$0-relax-set relax -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 165 90 nbx 5 14 -1e+37 1e+37 0 0 \$0-level \$0-level-set level -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 752 390 *;
#X obj 871 326 r \$0-level;
#X floatatom 871 349 5 0 0 0 - - - 0;
#X text 866 282 feedback to 'world';
#X obj 917 179 loadbang;
#X msg 917 204 \; pd dsp 1;
#X obj 88 346 riff2_random;
#X obj 208 72 nbx 4 14 -1e+37 1e+37 0 0 \$0-sdelay-rend \$0-sdelay-rend-set d2 -14 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 665 135 r \$0-group;
#X obj 632 158 v;
#X obj 632 181 makefilename world_onconnect%d;
#X obj 828 428 v;
#X obj 828 451 makefilename world_status%d;
#X obj 638 319 print \$0-myplace;
#X obj 666 273 r \$0-name;
#X obj 638 296 pack f s s;
#X obj 666 250 r \$0-group;
#X msg 59 436 0;
#X floatatom 19 437 5 0 0 0 - - - 0;
#X msg 28 459 12000;
#X msg 3 415 3;
#X msg 34 410 5;
#X msg 5 496 9005 0 \$1 1;
#X text 139 170 stamp/coupon collect to get a free motivation;
#X text 233 192 maybe stamps stay for some time \, many can take it \, if one is lucky. but no more than 1 from 1 stamp(==breadcrumb), f 30;
#X connect 1 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 36 0;
#X connect 4 0 1 0;
#X connect 5 0 92 0;
#X connect 8 0 54 0;
#X connect 9 0 92 0;
#X connect 9 0 103 0;
#X connect 10 0 29 0;
#X connect 11 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 37 0;
#X connect 16 0 29 0;
#X connect 17 0 20 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 22 0 24 0;
#X connect 24 0 23 0;
#X connect 26 0 28 0;
#X connect 27 0 26 0;
#X connect 29 0 30 0;
#X connect 30 0 92 1;
#X connect 32 0 38 0;
#X connect 33 0 51 0;
#X connect 33 1 32 1;
#X connect 34 0 33 0;
#X connect 38 0 35 0;
#X connect 40 0 42 0;
#X connect 41 0 43 0;
#X connect 42 0 41 0;
#X connect 43 0 39 0;
#X connect 49 0 51 1;
#X connect 51 0 32 0;
#X connect 52 0 92 2;
#X connect 54 0 55 0;
#X connect 55 0 9 0;
#X connect 55 1 1 0;
#X connect 57 0 78 0;
#X connect 58 0 95 0;
#X connect 60 0 74 0;
#X connect 61 0 65 0;
#X connect 62 0 66 0;
#X connect 63 0 68 0;
#X connect 64 0 68 0;
#X connect 65 0 67 0;
#X connect 66 0 86 0;
#X connect 67 0 62 0;
#X connect 68 0 62 0;
#X connect 69 0 63 0;
#X connect 69 1 64 0;
#X connect 70 0 97 1;
#X connect 72 0 97 0;
#X connect 73 0 69 0;
#X connect 74 0 71 0;
#X connect 75 0 74 1;
#X connect 76 0 75 0;
#X connect 77 0 81 0;
#X connect 78 0 56 0;
#X connect 80 0 57 0;
#X connect 81 0 76 0;
#X connect 81 1 60 1;
#X connect 81 1 101 0;
#X connect 86 0 60 0;
#X connect 87 0 88 0;
#X connect 88 0 86 1;
#X connect 90 0 91 0;
#X connect 92 0 15 0;
#X connect 92 3 11 0;
#X connect 94 0 95 1;
#X connect 95 0 96 0;
#X connect 96 0 56 1;
#X connect 97 0 98 0;
#X connect 98 0 71 1;
#X connect 100 0 101 1;
#X connect 101 0 99 0;
#X connect 102 0 101 2;
#X connect 103 0 108 0;
#X connect 104 0 108 0;
#X connect 105 0 108 0;
#X connect 106 0 108 0;
#X connect 107 0 108 0;
#X coords 0 -1 1 1 285 122 2 5 5;