doohoyi/forest-all-around
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

점, 곁에서 말하는 점들 @ 코리아나미술관, 2022.06.13 - first release

Browse source
This commit is contained in:
Dooho Yi 2022-06-13 17:14:02 +09:00
parent dcd149b878
commit 0977c5cc2e
221 changed files with 38632 additions and 9881 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
puredata/audioooo-test.pd
View file

@ -1,27 +0,0 @@
#N canvas 678 548 450 300 12;
#X obj 73 204 s NOTE;
#X obj 73 142 pack f f;
#X floatatom 73 112 5 0 0 0 - - -;
#X obj 94 81 t b a;
#X obj 94 55 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 202 50 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 232 141 r HELLO;
#X obj 232 166 print HELLO;
#X msg 202 75 5002 1 127 \$1;
#X msg 73 173 10001 \$1 127 \$2;
#X obj 220 9 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 115 6 metro 5000;
#X connect 1 0 9 0;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 3 1 1 1;
#X connect 4 0 3 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 8 0 0 0;
#X connect 9 0 0 0;
#X connect 10 0 11 0;
#X connect 11 0 4 0;

37
puredata/o.io.slipserial.pd
View file

@ -1,37 +0,0 @@
#N canvas 536 421 374 320 10;
#X obj 50 18 inlet;
#X obj 50 280 outlet;
#X obj 166 18 inlet;
#X obj 50 41 slipenc 65536;
#X obj 50 253 slipdec 65536;
#X msg 206 131 info;
#X obj 107 192 route open;
#X obj 166 41 t a a;
#X obj 206 111 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 170 266 outlet;
#X obj 264 120 loadbang;
#X obj 196 235 print info;
#X obj 50 104 spigot;
#X obj 144 150 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 186 74 route open devicename close;
#X obj 50 169 comport -1;
#X connect 0 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 12 0;
#X connect 4 0 1 0;
#X connect 5 0 15 0;
#X connect 6 0 9 0;
#X connect 6 0 13 0;
#X connect 7 0 14 0;
#X connect 7 1 15 0;
#X connect 8 0 5 0;
#X connect 10 0 8 0;
#X connect 12 0 15 0;
#X connect 13 0 12 1;
#X connect 14 0 8 0;
#X connect 14 1 8 0;
#X connect 14 2 8 0;
#X connect 15 0 4 0;
#X connect 15 1 6 0;

2897
puredata/piano_access_radio.pd
View file

File diff suppressed because it is too large Load diff

968
puredata/piano_access_radio_MMCA.pd
View file

@ -1,968 +0,0 @@
#N canvas 1 89 1285 589 10;
#X obj 20 126 unpackOSC;
#X obj 107 18 loadbang;
#X msg 147 91 devices;
#X obj 20 147 routeOSC /note;
#X floatatom 20 189 5 0 0 0 - - -;
#X floatatom 77 189 5 0 0 0 - - -;
#X floatatom 135 189 5 0 0 0 - - -;
#X obj 20 105 o.io.slipserial;
#X msg 215 108 close;
#X obj 20 209 pack f f f;
#X obj 20 230 s NOTE;
#X obj 20 168 routeOSC /pitch /velocity /onoff /oncnt;
#X floatatom 193 189 5 0 0 0 - - -;
#X obj 451 140 o.io.slipserial;
#X msg 480 89 devices;
#X msg 567 94 close;
#X obj 1057 228 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X text 958 32 NOTE! -->;
#X obj 1021 24 cnv 15 100 60 empty empty empty 20 12 0 14 -261234 -66577
0;
#X msg 1028 47 /note 60 100 1;
#X text 1027 27 well.. if we do like..;
#X text 1027 67 w/o bundling.. why not?;
#X obj 1010 251 t a b;
#X msg 1037 272 [;
#X obj 451 63 packOSC;
#X msg 941 272 ];
#X obj 941 251 t b a;
#X obj 941 203 r NOTE;
#X obj 941 224 unpack f f f;
#X text 987 202 /pitch /velocity /onoff;
#X msg 975 318 /note/velocity \$1;
#X msg 968 339 /note/pitch \$1;
#X obj 902 308 s OSC;
#X obj 451 38 r OSC;
#X obj 86 245 tgl 125 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 0 23 255 233 midi-in 0;
#X obj 17 14 notein 1;
#X floatatom 17 35 5 0 0 0 - - -;
#X floatatom 55 35 5 0 0 0 - - -;
#X obj 55 55 t a a;
#X floatatom 17 113 5 0 0 0 - - -;
#X floatatom 55 113 5 0 0 0 - - -;
#X floatatom 89 113 5 0 0 0 - - -;
#X obj 17 133 pack f f f;
#X obj 17 154 s NOTE;
#X obj 89 76 != 0;
#X obj 89 154 outlet;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 1 9 0;
#X connect 4 0 7 0;
#X connect 5 0 7 1;
#X connect 6 0 7 2;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 9 0 6 0;
#X restore 156 222 pd midi-in;
#X obj 976 104 r NOTE;
#X msg 1010 297 /note/onoff \$1;
#X floatatom 975 272 5 0 0 0 - - -;
#X obj 1090 119 loadbang;
#X msg 1090 144 127;
#X obj 979 246 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1129 470 s NOTE;
#X msg 1129 444 68 100 1;
#X obj 976 154 print NOTE;
#X obj 733 252 t a b;
#X msg 760 273 [;
#X msg 664 273 ];
#X obj 664 252 t b a;
#X obj 664 225 unpack f f f;
#X text 710 203 /pitch /velocity /onoff;
#X msg 698 349 /note/velocity \$1;
#X msg 691 370 /note/pitch \$1;
#X msg 733 298 /note/onoff \$1;
#X floatatom 698 273 5 0 0 0 - - -;
#X obj 510 267 print CTRL;
#X obj 510 209 r CTRL;
#X obj 664 203 r CTRL;
#N canvas 328 89 875 805 crickets 0;
#X obj 89 492 pack f f;
#X obj 134 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 92 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 99 440 5 0 0 0 - - -;
#X msg 89 521 120 \$1 \$2;
#X obj 239 492 pack f f;
#X obj 284 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 242 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 249 440 5 0 0 0 - - -;
#X msg 239 521 121 \$1 \$2;
#X obj 747 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 747 82 t b a;
#X msg 695 69 0;
#X obj 389 492 pack f f;
#X obj 434 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 392 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 399 440 5 0 0 0 - - -;
#X msg 389 521 122 \$1 \$2;
#X obj 539 492 pack f f;
#X obj 584 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 542 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 549 440 5 0 0 0 - - -;
#X msg 539 521 123 \$1 \$2;
#X obj 539 702 pack f f;
#X obj 584 676 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 542 630 hsl 128 15 0 255 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 539 763 s CTRL;
#X floatatom 549 650 5 0 0 0 - - -;
#X msg 539 731 127 \$1 \$2;
#X text 605 598 fishing-fly;
#X obj 689 492 pack f f;
#X obj 734 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 692 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 689 553 s CTRL;
#X floatatom 699 440 5 0 0 0 - - -;
#X obj 271 709 metro 1000;
#X obj 271 687 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 270 657 auto play;
#X msg 134 711 100 100 1;
#X msg 136 766 101 100 1;
#X text 145 690 gastank;
#X text 140 741 float;
#X msg 313 637 0;
#X msg 355 659 1000;
#X obj 704 705 metro 1000;
#X obj 704 683 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 783 690 5 0 0 0 - - -;
#X text 703 653 auto play;
#X msg 746 633 0;
#X msg 788 655 1000;
#X msg 704 727 101 127 1;
#X msg 271 731 100 127 1;
#X msg 350 630 500;
#X msg 386 628 2000;
#X msg 374 604 300;
#X msg 404 584 3000;
#X obj 271 755 s CTRL;
#X obj 704 751 s CTRL;
#X text 717 23 cricket drummers;
#X obj 784 111 tgl 15 0 \$0-c-tgl empty s:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X floatatom 539 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 389 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 239 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 89 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 689 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 747 111 5 0 0 0 s:0-c-sld - #0-c-sld;
#X floatatom 539 599 5 0 0 0 r:0-c-sld #0-c-sld -;
#X obj 20 50 arduino;
#X msg 147 51 devices;
#X msg 215 68 close;
#X msg 20 12 devicename /dev/tty.HC-06-DevB \, baud 57600 \, pollintervall
1 \, verbose 1;
#X obj 20 71 route analog;
#X obj 20 92 route 0 1 2 3 4 5;
#X floatatom 20 113 5 0 0 0 - - -;
#X floatatom 120 133 5 0 0 0 - - -;
#X floatatom 220 153 5 0 0 0 - - -;
#X floatatom 320 113 5 0 0 0 - - -;
#X floatatom 605 74 5 0 0 0 - - -;
#X floatatom 420 153 5 0 0 0 - - -;
#X obj 20 204 * -1;
#X floatatom 20 225 5 0 0 0 - - -;
#X obj 20 183 - 1;
#X obj 120 204 * -1;
#X floatatom 120 225 5 0 0 0 - - -;
#X obj 120 183 - 1;
#X obj 220 204 * -1;
#X floatatom 220 225 5 0 0 0 - - -;
#X obj 220 183 - 1;
#X obj 320 204 * -1;
#X floatatom 320 225 5 0 0 0 - - -;
#X obj 320 183 - 1;
#X obj 605 145 * -1;
#X floatatom 605 166 5 0 0 0 - - -;
#X obj 605 124 - 1;
#X obj 420 204 * -1;
#X floatatom 420 225 5 0 0 0 - - -;
#X obj 420 183 - 1;
#X floatatom 20 287 5 0 0 0 - - -;
#X floatatom 120 287 5 0 0 0 - - -;
#X floatatom 220 287 5 0 0 0 - - -;
#X floatatom 320 287 5 0 0 0 - - -;
#X floatatom 605 228 5 0 0 0 - - -;
#X floatatom 420 287 5 0 0 0 - - -;
#X obj 320 245 * 300;
#X obj 420 245 * 300;
#X text 288 91 broken!! right/bottom;
#X text 35 135 top/right;
#X text 135 153 top/center;
#X text 259 155 top/left;
#X text 341 156 bottom/left;
#X obj 20 266 resample 2000;
#X obj 120 266 resample 2000;
#X obj 220 266 resample 2000;
#X obj 320 266 resample 2000;
#X obj 420 266 resample 2000;
#X obj 605 207 resample 2000;
#X obj 120 307 pipe 1000;
#X obj 220 307 pipe 2000;
#X obj 320 307 pipe 3000;
#X obj 420 307 pipe 4000;
#X obj 20 245 * 100;
#X obj 220 245 * 200;
#X obj 120 245 * 200;
#X floatatom 605 275 5 0 0 0 s:0-vol - #0-vol;
#X obj 605 248 pipe 500;
#X msg 719 521 105 100 1;
#X obj 605 186 * 0;
#X text 22 585 manually send 'play stop' messages;
#X obj 89 553 s CTRL;
#X obj 239 553 s CTRL;
#X obj 389 553 s CTRL;
#X obj 539 553 s CTRL;
#X text 52 537 disconnected for TESTING;
#X text 212 537 disconnected for TESTING;
#X text 372 537 disconnected for TESTING;
#X text 532 537 disconnected for TESTING;
#X text 554 262 disconnected for TESTING;
#X text 489 300 resample always send messages!! --> plz fix / or change
controller will be patched --> no more jittering. i hope. we use only
[change] to limit \, net broadcast then net stability will become better.
i wish.;
#X text 564 142 still there is issue about non-linearity cut off lower
region stretch range etc.;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 2 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 7 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 65 0;
#X connect 11 1 59 0;
#X connect 12 0 10 0;
#X connect 13 0 17 0;
#X connect 14 0 13 1;
#X connect 15 0 13 0;
#X connect 15 0 16 0;
#X connect 18 0 22 0;
#X connect 19 0 18 1;
#X connect 20 0 18 0;
#X connect 20 0 21 0;
#X connect 23 0 28 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 25 0 27 0;
#X connect 28 0 26 0;
#X connect 31 0 30 1;
#X connect 32 0 30 0;
#X connect 32 0 34 0;
#X connect 35 0 51 0;
#X connect 36 0 35 0;
#X connect 38 0 56 0;
#X connect 39 0 56 0;
#X connect 42 0 35 0;
#X connect 43 0 35 1;
#X connect 44 0 50 0;
#X connect 45 0 44 0;
#X connect 46 0 44 1;
#X connect 48 0 44 0;
#X connect 49 0 44 1;
#X connect 50 0 57 0;
#X connect 51 0 56 0;
#X connect 52 0 35 1;
#X connect 53 0 35 1;
#X connect 54 0 35 1;
#X connect 55 0 35 1;
#X connect 60 0 20 0;
#X connect 61 0 15 0;
#X connect 62 0 7 0;
#X connect 63 0 2 0;
#X connect 64 0 32 0;
#X connect 66 0 25 0;
#X connect 67 0 71 0;
#X connect 68 0 67 0;
#X connect 69 0 67 0;
#X connect 70 0 67 0;
#X connect 71 0 72 0;
#X connect 72 0 73 0;
#X connect 72 1 74 0;
#X connect 72 2 75 0;
#X connect 72 3 76 0;
#X connect 72 4 77 0;
#X connect 72 5 78 0;
#X connect 73 0 81 0;
#X connect 74 0 84 0;
#X connect 75 0 87 0;
#X connect 77 0 93 0;
#X connect 78 0 96 0;
#X connect 79 0 80 0;
#X connect 80 0 120 0;
#X connect 81 0 79 0;
#X connect 82 0 83 0;
#X connect 83 0 122 0;
#X connect 84 0 82 0;
#X connect 85 0 86 0;
#X connect 86 0 121 0;
#X connect 87 0 85 0;
#X connect 88 0 89 0;
#X connect 89 0 103 0;
#X connect 90 0 88 0;
#X connect 91 0 92 0;
#X connect 92 0 126 0;
#X connect 93 0 91 0;
#X connect 94 0 95 0;
#X connect 95 0 104 0;
#X connect 96 0 94 0;
#X connect 97 0 2 0;
#X connect 98 0 116 0;
#X connect 99 0 117 0;
#X connect 101 0 124 0;
#X connect 102 0 119 0;
#X connect 103 0 113 0;
#X connect 104 0 114 0;
#X connect 110 0 97 0;
#X connect 111 0 98 0;
#X connect 112 0 99 0;
#X connect 113 0 100 0;
#X connect 114 0 102 0;
#X connect 115 0 101 0;
#X connect 116 0 7 0;
#X connect 117 0 15 0;
#X connect 119 0 20 0;
#X connect 120 0 110 0;
#X connect 121 0 112 0;
#X connect 122 0 111 0;
#X connect 125 0 33 0;
#X connect 126 0 115 0;
#X restore 292 299 pd crickets ctrl;
#X obj 896 154 print OSC;
#X obj 698 295 int;
#X obj 1207 92 s NOTE;
#X msg 1207 66 62 100 1;
#X msg 20 52 devicename /dev/tty.HC-06-DevB-1 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X obj 510 230 spigot;
#X obj 559 215 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 896 127 spigot;
#X obj 945 112 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 558 52 devicename /dev/tty.usbmodem48710501 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X obj 976 127 spigot;
#X obj 1025 112 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X floatatom 1135 232 5 0 0 0 r:0-vol #0-vol -;
#X obj 238 516 o.io.slipserial;
#X msg 267 465 devices;
#X msg 344 470 close;
#X obj 238 439 packOSC;
#X msg 325 428 devicename /dev/tty.usbmodem32177401 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X obj 238 414 r OSC2;
#X obj 625 309 s OSC2;
#X msg 538 12 devicename /dev/portD \, baud 57600 \, pollintervall
1 \, verbose 1;
#X text 1180 167 vol. override;
#X msg 1208 321 0;
#X msg 1208 300 10;
#X msg 1208 279 25;
#X msg 1208 258 50;
#X msg 1208 217 255;
#X msg 1208 197 500;
#X msg 1208 237 127;
#X text 1233 197 BIG;
#X text 1234 321 SMALL;
#X msg 1208 146 180;
#X floatatom 1168 343 5 0 0 0 s:0-vol - #0-vol;
#X obj 430 230 spigot;
#X obj 479 215 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 430 209 r OSC2;
#X obj 430 267 print OSC2;
#X obj 896 104 r OSC;
#X msg 1135 254 set \$1;
#X obj 1199 470 s NOTE;
#X msg 1199 444 68 100 0;
#X text 943 370 vol. control knob 'on' the keyboard is needed. instead
of get/set it by other devivce this is quite messy!;
#N canvas 328 89 875 805 crickets 0;
#X obj 89 492 pack f f;
#X obj 134 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 92 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 99 440 5 0 0 0 - - -;
#X msg 89 521 120 \$1 \$2;
#X obj 239 492 pack f f;
#X obj 284 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 242 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 249 440 5 0 0 0 - - -;
#X msg 239 521 121 \$1 \$2;
#X obj 747 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 747 82 t b a;
#X msg 695 69 0;
#X obj 389 492 pack f f;
#X obj 434 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 392 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 399 440 5 0 0 0 - - -;
#X msg 389 521 122 \$1 \$2;
#X obj 539 492 pack f f;
#X obj 584 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 542 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 549 440 5 0 0 0 - - -;
#X msg 539 521 123 \$1 \$2;
#X obj 539 702 pack f f;
#X obj 584 676 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 542 630 hsl 128 15 0 255 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 539 763 s CTRL;
#X floatatom 549 650 5 0 0 0 - - -;
#X msg 539 731 127 \$1 \$2;
#X text 605 598 fishing-fly;
#X obj 689 492 pack f f;
#X obj 734 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 692 420 hsl 128 15 50 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 689 553 s CTRL;
#X floatatom 699 440 5 0 0 0 - - -;
#X obj 271 709 metro 1000;
#X obj 271 687 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 270 657 auto play;
#X msg 134 711 100 100 1;
#X msg 136 766 101 100 1;
#X text 145 690 gastank;
#X text 140 741 float;
#X msg 313 637 0;
#X msg 355 659 1000;
#X obj 704 705 metro 1000;
#X obj 704 683 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 783 690 5 0 0 0 - - -;
#X text 703 653 auto play;
#X msg 746 633 0;
#X msg 788 655 1000;
#X msg 704 727 101 127 1;
#X msg 271 731 100 127 1;
#X msg 350 630 500;
#X msg 386 628 2000;
#X msg 374 604 300;
#X msg 404 584 3000;
#X obj 271 755 s CTRL;
#X obj 704 751 s CTRL;
#X text 717 23 cricket drummers;
#X obj 784 111 tgl 15 0 \$0-c-tgl empty s:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X floatatom 539 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 389 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 239 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 89 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 689 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 747 111 5 0 0 0 s:0-c-sld - #0-c-sld;
#X floatatom 539 599 5 0 0 0 r:0-c-sld #0-c-sld -;
#X obj 20 50 arduino;
#X msg 147 51 devices;
#X msg 215 68 close;
#X msg 20 12 devicename /dev/tty.HC-06-DevB \, baud 57600 \, pollintervall
1 \, verbose 1;
#X obj 20 71 route analog;
#X obj 20 92 route 0 1 2 3 4 5;
#X floatatom 20 113 5 0 0 0 - - -;
#X floatatom 120 133 5 0 0 0 - - -;
#X floatatom 220 153 5 0 0 0 - - -;
#X floatatom 320 113 5 0 0 0 - - -;
#X floatatom 605 74 5 0 0 0 - - -;
#X floatatom 420 153 5 0 0 0 - - -;
#X obj 20 204 * -1;
#X floatatom 20 225 5 0 0 0 - - -;
#X obj 20 183 - 1;
#X obj 120 204 * -1;
#X floatatom 120 225 5 0 0 0 - - -;
#X obj 120 183 - 1;
#X obj 220 204 * -1;
#X floatatom 220 225 5 0 0 0 - - -;
#X obj 220 183 - 1;
#X obj 320 204 * -1;
#X floatatom 320 225 5 0 0 0 - - -;
#X obj 320 183 - 1;
#X obj 605 145 * -1;
#X floatatom 605 166 5 0 0 0 - - -;
#X obj 605 124 - 1;
#X obj 420 204 * -1;
#X floatatom 420 225 5 0 0 0 - - -;
#X obj 420 183 - 1;
#X floatatom 20 287 5 0 0 0 - - -;
#X floatatom 120 287 5 0 0 0 - - -;
#X floatatom 220 287 5 0 0 0 - - -;
#X floatatom 320 287 5 0 0 0 - - -;
#X floatatom 605 228 5 0 0 0 - - -;
#X floatatom 420 287 5 0 0 0 - - -;
#X obj 320 245 * 300;
#X obj 420 245 * 300;
#X text 288 91 broken!! right/bottom;
#X text 35 135 top/right;
#X text 135 153 top/center;
#X text 259 155 top/left;
#X text 341 156 bottom/left;
#X obj 20 245 * 100;
#X obj 220 245 * 200;
#X obj 120 245 * 200;
#X floatatom 605 275 5 0 0 0 s:0-vol - #0-vol;
#X msg 719 521 105 100 1;
#X obj 605 186 * 0;
#X text 22 585 manually send 'play stop' messages;
#X obj 89 553 s CTRL;
#X obj 239 553 s CTRL;
#X obj 389 553 s CTRL;
#X obj 539 553 s CTRL;
#X text 52 537 disconnected for TESTING;
#X text 212 537 disconnected for TESTING;
#X text 372 537 disconnected for TESTING;
#X text 532 537 disconnected for TESTING;
#X text 489 300 resample always send messages!! --> plz fix / or change
controller will be patched --> no more jittering. i hope. we use only
[change] to limit \, net broadcast then net stability will become better.
i wish.;
#X text 564 142 still there is issue about non-linearity cut off lower
region stretch range etc.;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 2 0 3 0;
#X connect 5 0 9 0;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 7 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 65 0;
#X connect 11 1 59 0;
#X connect 12 0 10 0;
#X connect 13 0 17 0;
#X connect 14 0 13 1;
#X connect 15 0 13 0;
#X connect 15 0 16 0;
#X connect 18 0 22 0;
#X connect 19 0 18 1;
#X connect 20 0 18 0;
#X connect 20 0 21 0;
#X connect 23 0 28 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 25 0 27 0;
#X connect 28 0 26 0;
#X connect 31 0 30 1;
#X connect 32 0 30 0;
#X connect 32 0 34 0;
#X connect 35 0 51 0;
#X connect 36 0 35 0;
#X connect 38 0 56 0;
#X connect 39 0 56 0;
#X connect 42 0 35 0;
#X connect 43 0 35 1;
#X connect 44 0 50 0;
#X connect 45 0 44 0;
#X connect 46 0 44 1;
#X connect 48 0 44 0;
#X connect 49 0 44 1;
#X connect 50 0 57 0;
#X connect 51 0 56 0;
#X connect 52 0 35 1;
#X connect 53 0 35 1;
#X connect 54 0 35 1;
#X connect 55 0 35 1;
#X connect 60 0 20 0;
#X connect 61 0 15 0;
#X connect 62 0 7 0;
#X connect 63 0 2 0;
#X connect 64 0 32 0;
#X connect 66 0 25 0;
#X connect 67 0 71 0;
#X connect 68 0 67 0;
#X connect 69 0 67 0;
#X connect 70 0 67 0;
#X connect 71 0 72 0;
#X connect 72 0 73 0;
#X connect 72 1 74 0;
#X connect 72 2 75 0;
#X connect 72 3 76 0;
#X connect 72 4 77 0;
#X connect 72 5 78 0;
#X connect 73 0 81 0;
#X connect 74 0 84 0;
#X connect 75 0 87 0;
#X connect 77 0 93 0;
#X connect 78 0 96 0;
#X connect 79 0 80 0;
#X connect 80 0 110 0;
#X connect 81 0 79 0;
#X connect 82 0 83 0;
#X connect 83 0 112 0;
#X connect 84 0 82 0;
#X connect 85 0 86 0;
#X connect 86 0 111 0;
#X connect 87 0 85 0;
#X connect 88 0 89 0;
#X connect 89 0 103 0;
#X connect 90 0 88 0;
#X connect 91 0 92 0;
#X connect 92 0 115 0;
#X connect 93 0 91 0;
#X connect 94 0 95 0;
#X connect 95 0 104 0;
#X connect 96 0 94 0;
#X connect 97 0 2 0;
#X connect 114 0 33 0;
#X restore 320 321 pd crickets new;
#N canvas 81 89 1282 797 crickets 1;
#X obj 89 492 pack f f;
#X obj 134 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 92 420 hsl 128 15 0 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 99 440 5 0 0 0 - - -;
#X msg 89 521 120 \$1 \$2;
#X obj 239 492 pack f f;
#X obj 284 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 242 420 hsl 128 15 0 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 249 440 5 0 0 0 - - -;
#X msg 239 521 121 \$1 \$2;
#X obj 797 65 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 797 89 t b a;
#X msg 745 76 0;
#X obj 389 492 pack f f;
#X obj 434 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 392 420 hsl 128 15 0 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 399 440 5 0 0 0 - - -;
#X msg 389 521 122 \$1 \$2;
#X obj 539 492 pack f f;
#X obj 584 466 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 542 420 hsl 128 15 0 300 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 549 440 5 0 0 0 - - -;
#X msg 539 521 123 \$1 \$2;
#X obj 539 702 pack f f;
#X obj 584 676 tgl 15 0 empty \$0-c-tgl r:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X obj 542 630 hsl 128 15 0 255 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 539 763 s CTRL;
#X floatatom 549 650 5 0 0 0 - - -;
#X msg 539 731 127 \$1 \$2;
#X text 605 598 fishing-fly;
#X obj 744 326 s CTRL;
#X obj 271 709 metro 1000;
#X obj 271 687 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 270 657 auto play;
#X msg 134 711 100 100 1;
#X msg 136 766 101 100 1;
#X text 145 690 gastank;
#X text 140 741 float;
#X msg 313 637 0;
#X msg 355 659 1000;
#X obj 704 705 metro 1000;
#X obj 704 683 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 783 690 5 0 0 0 - - -;
#X text 703 653 auto play;
#X msg 746 633 0;
#X msg 788 655 1000;
#X msg 704 727 101 127 1;
#X msg 271 731 100 127 1;
#X msg 350 630 500;
#X msg 386 628 2000;
#X msg 374 604 300;
#X msg 404 584 3000;
#X obj 271 755 s CTRL;
#X obj 704 751 s CTRL;
#X text 767 30 cricket drummers;
#X obj 834 118 tgl 15 0 \$0-c-tgl empty s:0-c-tgl 17 7 0 10 -262144
-1 -1 0 1;
#X floatatom 539 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 389 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 239 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 89 389 5 0 0 0 r:0-c-sld #0-c-sld -;
#X floatatom 797 118 5 0 0 0 s:0-c-sld - #0-c-sld;
#X floatatom 539 599 5 0 0 0 r:0-c-sld #0-c-sld -;
#X obj 20 50 arduino;
#X msg 147 51 devices;
#X msg 215 68 close;
#X msg 20 12 devicename /dev/tty.HC-06-DevB \, baud 57600 \, pollintervall
1 \, verbose 1;
#X obj 20 71 route analog;
#X obj 20 92 route 0 1 2 3 4 5;
#X floatatom 110 147 5 0 0 3 top/right - -;
#X floatatom 73 167 5 0 0 3 top/center - -;
#X floatatom 33 184 5 0 0 3 top/left - -;
#X floatatom 149 253 5 0 0 3 BROKEN!!_bottom/right - -;
#X floatatom 87 212 5 0 0 3 bottom/center - -;
#X floatatom 33 230 5 0 0 3 bottom/left - -;
#X obj 378 152 * -1;
#X floatatom 378 173 5 0 0 0 - - -;
#X obj 378 131 - 1;
#X floatatom 378 235 5 0 0 0 - - -;
#X floatatom 378 282 5 0 0 0 s:0-vol - #0-vol;
#X msg 744 294 105 100 1;
#X obj 378 193 * 0;
#X text 22 585 manually send 'play stop' messages;
#X obj 89 553 s CTRL;
#X obj 239 553 s CTRL;
#X obj 389 553 s CTRL;
#X obj 539 553 s CTRL;
#X text 337 149 still there is issue about non-linearity cut off lower
region stretch range etc.;
#X floatatom 991 178 5 0 0 0 slider? - -;
#X floatatom 1051 178 5 0 0 0 - - -;
#X obj 1112 178 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1172 178 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1233 178 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X floatatom 991 348 5 0 0 0 - - -;
#X floatatom 1051 348 5 0 0 0 - - -;
#X obj 1112 348 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1172 348 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1233 348 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X floatatom 991 518 5 0 0 0 - - -;
#X floatatom 1051 518 5 0 0 0 - - -;
#X obj 1112 518 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1172 518 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1233 518 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X floatatom 991 688 5 0 0 0 - - -;
#X floatatom 1051 688 5 0 0 0 - - -;
#X obj 1112 688 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1172 688 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 1233 688 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X obj 991 557 nanokontrol2-channel 4 13 3 13 3 23;
#X obj 991 47 nanokontrol2-channel 1 10 0 10 0 20;
#X obj 991 217 nanokontrol2-channel 2 11 1 11 1 21;
#X obj 991 387 nanokontrol2-channel 3 12 2 12 2 22;
#X obj 729 205 bng 35 250 50 0 empty empty BELL 4 7 0 10 -260097 -262144
-262144;
#X text 669 261 bell hitting angle need to be adjusted!;
#X obj 741 165 sel 1;
#X text 657 355 gastank head hitter support needed..;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 0 0;
#X connect 2 0 3 0;
#X connect 4 0 82 0;
#X connect 5 0 9 0;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 7 0 8 0;
#X connect 9 0 83 0;
#X connect 10 0 11 0;
#X connect 11 0 60 0;
#X connect 11 1 55 0;
#X connect 12 0 10 0;
#X connect 13 0 17 0;
#X connect 14 0 13 1;
#X connect 15 0 13 0;
#X connect 15 0 16 0;
#X connect 17 0 84 0;
#X connect 18 0 22 0;
#X connect 19 0 18 1;
#X connect 20 0 18 0;
#X connect 20 0 21 0;
#X connect 22 0 85 0;
#X connect 23 0 28 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 25 0 27 0;
#X connect 28 0 26 0;
#X connect 31 0 47 0;
#X connect 32 0 31 0;
#X connect 34 0 52 0;
#X connect 35 0 52 0;
#X connect 38 0 31 0;
#X connect 39 0 31 1;
#X connect 40 0 46 0;
#X connect 41 0 40 0;
#X connect 42 0 40 1;
#X connect 44 0 40 0;
#X connect 45 0 40 1;
#X connect 46 0 53 0;
#X connect 47 0 52 0;
#X connect 48 0 31 1;
#X connect 49 0 31 1;
#X connect 50 0 31 1;
#X connect 51 0 31 1;
#X connect 56 0 20 0;
#X connect 57 0 15 0;
#X connect 58 0 7 0;
#X connect 59 0 2 0;
#X connect 61 0 25 0;
#X connect 62 0 66 0;
#X connect 63 0 62 0;
#X connect 64 0 62 0;
#X connect 65 0 62 0;
#X connect 66 0 67 0;
#X connect 67 0 68 0;
#X connect 67 1 69 0;
#X connect 67 2 70 0;
#X connect 67 3 71 0;
#X connect 67 4 72 0;
#X connect 67 5 73 0;
#X connect 72 0 76 0;
#X connect 74 0 75 0;
#X connect 75 0 80 0;
#X connect 76 0 74 0;
#X connect 79 0 30 0;
#X connect 87 0 2 0;
#X connect 89 0 113 0;
#X connect 92 0 7 0;
#X connect 97 0 15 0;
#X connect 102 0 20 0;
#X connect 107 0 102 0;
#X connect 107 1 103 0;
#X connect 107 2 104 0;
#X connect 107 3 105 0;
#X connect 107 4 106 0;
#X connect 108 0 87 0;
#X connect 108 1 88 0;
#X connect 108 2 89 0;
#X connect 108 3 90 0;
#X connect 108 4 91 0;
#X connect 109 0 92 0;
#X connect 109 1 93 0;
#X connect 109 2 94 0;
#X connect 109 3 95 0;
#X connect 109 4 96 0;
#X connect 110 0 97 0;
#X connect 110 1 98 0;
#X connect 110 2 99 0;
#X connect 110 3 100 0;
#X connect 110 4 101 0;
#X connect 111 0 79 0;
#X connect 113 0 111 0;
#X restore 433 353 pd crickets nanokontrol2;
#X connect 0 0 3 0;
#X connect 2 0 7 1;
#X connect 3 0 11 0;
#X connect 4 0 9 0;
#X connect 5 0 9 1;
#X connect 6 0 9 2;
#X connect 6 0 34 0;
#X connect 7 0 0 0;
#X connect 8 0 7 1;
#X connect 9 0 10 0;
#X connect 11 0 4 0;
#X connect 11 1 5 0;
#X connect 11 2 6 0;
#X connect 11 3 12 0;
#X connect 14 0 13 1;
#X connect 15 0 13 1;
#X connect 22 0 16 0;
#X connect 22 0 37 0;
#X connect 22 1 23 0;
#X connect 23 0 32 0;
#X connect 24 0 13 0;
#X connect 25 0 32 0;
#X connect 26 0 25 0;
#X connect 26 1 31 0;
#X connect 27 0 28 0;
#X connect 28 0 26 0;
#X connect 28 1 41 0;
#X connect 28 2 22 0;
#X connect 30 0 32 0;
#X connect 31 0 32 0;
#X connect 33 0 24 0;
#X connect 35 0 34 0;
#X connect 36 0 69 0;
#X connect 37 0 32 0;
#X connect 38 0 30 0;
#X connect 39 0 40 0;
#X connect 40 0 38 0;
#X connect 41 0 38 0;
#X connect 43 0 42 0;
#X connect 45 0 53 0;
#X connect 45 1 46 0;
#X connect 46 0 78 0;
#X connect 47 0 78 0;
#X connect 48 0 47 0;
#X connect 48 1 52 0;
#X connect 49 0 48 0;
#X connect 49 1 54 0;
#X connect 49 2 45 0;
#X connect 51 0 78 0;
#X connect 52 0 78 0;
#X connect 53 0 78 0;
#X connect 54 0 60 0;
#X connect 56 0 64 0;
#X connect 57 0 49 0;
#X connect 60 0 51 0;
#X connect 62 0 61 0;
#X connect 63 0 7 1;
#X connect 64 0 55 0;
#X connect 65 0 64 1;
#X connect 66 0 59 0;
#X connect 67 0 66 1;
#X connect 68 0 13 1;
#X connect 69 0 44 0;
#X connect 70 0 69 1;
#X connect 71 0 97 0;
#X connect 73 0 72 1;
#X connect 74 0 72 1;
#X connect 75 0 72 0;
#X connect 76 0 72 1;
#X connect 77 0 75 0;
#X connect 79 0 13 1;
#X connect 81 0 91 0;
#X connect 82 0 91 0;
#X connect 83 0 91 0;
#X connect 84 0 91 0;
#X connect 85 0 91 0;
#X connect 86 0 91 0;
#X connect 87 0 91 0;
#X connect 90 0 91 0;
#X connect 92 0 95 0;
#X connect 93 0 92 1;
#X connect 94 0 92 0;
#X connect 96 0 66 0;
#X connect 97 0 38 0;
#X connect 99 0 98 0;

449
puredata/piano_access_radio_crickets.pd
View file

@ -1,449 +0,0 @@
#N canvas 78 429 623 470 10;
#X obj 328 198 spigot;
#X obj 377 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 11 12 <<<;
#X text 581 12 >>>;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 418 194 pd buildOSC for all;
#X obj 123 121 o.io.slipserial;
#X msg 249 142 devices;
#X msg 249 165 close;
#X obj 123 80 packOSC;
#X obj 123 55 r OSC;
#X obj 123 144 unpackOSC;
#X obj 123 167 routeOSC /hello;
#X obj 123 190 s HELLO;
#X obj 40 120 print OSC;
#X obj 40 93 spigot;
#X obj 89 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 418 217 s OSC;
#X obj 418 155 r NOTE;
#X obj 328 225 print NOTE;
#X text 419 134 /id /pitch /velocity /onoff;
#X text 11 442 <<<;
#X text 581 442 >>>;
#X text 292 283 * sub-patches;
#X floatatom 549 325 5 0 0 0 - - -;
#X obj 549 347 s PS;
#X obj 500 236 tgl 25 0 empty empty hello 32 7 0 15 -159808 -257985
-159808 1 1;
#X obj 549 263 loadbang;
#X msg 549 286 1;
#X obj 500 286 sel 1;
#X obj 40 163 spigot;
#X obj 89 148 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 40 190 print HELLO;
#N canvas 521 447 706 244 samplers 0;
#X obj 35 142 spigot;
#X obj 84 127 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 11 12 <<<;
#X text 671 12 >>>;
#X text 155 34 /pitch /velocity /onoff;
#X obj 59 93 s OSC;
#X obj 365 32 loadbang;
#X text 489 93 BIG;
#X text 327 93 SMALL;
#X obj 365 94 hradio 15 1 0 8 empty empty vol._override 0 -8 0 10 -257985
-1 -1 4;
#X obj 365 117 tabread \$0-volume-list;
#N canvas 763 340 501 420 volume-list 0;
#X msg 146 359 \; \$1-volume-list 0 0 10 25 50 127 180 255 500;
#X obj 146 336 f \$0;
#X obj 146 316 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 146 276 loadbang;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-volume-list 20 float 3;
#A 0 0 10 25 50 127 180 255 500 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1000 20 0 200 140 1 0 0;
#X restore 227 181 graph;
#X text 441 311 0;
#X text 445 172 1000;
#X obj 100 169 bng 15 250 50 0 empty empty v+ 17 7 0 10 -262144 -1
-1;
#X obj 31 169 bng 15 250 50 0 empty empty v- 17 7 0 10 -262144 -1 -1
;
#X obj 31 64 unpack f f f;
#X text 127 42 /pitch /velocity /onoff;
#X obj 100 92 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 31 107 spigot;
#X text 104 128 keys for volume control: vol+ / vol-;
#X text 45 16 volume control w/ keyboard;
#X obj 31 128 sel 38 40;
#X floatatom 71 288 5 0 0 0 s:0-vol - #0-vol;
#X obj 31 250 tabread \$0-volume-list;
#X floatatom 31 228 5 0 0 0 - - -;
#X obj 31 205 limitcnt 0 7;
#X obj 31 43 r SAMPLER_NOTE;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 7 0 19 1;
#X connect 8 0 19 0;
#X connect 9 0 12 0;
#X connect 9 2 11 0;
#X connect 11 0 12 1;
#X connect 12 0 15 0;
#X connect 15 0 8 0;
#X connect 15 1 7 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 18 0;
#X connect 20 0 9 0;
#X restore 413 146 pd volume-list;
#X floatatom 365 146 5 0 0 0 s:0-vol - #0-vol;
#X msg 365 55 4;
#X text 11 212 <<<;
#X text 671 212 >>>;
#X floatatom 586 120 5 0 0 3 r:0-vol #0-vol -;
#X obj 546 67 nbx 5 25 -1e+37 1e+37 0 0 empty empty volume-now 0 -12
0 20 -262130 -159808 -159808 127 256;
#X obj 177 110 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 222 108 5 0 0 0 - - -;
#X obj 177 136 pack f f;
#X msg 177 159 \$2 100 \$1;
#N canvas 113 357 512 395 buildOSC 0;
#X obj 319 76 t a b;
#X msg 456 94 [;
#X msg 34 327 ];
#X obj 140 39 unpack f f f;
#X obj 66 226 r X1;
#X obj 96 226 r X2;
#X obj 126 226 r X3;
#X obj 156 226 r X4;
#X obj 51 256 f;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 186 226 r PS;
#X obj 86 274 pack f f f f f;
#X msg 319 122 sendtyped /note/onoff f \$1;
#X msg 85 150 sendtyped /note/pitch f \$1;
#X msg 254 150 sendtyped /note/velocity f \$1;
#X msg 86 297 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X floatatom 174 82 5 0 0 0 - - -;
#X obj 174 62 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 315 19 5 0 0 0 r:0-vol #0-vol -;
#X msg 315 41 set \$1;
#X msg 68 179 sendtyped /note/id i 5000;
#X obj 34 121 t b b b a;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 22 0;
#X connect 3 1 18 0;
#X connect 3 2 0 0;
#X connect 4 0 8 1;
#X connect 5 0 12 1;
#X connect 6 0 12 2;
#X connect 7 0 12 3;
#X connect 8 0 12 0;
#X connect 10 0 3 0;
#X connect 11 0 12 4;
#X connect 12 0 16 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 15 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 17 0;
#X connect 21 0 9 0;
#X connect 22 0 2 0;
#X connect 22 1 8 0;
#X connect 22 2 21 0;
#X connect 22 3 14 0;
#X restore 59 64 pd buildOSC id 5000;
#X text 183 64 id == 5000 FIXED;
#X text 236 130 TESTER;
#X obj 59 35 r SAMPLER_NOTE;
#X obj 35 169 print SAMPLER_NOTE;
#X obj 177 182 s SAMPLER_NOTE;
#X connect 0 0 26 0;
#X connect 1 0 0 1;
#X connect 6 0 13 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 13 0 9 0;
#X connect 16 0 17 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 21 0 27 0;
#X connect 22 0 5 0;
#X connect 25 0 22 0;
#X connect 25 0 0 0;
#X coords 0 244 1 243 200 200 0;
#X restore 287 370 pd samplers;
#X text 109 24 * a wireless "field synth" - based on 'esp now' protocol
;
#N canvas 677 89 762 622 crickets 1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff11 10 float 3;
#A 0 0.342857 0.67619 0.371429 0.685714 0.352381 0.638095 0.352381
0.609524 0.333333 0.0285714;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 213 72 graph;
#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 53 72 graph;
#X obj 53 220 tgl 20 0 empty empty empty 17 7 0 10 -262130 -1 -1 1
1;
#X obj 177 240 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 1
1;
#X obj 53 245 metro 2000;
#X obj 213 220 tgl 20 0 empty empty empty 17 7 0 10 -262130 -1 -1 1
1;
#X obj 337 240 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 1
1;
#X obj 213 245 metro 2000;
#X obj 373 220 tgl 20 0 empty empty empty 17 7 0 10 -262130 -1 -1 0
1;
#X obj 497 240 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 0
1;
#X text 722 577 >>>;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff12 30 float 3;
#A 0 0.578571 0.864285 1.39286 0.00952381 0.00952375 0.428571 0.542857
0.878573 0.00952381 0.00952387 1.1 0.12381 0 0 0 0 0 0 0.152381 0.152381
0 0 0 0.495238 0 0.685714 0.514286 0 0.238095 0;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 373 72 graph;
#X obj 373 245 metro 1000;
#X obj 53 384 s NOTE;
#X obj 213 384 s NOTE;
#X obj 373 384 s NOTE;
#X text 722 17 >>>;
#X text 12 17 <<<;
#X text 12 577 <<<;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff13 50 float 3;
#A 0 0.485714 0.980952 0.533342 0.4762 0.447629 0.419059 0.380964 0.34287
0.314299 0.285728 0.257157 0.228586 0.209539 0.190491 0.176206 0.161921
0.152397 0.142873 0.142873 1 0.866669 0.809527 0.752386 0.719053 0.68572
0.657149 0.628578 0.600008 0.561913 0.552389 0.542866 0.533342 0.523818
0.523818 0.523818 0.523818 0.52858 0.533342 0.58096 0.657149 0.752386
0.933335 0.933335 0.933335 0.942858 0.961905 1.22857 1.19047 1.10476
1.03809;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 533 72 graph;
#X obj 533 220 tgl 20 0 empty empty empty 17 7 0 10 -204786 -1 -1 0
1;
#X obj 533 384 s NOTE;
#X obj 533 245 metro 500;
#X obj 533 279 riff 800 3201;
#X msg 590 212 symbol riff91;
#X obj 373 279 riff 300 3001;
#X msg 110 212 symbol riff10;
#X msg 270 212 symbol riff11;
#X msg 430 212 symbol riff15;
#X obj 548 552 s NOTE;
#X obj 657 240 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 0
1;
#X obj 213 279 riff 600 3791;
#X floatatom 153 404 5 0 0 0 - - -;
#X obj 153 426 s X3;
#X floatatom 313 404 5 0 0 0 - - -;
#X obj 313 426 s X3;
#X obj 548 494 pack f f;
#X obj 593 468 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 548 466 5 0 0 0 - - -;
#X msg 548 523 3120 0 \$1 \$2;
#X obj 434 461 metro 1000;
#X obj 457 425 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 53 279 riff 200 3120;
#X msg 280 191 symbol riff13;
#X msg 120 192 symbol riff11;
#X connect 2 0 4 0;
#X connect 3 0 42 3;
#X connect 4 0 42 0;
#X connect 5 0 7 0;
#X connect 6 0 31 3;
#X connect 7 0 31 0;
#X connect 8 0 12 0;
#X connect 9 0 25 3;
#X connect 12 0 25 0;
#X connect 20 0 22 0;
#X connect 22 0 23 0;
#X connect 23 0 21 0;
#X connect 24 0 23 1;
#X connect 25 0 15 0;
#X connect 26 0 42 1;
#X connect 27 0 31 1;
#X connect 28 0 25 1;
#X connect 30 0 23 3;
#X connect 31 0 14 0;
#X connect 32 0 33 0;
#X connect 34 0 35 0;
#X connect 36 0 39 0;
#X connect 37 0 36 1;
#X connect 38 0 36 0;
#X connect 39 0 29 0;
#X connect 40 0 38 0;
#X connect 41 0 40 0;
#X connect 42 0 13 0;
#X connect 43 0 31 1;
#X connect 44 0 42 1;
#X restore 341 325 pd crickets;
#X msg 249 98 devicename /dev/ttyACM0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X msg 210 58 devicename /dev/tty.usbmodem4871051 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X msg 500 315 2000;
#N canvas 1 89 443 470 keyboard 0;
#X obj 20 126 unpackOSC;
#X obj 107 18 loadbang;
#X msg 147 103 devices;
#X obj 20 147 routeOSC /note;
#X floatatom 20 189 5 0 0 0 - - -;
#X floatatom 77 189 5 0 0 0 - - -;
#X floatatom 135 189 5 0 0 0 - - -;
#X obj 20 105 o.io.slipserial;
#X msg 147 127 close;
#X obj 20 235 pack f f f;
#X obj 20 168 routeOSC /pitch /velocity /onoff /oncnt;
#X floatatom 193 189 5 0 0 0 - - -;
#X obj 135 245 tgl 100 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X msg 20 52 devicename /dev/tty.HC-06-DevB-1 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X text 1 2 <<<;
#X text 401 2 >>>;
#X text 1 422 <<<;
#X text 401 422 >>>;
#X obj 20 258 s SAMPLER_NOTE;
#X floatatom 185 349 8 0 0 0 pitch - -;
#X floatatom 185 369 8 0 0 0 velocity - -;
#X obj 259 230 notein 1;
#X floatatom 259 259 5 0 0 0 - - -;
#X floatatom 304 259 5 0 0 0 - - -;
#X obj 304 287 t a a;
#X floatatom 259 321 5 0 0 0 - - -;
#X floatatom 304 321 5 0 0 0 - - -;
#X floatatom 361 332 5 0 0 0 - - -;
#X obj 259 349 pack f f f;
#X obj 361 305 != 0;
#X obj 259 372 s SAMPLER_NOTE;
#X text 260 205 * from midi master keybrd;
#X text 180 25 * from bt-keybrd made w/ teensy;
#X connect 0 0 3 0;
#X connect 2 0 7 1;
#X connect 3 0 10 0;
#X connect 4 0 9 0;
#X connect 4 0 19 0;
#X connect 5 0 9 1;
#X connect 5 0 20 0;
#X connect 6 0 9 2;
#X connect 6 0 12 0;
#X connect 7 0 0 0;
#X connect 8 0 7 1;
#X connect 9 0 18 0;
#X connect 10 0 4 0;
#X connect 10 1 5 0;
#X connect 10 2 6 0;
#X connect 10 3 11 0;
#X connect 13 0 7 1;
#X connect 21 0 22 0;
#X connect 21 1 23 0;
#X connect 22 0 25 0;
#X connect 23 0 24 0;
#X connect 24 0 26 0;
#X connect 24 1 29 0;
#X connect 25 0 28 0;
#X connect 26 0 28 1;
#X connect 27 0 28 2;
#X connect 27 0 12 0;
#X connect 28 0 30 0;
#X connect 29 0 27 0;
#X coords 0 -1 1 1 110 170 1 130 220;
#X restore 76 246 pd keyboard ctrlr;
#X obj 235 203 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X connect 0 0 18 0;
#X connect 1 0 0 1;
#X connect 4 0 16 0;
#X connect 5 0 10 0;
#X connect 5 1 39 0;
#X connect 6 0 5 1;
#X connect 7 0 5 1;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X connect 9 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 0 29 0;
#X connect 14 0 13 0;
#X connect 15 0 14 1;
#X connect 17 0 0 0;
#X connect 17 0 4 0;
#X connect 23 0 24 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 25 0;
#X connect 28 0 37 0;
#X connect 28 1 23 0;
#X connect 29 0 31 0;
#X connect 30 0 29 1;
#X connect 35 0 5 1;
#X connect 36 0 5 1;
#X connect 37 0 23 0;

344
puredata/piano_access_radio_notes.pd
View file

@ -1,344 +0,0 @@
#N canvas 816 89 623 470 10;
#X obj 322 198 spigot;
#X obj 371 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 412 194 pd buildOSC for all;
#X obj 117 121 o.io.slipserial;
#X msg 243 142 devices;
#X msg 243 165 close;
#X obj 117 80 packOSC;
#X obj 117 55 r OSC;
#X obj 117 144 unpackOSC;
#X obj 117 167 routeOSC /hello;
#X obj 117 190 s HELLO;
#X obj 34 120 print OSC;
#X obj 34 93 spigot;
#X obj 83 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 412 217 s OSC;
#X obj 412 155 r NOTE;
#X obj 322 225 print NOTE;
#X text 413 134 /id /pitch /velocity /onoff;
#X floatatom 543 325 5 0 0 0 - - -;
#X obj 543 347 s PS;
#X obj 494 236 tgl 25 0 empty empty hello 32 7 0 15 -159808 -257985
-159808 1 1;
#X obj 543 263 loadbang;
#X msg 543 286 1;
#X obj 494 286 sel 1;
#X obj 34 163 spigot;
#X obj 83 148 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 34 190 print HELLO;
#X text 103 24 * a wireless "field synth" - based on 'esp now' protocol
;
#X msg 243 98 devicename /dev/ttyACM0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X msg 204 58 devicename /dev/tty.usbmodem4871051 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X msg 494 315 2000;
#N canvas 32 106 578 582 fruits 0;
#X obj 13 15 cnv 15 550 550 empty empty empty 20 12 0 14 -228856 -204800
0;
#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.00029251 0.099962 0.099962 0.099962 0.099962 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 157 421 0;
#X obj 478 114 array sum;
#X floatatom 183 18 5 0 0 0 sum FRUIT_ENERGY -;
#X obj 478 91 metro 100;
#X obj 130 342 loadbang;
#X obj 522 19 loadbang;
#X obj 522 42 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 -262144 -1 -1 1
1;
#X floatatom 24 394 5 0 0 0 - - -;
#X obj 130 378 t b b;
#X obj 69 416 metro 50;
#X obj 24 348 ear~ 2000 10000;
#X obj 478 137 max 0.001;
#X obj 302 30 loadbang;
#X msg 302 53 \; pd dsp 1;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_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 156 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 - - -;
#X obj 805 123 tabread we_sequence;
#X obj 805 35 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 805 146 5 0 0 0 - - -;
#X obj 478 163 *;
#X obj 895 78 metro 60000;
#X obj 895 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 895 35 loadbang;
#X msg 975 35 \; we_sequence const 1;
#X obj 955 231 hradio 10 1 0 20 empty empty empty 0 -8 0 10 -257985
-4160 -1 6;
#X obj 478 184 +;
#X obj 300 169 tgl 15 0 empty WORLD_SLEEP set_to_stop_the_world 17
7 0 10 -262144 -1 -1 0 1;
#X obj 805 168 s F_SEQ;
#X obj 214 439 pack f f;
#X obj 320 342 loadbang;
#X obj 214 371 snapshot~;
#X msg 214 319 start;
#X msg 264 319 stop;
#X obj 259 396 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 214 394 5 0 0 0 - - -;
#X obj 320 378 t b b;
#X obj 259 416 metro 50;
#X obj 214 348 ear~ 2000 10000;
#X msg 347 421 1;
#X obj 404 439 pack f f;
#X obj 510 342 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 -262144 -1 -1 1
1;
#X floatatom 404 394 5 0 0 0 - - -;
#X obj 510 378 t b b;
#X obj 449 416 metro 50;
#X obj 404 348 ear~ 2000 10000;
#X obj 594 439 pack f f;
#X obj 700 342 loadbang;
#X obj 594 371 snapshot~;
#X msg 594 319 start;
#X msg 644 319 stop;
#X obj 639 396 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 594 394 5 0 0 0 - - -;
#X obj 700 378 t b b;
#X obj 639 416 metro 50;
#X obj 594 348 ear~ 2000 10000;
#X msg 537 421 2;
#X msg 727 421 3;
#X obj 784 439 pack f f;
#X obj 890 342 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 -262144 -1 -1 1
1;
#X floatatom 784 394 5 0 0 0 - - -;
#X obj 890 378 t b b;
#X obj 829 416 metro 50;
#X obj 784 348 ear~ 2000 10000;
#X msg 917 421 4;
#X obj 24 416 * 0.1;
#X obj 214 416 * 0.1;
#X obj 404 416 * 0.1;
#X obj 594 416 * 0.1;
#X obj 784 416 * 0.1;
#X msg 638 32 \; fruit_energy const 0;
#X msg 549 96 symbol fruit_energy;
#X obj 578 202 s FRUIT_ENERGY;
#X msg 24 462 \; fruit_energy \$2 \$1;
#X msg 214 462 \; fruit_energy \$2 \$1;
#X msg 404 462 \; fruit_energy \$2 \$1;
#X msg 594 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 214 252 r RE;
#X obj 264 276 r RE_DONE;
#X obj 404 253 r MI;
#X obj 454 276 r MI_DONE;
#X obj 594 253 r FA;
#X obj 644 276 r FA_DONE;
#X obj 784 253 r SOL;
#X obj 834 276 r SOL_DONE;
#X connect 1 0 89 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 87 0;
#X connect 8 1 86 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 81 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 28 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 25 0;
#X connect 24 0 33 0;
#X connect 25 0 27 0;
#X connect 26 0 21 0;
#X connect 27 0 28 1;
#X connect 27 0 36 0;
#X connect 28 0 34 0;
#X connect 29 0 26 0;
#X connect 30 0 29 0;
#X connect 31 0 30 0;
#X connect 34 0 88 0;
#X connect 35 0 34 1;
#X connect 37 0 90 0;
#X connect 38 0 44 0;
#X connect 39 0 43 0;
#X connect 40 0 46 0;
#X connect 41 0 46 0;
#X connect 42 0 45 0;
#X connect 43 0 82 0;
#X connect 44 0 42 0;
#X connect 44 1 47 0;
#X connect 45 0 39 0;
#X connect 46 0 39 0;
#X connect 47 0 37 1;
#X connect 48 0 91 0;
#X connect 49 0 55 0;
#X connect 50 0 54 0;
#X connect 51 0 57 0;
#X connect 52 0 57 0;
#X connect 53 0 56 0;
#X connect 54 0 83 0;
#X connect 55 0 53 0;
#X connect 55 1 68 0;
#X connect 56 0 50 0;
#X connect 57 0 50 0;
#X connect 58 0 92 0;
#X connect 59 0 65 0;
#X connect 60 0 64 0;
#X connect 61 0 67 0;
#X connect 62 0 67 0;
#X connect 63 0 66 0;
#X connect 64 0 84 0;
#X connect 65 0 63 0;
#X connect 65 1 69 0;
#X connect 66 0 60 0;
#X connect 67 0 60 0;
#X connect 68 0 48 1;
#X connect 69 0 58 1;
#X connect 70 0 93 0;
#X connect 71 0 77 0;
#X connect 72 0 76 0;
#X connect 73 0 79 0;
#X connect 74 0 79 0;
#X connect 75 0 78 0;
#X connect 76 0 85 0;
#X connect 77 0 75 0;
#X connect 77 1 80 0;
#X connect 78 0 72 0;
#X connect 79 0 72 0;
#X connect 80 0 70 1;
#X connect 81 0 1 0;
#X connect 82 0 37 0;
#X connect 83 0 48 0;
#X connect 84 0 58 0;
#X connect 85 0 70 0;
#X connect 87 0 3 2;
#X connect 94 0 10 0;
#X connect 95 0 11 0;
#X connect 96 0 40 0;
#X connect 97 0 41 0;
#X connect 98 0 51 0;
#X connect 99 0 52 0;
#X connect 100 0 61 0;
#X connect 101 0 62 0;
#X connect 102 0 73 0;
#X connect 103 0 74 0;
#X coords 0 -1 1 1 220 100 1 5 5;
#X restore 324 30 pd;
#X obj 49 164 radio_do;
#X obj 182 42 radio_re;
#X obj 351 203 radio_mi;
#X obj 115 364 radio_fa;
#X obj 325 378 radio_sol;
#X restore 160 291 pd fruits;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 15 0 0 0;
#X connect 15 0 2 0;
#X connect 18 0 19 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 30 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 3 1;
#X connect 29 0 3 1;
#X connect 30 0 18 0;

499
puredata/piano_access_radio_roomA2.pd
View file

@ -1,499 +0,0 @@
#N canvas 816 89 623 470 10;
#X obj 322 198 spigot;
#X obj 371 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 412 194 pd buildOSC for all;
#X obj 117 121 o.io.slipserial;
#X msg 243 142 devices;
#X msg 243 165 close;
#X obj 117 80 packOSC;
#X obj 117 55 r OSC;
#X obj 117 144 unpackOSC;
#X obj 117 167 routeOSC /hello;
#X obj 117 190 s HELLO;
#X obj 34 120 print OSC;
#X obj 34 93 spigot;
#X obj 83 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 412 217 s OSC;
#X obj 412 155 r NOTE;
#X obj 322 225 print NOTE;
#X text 413 134 /id /pitch /velocity /onoff;
#X floatatom 543 325 5 0 0 0 - - -;
#X obj 543 347 s PS;
#X obj 494 236 tgl 25 0 empty empty hello 32 7 0 15 -159808 -257985
-159808 1 1;
#X obj 543 263 loadbang;
#X msg 543 286 1;
#X obj 494 286 sel 1;
#X obj 34 163 spigot;
#X obj 83 148 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 34 190 print HELLO;
#X text 103 24 * a wireless "field synth" - based on 'esp now' protocol
;
#X msg 243 98 devicename /dev/ttyACM0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X msg 204 58 devicename /dev/tty.usbmodem4871051 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X msg 494 315 2000;
#N canvas 43 89 671 746 birds 1;
#X obj 29 21 cnv 15 600 700 empty empty empty 20 12 0 14 -233017 -66577
0;
#N canvas 1 89 1181 792 (subpatch) 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array forest_energy 20 float 3;
#A 0 0.099962 0.099962 0.099962 0.099962 0.099962 0.099962 0.0682761
0.0539899 0.099962 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 20 0 200 50 1 0 0;
#X restore 15 36 graph;
#X obj 24 439 pack f f;
#X msg 157 421 0;
#X obj 478 114 array sum;
#X floatatom 183 18 5 0 0 0 sum FOREST_ENERGY -;
#X obj 478 91 metro 100;
#X obj 130 342 loadbang;
#X obj 522 19 loadbang;
#X obj 522 42 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 -262144 -1 -1 1
1;
#X floatatom 24 394 5 0 0 0 - - -;
#X obj 130 378 t b b;
#X obj 69 416 metro 50;
#X obj 24 348 ear~ 2000 10000;
#X obj 478 137 max 0.001;
#X obj 302 30 loadbang;
#X msg 302 53 \; pd dsp 1;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_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 156 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 - - -;
#X obj 805 123 tabread we_sequence;
#X obj 805 35 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 805 146 5 0 0 0 - - -;
#X obj 478 163 *;
#X obj 895 78 metro 60000;
#X obj 895 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 895 35 loadbang;
#X msg 975 35 \; we_sequence const 1;
#X obj 955 231 hradio 10 1 0 20 empty empty empty 0 -8 0 10 -257985
-4160 -1 3;
#N canvas 1 89 450 300 backup 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_sequence_backup 20 float 3;
#A 0 0.885714 1 0.685714 1 0.514286 1 0.485714 1 1 0.6 0.585714 0.642857
1 1 0.842857 1 0.857143 1 1 0.885714;
#X coords 0 1 20 0 200 70 1 0 0;
#X restore 22 32 graph;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_sequence.backup 20 float 3;
#A 0 1 0.91 0.91 0.799999 0.79 0.78 0.73 0.66 1 0.91 0.87 0.85 0.64
0.66 1 1 1 0.8 0.8 1;
#X coords 0 1 20 0 200 100 1 0 0;
#X restore 195 141 graph;
#X restore 277 112 pd backup sequences;
#X obj 478 184 +;
#X obj 300 169 tgl 15 0 empty WORLD_SLEEP set_to_stop_the_world 17
7 0 10 -262144 -1 -1 0 1;
#X obj 578 202 s FOREST_ENERGY;
#X msg 549 96 symbol forest_energy;
#X msg 638 32 \; forest_energy const 0;
#X obj 805 168 s F_SEQ;
#X obj 24 253 r EARTH;
#X obj 74 276 r EARTH_DONE;
#X msg 24 462 \; forest_energy \$2 \$1;
#X obj 214 439 pack f f;
#X obj 320 342 loadbang;
#X obj 214 371 snapshot~;
#X msg 214 319 start;
#X msg 264 319 stop;
#X obj 259 396 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 214 394 5 0 0 0 - - -;
#X obj 320 378 t b b;
#X obj 259 416 metro 50;
#X obj 214 348 ear~ 2000 10000;
#X msg 214 462 \; forest_energy \$2 \$1;
#X msg 347 421 1;
#X obj 404 439 pack f f;
#X obj 510 342 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 -262144 -1 -1 1
1;
#X floatatom 404 394 5 0 0 0 - - -;
#X obj 510 378 t b b;
#X obj 449 416 metro 50;
#X obj 404 348 ear~ 2000 10000;
#X msg 404 462 \; forest_energy \$2 \$1;
#X obj 594 439 pack f f;
#X obj 700 342 loadbang;
#X obj 594 371 snapshot~;
#X msg 594 319 start;
#X msg 644 319 stop;
#X obj 639 396 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 594 394 5 0 0 0 - - -;
#X obj 700 378 t b b;
#X obj 639 416 metro 50;
#X obj 594 348 ear~ 2000 10000;
#X msg 594 462 \; forest_energy \$2 \$1;
#X msg 537 421 2;
#X msg 727 421 3;
#X obj 404 253 r JUPITER;
#X obj 454 276 r JUPITER_DONE;
#X obj 784 439 pack f f;
#X obj 890 342 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 -262144 -1 -1 1
1;
#X floatatom 784 394 5 0 0 0 - - -;
#X obj 890 378 t b b;
#X obj 829 416 metro 50;
#X obj 784 348 ear~ 2000 10000;
#X msg 784 462 \; forest_energy \$2 \$1;
#X msg 917 421 4;
#X obj 834 276 r VENUS_DONE;
#X obj 24 709 pack f f;
#X obj 130 612 loadbang;
#X obj 24 641 snapshot~;
#X msg 24 589 start;
#X msg 74 589 stop;
#X obj 69 666 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 24 664 5 0 0 0 - - -;
#X obj 130 648 t b b;
#X obj 69 686 metro 50;
#X obj 24 618 ear~ 2000 10000;
#X msg 24 732 \; forest_energy \$2 \$1;
#X obj 214 709 pack f f;
#X obj 320 612 loadbang;
#X obj 214 641 snapshot~;
#X msg 214 589 start;
#X msg 264 589 stop;
#X obj 259 666 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 214 664 5 0 0 0 - - -;
#X obj 320 648 t b b;
#X obj 259 686 metro 50;
#X obj 214 618 ear~ 2000 10000;
#X msg 214 732 \; forest_energy \$2 \$1;
#X obj 404 709 pack f f;
#X obj 510 612 loadbang;
#X obj 404 641 snapshot~;
#X msg 404 589 start;
#X msg 454 589 stop;
#X obj 449 666 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 404 664 5 0 0 0 - - -;
#X obj 510 648 t b b;
#X obj 449 686 metro 50;
#X obj 404 618 ear~ 2000 10000;
#X msg 404 732 \; forest_energy \$2 \$1;
#X obj 594 709 pack f f;
#X obj 700 612 loadbang;
#X obj 594 641 snapshot~;
#X msg 594 589 start;
#X msg 644 589 stop;
#X obj 639 666 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 594 664 5 0 0 0 - - -;
#X obj 700 648 t b b;
#X obj 639 686 metro 50;
#X obj 594 618 ear~ 2000 10000;
#X msg 594 732 \; forest_energy \$2 \$1;
#X msg 157 691 5;
#X msg 347 691 6;
#X msg 537 691 7;
#X msg 727 691 8;
#X obj 214 523 r URANUS;
#X obj 264 546 r URANUS_DONE;
#X obj 214 253 r SATURN;
#X obj 264 276 r SATURN_DONE;
#X obj 594 253 r CALLISTO;
#X obj 644 276 r CALLISTO_DONE;
#X text 296 246 front @ trio;
#X text 487 249 right @ trio;
#X text 683 250 rear @ trio;
#X text 94 242 rumble p.ball;
#X obj 24 523 r EUROPA;
#X obj 74 546 r EUROPA_DONE;
#X text 290 519 pinky;
#X obj 404 523 r CERES;
#X obj 454 546 r CERES_DONE;
#X text 473 517 high one;
#X text 102 518 gate;
#X obj 594 523 r GANYMEDE;
#X obj 644 546 r GANYMEDE_DONE;
#X text 684 516 center;
#X obj 784 253 r VENUS;
#X text 870 245 floor;
#X obj 24 416 * 0.1;
#X obj 214 416 * 0.1;
#X obj 404 416 * 0.1;
#X obj 594 416 * 0.1;
#X obj 784 416 * 0.1;
#X obj 594 686 * 0.1;
#X obj 404 686 * 0.1;
#X obj 214 686 * 0.1;
#X obj 24 686 * 0.1;
#X connect 1 0 43 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 38 0;
#X connect 8 1 39 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 165 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 28 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 25 0;
#X connect 24 0 33 0;
#X connect 25 0 27 0;
#X connect 26 0 21 0;
#X connect 27 0 28 1;
#X connect 27 0 40 0;
#X connect 28 0 35 0;
#X connect 29 0 26 0;
#X connect 30 0 29 0;
#X connect 31 0 30 0;
#X connect 35 0 37 0;
#X connect 36 0 35 1;
#X connect 38 0 3 2;
#X connect 41 0 10 0;
#X connect 42 0 11 0;
#X connect 44 0 54 0;
#X connect 45 0 51 0;
#X connect 46 0 50 0;
#X connect 47 0 53 0;
#X connect 48 0 53 0;
#X connect 49 0 52 0;
#X connect 50 0 166 0;
#X connect 51 0 49 0;
#X connect 51 1 55 0;
#X connect 52 0 46 0;
#X connect 53 0 46 0;
#X connect 55 0 44 1;
#X connect 56 0 66 0;
#X connect 57 0 63 0;
#X connect 58 0 62 0;
#X connect 59 0 65 0;
#X connect 60 0 65 0;
#X connect 61 0 64 0;
#X connect 62 0 167 0;
#X connect 63 0 61 0;
#X connect 63 1 78 0;
#X connect 64 0 58 0;
#X connect 65 0 58 0;
#X connect 67 0 77 0;
#X connect 68 0 74 0;
#X connect 69 0 73 0;
#X connect 70 0 76 0;
#X connect 71 0 76 0;
#X connect 72 0 75 0;
#X connect 73 0 168 0;
#X connect 74 0 72 0;
#X connect 74 1 79 0;
#X connect 75 0 69 0;
#X connect 76 0 69 0;
#X connect 78 0 56 1;
#X connect 79 0 67 1;
#X connect 80 0 59 0;
#X connect 81 0 60 0;
#X connect 82 0 92 0;
#X connect 83 0 89 0;
#X connect 84 0 88 0;
#X connect 85 0 91 0;
#X connect 86 0 91 0;
#X connect 87 0 90 0;
#X connect 88 0 169 0;
#X connect 89 0 87 0;
#X connect 89 1 93 0;
#X connect 90 0 84 0;
#X connect 91 0 84 0;
#X connect 93 0 82 1;
#X connect 94 0 86 0;
#X connect 95 0 105 0;
#X connect 96 0 102 0;
#X connect 97 0 101 0;
#X connect 98 0 104 0;
#X connect 99 0 104 0;
#X connect 100 0 103 0;
#X connect 101 0 173 0;
#X connect 102 0 100 0;
#X connect 102 1 139 0;
#X connect 103 0 97 0;
#X connect 104 0 97 0;
#X connect 106 0 116 0;
#X connect 107 0 113 0;
#X connect 108 0 112 0;
#X connect 109 0 115 0;
#X connect 110 0 115 0;
#X connect 111 0 114 0;
#X connect 112 0 172 0;
#X connect 113 0 111 0;
#X connect 113 1 140 0;
#X connect 114 0 108 0;
#X connect 115 0 108 0;
#X connect 117 0 127 0;
#X connect 118 0 124 0;
#X connect 119 0 123 0;
#X connect 120 0 126 0;
#X connect 121 0 126 0;
#X connect 122 0 125 0;
#X connect 123 0 171 0;
#X connect 124 0 122 0;
#X connect 124 1 141 0;
#X connect 125 0 119 0;
#X connect 126 0 119 0;
#X connect 128 0 138 0;
#X connect 129 0 135 0;
#X connect 130 0 134 0;
#X connect 131 0 137 0;
#X connect 132 0 137 0;
#X connect 133 0 136 0;
#X connect 134 0 170 0;
#X connect 135 0 133 0;
#X connect 135 1 142 0;
#X connect 136 0 130 0;
#X connect 137 0 130 0;
#X connect 139 0 95 1;
#X connect 140 0 106 1;
#X connect 141 0 117 1;
#X connect 142 0 128 1;
#X connect 143 0 109 0;
#X connect 144 0 110 0;
#X connect 145 0 47 0;
#X connect 146 0 48 0;
#X connect 147 0 70 0;
#X connect 148 0 71 0;
#X connect 153 0 98 0;
#X connect 154 0 99 0;
#X connect 156 0 120 0;
#X connect 157 0 121 0;
#X connect 160 0 131 0;
#X connect 161 0 132 0;
#X connect 163 0 85 0;
#X connect 165 0 1 0;
#X connect 166 0 44 0;
#X connect 167 0 56 0;
#X connect 168 0 67 0;
#X connect 169 0 82 0;
#X connect 170 0 128 0;
#X connect 171 0 117 0;
#X connect 172 0 106 0;
#X connect 173 0 95 0;
#X coords 0 -1 1 1 220 100 1 5 5;
#X restore 20 626 pd;
#X text 463 589 change stress rate...;
#X text 463 629 solo time;
#X text 514 603 set max. stress;
#X obj 209 18 radio_earth;
#X obj 358 409 radio_ganymede;
#X obj 324 586 radio_europa;
#X obj 410 118 radio_venus;
#X obj 84 470 radio_uranus;
#X obj 43 306 radio_saturn;
#X obj 135 220 radio_jupiter;
#X obj 554 237 radio_ceres;
#X obj 33 201 radio_callisto;
#X restore 160 291 pd birds;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 15 0 0 0;
#X connect 15 0 2 0;
#X connect 18 0 19 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 30 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 3 1;
#X connect 29 0 3 1;
#X connect 30 0 18 0;

1429
puredata/radio_0set_hyhome.pd
View file

File diff suppressed because it is too large Load diff

35
puredata/radio_bell.pd
View file

@ -1,35 +0,0 @@
#N canvas 625 33 450 324 12;
#X obj 74 276 s NOTE;
#X floatatom 291 201 5 0 0 0 release\ angle - - 0;
#X floatatom 279 97 5 0 0 2 stabilizing\ angle - - 0;
#X obj 291 225 s X1;
#X obj 279 121 s X2;
#X floatatom 137 70 5 0 0 2 hitting\ angle - - 0;
#X obj 137 131 t b a b b;
#X obj 74 235 pack 11001 105 f 1;
#X obj 76 197 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 163 281 print;
#X obj 137 100 f;
#X obj 16 63 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 138 7 inlet;
#X obj 254 52 init 55;
#X obj 303 161 init 55;
#X obj 138 32 f 92;
#X connect 1 0 3 0;
#X connect 2 0 4 0;
#X connect 5 0 10 0;
#X connect 6 0 8 0;
#X connect 6 1 7 2;
#X connect 6 2 1 0;
#X connect 6 3 2 0;
#X connect 7 0 0 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 10 0 6 0;
#X connect 11 0 5 0;
#X connect 12 0 15 0;
#X connect 13 0 2 0;
#X connect 14 0 1 0;
#X connect 15 0 5 0;

276
puredata/radio_copper.pd
View file

@ -1,276 +0,0 @@
#N canvas 485 95 461 502 10;
#X msg 37 337 0;
#X obj 349 303 loadbang;
#X obj 302 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 322 406 0;
#X obj 322 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 651 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 43 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.65;
#X msg 285 439 0.25;
#X connect 0 0 48 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 548 100 682 544 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper1 50 float 3;
#A 0 0.161905 0.171429 0.190476 0.209524 0.24762 0.323809 0.361904
0.390476 0.428571 0.438094 0.419047 0.371428 0.333333 0.257144 0.190476
0.161905 0.133333 0.12381 0.12381 0.133333 0.190476 0.2 0.266667 0.352381
0.390476 0.419045 0.409522 0.371429 0.333334 0.266667 0.219049 0.228571
0.161905 0.133334 0.142857 0.152381 0.209525 0.238096 0.333331 0.4
0.419047 0.419047 0.380952 0.314286 0.266667 0.238096 0.209525 0.200001
0.190477 0.190477;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 26 68 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper4 25 float 3;
#A 0 0.314285 0.314285 0.314285 0.00952381 0.00952387 0.00952387 0.314286
0.314285 0.304762 0.0190476 0.0190476 0.0190476 0.314286 0.314286 0.314286
0.304762 0.0190476 0.0190476 0.0190476 0.314285 0.314285 0.323809 0.323809
0.0190476 0.0190476;
#X coords 0 1 25 0 150 105 1 0 0;
#X restore 504 68 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper3 40 float 3;
#A 0 1 1.18095 0.980948 0.77143 0.609526 0.485717 0.361908 0.304766
0.00952375 0.00952375 0.00952375 1.08571 0.990476 0.838095 0.857142
0.552383 0.438098 0.314289 0.209528 0.171429 0.00952482 0.0190476 0.00952482
1.12381 0.971429 0.819044 0.73333 0.552379 0.399999 0.266666 0.00952399
0.00952399 0.00952381 1.07619 1.02857 0.828572 0.733335 0.714287 0.428572
0.266668;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 346 68 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array copper2 15 float 3;
#A 0 0.380952 0.428575 0.447622 0.485717 0.523812 0.580955 0.61905
0.657145 0.714287 0.780954 0.800001 0.857144 0.895239 0.933334 0.971429
;
#X coords 0 1 15 0 150 105 1 0 0;
#X restore 186 68 graph;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 148 310 array_copier copper;
#N canvas 84 25 450 278 (subpatch) 0;
#X array copper0 10 float 3;
#A 0 0.352379 0.361903 0.371427 0.399998 0.409522 0.419046 0.438094
0.457142 0.476189 0.495237;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 327 397 graph;
#X obj 197 474 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 197 451 array_copier copper;
#X obj 170 409 t b b;
#X msg 197 430 0;
#X obj 170 389 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144
-1 -1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper5 5 float 3;
#A 0 1.18095 1.3238 1.41904 1.37142 1.17143;
#X coords 0 1 5 0 150 105 1 0 0;
#X restore 505 199 graph;
#X obj 38 224 count 5;
#X connect 4 0 19 0;
#X connect 6 0 5 0;
#X connect 6 1 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 14 0 13 0;
#X connect 15 0 5 0;
#X connect 15 1 16 0;
#X connect 16 0 14 0;
#X connect 17 0 15 0;
#X connect 19 0 6 0;
#X connect 19 0 7 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper 15 float 3;
#A 0 0.380952 0.428575 0.447622 0.485717 0.523812 0.580955 0.61905
0.657145 0.714287 0.780954 0.800001 0.857144 0.895239 0.933334 0.971429
;
#X coords 0 1 15 0 50 50 1 0 0;
#X restore 29 76 graph;
#X obj 24 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -83269
-262144 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -83269 -262144
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -83269 -262144
-1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 164 21 r COPPER;
#X obj 167 279 s COPPER;
#X obj 48 188 r COPPER;
#X obj 302 452 s COPPER_DONE;
#X msg 349 326 copper;
#X obj 369 349 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 88 306 riff1_random 900 3204 1000 1300;
#X obj 317 129 v \$0-STRESS;
#X obj 317 175 v \$0-STRESS;
#X obj 317 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 317 152 * 0.5;
#X connect 0 0 25 0;
#X connect 1 0 23 0;
#X connect 2 0 5 0;
#X connect 2 0 22 0;
#X connect 4 0 20 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 25 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 7 0;
#X connect 19 0 13 0;
#X connect 21 0 10 0;
#X connect 23 0 25 1;
#X connect 24 0 23 0;
#X connect 25 0 16 0;
#X connect 25 3 2 0;
#X connect 26 0 29 0;
#X connect 28 0 26 0;
#X connect 29 0 27 0;
#X coords 0 -1 1 1 100 150 2 5 5;

275
puredata/radio_do.pd
View file

@ -1,275 +0,0 @@
#N canvas 318 89 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 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 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 39 r FRUIT_ENERGY;
#X obj 16 210 < 0.2;
#X msg 285 439 0.02;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 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 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 48 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 49 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 0 0;
#X connect 48 0 1 0;
#X connect 49 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 647 167 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#N canvas 1 89 450 278 (subpatch) 0;
#X array do1 50 float 3;
#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 40 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array do2 50 float 3;
#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
-0.0571424;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 200 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array do3 50 float 3;
#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
-0.00952351 -0.00952351;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 360 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array do4 50 float 3;
#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
0.0857143;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 148 310 array_copier do;
#X obj 38 224 random 4;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 11 0;
#X connect 11 0 4 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array do 50 float 3;
#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
-0.00952351 -0.00952351;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -204786
-4160 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -4160
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
-4160 -1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X obj 164 21 r DO;
#X obj 48 187 r DO;
#X obj 167 279 s DO;
#X msg 319 323 do;
#X obj 295 452 s DO_DONE;
#X obj 88 306 riff1_random 200 4401 700 1000;
#X obj 295 243 loadbang;
#X msg 295 266 0;
#X connect 0 0 32 0;
#X connect 1 0 30 0;
#X connect 2 0 5 0;
#X connect 2 0 31 0;
#X connect 4 0 29 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 30 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 7 0;
#X connect 27 0 13 0;
#X connect 28 0 10 0;
#X connect 30 0 32 1;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X connect 33 0 34 0;
#X connect 34 0 32 2;
#X coords 0 -1 1 1 100 100 2 5 5;

275
puredata/radio_fa.pd
View file

@ -1,275 +0,0 @@
#N canvas 933 200 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 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 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 39 r FRUIT_ENERGY;
#X obj 16 210 < 0.2;
#X msg 285 439 0.02;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 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 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 48 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 49 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 0 0;
#X connect 48 0 1 0;
#X connect 49 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 148 310 array_copier fa;
#N canvas 1 89 450 278 (subpatch) 0;
#X array fa1 50 float 3;
#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 40 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array fa2 50 float 3;
#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
-0.0571424;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 200 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array fa3 50 float 3;
#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
-0.00952351 -0.00952351;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 360 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array fa4 50 float 3;
#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
0.0857143;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 38 224 random 4;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array fa 50 float 3;
#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -261682
-260097 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -260097
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
-260097 -1 0 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X obj 164 21 r FA;
#X obj 48 188 r FA;
#X obj 295 452 s FA_DONE;
#X obj 167 279 s FA;
#X msg 319 323 fa;
#X obj 295 243 loadbang;
#X msg 295 266 1;
#X obj 88 306 riff1_random 200 4402 700 1000;
#X connect 0 0 34 0;
#X connect 1 0 31 0;
#X connect 2 0 5 0;
#X connect 2 0 29 0;
#X connect 4 0 30 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 34 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 31 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 7 0;
#X connect 27 0 13 0;
#X connect 28 0 10 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 33 0 34 2;
#X connect 34 0 16 0;
#X connect 34 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

275
puredata/radio_mi.pd
View file

@ -1,275 +0,0 @@
#N canvas 961 178 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 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 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 39 r FRUIT_ENERGY;
#X obj 16 210 < 0.2;
#X msg 285 439 0.02;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 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 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 48 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 49 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 0 0;
#X connect 48 0 1 0;
#X connect 49 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 148 310 array_copier mi;
#N canvas 1 89 450 278 (subpatch) 0;
#X array mi1 50 float 3;
#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 40 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array mi2 50 float 3;
#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
-0.0571424;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 200 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array mi3 50 float 3;
#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
-0.00952351 -0.00952351;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 360 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array mi4 50 float 3;
#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
0.0857143;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 38 224 random 4;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array mi 50 float 3;
#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
-0.0571424;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -162280
-4032 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -162280 -4032
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -162280
-4032 -1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X obj 164 21 r MI;
#X obj 48 188 r MI;
#X obj 295 452 s MI_DONE;
#X obj 167 278 s MI;
#X msg 319 323 mi;
#X obj 295 243 loadbang;
#X msg 295 266 0;
#X obj 88 306 riff1_random 200 4402 700 1000;
#X connect 0 0 34 0;
#X connect 1 0 31 0;
#X connect 2 0 5 0;
#X connect 2 0 29 0;
#X connect 4 0 30 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 34 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 31 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 7 0;
#X connect 27 0 13 0;
#X connect 28 0 10 0;
#X connect 31 0 34 1;
#X connect 32 0 33 0;
#X connect 33 0 34 2;
#X connect 34 0 16 0;
#X connect 34 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

275
puredata/radio_re.pd
View file

@ -1,275 +0,0 @@
#N canvas 434 218 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 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 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 17 39 r FRUIT_ENERGY;
#X obj 16 210 < 0.2;
#X msg 285 439 0.02;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 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 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 48 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 49 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 0 0;
#X connect 48 0 1 0;
#X connect 49 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 148 310 array_copier re;
#N canvas 1 89 450 278 (subpatch) 0;
#X array re1 50 float 3;
#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 40 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array re2 50 float 3;
#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
-0.0571424;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 200 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array re3 50 float 3;
#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
-0.00952351 -0.00952351;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 360 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array re4 50 float 3;
#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
0.0857143;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 38 224 random 4;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array re 50 float 3;
#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -261682
-4034 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -4034
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
-4034 -1 0 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X obj 164 21 r RE;
#X obj 48 188 r RE;
#X msg 319 323 re;
#X obj 295 452 s RE_DONE;
#X obj 167 279 s RE;
#X obj 295 243 loadbang;
#X msg 295 266 1;
#X obj 88 306 riff1_random 200 4401 700 1000;
#X connect 0 0 34 0;
#X connect 1 0 29 0;
#X connect 2 0 5 0;
#X connect 2 0 30 0;
#X connect 4 0 31 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 34 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 29 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 7 0;
#X connect 27 0 13 0;
#X connect 28 0 10 0;
#X connect 29 0 34 1;
#X connect 32 0 33 0;
#X connect 33 0 34 2;
#X connect 34 0 16 0;
#X connect 34 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

275
puredata/radio_sol.pd
View file

@ -1,275 +0,0 @@
#N canvas 318 89 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 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 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 39 r FRUIT_ENERGY;
#X obj 16 210 < 0.2;
#X msg 285 439 0.02;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 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 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 48 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 49 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 0 0;
#X connect 48 0 1 0;
#X connect 49 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 148 310 array_copier sol;
#N canvas 1 89 450 278 (subpatch) 0;
#X array sol1 50 float 3;
#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 40 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array sol2 50 float 3;
#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
-0.0571424;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 200 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array sol3 50 float 3;
#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
-0.00952351 -0.00952351;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 360 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array sol4 50 float 3;
#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
0.0857143;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 38 224 random 4;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array sol 50 float 3;
#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
-0.0571424;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -262144
-128992 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -128992
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
-128992 -1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X obj 295 243 loadbang;
#X msg 295 266 0;
#X obj 164 21 r SOL;
#X obj 48 188 r SOL;
#X msg 319 323 sol;
#X obj 295 452 s SOL_DONE;
#X obj 167 279 s SOL;
#X obj 88 306 riff1_random 200 4403 700 1000;
#X connect 0 0 34 0;
#X connect 1 0 31 0;
#X connect 2 0 5 0;
#X connect 2 0 32 0;
#X connect 4 0 33 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 34 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 31 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 28 0;
#X connect 28 0 34 2;
#X connect 29 0 7 0;
#X connect 29 0 13 0;
#X connect 30 0 10 0;
#X connect 31 0 34 1;
#X connect 34 0 16 0;
#X connect 34 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

13
puredata/array_copier.pd → puredata/radio_theatre_1.dots-dots.unstable/array_copier.pd
View file

@ -1,6 +1,6 @@
#N canvas 272 257 410 322 10;
#X obj 123 152 array size;
#X floatatom 123 176 5 0 0 0 - - -;
#X floatatom 123 176 5 0 0 0 - - - 0;
#X obj 123 198 array size;
#X obj 56 239 array get;
#X obj 56 262 array set;
@ -16,9 +16,9 @@
#X obj 76 38 t a b;
#X obj 197 159 loadbang;
#X obj 197 182 symbol \$1;
#X text 117 14 <-- [inlet] is faster than [loadbang] !?;
#X text 155 55 a quick patch.;
#X obj 246 54 lbang;
#X obj 246 56 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 246 33 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 4 0;
@ -35,7 +35,8 @@
#X connect 12 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 12 0;
#X connect 14 1 19 0;
#X connect 14 1 17 0;
#X connect 15 0 16 0;
#X connect 16 0 2 1;
#X connect 19 0 10 0;
#X connect 17 0 10 0;
#X connect 18 0 17 0;

0
puredata/arr2q.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/arr2q.pd
View file

42
puredata/radio_theatre_1.dots-dots.unstable/backup/array_copier.pd Normal file
View file

@ -0,0 +1,42 @@
#N canvas 272 257 410 322 10;
#X obj 123 152 array size;
#X floatatom 123 176 5 0 0 0 - - - 0;
#X obj 123 198 array size;
#X obj 56 239 array get;
#X obj 56 262 array set;
#X obj 76 129 t b b a b a;
#X obj 197 223 loadbang;
#X obj 76 13 inlet;
#X obj 197 246 symbol \$1;
#X obj 26 147 outlet;
#X obj 246 76 symbol \$1;
#X obj 246 97 makefilename %s%%d;
#X obj 76 95 makefilename;
#X msg 246 118 set \$1;
#X obj 76 38 t a b;
#X obj 197 159 loadbang;
#X obj 197 182 symbol \$1;
#X obj 246 56 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 246 33 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 4 0;
#X connect 5 0 9 0;
#X connect 5 1 3 0;
#X connect 5 2 3 2;
#X connect 5 3 0 0;
#X connect 5 4 0 1;
#X connect 6 0 8 0;
#X connect 7 0 14 0;
#X connect 8 0 4 2;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 12 0;
#X connect 14 1 17 0;
#X connect 15 0 16 0;
#X connect 16 0 2 1;
#X connect 17 0 10 0;
#X connect 18 0 17 0;

0
puredata/asum.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/asum.pd
View file

0
puredata/crickets_save.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/crickets_save.pd
View file

0
puredata/hooop.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/hooop.pd
View file

0
puredata/lbang.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/lbang.pd
View file

0
puredata/limitcnt-help.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/limitcnt-help.pd
View file

0
puredata/limitcnt.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/limitcnt.pd
View file

23
puredata/radio_theatre_1.dots-dots.unstable/backup/loadband-order-test.pd Normal file
View file

@ -0,0 +1,23 @@
#N canvas 226 215 450 300 12;
#X obj 297 54 loadbang;
#X obj 297 104 print;
#X msg 297 79 4;
#X obj 227 54 loadbang;
#X obj 227 104 print;
#X msg 227 79 3;
#X obj 157 54 loadbang;
#X obj 157 104 print;
#X msg 157 79 2;
#X obj 87 54 loadbang;
#X msg 87 79 1;
#X obj 87 104 print;
#X text 85 180 loadbang is banged in 'creation order';
#X text 87 233 try cut paste to modify creation order;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;

38
puredata/radio_theatre_1.dots-dots.unstable/backup/o.io.slipserial.pd Normal file
View file

@ -0,0 +1,38 @@
#N canvas 530 426 374 320 10;
#X obj 50 18 inlet;
#X obj 50 280 outlet;
#X obj 166 18 inlet;
#X obj 50 41 slipenc 65536;
#X obj 50 253 slipdec 65536;
#X msg 219 137 info;
#X obj 107 192 route open;
#X obj 166 41 t a a;
#X obj 219 93 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 170 266 outlet;
#X obj 196 235 print info;
#X obj 50 104 spigot;
#X obj 154 120 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 166 64 route open devicename close;
#X obj 219 114 del 200;
#X obj 50 169 comport -1;
#X connect 0 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 11 0;
#X connect 4 0 1 0;
#X connect 5 0 15 0;
#X connect 6 0 9 0;
#X connect 6 0 12 0;
#X connect 6 1 10 0;
#X connect 7 0 13 0;
#X connect 7 1 15 0;
#X connect 8 0 14 0;
#X connect 11 0 15 0;
#X connect 12 0 11 1;
#X connect 13 0 8 0;
#X connect 13 1 8 0;
#X connect 13 2 8 0;
#X connect 14 0 5 0;
#X connect 15 0 4 0;
#X connect 15 1 6 0;

10
puredata/piano_access_radio_comm_only.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/piano_access_radio_comm_only.pd
View file

@ -1,4 +1,4 @@
#N canvas 503 89 623 400 10;
#N canvas 503 95 623 400 10;
#X obj 322 198 spigot;
#X obj 371 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
@ -76,13 +76,13 @@
#X obj 34 190 print HELLO;
#X text 103 24 * a wireless "field synth" - based on 'esp now' protocol
;
#X msg 204 58 devicename /dev/tty.usbmodem4871051 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X msg 243 98 devicename /dev/ttyACM0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X msg 494 315 2000;
#X obj 230 203 tgl 15 0 empty empty connected? 17 7 0 10 -262144 -1
-1 1 1;
#X msg 243 98 devicename /dev/ttyACM0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X msg 204 58 devicename /dev/tty.usbmodem32177401 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;

424
puredata/radio_theatre_1.dots-dots.unstable/backup/piano_access_radio_party.pd Normal file
View file

@ -0,0 +1,424 @@
#N canvas 0 33 616 649 10;
#X obj 508 75 bng 15 250 50 0 empty empty open! 17 7 0 10 #fcfcfc #000000
#000000;
#X msg 448 75 close;
#X obj 508 150 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#N canvas 0 23 768 366 wireless 0;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 422 196 pd buildOSC for all;
#X obj 187 174 o.io.slipserial;
#X msg 313 129 devices;
#X msg 313 154 close;
#X obj 187 135 packOSC;
#X obj 187 110 r OSC;
#X obj 187 199 unpackOSC;
#X obj 187 224 routeOSC /hello;
#X obj 187 263 s HELLO;
#X obj 422 221 s OSC;
#X obj 422 171 r NOTE;
#X text 423 150 /id /pitch /velocity /onoff;
#X obj 303 202 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X text 12 12 <<<;
#X text 718 324 >>>;
#X obj 222 31 inlet;
#X obj 222 56 route bang;
#X obj 303 302 outlet;
#X obj 56 94 spigot;
#X obj 125 79 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 56 119 print NOTE;
#X obj 56 299 print OSC;
#X obj 56 274 spigot;
#X obj 125 259 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 56 184 spigot;
#X obj 125 169 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 56 209 print HELLO;
#X obj 56 249 r OSC;
#X obj 56 159 r HELLO;
#X obj 56 69 r NOTE;
#X obj 622 288 s PS;
#X obj 622 233 tgl 25 0 empty empty hello 32 7 0 15 #9c00fc #f8fc00
#9c00fc 0 1;
#X obj 669 155 loadbang;
#X msg 669 180 0;
#X obj 622 263 * 2000;
#X msg 313 89 devicename /dev/ttyUSB0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X connect 0 0 9 0;
#X connect 1 0 6 0;
#X connect 1 1 12 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 10 0 0 0;
#X connect 12 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 35 0;
#X connect 16 1 1 1;
#X connect 18 0 20 0;
#X connect 19 0 18 1;
#X connect 22 0 21 0;
#X connect 23 0 22 1;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 27 0 22 0;
#X connect 28 0 24 0;
#X connect 29 0 18 0;
#X connect 31 0 34 0;
#X connect 32 0 33 0;
#X connect 33 0 31 0;
#X connect 34 0 30 0;
#X connect 35 0 1 1;
#X restore 508 111 pd wireless;
#X text 445 32 ))) radio access (((;
#X text 10 8 <<<;
#N canvas 49 115 671 464 (subpatch) 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array world_energy 20 float 3;
#A 0 1.79645e-11 0.199917 0.199917 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0;
#X coords 0 1 20 0 200 50 1 0 0;
#X restore 9 32 graph;
#X floatatom 55 85 5 0 0 0 world_E WORLD_ENERGY - 0;
#X msg 26 390 \; world_energy \$2 \$1;
#X obj 26 365 pack f f;
#X obj 142 258 loadbang;
#X obj 26 291 snapshot~;
#X msg 26 237 start;
#X msg 76 237 stop;
#X obj 71 318 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 26 316 5 0 0 0 - - - 0;
#X obj 142 298 t b b;
#X obj 71 340 metro 50;
#X obj 26 266 ear~ 2000 10000;
#X obj 26 340 * 0.2;
#N canvas 0 0 591 443 we 0;
#X obj 38 165 array sum;
#X msg 114 135 symbol world_energy;
#X msg 168 74 \; world_energy const 0;
#X obj 38 130 metro 100;
#X obj 38 243 s WORLD_ENERGY;
#X obj 82 81 t b b;
#X obj 38 190 max 0.001;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_sequence 20 float 3;
#A 0 1.22 1.18 1.24 0.66 0.84 0.84 0.58 0.22 0.24 0.98 1.34 1.24 0.36
0.62 1.06 0.94 0.14 0.14 0.14 0.14;
#X coords 0 2 20 0 200 100 1 0 0;
#X restore 354 35 graph;
#X obj 289 265 f;
#X obj 322 265 + 1;
#X obj 289 290 mod 20;
#X floatatom 289 315 5 0 0 0 - - - 0;
#X obj 289 339 tabread we_sequence;
#X obj 275 235 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X floatatom 289 364 5 0 0 0 - - - 0;
#X obj 38 216 *;
#X obj 275 210 metro 60000;
#X obj 275 190 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 275 165 loadbang;
#X obj 289 388 s E_SEQ;
#X msg 406 163 \; we_sequence const 1;
#X obj 354 135 hradio 10 1 0 20 empty empty empty 0 -8 0 10 #f8fc00
#0400fc #000000 0;
#X obj 133 330 line;
#X floatatom 133 355 5 0 0 0 - - - 0;
#X msg 133 304 \$1 10000;
#X obj 133 379 s E_SEQ_line;
#X obj 443 286 bng 15 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
17 7 0 10 #fcfcfc #000000 #000000;
#X obj 413 232 sel 12 16 17 18 19;
#X obj 478 325 loadbang;
#X msg 478 350 \; pd dsp 1;
#X obj 82 56 loadbang;
#X connect 0 0 6 0;
#X connect 1 0 0 2;
#X connect 3 0 0 0;
#X connect 5 0 3 0;
#X connect 5 1 1 0;
#X connect 5 1 2 0;
#X connect 6 0 15 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 0 21 0;
#X connect 11 0 27 0;
#X connect 12 0 14 0;
#X connect 13 0 8 0;
#X connect 14 0 19 0;
#X connect 14 0 24 0;
#X connect 15 0 4 0;
#X connect 16 0 13 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 22 0 23 0;
#X connect 23 0 15 1;
#X connect 23 0 25 0;
#X connect 24 0 22 0;
#X connect 27 0 26 0;
#X connect 27 1 26 0;
#X connect 27 2 26 0;
#X connect 27 3 26 0;
#X connect 27 4 26 0;
#X connect 28 0 29 0;
#X connect 30 0 5 0;
#X restore 253 17 pd we seq;
#X obj 354 40 r FEED;
#X obj 26 206 sel 1 0;
#X msg 247 390 \; world_energy \$2 \$1;
#X obj 247 365 pack f f;
#X obj 363 258 loadbang;
#X obj 247 291 snapshot~;
#X msg 247 237 start;
#X msg 297 237 stop;
#X obj 292 318 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 247 316 5 0 0 0 - - - 0;
#X obj 363 298 t b b;
#X obj 292 340 metro 50;
#X obj 247 266 ear~ 2000 10000;
#X obj 247 340 * 0.2;
#X obj 247 206 sel 1 0;
#X msg 457 390 \; world_energy \$2 \$1;
#X obj 457 365 pack f f;
#X obj 573 258 loadbang;
#X obj 457 291 snapshot~;
#X msg 457 237 start;
#X msg 507 237 stop;
#X obj 502 318 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 457 316 5 0 0 0 - - - 0;
#X obj 573 298 t b b;
#X obj 502 340 metro 50;
#X obj 457 266 ear~ 2000 10000;
#X obj 457 340 * 0.2;
#X obj 457 206 sel 1 0;
#X floatatom 177 85 5 0 0 0 r:E_SEQ_line E_SEQ_line - 0;
#X obj 125 106 tgl 15 0 WORLD_SLEEP empty WORLD_SLEEP 17 7 0 10 #fc0400
#fcfcfc #fc0400 0 1;
#X obj 9 106 bng 15 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
17 7 0 10 #f8fc00 #000000 #000000;
#X msg 174 345 0;
#X msg 395 345 1;
#X msg 605 345 2;
#X obj 354 65 route my1 my2 my3;
#X connect 3 0 2 0;
#X connect 4 0 10 0;
#X connect 5 0 9 0;
#X connect 6 0 12 0;
#X connect 7 0 12 0;
#X connect 8 0 11 0;
#X connect 9 0 13 0;
#X connect 10 0 8 0;
#X connect 10 1 46 0;
#X connect 11 0 5 0;
#X connect 12 0 5 0;
#X connect 13 0 3 0;
#X connect 15 0 49 0;
#X connect 16 0 6 0;
#X connect 16 1 7 0;
#X connect 18 0 17 0;
#X connect 19 0 25 0;
#X connect 20 0 24 0;
#X connect 21 0 27 0;
#X connect 22 0 27 0;
#X connect 23 0 26 0;
#X connect 24 0 28 0;
#X connect 25 0 23 0;
#X connect 25 1 47 0;
#X connect 26 0 20 0;
#X connect 27 0 20 0;
#X connect 28 0 18 0;
#X connect 29 0 21 0;
#X connect 29 1 22 0;
#X connect 31 0 30 0;
#X connect 32 0 38 0;
#X connect 33 0 37 0;
#X connect 34 0 40 0;
#X connect 35 0 40 0;
#X connect 36 0 39 0;
#X connect 37 0 41 0;
#X connect 38 0 36 0;
#X connect 38 1 48 0;
#X connect 39 0 33 0;
#X connect 40 0 33 0;
#X connect 41 0 31 0;
#X connect 42 0 34 0;
#X connect 42 1 35 0;
#X connect 46 0 3 1;
#X connect 47 0 18 1;
#X connect 48 0 31 1;
#X connect 49 0 16 0;
#X connect 49 1 29 0;
#X connect 49 2 42 0;
#X coords 0 -1 1 1 207 120 2 5 5;
#X restore 16 46 pd;
#X obj 537 210 r FEED;
#X obj 537 233 print;
#X obj 18 220 radio_mote;
#A saved 0 0.52381 0.495238 0.466666 0.447619 0.419047 0.399999 0.390475
0.380952 0.371428 0.366666 0.361904 0.35238 0.347618 0.342856 0.342856
0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.342856
0.342856 0.342856 0.342856 0.347618 0.35238 0.35238 0.361904 0.371428
0.385713 0.399999 0.419047 0.447619 0.466666 0.504762 0.533333 0.533333
0.504762 0.47619 0.438095 0.419047 0.399999 0.390475 0.380952 0.361904
0.357142 0.35238 0.35238 0.347618 0.342856 0.342856 0.342856 0.342856
0.342856 0.342856 0.342856 0.457142 60 0 0 0.590476 0.552381 0.514285
0.47619 0.457142 0.447618 0.447618 0.447618 0.447618 0.447618 0.466666
0.480952 0.495237 0.514285 0.523809 0.542857 0.552381 0.571428 0.6
0.619048 0.628572 0.676191 0.704763 0.704763 0.695239 0.657143 0.647619
0.638095 0.619048 0.609524 0.6 0.590476 0.590476 0.571428 0.571428
0.561905 0.552381 0.438094 40 0.647619 0.685715 0.695239 0.72381 0.728572
0.733334 0.752382 0.761906 0.766668 0.77143 0.780953 0.780953 0.780953
0.780953 0.742858 0.704762 0.676191 0.628572 0.590476 0.523809 0.509523
0.495237 0.42857 0.399999 0.380951 0.361903 0.352379 0.342855 0.333332
0.333332 0.333332 0.333332 0.338094 0.342855 0.352379 0.361903 0.371427
0.380951 0.390475 0.42857 40 0.2 0.219048 0.238095 0.247619 0.276191
0.295239 0.32381 0.342858 0.380953 0.419049 0.476192 0.571431 0.638098
0.723813 0.771432 0.819051 0.847623 0.857147 0.866671 0.876195 0.876195
0.876195 0.866671 0.857147 0.838099 0.809528 0.771432 0.74286 0.714289
0.676193 0.609526 0.561907 0.514288 0.49524 0.428573 0.380952 0.352381
0.295237 0.257142 0.209523 0.209523 0.238094 0.27619 0.333333 0.485715
0.49524 0.561907 0.61905 0.666669 0.685717 0.685717 0.676193 0.638098
0.61905 0.590478 0.542859 0.514287 0.49524 0.466668 0.428572 60 4501
0 900 500 my1;
#X obj 17 321 radio_mote;
#A saved 0 0.52381 0.495238 0.466666 0.447619 0.419047 0.399999 0.390475
0.380952 0.371428 0.366666 0.361904 0.35238 0.347618 0.342856 0.342856
0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.342856
0.342856 0.342856 0.342856 0.347618 0.35238 0.35238 0.361904 0.371428
0.385713 0.399999 0.419047 0.447619 0.466666 0.504762 0.533333 0.533333
0.504762 0.47619 0.438095 0.419047 0.399999 0.390475 0.380952 0.361904
0.357142 0.35238 0.35238 0.347618 0.342856 0.342856 0.342856 0.342856
0.342856 0.342856 0.342856 0.457142 60 0 0 0.590476 0.552381 0.514285
0.47619 0.457142 0.447618 0.447618 0.447618 0.447618 0.447618 0.466666
0.480952 0.495237 0.514285 0.523809 0.542857 0.552381 0.571428 0.6
0.619048 0.628572 0.676191 0.704763 0.704763 0.695239 0.657143 0.647619
0.638095 0.619048 0.609524 0.6 0.590476 0.590476 0.571428 0.571428
0.561905 0.552381 0.438094 40 0.647619 0.685715 0.695239 0.72381 0.728572
0.733334 0.752382 0.761906 0.766668 0.77143 0.780953 0.780953 0.780953
0.780953 0.742858 0.704762 0.676191 0.628572 0.590476 0.523809 0.509523
0.495237 0.42857 0.399999 0.380951 0.361903 0.352379 0.342855 0.333332
0.333332 0.333332 0.333332 0.338094 0.342855 0.352379 0.361903 0.371427
0.380951 0.390475 0.42857 40 0.2 0.219048 0.238095 0.247619 0.276191
0.295239 0.32381 0.342858 0.380953 0.419049 0.476192 0.571431 0.638098
0.723813 0.771432 0.819051 0.847623 0.857147 0.866671 0.876195 0.876195
0.876195 0.866671 0.857147 0.838099 0.809528 0.771432 0.74286 0.714289
0.676193 0.609526 0.561907 0.514288 0.49524 0.428573 0.380952 0.352381
0.295237 0.257142 0.209523 0.209523 0.238094 0.27619 0.333333 0.485715
0.49524 0.561907 0.61905 0.666669 0.685717 0.685717 0.676193 0.638098
0.61905 0.590478 0.542859 0.514287 0.49524 0.466668 0.428572 60 4503
0 900 500 my2;
#X obj 16 423 radio_mote;
#A saved 0.2 0.219048 0.238095 0.247619 0.276191 0.295239 0.32381 0.342858
0.380953 0.419049 0.476192 0.571431 0.638098 0.723813 0.771432 0.819051
0.847623 0.857147 0.866671 0.876195 0.876195 0.876195 0.866671 0.857147
0.838099 0.809528 0.771432 0.74286 0.714289 0.676193 0.609526 0.561907
0.514288 0.49524 0.428573 0.380952 0.352381 0.295237 0.257142 0.209523
0.209523 0.238094 0.27619 0.333333 0.485715 0.49524 0.561907 0.61905
0.666669 0.685717 0.685717 0.676193 0.638098 0.61905 0.590478 0.542859
0.514287 0.49524 0.466668 0.428572 60 0.647619 0.685715 0.695239 0.72381
0.728572 0.733334 0.752382 0.761906 0.766668 0.77143 0.780953 0.780953
0.780953 0.780953 0.742858 0.704762 0.676191 0.628572 0.590476 0.523809
0.509523 0.495237 0.42857 0.399999 0.380951 0.361903 0.352379 0.342855
0.333332 0.333332 0.333332 0.333332 0.338094 0.342855 0.352379 0.361903
0.371427 0.380951 0.390475 0.42857 40 0 0 0.590476 0.552381 0.514285
0.47619 0.457142 0.447618 0.447618 0.447618 0.447618 0.447618 0.466666
0.480952 0.495237 0.514285 0.523809 0.542857 0.552381 0.571428 0.6
0.619048 0.628572 0.676191 0.704763 0.704763 0.695239 0.657143 0.647619
0.638095 0.619048 0.609524 0.6 0.590476 0.590476 0.571428 0.571428
0.561905 0.552381 0.438094 40 0 0.52381 0.495238 0.466666 0.447619
0.419047 0.399999 0.390475 0.380952 0.371428 0.366666 0.361904 0.35238
0.347618 0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.342856
0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.347618 0.35238
0.35238 0.361904 0.371428 0.385713 0.399999 0.419047 0.447619 0.466666
0.504762 0.533333 0.533333 0.504762 0.47619 0.438095 0.419047 0.399999
0.390475 0.380952 0.361904 0.357142 0.35238 0.35238 0.347618 0.342856
0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.457142 60 4505
0 900 500 my3;
#X obj 300 436 radio_mote;
#A saved 0.2 0.219048 0.238095 0.247619 0.276191 0.295239 0.32381 0.342858
0.380953 0.419049 0.476192 0.571431 0.638098 0.723813 0.771432 0.819051
0.847623 0.857147 0.866671 0.876195 0.876195 0.876195 0.866671 0.857147
0.838099 0.809528 0.771432 0.74286 0.714289 0.676193 0.609526 0.561907
0.514288 0.49524 0.428573 0.380952 0.352381 0.295237 0.257142 0.209523
0.209523 0.238094 0.27619 0.333333 0.485715 0.49524 0.561907 0.61905
0.666669 0.685717 0.685717 0.676193 0.638098 0.61905 0.590478 0.542859
0.514287 0.49524 0.466668 0.428572 60 0.647619 0.685715 0.695239 0.72381
0.728572 0.733334 0.752382 0.761906 0.766668 0.77143 0.780953 0.780953
0.780953 0.780953 0.742858 0.704762 0.676191 0.628572 0.590476 0.523809
0.509523 0.495237 0.42857 0.399999 0.380951 0.361903 0.352379 0.342855
0.333332 0.333332 0.333332 0.333332 0.338094 0.342855 0.352379 0.361903
0.371427 0.380951 0.390475 0.42857 40 0 0 0.590476 0.552381 0.514285
0.47619 0.457142 0.447618 0.447618 0.447618 0.447618 0.447618 0.466666
0.480952 0.495237 0.514285 0.523809 0.542857 0.552381 0.571428 0.6
0.619048 0.628572 0.676191 0.704763 0.704763 0.695239 0.657143 0.647619
0.638095 0.619048 0.609524 0.6 0.590476 0.590476 0.571428 0.571428
0.561905 0.552381 0.438094 40 0 0.52381 0.495238 0.466666 0.447619
0.419047 0.399999 0.390475 0.380952 0.371428 0.366666 0.361904 0.35238
0.347618 0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.342856
0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.347618 0.35238
0.35238 0.361904 0.371428 0.385713 0.399999 0.419047 0.447619 0.466666
0.504762 0.533333 0.533333 0.504762 0.47619 0.438095 0.419047 0.399999
0.390475 0.380952 0.361904 0.357142 0.35238 0.35238 0.347618 0.342856
0.342856 0.342856 0.342856 0.342856 0.342856 0.342856 0.457142 60 4503
0 900 500 my2;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 7 0 8 0;

530
puredata/piano_access_radio_roomB.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/piano_access_radio_theatre.pd
View file

@ -1,4 +1,4 @@
#N canvas 85 25 623 470 10;
#N canvas 0 23 623 470 10;
#X obj 328 198 spigot;
#X obj 377 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
@ -297,17 +297,16 @@
#X connect 29 0 27 0;
#X coords 0 -1 1 1 110 170 1 130 220;
#X restore 62 244 pd keyboard ctrlr;
#N canvas 479 25 801 747 crickets 1;
#N canvas 624 23 801 747 crickets 1;
#X obj 45 28 cnv 15 700 700 empty empty empty 20 12 0 14 -233017 -66577
0;
#N canvas 84 470 1196 747 (subpatch) 0;
#N canvas 215 81 1196 747 (subpatch) 0;
#X obj 74 266 r BONGBONG_DONE;
#X obj 24 243 r BONGBONG;
#N canvas 0 50 450 250 (subpatch) 0;
#X array world_energy 20 float 3;
#A 0 2.72861e-07 7.51901e-06 0.249905 0 0.349867 3.88261e-10 1.84091e-08
2.11838e-11 3.81915e-31 1.26006e-05 7.32962e-14 7.65832e-16 0.00172395
1.63474e-23 2.36763e-27 0 0 0 0 0;
#A 0 0 0 0 0 0 3.45726e-08 0.000473089 1.64415e-33 0 0 0 0 0 0 0 0
0 0 0 0;
#X coords 0 1 20 0 200 50 1 0 0;
#X restore 15 36 graph;
#X msg 24 452 \; world_energy \$2 \$1;
@ -319,7 +318,7 @@
#X msg 608 52 \; world_energy const 0;
#X obj 448 111 metro 100;
#X obj 130 332 loadbang;
#X obj 548 221 s WORLD_ENERGY;
#X obj 448 210 s WORLD_ENERGY;
#X obj 492 39 loadbang;
#X obj 492 62 t b b;
#X obj 24 361 snapshot~;
@ -533,8 +532,8 @@
#X msg 1247 681 13;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_sequence 20 float 3;
#A 0 1.22 1.3 1.24 1.16 1 0.9 0.84 0.9 0.92 1.06 1.34 1.24 0.36 0.62
1.06 0.94 0.94 1.06 1.14 0.28;
#A 0 1.22 1.18 1.24 0.66 0.84 0.84 0.58 0.22 0.24 0.98 1.34 1.24 0.36
0.62 1.06 0.94 0.14 0.14 0.14 0.14;
#X coords 0 2 20 0 200 100 1 0 0;
#X restore 764 36 graph;
#X obj 1065 75 f;
@ -553,7 +552,7 @@
#X obj 1065 188 s E_SEQ;
#X msg 1167 66 \; we_sequence const 1;
#X obj 764 136 hradio 10 1 0 20 empty empty empty 0 -8 0 10 -257985
-4160 -1 5;
-4160 -1 9;
#X obj 204 406 * 0.2;
#X obj 384 406 * 0.25;
#X obj 1104 406 * 0.1;
@ -572,9 +571,6 @@
#X coords 0 1 20 0 200 100 1 0 0;
#X restore 195 141 graph;
#X restore 137 152 pd backup sequences;
#X obj 448 204 +;
#X obj 270 189 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 1114 676 * 0.2;
#X obj 754 676 * 0.25;
#X obj 574 676 * 0.1;
@ -603,38 +599,15 @@
#X msg 700 151 \$1 10000;
#X obj 924 406 * 0.35;
#X obj 700 213 s E_SEQ_line;
#X obj 937 210 bng 15 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
#X obj 1007 220 bng 15 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 937 189 sel 12 19;
#X obj 829 177 sel 5;
#X text 247 211 set 1 to stop the world;
#N canvas 85 472 450 300 ACT0 0;
#X obj 8 27 bng 25 250 50 0 ACT0 empty ACT0 27 7 0 15 -4034 -4160 -1
;
#X obj 151 89 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 151 109 == 0;
#X obj 151 130 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 259 93 loadbang;
#X msg 259 114 1;
#X obj 118 48 inlet;
#X obj 118 156 spigot;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 7 1;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X coords 0 -1 1 1 50 50 1 5 5;
#X restore 829 198 pd ACT0;
#X obj 362 29 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 362 49 == 0;
#X obj 362 70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
-1 -1 1 1;
#X obj 362 70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 351 95 \; pd dsp \$1;
#X obj 362 49 == 0;
#X obj 937 189 sel 12 16 17 18 19;
#X connect 0 0 17 0;
#X connect 1 0 16 0;
#X connect 4 0 3 0;
@ -693,7 +666,7 @@
#X connect 59 0 65 0;
#X connect 60 0 65 0;
#X connect 61 0 64 0;
#X connect 62 0 252 0;
#X connect 62 0 250 0;
#X connect 63 0 61 0;
#X connect 63 1 66 0;
#X connect 64 0 58 0;
@ -705,7 +678,7 @@
#X connect 71 0 77 0;
#X connect 72 0 77 0;
#X connect 73 0 76 0;
#X connect 74 0 257 0;
#X connect 74 0 255 0;
#X connect 75 0 73 0;
#X connect 75 1 201 0;
#X connect 76 0 70 0;
@ -731,7 +704,7 @@
#X connect 97 0 114 0;
#X connect 98 0 114 0;
#X connect 99 0 112 0;
#X connect 100 0 235 0;
#X connect 100 0 233 0;
#X connect 101 0 99 0;
#X connect 101 1 203 0;
#X connect 103 0 102 0;
@ -753,7 +726,7 @@
#X connect 119 0 125 0;
#X connect 120 0 125 0;
#X connect 121 0 124 0;
#X connect 122 0 234 0;
#X connect 122 0 232 0;
#X connect 123 0 121 0;
#X connect 123 1 206 0;
#X connect 124 0 118 0;
@ -764,7 +737,7 @@
#X connect 130 0 136 0;
#X connect 131 0 136 0;
#X connect 132 0 135 0;
#X connect 133 0 233 0;
#X connect 133 0 231 0;
#X connect 134 0 132 0;
#X connect 134 1 207 0;
#X connect 135 0 129 0;
@ -787,7 +760,7 @@
#X connect 153 0 159 0;
#X connect 154 0 159 0;
#X connect 155 0 158 0;
#X connect 156 0 232 0;
#X connect 156 0 230 0;
#X connect 157 0 155 0;
#X connect 157 1 209 0;
#X connect 158 0 152 0;
@ -812,7 +785,7 @@
#X connect 178 0 184 0;
#X connect 179 0 184 0;
#X connect 180 0 183 0;
#X connect 181 0 251 0;
#X connect 181 0 249 0;
#X connect 182 0 180 0;
#X connect 182 1 200 0;
#X connect 183 0 177 0;
@ -825,7 +798,7 @@
#X connect 191 0 197 0;
#X connect 192 0 197 0;
#X connect 193 0 196 0;
#X connect 194 0 253 0;
#X connect 194 0 251 0;
#X connect 195 0 193 0;
#X connect 195 1 205 0;
#X connect 196 0 190 0;
@ -848,13 +821,12 @@
#X connect 213 0 214 0;
#X connect 214 0 215 0;
#X connect 214 0 224 0;
#X connect 214 0 260 0;
#X connect 214 0 261 0;
#X connect 214 0 262 0;
#X connect 215 0 217 0;
#X connect 216 0 211 0;
#X connect 217 0 222 0;
#X connect 217 0 256 0;
#X connect 218 0 230 0;
#X connect 217 0 254 0;
#X connect 218 0 12 0;
#X connect 219 0 216 0;
#X connect 220 0 219 0;
#X connect 221 0 220 0;
@ -862,428 +834,83 @@
#X connect 226 0 42 0;
#X connect 227 0 81 0;
#X connect 228 0 103 0;
#X connect 230 0 12 0;
#X connect 231 0 230 1;
#X connect 232 0 150 0;
#X connect 233 0 127 0;
#X connect 234 0 116 0;
#X connect 235 0 94 0;
#X connect 237 0 236 0;
#X connect 230 0 150 0;
#X connect 231 0 127 0;
#X connect 232 0 116 0;
#X connect 233 0 94 0;
#X connect 235 0 234 0;
#X connect 236 0 242 0;
#X connect 237 0 241 0;
#X connect 238 0 244 0;
#X connect 239 0 243 0;
#X connect 240 0 246 0;
#X connect 241 0 246 0;
#X connect 242 0 245 0;
#X connect 243 0 247 0;
#X connect 244 0 242 0;
#X connect 244 1 250 0;
#X connect 245 0 239 0;
#X connect 246 0 239 0;
#X connect 247 0 237 0;
#X connect 248 0 240 0;
#X connect 249 0 241 0;
#X connect 250 0 237 1;
#X connect 251 0 175 0;
#X connect 252 0 56 0;
#X connect 253 0 188 0;
#X connect 254 0 255 0;
#X connect 255 0 218 1;
#X connect 255 0 258 0;
#X connect 256 0 254 0;
#X connect 257 0 68 0;
#X connect 260 0 259 0;
#X connect 261 0 263 0;
#X connect 264 0 265 0;
#X connect 265 0 266 0;
#X connect 266 0 267 0;
#X connect 239 0 244 0;
#X connect 240 0 243 0;
#X connect 241 0 245 0;
#X connect 242 0 240 0;
#X connect 242 1 248 0;
#X connect 243 0 237 0;
#X connect 244 0 237 0;
#X connect 245 0 235 0;
#X connect 246 0 238 0;
#X connect 247 0 239 0;
#X connect 248 0 235 1;
#X connect 249 0 175 0;
#X connect 250 0 56 0;
#X connect 251 0 188 0;
#X connect 252 0 253 0;
#X connect 253 0 218 1;
#X connect 253 0 256 0;
#X connect 254 0 252 0;
#X connect 255 0 68 0;
#X connect 259 0 260 0;
#X connect 262 0 257 0;
#X connect 262 1 257 0;
#X connect 262 2 257 0;
#X connect 262 3 257 0;
#X connect 262 4 257 0;
#X coords 0 -1 1 1 220 100 1 5 5;
#X restore 7 7 pd;
#X text 68 658 change stress rate...;
#X text 68 698 solo time;
#X text 119 672 set max. stress;
#X obj 7 138 radio_bongbong;
#X obj 263 571 radio_yellow;
#X obj 344 302 radio_rounder;
#X obj 240 321 radio_rounder;
#X obj 478 557 radio_drawer;
#X obj 123 382 radio_suitcase;
#X obj 343 6 radio_frog;
#X obj 672 538 radio_copper;
#X obj 683 342 radio_drummer;
#X obj 684 14 radio_flasher;
#X obj 627 185 radio_yellowhose;
#X obj 412 165 radio_yellowhose;
#X obj 455 8 radio_tanker_head;
#X obj 558 8 radio_tanker_side;
#X obj 128 143 radio_alumi_A;
#X obj 231 143 radio_alumi_B;
#X obj 120 143 radio_alumi_A;
#X obj 243 143 radio_alumi_B;
#X obj 11 484 radio_tissue;
#N canvas 84 89 356 384 saved 0;
#N canvas 194 444 1133 383 roundly 0;
#X msg 364 139 \$1 5000;
#X obj 364 162 unpack f f;
#X obj 364 185 s X1;
#X obj 421 185 s X2;
#X obj 54 208 r HELLO;
#X obj 54 254 unpack f f f f;
#X floatatom 54 283 5 0 0 0 - - -;
#X obj 107 311 hsl 1000 15 -50000 50000 0 0 empty empty empty -2 -8
0 10 -260097 -262144 -1 0 1;
#X obj 107 331 hsl 1000 15 -50000 50000 0 0 empty empty empty -2 -8
0 10 -13381 -262144 -1 0 1;
#X obj 164 254 unpack f f f f;
#X floatatom 164 283 5 0 0 0 - - -;
#X floatatom 263 99 5 0 0 0 target_pos - -;
#X obj 107 31 hsl 1000 15 -50000 50000 0 0 empty empty empty -2 -8
0 10 -260097 -262144 -1 49950 1;
#X obj 107 51 hsl 1000 15 -50000 50000 0 0 empty empty empty -2 -8
0 10 -13381 -262144 -1 49950 1;
#X obj 263 121 t b a;
#X msg 714 139 \$1 5000;
#X obj 714 162 unpack f f;
#X obj 714 185 s X1;
#X obj 771 185 s X2;
#X floatatom 613 99 5 0 0 0 target_pos - -;
#X obj 613 121 t b a;
#X obj 16 26 loadbang;
#X msg 16 49 0;
#X obj 104 81 skip 500;
#X obj 358 81 skip 500;
#X obj 263 209 s NOTE;
#X obj 613 209 s NOTE;
#X msg 613 150 20002 0 0 1;
#X msg 263 150 20001 0 0 1;
#X obj 54 231 route 20001 20002;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 4 0 29 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 9 0 10 0;
#X connect 10 0 8 0;
#X connect 11 0 14 0;
#X connect 12 0 23 0;
#X connect 13 0 24 0;
#X connect 14 0 28 0;
#X connect 14 1 0 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 18 0;
#X connect 19 0 20 0;
#X connect 20 0 27 0;
#X connect 20 1 15 0;
#X connect 21 0 22 0;
#X connect 22 0 12 0;
#X connect 22 0 13 0;
#X connect 23 0 11 0;
#X connect 24 0 19 0;
#X connect 27 0 26 0;
#X connect 28 0 25 0;
#X connect 29 0 5 0;
#X connect 29 1 9 0;
#X restore 131 121 pd roundly;
#X obj 127 254 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#N canvas 1 89 450 430 metro_tabular 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array metroooo 50 float 3;
#A 0 0.619047 0.75238 0.857141 1.01904 1.25714 1.27619 1.01904 0.752381
0.647618 0.666666 0.780951 0.533333 0.628571 0.723808 0.942855 1.02857
1.17142 1.09524 0.857143 0.69524 0.638097 0.647621 0.961902 1.12381
0.942855 0.990473 1.11428 1.21904 1.01904 0.866665 0.704763 1.04762
0.933331 1.03809 0.961904 0.923809 0.809524 0.885714 0.971426 0.933331
0.90476 1.3238 1.26666 1.22857 0.761903 0.666666 0.923807 0.895236
0.895236 0.876188;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 164 86 graph;
#X msg 202 206 symbol metroooo;
#X obj 155 233 riff 1000 1031;
#X obj 70 226 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 298 333 del;
#X obj 70 351 outlet;
#X obj 298 354 spigot;
#X obj 110 118 tgl 15 0 empty empty empty 17 7 0 10 -4034 -1 -1 0 1
;
#X obj 70 188 t b f b;
#X connect 1 0 2 1;
#X connect 2 1 4 0;
#X connect 3 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 6 0 3 0;
#X connect 7 0 8 0;
#X connect 8 0 3 0;
#X connect 8 1 6 1;
#X connect 8 2 1 0;
#X coords 0 -1 1 1 35 35 1 100 100;
#X restore 131 150 pd metro_tabular;
#X obj 127 326 bng 15 250 50 0 empty empty world_evt 17 7 0 10 -262144
-1 -1;
#X obj 127 281 retro 2000 30000;
#X text 118 211 main 1 + sub 1 ?;
#X obj 125 98 array random;
#N canvas 297 268 781 575 roomA 0;
#X obj 541 108 s NOTE;
#X obj 589 38 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 167 282 s NOTE;
#X obj 215 212 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 267 282 s NOTE;
#X obj 315 212 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 541 85 4206 0 400 \$1;
#X msg 167 259 3307 0 400 \$1;
#X msg 267 259 3308 0 400 \$1;
#X obj 435 210 s NOTE;
#X obj 483 140 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 33 101 s NOTE;
#X obj 81 31 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 595 235 s NOTE;
#X obj 643 165 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 33 78 4201 0 400 \$1;
#X floatatom 663 186 5 0 0 0 - - -;
#X msg 595 212 3309 0 400 \$1;
#X msg 435 187 4202 0 800 \$1;
#X obj 421 370 s NOTE;
#X obj 469 300 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 421 347 4203 0 400 \$1;
#X obj 400 124 s NOTE;
#X obj 448 54 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 400 101 4205 0 400 \$1;
#X obj 172 137 s NOTE;
#X obj 220 67 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 172 114 4204 0 400 \$1;
#X obj 638 110 s NOTE;
#X obj 686 40 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 638 87 4207 0 400 \$1;
#X connect 1 0 6 0;
#X connect 3 0 7 0;
#X connect 5 0 8 0;
#X connect 6 0 0 0;
#X connect 7 0 2 0;
#X connect 8 0 4 0;
#X connect 10 0 18 0;
#X connect 12 0 15 0;
#X connect 14 0 17 0;
#X connect 15 0 11 0;
#X connect 16 0 17 0;
#X connect 17 0 13 0;
#X connect 18 0 9 0;
#X connect 20 0 21 0;
#X connect 21 0 19 0;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 26 0 27 0;
#X connect 27 0 25 0;
#X connect 29 0 30 0;
#X connect 30 0 28 0;
#X restore 151 18 pd roomA;
#N canvas 1 89 411 690 n 0;
#X text 22 21 n weighted sum;
#X text 171 537 0.5 0.7 0.85 0.23 0.56 == ratio;
#X text 168 553 2.84 == sum;
#X text 172 576 1 0 0 0 0 == ratio;
#X text 169 592 1 == sum;
#X text 169 646 just add up. & divide by sum;
#X text 166 446 0.5 0.7 = 1.2;
#X text 172 461 .5/1.2 .7/1.2;
#X text 269 443 0.85;
#X text 189 477 0.5 0.7;
#X text 274 475 0.85;
#N canvas 0 50 450 250 (subpatch) 0;
#X array coper 100 float 3;
#A 0 0 0 0 0 0.200001 0.280003 0.320004 0.400006 0.420006 0.440006
0.480007 0.520008 0.58001 0.640011 0.666678 0.693346 0.720013 0.728013
0.736013 0.744013 0.752014 0.760014 0.776014 0.792014 0.808015 0.824015
0.840016 0.850016 0.860016 0.870016 0.880017 0.880017 0.880017 0.880017
0.880017 0.880017 0.840016 0.840016 0.800015 0.760014 0.740013 0.720013
0.720013 0.720013 0.700012 0.680012 0.653345 0.626677 0.60001 0.60001
0.60001 0.60001 0.560009 0.520008 0.480007 0.470007 0.460007 0.450007
0.440006 0.413339 0.386672 0.360005 0.340004 0.320004 0.300003 0.280003
0.260002 0.240002 0.220001 0.200001 0.200001 0.16 0.119999 0.119999
0.119999 0.0799982 0.0799982 0.0799982 0.0799982 0.0799982 0.0799982
0.0799982 0.0799982 0.0799982 0.0799982 0.0799982 0.0799982 0.0799982
0.0799982 0.0399973 0.0399973 0.0399973 -3.63588e-06 -0.0800055 -0.120006
-0.160007 -0.200008 -0.240009 -0.320011 -0.560016;
#X coords 0 1 100 -1 200 50 1 0 0;
#X restore 178 36 graph;
#N canvas 0 50 450 250 (subpatch) 0;
#X array coper1 100 float 3;
#A 0 0 0 0 0.32 0.36 0.36 0.36 0.32 0.32 0.28 0.24 0.24 0.22 0.2 0.16
0.16 0.12 0.0400002 2.38419e-07 -0.0799997 -0.16 -0.24 -0.279999 -0.319999
-0.359999 -0.359999 -0.359999 -0.359999 -0.319999 -0.279999 -0.24 -0.12
-0.0799997 2.38419e-07 0.0800002 0.0800002 0.12 0.0800002 2.38419e-07
-0.0799997 -0.2 -0.279999 -0.359999 -0.439999 -0.519999 -0.599999 -0.639999
-0.679999 -0.679999 -0.679999 -0.599999 -0.519999 -0.359999 -0.279999
-0.12 0.0400002 0.16 0.2 0.2 0.12 0.0400002 -0.0399997 -0.2 -0.319999
-0.279999 -0.16 2.38419e-07 0.0400002 0.2 0.0800002 0.0400002 -0.0399997
-0.16 -0.16 -0.173333 -0.186666 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2
-0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.2 -0.16
2.38419e-07 0.12 2.38419e-07;
#X coords 0 1 100 -1 200 50 1 0 0;
#X restore 178 116 graph;
#N canvas 0 50 450 250 (subpatch) 0;
#X array coper2 100 float 3;
#A 0 0 0 0 0 0.200001 0.280003 0.320004 0.400006 0.420006 0.440006
0.480007 0.520008 0.58001 0.640011 0.666678 0.693346 0.720013 0.728013
0.736013 0.744013 0.752014 0.760014 0.776014 0.792014 0.808015 0.824015
0.840016 0.850016 0.860016 0.870016 0.880017 0.880017 0.880017 0.880017
0.880017 0.880017 0.840016 0.840016 0.800015 0.760014 0.740013 0.720013
0.720013 0.720013 0.700012 0.680012 0.653345 0.626677 0.60001 0.60001
0.60001 0.60001 0.560009 0.520008 0.480007 0.470007 0.460007 0.450007
0.440006 0.413339 0.386672 0.360005 0.340004 0.320004 0.300003 0.280003
0.260002 0.240002 0.220001 0.200001 0.200001 0.16 0.119999 0.119999
0.119999 0.0799982 0.0799982 0.0799982 0.0799982 0.0799982 0.0799982
0.0799982 0.0799982 0.0799982 0.0799982 0.0799982 0.0799982 0.0799982
0.0799982 0.0399973 0.0399973 0.0399973 -3.63588e-06 -0.0800055 -0.120006
-0.160007 -0.200008 -0.240009 -0.320011 -0.560016;
#X coords 0 1 100 -1 200 50 1 0 0;
#X restore 178 196 graph;
#N canvas 0 50 450 250 (subpatch) 0;
#X array coper3 100 float 3;
#A 0 0.040001 0.040001 0.08 0.08 0.119999 0.159998 0.199997 0.239996
0.279995 0.299995 0.319994 0.319994 0.319994 0.319994 0.319994 0.319994
0.239996 0.119999 0.08 0.040001 0.040001 0.040001 0.0200015 1.96695e-06
-0.039997 -0.039997 -0.039997 -0.039997 -0.079996 -0.079996 -0.079996
-0.079996 -0.079996 -0.119995 -0.159994 -0.199993 -0.259992 -0.279991
-0.31999 -0.399988 -0.419988 -0.439987 -0.449987 -0.459987 -0.469986
-0.479986 -0.479986 -0.499986 -0.519985 -0.533318 -0.546651 -0.559984
-0.559984 -0.579984 -0.599983 -0.599983 -0.599983 -0.599983 -0.599983
-0.599983 -0.599983 -0.599983 -0.599983 -0.579984 -0.559984 -0.559984
-0.559984 -0.559984 -0.559984 -0.559984 -0.559984 -0.559984 -0.519985
-0.519985 -0.519985 -0.519985 -0.519985 -0.479986 -0.439987 -0.399988
-0.359989 -0.31999 -0.279991 -0.239992 -0.239992 -0.199993 -0.159994
-0.119995 -0.0999956 -0.079996 -0.039997 0.040001 0.040001 0.119999
0.119999 0.199997 0 0 0 0;
#X coords 0 1 100 -1 200 50 1 0 0;
#X restore 178 276 graph;
#X obj 93 240 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 30 90 t b b;
#X obj 30 70 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 0 50 450 250 (subpatch) 0;
#X array coper4 100 float 3;
#A 0 0.040001 0.040001 0.08 0.4 0.359999 0.239996 0.159994 0.0799927
-9.17912e-06 -0.120012 -0.200014 -0.240015 -0.280016 -0.320017 -0.360017
-0.360017 -0.320017 -0.200014 0.0399917 0.199995 0.119994 0.0599922
-9.17912e-06 -0.080011 -0.160013 -0.180013 -0.200014 -0.240015 -0.260015
-0.280016 -0.280016 -0.280016 -0.280016 -0.280016 -0.200014 -0.160013
-0.120012 -0.0400101 0.0399917 0.0799927 0.199995 0.239996 0.159994
0.0799927 -9.17912e-06 -0.120012 -0.240015 -0.320017 -0.400018 -0.440019
-0.453353 -0.466687 -0.48002 -0.48002 -0.48002 -0.48002 -0.48002 -0.48002
-0.440019 -0.400018 -0.360017 -0.33335 -0.306683 -0.280016 -0.260015
-0.240015 -0.160013 -0.160013 0.4 0.520003 0.600005 0.720007 0.760008
0.880011 0.880011 0.84001 0.800009 0.720007 0.680006 0.640005 0.560004
0.440001 0.4 0.319998 0.239996 0.199995 0.159994 0.119994 -0.0400101
-0.120012 -0.180013 -0.240015 -0.320017 -0.400018 -0.440019 -0.560022
-0.600023 -0.720026 -0.880029 -1.40004;
#X coords 0 1 100 -1 200 50 1 0 0;
#X restore 178 356 graph;
#X msg 30 265 bang;
#X obj 30 242 scan;
#X obj 30 288 random 1000;
#X obj 30 311 / 1000;
#X floatatom 30 334 5 0 0 0 - - -;
#X obj 30 222 t a b;
#X msg 30 113 1 \, 1 \, 1 \, 1;
#X msg 30 199 2;
#X obj 30 152 asum coper;
#X obj 30 372 asum coper;
#X connect 15 0 28 1;
#X connect 16 0 25 0;
#X connect 16 1 27 1;
#X connect 17 0 16 0;
#X connect 19 0 21 0;
#X connect 20 0 19 0;
#X connect 21 0 22 0;
#X connect 22 0 23 0;
#X connect 23 0 28 0;
#X connect 24 0 20 0;
#X connect 24 1 15 0;
#X connect 25 0 27 0;
#X connect 26 0 24 0;
#X restore 151 40 pd n weighted sum;
#N canvas 1 89 450 300 array 0;
#X obj 185 88 r qtarget;
#X text 57 18 array to qlist;
#X obj 72 168 qlist;
#X msg 99 110 clear;
#X msg 22 52 bang;
#X obj 72 81 t a b;
#X msg 22 81 print;
#X obj 72 191 print;
#X msg 72 52 symbol craak;
#X obj 72 139 arr2q 400 qtarget;
#X floatatom 185 111 5 0 0 0 - - -;
#X connect 0 0 10 0;
#X connect 2 0 7 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 9 0;
#X connect 5 1 3 0;
#X connect 6 0 2 0;
#X connect 8 0 5 0;
#X connect 9 0 2 0;
#X restore 152 61 pd array to qlist;
#N canvas 1 89 520 181 memo 0;
#X text 230 68 world energy < a value: say sth \, anybody!;
#X text 17 21 i think without talking \, but then \, i find sth. very
boring or unhappy sometimes \, then i shout!;
#X text 27 95 if one ask me for sth. \, then i might react & reply
only if that one is beautiful. (& i m not busy on other beauty.);
#X restore 80 25 pd memo;
#N canvas 305 384 486 326 notes 0;
#X text 8 59 how can one stick to a playing state 'for a while'.;
#X text 34 80 that s because everyone else is 'listening to' it.;
#X text 54 100 and \, plus \, i do know that \, and feel it at the
same time.;
#X text 102 177 and \, maybe ask 'may i...' like LPWAN protocol?;
#X text 74 21 'conversation energy' .. pairs/couples/groups manage
their specific energy.;
#X text 81 131 listening => play along. or quietly stay along. everyone
is different;
#X text 94 264 and got play along evt. gives relaxation => stress goes
down.;
#X restore 30 223 pd notes;
#N canvas 1 89 450 300 memo 0;
#X text 25 42 it is like a zoo.;
#X text 25 62 and i m like a trainer.;
#X text 25 102 zoo / animals / trainer;
#X text 25 122 botanic garden / plants / gardener;
#X text 25 142 or.. circus camp / players / manager ?;
#X restore 36 203 pd memo;
#X connect 1 0 4 0;
#X connect 4 0 3 0;
#X restore 7 112 pd saved energy;
#X floatatom 307 9 5 0 0 0 r:E_SEQ_line E_SEQ_line -;
#X obj 359 321 radio_postbox;
#X obj 517 165 radio_whitehose;
#X obj 622 165 radio_grayhose;
#X obj 348 8 radio_frog;
#X obj 11 142 radio_bongbong;
#X restore 371 319 pd crickets;
#X msg 210 58 devicename /dev/tty.usbmodem32177401 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X obj 491 25 loadbang;
#X obj 221 399 tgl 25 0 WORLD_SLEEP empty WORLD_SLEEP 27 7 0 14 -258113
-262144 -258113 0 1;
-262144 -258113 1 1;
#X floatatom 221 380 5 0 0 1 WORLD_ENERGY WORLD_ENERGY -;
#X obj 381 401 bng 25 250 50 0 ACT0 empty ACT0 27 7 0 15 -4034 -4160
#X obj 535 410 bng 25 250 50 0 ACT0 empty ACT0 27 7 0 15 -4034 -4160
-1;
#X obj 221 333 tgl 25 0 ONOFF empty s:ONOFF 27 7 0 15 -4032 -159808
-1 0 1;
#X msg 221 310 1;
#X obj 231 194 tgl 15 0 empty empty connected? 17 7 0 10 -262144 -1
-1 1 1;
#X obj 465 380 radio_toner;
#X msg 210 58 devicename /dev/tty.usbmodem4871051 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X msg 285 436 1;
#X obj 317 436 bng 20 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
22 7 0 10 -257985 -1 -1;
#X connect 0 0 18 0;
#X connect 1 0 0 1;
#X connect 4 0 16 0;
#X connect 5 0 10 0;
#X connect 5 1 45 0;
#X connect 5 1 44 0;
#X connect 6 0 5 1;
#X connect 7 0 5 1;
#X connect 8 0 5 0;
@ -1306,6 +933,7 @@ pollintervall 1 \, verbose 1;
#X connect 30 0 29 1;
#X connect 34 0 5 1;
#X connect 35 0 23 0;
#X connect 38 0 5 1;
#X connect 39 0 38 0;
#X connect 44 0 43 0;
#X connect 38 0 46 0;
#X connect 43 0 42 0;
#X connect 46 0 5 1;
#X connect 47 0 39 0;

0
puredata/pingpong.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/pingpong.pd
View file

0
puredata/poly.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/poly.pd
View file

0
puredata/polygonexample.lua → puredata/radio_theatre_1.dots-dots.unstable/backup/polygonexample.lua
View file

195
puredata/radio_alumi_A.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_alumi_A.pd
View file

@ -22,7 +22,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 15 0 0 0 stress - -;
#X obj 238 555 +;
@ -90,13 +90,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 51 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.54;
#X msg 285 439 0.37;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -115,11 +118,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -135,13 +138,14 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 473 25 708 510 expressions 0;
#N canvas 676 23 708 510 expressions 0;
#X obj 42 185 inlet;
#X obj 42 266 outlet;
#X obj 42 237 t b a;
@ -153,50 +157,48 @@
#X obj 161 300 array_copier alumiA;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA3 50 float 3;
#A 0 0.514286 0.52381 0.6 0.657142 0.638095 0.638095 0.599999 0.619046
0.676188 0.599999 0.542857 0.495239 0.504762 0.55238 0.580952 0.542857
0.485714 0.47619 0.7619 0.790471 0.828566 0.828566 0.828566 0.571428
0.590475 0.380953 0.352381 0.314286 0.314286 0.438095 0.485714 0.495238
0.742857 0.485715 0.457144 0.361905 0.342857 0.32381 0.32381 0.590476
0.6 0.647618 0.685713 0.41905 0.428573 0.400002 0.571428 0.580951 0.609522
0.619046;
#A 0 0.495238 0.495238 0.495238 0.495238 0.495238 0.380952 0.380952
0.380952 0.380952 0.476191 0.476191 0.476191 0.476191 0.485713 0.47619
0.361905 0.361905 0.361905 0.361905 0.476191 0.476191 0.476191 0.476191
0.476191 0.485715 0.390476 0.390476 0.390476 0.390476 0.390477 0.542857
0.514286 0.514286 0.514286 0.514286 0.514286 0.380952 0.380952 0.380952
0.380952 0.495238 0.514285 0.514285 0.514285 0.514285 0.523809 0.4
0.409524 0.419048 0.419048;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 354 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA1 50 float 3;
#A 0 0.542857 0.590476 0.704761 0.75238 0.761903 0.742857 0.638095
0.504763 0.371431 0.209527 0.161908 0.133337 0.133337 0.19048 0.342857
0.514287 0.647619 0.714286 0.742857 0.752381 0.714286 0.647619 0.49524
0.380955 0.257143 0.190476 0.171429 0.180953 0.285714 0.476189 0.619048
0.666667 0.723809 0.752381 0.733333 0.67619 0.609524 0.44762 0.285715
0.2 0.152381 0.190476 0.42857 0.552379 0.685711 0.723806 0.704759 0.65714
0.561903 0.476189;
#A 0 0.257143 0.190476 0.190476 0.190476 0.190476 0.190476 0.190476
0.190476 0.190476 0.190476 0.190476 0.190476 0.190476 0.190476 0.190476
0.190476 0.190476 0.2 0.2 0.2 0.2 0.2 0.209524 0.209524 0.212699 0.215873
0.219048 0.219048 0.219048 0.230952 0.233333 0.235714 0.238095 0.238095
0.238095 0.238095 0.238095 0.238095 0.238095 0.238095 0.238095 0.238095
0.238095 0.238095 0.238095 0.238095 0.238095 0.238095 0.238095 0.238095
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 34 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA2 50 float 3;
#A 0 0.219048 0.247619 0.27619 0.314285 0.35238 0.42857 0.847619 0.00952387
0.00952387 0.00952375 0.209523 0.295238 0.361903 0.390474 0.504762
0.876188 0.0190476 0.0190476 0.0190476 0.152383 0.276192 0.333334 0.466667
0.828571 0.0285713 0.0285713 0.0285713 0.266667 0.314285 0.419048 0.476188
0.704762 0.0285714 0.0285714 0.0190476 0.266666 0.342856 0.485714 0.514285
0.714286 0.0190475 0.266666 0.323809 0.457141 0.714286 0.152381 0.2
0.238096 0.333334 0.390478;
#A 0 0.219048 0.247619 0.27619 0.314285 0.35238 0.42857 0.695238 0.00952744
0.00952744 0.0190512 0.0285749 0.0285749 0.0476224 0.0952412 0.190479
0.257145 0.361906 0.409525 0.52381 0.733333 0.0190504 0.0285742 0.0476217
0.0571454 0.0857167 0.104764 0.123812 0.152383 0.200002 0.285715 0.476188
0.704762 0.0476189 0.0380952 0.0476189 0.0571427 0.0857139 0.114285
0.199999 0.276189 0.352379 0.409521 0.714286 0.0285714 0.0476189 0.0857139
0.142856 0.22857 0.399998 0.552378;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 194 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA4 50 float 3;
#A 0 0.761905 0.638095 0.580952 0.485714 0.390476 0.32381 0.266668
0.180954 0.0380977 -1.19209e-07 -0.00952399 -0.00952399 -0.00952399
-0.00952399 0.828571 0.647619 0.542857 0.457143 0.371429 0.304762 0.228572
0.123811 0.0190499 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476
0.723809 0.647619 0.552382 0.466668 0.295239 0.219049 0.123811 0.0571451
0.0190476 0.00952381 0.00952381 0.704762 0.628572 0.485714 0.352381
0.295239 0.133335 0.0761926 0.0190476 0.0190476 0.0190476 -8.34465e-07
;
#A 0 0.428572 0.4 0.361905 0.32381 0.276192 0.228573 0.161907 0.0857166
0.0380977 0.00952375 0.00952375 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.380953 0.342858 0.285715 0.228573 0.180954 0.133335 0.0952403
0.0190476 0.0190476 0.00952399 0.00952399 0.00952399 0.00952399 0.380953
0.333334 0.285715 0.266668 0.209524 0.114285 0.0857138 2.98023e-07
0.00952405 0.00952405 2.98023e-07 2.98023e-07 0.361905 0.304762 0.24762
0.200001 0.161906 0.114287 0.0666685 0.0190476 -8.34465e-07;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 514 38 graph;
#X obj 42 214 count 4;
#N canvas 84 25 450 278 (subpatch) 0;
#X array alumiA0 20 float 3;
#A 0 0.895236 0.799993 0.752371 0.657127 0.628554 0.638079 0.657127
@ -208,28 +210,60 @@
#X msg 101 370 0;
#X obj 74 329 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X connect 0 0 12 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA7 25 float 3;
#A 0 0.390476 0.333333 0 0.00952232 0.00952232 0.285715 0.361904 0.390476
0.409524 0.0380939 0.238095 0.247619 0.371429 0.0285714 0.0285714 0.0285714
0.0285714 0.0285714 0.314286 0.361905 0.380953 0.0190476 0.0190476
0.32381 0.32381;
#X coords 0 1 25 0 150 105 1 0 0;
#X restore 673 163 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA5 30 float 3;
#A 0 0.485714 0.485714 0.485714 0.485714 0.485714 0.485714 0.466667
0.447619 0.438095 0.433333 0.419047 0.399999 0.385714 0.361904 0.35238
0.326983 0.301586 0.276189 0.260316 0.244443 0.22857 0.209522 0.18095
0.158728 0.136506 0.114283 0.0999976 0.0857118 0.071426 0.0571402;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 353 163 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA6 10 float 3;
#A 0 0.828572 0.866667 0.609523 0.742857 0.590475 0.609524 0.695237
0.647618 0.714285 0.638094;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 513 170 graph;
#X obj 42 214 count 7;
#X obj 175 162 loadbang;
#X obj 175 204 s \$0-word-max;
#X obj 81 173 r \$0-word-max;
#X floatatom 81 194 5 0 0 0 - - -;
#X msg 175 183 7;
#X connect 0 0 19 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X connect 14 0 1 0;
#X connect 14 1 15 0;
#X connect 15 0 7 0;
#X connect 16 0 14 0;
#X restore 48 226 pd expressions;
#X connect 13 0 1 0;
#X connect 13 1 14 0;
#X connect 14 0 7 0;
#X connect 15 0 13 0;
#X connect 19 0 2 0;
#X connect 19 0 3 0;
#X connect 20 0 24 0;
#X connect 22 0 23 0;
#X connect 23 0 19 1;
#X connect 24 0 21 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA 50 float 3;
#A 0 0.542857 0.590476 0.704761 0.75238 0.761903 0.742857 0.638095
0.504763 0.371431 0.209527 0.161908 0.133337 0.133337 0.19048 0.342857
0.514287 0.647619 0.714286 0.742857 0.752381 0.714286 0.647619 0.49524
0.380955 0.257143 0.190476 0.171429 0.180953 0.285714 0.476189 0.619048
0.666667 0.723809 0.752381 0.733333 0.67619 0.609524 0.44762 0.285715
0.2 0.152381 0.190476 0.42857 0.552379 0.685711 0.723806 0.704759 0.65714
0.561903 0.476189;
#A 0 0.219048 0.247619 0.27619 0.314285 0.35238 0.42857 0.695238 0.00952744
0.00952744 0.0190512 0.0285749 0.0285749 0.0476224 0.0952412 0.190479
0.257145 0.361906 0.409525 0.52381 0.733333 0.0190504 0.0285742 0.0476217
0.0571454 0.0857167 0.104764 0.123812 0.152383 0.200002 0.285715 0.476188
0.704762 0.0476189 0.0380952 0.0476189 0.0571427 0.0857139 0.114285
0.199999 0.276189 0.352379 0.409521 0.714286 0.0285714 0.0476189 0.0857139
0.142856 0.22857 0.399998 0.552378;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 88 429 s NOTE;
@ -240,23 +274,34 @@
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 164 21 r ALUMI_A;
#X obj 48 188 r ALUMI_A;
#X obj 48 218 r ALUMI_A;
#X obj 167 269 s ALUMI_A;
#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262144
-203904 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -228856 -1
#X obj 9 136 hradio 15 1 0 7 empty \$0-word empty 0 -8 0 10 -262144
-203904 -1 1;
#X obj 108 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -228856 -1
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -228856
#X obj 108 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -228856
-1 -1 0 1;
#X msg 249 329 alumiA;
#X obj 231 452 s ALUMI_A_DONE;
#X obj 88 306 riff1 900 3202 500;
#X obj 259 121 v \$0-STRESS;
#X obj 259 167 v \$0-STRESS;
#X obj 259 101 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 259 144 * 0.5;
#X connect 0 0 25 0;
#X obj 88 306 riff1 700 3202 500;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 92 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 7 256;
#X obj 134 98 r \$0-word-max;
#X obj 134 139 s \$0-word-max-set;
#X msg 134 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 29 0;
#X connect 1 0 23 0;
#X connect 2 0 5 0;
#X connect 2 0 24 0;
@ -264,18 +309,22 @@
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 25 0;
#X connect 10 0 29 0;
#X connect 13 0 12 0;
#X connect 14 0 13 1;
#X connect 15 0 14 0;
#X connect 16 0 23 0;
#X connect 17 0 7 0;
#X connect 17 0 21 0;
#X connect 18 0 10 0;
#X connect 23 0 25 1;
#X connect 25 0 13 0;
#X connect 25 3 2 0;
#X connect 26 0 29 0;
#X connect 21 0 4 0;
#X connect 23 0 29 1;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 27 0;
#X coords 0 -1 1 1 100 150 2 5 5;
#X connect 29 0 13 0;
#X connect 29 3 2 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 120 150 2 5 5;

220
puredata/radio_alumi_B.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_alumi_B.pd
View file

@ -1,4 +1,4 @@
#N canvas 692 95 419 510 10;
#N canvas 349 218 419 510 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@ -22,7 +22,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 15 0 0 0 stress - -;
#X obj 238 555 +;
@ -90,13 +90,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.52;
#X msg 285 439 0.4;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -115,11 +118,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -135,13 +138,14 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 421 137 698 462 expressions 0;
#N canvas 722 69 698 462 expressions 0;
#X obj 42 185 inlet;
#X obj 42 266 outlet;
#X obj 42 237 t b a;
@ -150,52 +154,7 @@
-262144 -1 -1;
#X obj 161 255 + 1;
#X floatatom 161 278 5 0 0 0 - - -;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB1 50 float 3;
#A 0 0.561903 0.552382 0.504763 0.438097 0.466668 0.485716 0.657143
0.333336 0.780952 0.780952 0.752381 0.485716 0.514287 0.533335 0.580953
0.409526 0.323812 0.742857 0.704762 0.64762 0.619049 0.619049 0.619049
0.609525 0.485716 0.485716 0.361907 0.352383 0.72381 0.809524 0.752381
0.790476 0.828571 0.438097 0.704762 0.41905 0.41905 0.733333 0.638096
0.676191 0.742857 0.809523 0.552382 0.561906 0.561906 0.809524 0.780953
0.838095 0.628572 0.238095;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 34 44 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB2 50 float 3;
#A 0 0.142857 0.180952 0.195238 0.238095 0.304763 0.352381 0.409524
0.809524 0.0190477 0.0285714 0.161905 0.209524 0.295239 0.380953 0.885714
0.0285714 0.0285714 0.0285714 0.209524 0.219048 0.304762 0.723809 0.133333
0.161905 0.195238 0.228572 0.238096 0.371428 0.961905 0.00952375 0.00952375
0.00952375 0.238096 0.2 0.32381 0.409524 0.828571 0.0285714 0.0285714
0.0190476 0.190476 0.257143 0.342858 0.685714 0.0380952 0.0285715 0.0190476
0.238096 0.380953 0.533333;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 194 44 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB3 50 float 3;
#A 0 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476
0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476
0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476
0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476
0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476
0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476 0.590476
0.590476 0.580953 0.533334;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 354 44 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB4 50 float 3;
#A 0 0.542857 0.619047 0.657142 0.666666 0.619047 0.552381 0.514286
0.428571 0.323811 0.228572 -0.00952399 -0.00952399 -0.00952399 -0.00952399
-0.00952399 0.514286 0.6 0.619047 0.6 0.552381 0.447618 0.380951 0.314285
0.247619 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.571428
0.628571 0.571428 0.504762 0.428572 0.352382 0.285714 0.00952381 0.0285713
0.0190476 0.638095 0.657142 0.619047 0.514286 0.476191 0.419049 0.333335
0.00952387 0.00952387 0.00952387 0.00952387;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 514 44 graph;
#X obj 161 300 array_copier alumiB;
#X obj 42 214 count 4;
#N canvas 84 25 450 278 (subpatch) 0;
#X array alumiB0 20 float 3;
#A 0 0.266666 0.371433 0.409531 0.466677 0.742846 0.685714 0.628568
@ -207,28 +166,98 @@
#X msg 95 389 0;
#X obj 68 348 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X connect 0 0 12 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB3 50 float 3;
#A 0 0.561903 0.552382 0.504763 0.438097 0.466668 0.485716 0.657143
0.419047 0.514285 0.409524 0.314286 0.485716 0.514287 0.533335 0.580953
0.485715 0.504763 0.52381 0.342857 0.533334 0.504762 0.52381 0.37143
0.580953 0.590476 0.485715 0.476191 0.52381 0.628571 0.4 0.514286 0.514286
0.628571 0.542858 0.476191 0.609524 0.542858 0.419049 0.485715 0.619048
0.580952 0.485714 0.590476 0.419049 0.580953 0.533334 0.466668 0.476191
0.628572 0.238095;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 354 47 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB2 50 float 3;
#A 0 0.266667 0.314285 0.333333 0.371428 0.390475 0.409523 0.438094
0.457142 0.476189 0.476189 0.42857 0.380952 0.380952 0.314285 0.266667
0.238095 0.2 0.2 0.257143 0.295238 0.314285 0.361904 0.371428 0.409523
0.438094 0.476189 0.495237 0.50476 0.476189 0.42857 0.390475 0.333333
0.304762 0.27619 0.238095 0.209524 0.257143 0.295238 0.333333 0.342857
0.399999 0.438094 0.447618 0.447618 0.447618 0.419047 0.390475 0.35238
0.333333 0.238095;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 194 44 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB1 50 float 3;
#A 0 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952
0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952
0.380952 0.380952 0.380952 0.380952 0.384127 0.387302 0.390476 0.4
0.409524 0.413333 0.417143 0.420952 0.424762 0.428571 0.428571 0.428571
0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571
0.428571 0.428571 0.419047 0.419047 0.409524 0.4 0.4 0.395238 0.390476
0.390476 0.380952;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 36 45 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB4 50 float 3;
#A 0 0.571427 0.409524 0.390476 0.466666 0.504761 0.519047 0.533333
0.495238 0.266667 0.114286 0.104763 0.0952388 0.0952388 0.247619 0.457143
0.47619 0.495238 0.438095 0.504761 0.542856 0.555555 0.568253 0.0952384
0.0952384 0.276191 0.228572 0.209524 0.209524 0.523809 0.533333 0.361905
0.438095 0.438095 0.133334 0.133334 0.523809 0.361905 0.133333 0.133333
0.342858 0.238096 0.357143 0.4 0.423809 0.447619 0.485714 0.209524
0.180953 0.152381 0.0761913;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 514 44 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB5 10 float 3;
#A 0 0.342858 0.561907 0.761908 0.838099 1.08572 0.91429 0.685717 0.44762
0.304762 0.0571415;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 357 170 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB6 40 float 3;
#A 0 0.514285 0.47619 0.447618 0.438094 0.42857 0.409523 0.409523 0.390475
0.380951 0.380951 0.371427 0.361903 0.352379 0.352379 0.342855 0.342855
0.342855 0.342855 0.342855 0.342855 0.345236 0.347617 0.349998 0.352379
0.361903 0.366665 0.371427 0.380951 0.390475 0.399999 0.419046 0.42857
0.438094 0.447618 0.47619 0.495237 0.523809 0.542857 0.580952 0.619048
;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 519 180 graph;
#X obj 42 214 count 6;
#X obj 175 162 loadbang;
#X msg 175 183 6;
#X obj 175 204 s \$0-word-max;
#X obj 81 173 r \$0-word-max;
#X floatatom 81 194 5 0 0 0 - - -;
#X connect 0 0 18 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 11 0;
#X connect 11 0 4 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X connect 14 0 1 0;
#X connect 14 1 15 0;
#X connect 15 0 11 0;
#X connect 16 0 14 0;
#X restore 48 226 pd expressions;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 9 0 1 0;
#X connect 9 1 10 0;
#X connect 10 0 7 0;
#X connect 11 0 9 0;
#X connect 18 0 2 0;
#X connect 18 0 3 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 23 0 18 1;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB 50 float 3;
#A 0 0.542857 0.619047 0.657142 0.666666 0.619047 0.552381 0.514286
0.428571 0.323811 0.228572 -0.00952399 -0.00952399 -0.00952399 -0.00952399
-0.00952399 0.514286 0.6 0.619047 0.6 0.552381 0.447618 0.380951 0.314285
0.247619 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.571428
0.628571 0.571428 0.504762 0.428572 0.352382 0.285714 0.00952381 0.0285713
0.0190476 0.638095 0.657142 0.619047 0.514286 0.476191 0.419049 0.333335
0.00952387 0.00952387 0.00952387 0.00952387;
#A 0 0.561903 0.552382 0.504763 0.438097 0.466668 0.485716 0.657143
0.419047 0.514285 0.409524 0.314286 0.485716 0.514287 0.533335 0.580953
0.485715 0.504763 0.52381 0.342857 0.533334 0.504762 0.52381 0.37143
0.580953 0.590476 0.485715 0.476191 0.52381 0.628571 0.4 0.514286 0.514286
0.628571 0.542858 0.476191 0.609524 0.542858 0.419049 0.485715 0.619048
0.580952 0.485714 0.590476 0.419049 0.580953 0.533334 0.466668 0.476191
0.628572 0.238095;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 88 429 s NOTE;
@ -238,24 +267,35 @@
#X obj 7 397 loadbang;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262144
-203904 -1 3;
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -262144
-203904 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -228856 -1
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -228856
-1 -1 0 1;
#X obj 48 188 r ALUMI_B;
#X obj 48 218 r ALUMI_B;
#X obj 164 21 r ALUMI_B;
#X obj 167 269 s ALUMI_B;
#X msg 249 329 alumiB;
#X obj 231 452 s ALUMI_B_DONE;
#X obj 88 306 riff1 900 3205 500;
#X obj 272 112 v \$0-STRESS;
#X obj 272 158 v \$0-STRESS;
#X obj 272 92 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 272 135 * 0.5;
#X connect 0 0 25 0;
#X obj 88 306 riff1 700 3205 500;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 29 0;
#X connect 1 0 23 0;
#X connect 2 0 5 0;
#X connect 2 0 24 0;
@ -263,18 +303,22 @@
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 25 0;
#X connect 10 0 29 0;
#X connect 13 0 12 0;
#X connect 14 0 13 1;
#X connect 15 0 14 0;
#X connect 16 0 23 0;
#X connect 18 0 4 0;
#X connect 20 0 10 0;
#X connect 21 0 7 0;
#X connect 21 0 18 0;
#X connect 23 0 25 1;
#X connect 25 0 13 0;
#X connect 25 3 2 0;
#X connect 26 0 29 0;
#X connect 23 0 29 1;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 27 0;
#X connect 29 0 13 0;
#X connect 29 3 2 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

123
puredata/radio_bongbong.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_bongbong.pd
View file

@ -1,4 +1,4 @@
#N canvas 85 213 496 559 10;
#N canvas 332 219 496 559 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 326 469 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@ -7,36 +7,35 @@
#X obj 164 21 r BONGBONG;
#N canvas 0 50 450 250 (subpatch) 0;
#X array bongbong 10 float 3;
#A 0 1.01905 1.03809 1.05714 0.990476 0.952381 0.933334 0.904762 0.819048
0.838095 0.857143;
#A 0 -0.771422 -0.390472 -0.390472 0.0761905 -0.399996 -0.504758 -0.476186
-0.457139 -0.438091 -0.48571;
#X coords 0 1 10 0 50 50 1 0 0;
#X restore 30 32 graph;
#X obj 88 8 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -1
-1;
#X obj 25 85 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -261682
-4034 -1 0;
#X obj 9 106 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -261682
-4034 -1 2;
#X text 35 318 stop!;
#X obj 88 306 riff1 800 4100 400;
#X obj 88 25 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
-1 -1 0 1;
-1 -1 4 1;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X obj 167 279 s BONGBONG;
#X obj 48 188 r BONGBONG;
#X obj 164 67 v \$0-STATE;
#N canvas 582 25 533 644 world 0;
#N canvas 879 70 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
@ -54,7 +53,7 @@
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 4
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
@ -103,8 +102,8 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 249 439 * 1;
#X floatatom 246 413 5 0 0 0 - - -;
#X msg 285 458 -0.05;
@ -112,6 +111,9 @@
#X msg 312 437 0.1;
#X obj 16 114 resample 100;
#X obj 16 210 < 0.77;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 52 0;
#X connect 1 0 5 0;
#X connect 1 1 35 0;
@ -158,6 +160,7 @@
#X connect 51 0 47 0;
#X connect 52 0 17 0;
#X connect 53 0 1 0;
#X connect 54 0 55 0;
#X restore 167 226 pd world and me;
#N canvas 605 25 582 656 expressions 0;
#N canvas 0 50 450 250 (subpatch) 0;
@ -235,6 +238,11 @@
#X obj 229 516 v \$0-STATE;
#X msg 229 493 1;
#X obj 165 477 t b b;
#X obj 161 187 loadbang;
#X obj 161 229 s \$0-word-max;
#X obj 67 198 r \$0-word-max;
#X floatatom 67 219 5 0 0 0 - - -;
#X msg 161 208 4;
#X connect 3 0 11 1;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
@ -270,6 +278,10 @@
#X connect 34 0 33 0;
#X connect 35 0 29 0;
#X connect 35 1 34 0;
#X connect 36 0 40 0;
#X connect 38 0 39 0;
#X connect 39 0 24 1;
#X connect 40 0 37 0;
#X restore 48 226 pd expressions;
#X obj 326 519 s BONGBONG_DONE;
#X obj 88 429 s NOTE;
@ -301,38 +313,57 @@
#X obj 317 152 * 0.5;
#X obj 326 427 <= 0;
#X msg 289 518 0;
#X connect 0 0 9 0;
#X obj 88 306 riff1 700 4100 400;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X floatatom 9 88 5 0 0 0 - #0-word -;
#X obj 73 99 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 148 set \$1;
#X obj 5 128 r \$0-SLEEP;
#X obj 5 169 s \$0-SLEEP-set;
#X connect 0 0 41 0;
#X connect 1 0 3 0;
#X connect 2 0 17 0;
#X connect 2 0 41 0;
#X connect 3 0 9 1;
#X connect 4 0 6 0;
#X connect 4 0 36 0;
#X connect 9 0 19 0;
#X connect 9 3 26 0;
#X connect 11 0 12 0;
#X connect 13 0 16 0;
#X connect 15 0 11 0;
#X connect 16 0 9 0;
#X connect 19 0 18 0;
#X connect 20 0 19 1;
#X connect 21 0 20 0;
#X connect 22 0 39 0;
#X connect 24 0 27 0;
#X connect 25 0 2 0;
#X connect 25 1 37 0;
#X connect 26 0 24 0;
#X connect 27 0 29 0;
#X connect 28 0 33 0;
#X connect 28 0 40 0;
#X connect 29 0 28 0;
#X connect 29 1 28 0;
#X connect 30 0 31 0;
#X connect 32 0 16 0;
#X connect 36 0 14 0;
#X connect 37 0 34 0;
#X connect 2 0 16 0;
#X connect 2 0 40 0;
#X connect 3 0 41 1;
#X connect 4 0 35 0;
#X connect 6 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 15 0;
#X connect 14 0 10 0;
#X connect 15 0 41 0;
#X connect 18 0 17 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 38 0;
#X connect 23 0 26 0;
#X connect 24 0 2 0;
#X connect 24 1 36 0;
#X connect 25 0 23 0;
#X connect 26 0 28 0;
#X connect 27 0 32 0;
#X connect 27 0 39 0;
#X connect 28 0 27 0;
#X connect 28 1 27 0;
#X connect 29 0 30 0;
#X connect 31 0 15 0;
#X connect 35 0 13 0;
#X connect 36 0 33 0;
#X connect 37 0 21 0;
#X connect 38 0 22 0;
#X connect 39 0 23 0;
#X connect 40 0 25 0;
#X connect 41 0 28 0;
#X coords 0 -1 1 1 100 100 2 5 5;
#X connect 39 0 24 0;
#X connect 40 0 27 0;
#X connect 41 0 18 0;
#X connect 41 3 25 0;
#X connect 42 0 3 0;
#X connect 45 0 47 0;
#X connect 47 0 46 0;
#X connect 49 0 51 0;
#X connect 50 0 49 0;
#X coords 0 -1 1 1 100 120 2 5 5;

0
puredata/radio_callisto.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_callisto.pd
View file

0
puredata/radio_ceres.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_ceres.pd
View file

332
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_copper.pd Normal file
View file

@ -0,0 +1,332 @@
#N canvas 232 131 461 502 10;
#X msg 37 337 0;
#X obj 349 303 loadbang;
#X obj 302 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 322 406 0;
#X obj 322 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 651 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.65;
#X msg 285 439 0.25;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 742 30 682 544 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 148 310 array_copier copper;
#N canvas 84 25 450 278 (subpatch) 0;
#X array copper0 10 float 3;
#A 0 0.352379 0.361903 0.371427 0.399998 0.409522 0.419046 0.438094
0.457142 0.476189 0.495237;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 327 397 graph;
#X obj 197 474 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 197 451 array_copier copper;
#X obj 170 409 t b b;
#X msg 197 430 0;
#X obj 170 389 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144
-1 -1;
#X obj 38 224 count 5;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper1 100 float 3;
#A 0 0.190476 0.190476 0.209524 0.257143 0.27619 0.295238 0.295238
0.304761 0.314285 0.314285 0.323809 0.323809 0.323809 0.314285 0.304761
0.27619 0.257143 0.238095 0.2 0.171428 0.161905 0.142857 0.142857 0.142857
0.142857 0.152381 0.171428 0.228571 0.257142 0.247619 0.276191 0.285714
0.304762 0.304762 0.304762 0.304762 0.295238 0.266666 0.238095 0.161905
0.152381 0.12381 0.0952383 0.0952383 0.104762 0.12381 0.142858 0.152382
0.228572 0.24762 0.285715 0.295238 0.304762 0.314286 0.314286 0.314286
0.314286 0.304762 0.304762 0.285715 0.276191 0.257143 0.24762 0.200001
0.17143 0.142858 0.133335 0.133335 0.133335 0.152381 0.180952 0.209523
0.257142 0.295237 0.304761 0.314285 0.314285 0.323808 0.323808 0.323808
0.323808 0.314285 0.295237 0.285713 0.257142 0.238095 0.219047 0.17143
0.161906 0.142858 0.142858 0.142858 0.142858 0.142858 0.14762 0.152381
0.161905 0.171429 0.190476 0.209524;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 18 36 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper4 50 float 3;
#A 0 0.0380951 0.761905 0.0380951 0.0380951 0.0380951 0.647619 0.0380951
0.0571429 0.0285714 0.0380951 0.67619 0.0380951 0.0380951 0.742857
0.0380951 0.0285714 0.0380951 0.0380951 0.790476 0.0380951 0.0380951
0.590476 0.0380951 0.0380951 0.0380951 0.0285714 0.0380951 0.590476
0.0380951 0.0380951 0.047619 0.0380951 0.609524 0.0380951 0.0380951
0.838095 0.0380951 0.0380951 0.552381 0.0380951 0.0380951 0.0380951
0.0380952 0.619048 0.0380951 0.0380951 0.790476 0.0380951 0.0380951
0.0380951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 496 36 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper3 80 float 3;
#A 0 0.780952 0.571429 0.495239 0.428573 0.390478 0.304762 0.190477
0.12381 0.00952375 0.00952375 0.00952375 0.8 0.609524 0.409525 0.359526
0.31905 0.278574 0.238098 0.190479 0.114289 0.00952482 0.0190476 0.0190477
0.0190477 0.0190477 0.0190477 0.809524 0.438097 0.361907 0.161908 0.104765
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.87619 0.504763
0.419049 0.333336 0 0.190476 0 0 -0.00952017 0 0.885714 0.561905 0.428573
0.342859 0.276193 0.228574 0.161908 0.161908 0 0.904762 0.685711 0.561902
0.466665 0.438094 0.333332 0.285714 0.257142 0.209524 0.180952 0.00952375
0.00952375 0.00952375 0.00952375 0.00952375 0.00952375 0.87619 0.599997
0.590473 0.495236 0.409522 0.333332 0.0190476 0.00952381 0;
#X coords 0 1 80 0 150 105 1 0 0;
#X restore 338 36 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array copper2 50 float 3;
#A 0 0.333333 0.371428 0.409523 0.371428 0.373016 0.390476 0.350476
0.447618 0.415873 0.384127 0.352381 0.320635 0.288889 0.257143 0.257143
0.257143 0.542856 0.4 0.384127 0.457142 0.504761 0.512697 0.523808
0.55238 0.542856 0.533332 0.619046 0.62857 0.616665 0.60476 0.419047
0.447619 0.495237 0.495237 0.380952 0.371428 0.447618 0.638093 0.828568
0.342857 0.333333 0.438095 0.704761 0.323809 0.319047 0.428571 0.390476
0.390476 0.590474 0;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 178 36 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper5 50 float 3;
#A 0 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381
0.152381 0.152381 0.161905 0.171428 0.171428 0.174603 0.177777 0.180952
0.180952 0.185714 0.190475 0.190475 0.190475 0.195237 0.199999 0.204761
0.209523 0.209523 0.219051 0.223813 0.228574 0.238098 0.24286 0.247622
0.247622 0.252384 0.266669 0.271431 0.285716 0.29524 0.304763 0.323811
0.333334 0.342858 0.34762 0.361905 0.366667 0.380953 0.390476 0.4 0.419047
0.428571 0.447619;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 497 167 graph;
#X obj 171 172 loadbang;
#X obj 171 214 s \$0-word-max;
#X obj 77 183 r \$0-word-max;
#X floatatom 77 204 5 0 0 0 - - -;
#X msg 171 193 5;
#X connect 0 0 14 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 10 0 9 0;
#X connect 11 0 1 0;
#X connect 11 1 12 0;
#X connect 12 0 10 0;
#X connect 13 0 11 0;
#X connect 14 0 2 0;
#X connect 14 0 3 0;
#X connect 20 0 24 0;
#X connect 22 0 23 0;
#X connect 23 0 14 1;
#X connect 24 0 21 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper 50 float 3;
#A 0 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381
0.152381 0.152381 0.161905 0.171428 0.171428 0.174603 0.177777 0.180952
0.180952 0.185714 0.190475 0.190475 0.190475 0.195237 0.199999 0.204761
0.209523 0.209523 0.219051 0.223813 0.228574 0.238098 0.24286 0.247622
0.247622 0.252384 0.266669 0.271431 0.285716 0.29524 0.304763 0.323811
0.333334 0.342858 0.34762 0.361905 0.366667 0.380953 0.390476 0.4 0.419047
0.428571 0.447619;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 5 empty \$0-word empty 0 -8 0 10 -83269
-262144 -1 4;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -83269 -262144
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -83269 -262144
-1 0 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 164 21 r COPPER;
#X obj 167 279 s COPPER;
#X obj 48 218 r COPPER;
#X obj 302 452 s COPPER_DONE;
#X msg 349 326 copper;
#X obj 369 349 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 317 129 v \$0-STRESS;
#X obj 317 175 v \$0-STRESS;
#X obj 317 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 317 152 * 0.5;
#X obj 88 306 riff1_random 600 3204 1000 1300;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 5 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 29 0;
#X connect 1 0 23 0;
#X connect 2 0 5 0;
#X connect 2 0 22 0;
#X connect 4 0 20 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 29 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 7 0;
#X connect 21 0 10 0;
#X connect 23 0 29 1;
#X connect 24 0 23 0;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 16 0;
#X connect 29 3 2 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

185
puredata/radio_drawer.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_drawer.pd
View file

@ -1,4 +1,4 @@
#N canvas 655 95 432 493 10;
#N canvas 655 23 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@ -22,7 +22,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
@ -90,13 +90,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.6;
#X msg 285 439 0.2;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -115,11 +118,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -135,49 +138,14 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 153 171 688 374 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer1 40 float 3;
#A 0 0.219048 0.209524 0.209524 0.209524 0.2 0.2 0.190476 0.180952
0.180952 0.180952 0.171428 0.171428 0.161904 0.161904 0.152381 0.142857
0.142857 0.133333 0.133333 0.123809 0.123809 0.114285 0.114285 0.104761
0.104761 0.0952374 0.0857135 0.0761896 0.0761896 0.0761896 0.0761896
0.0761896 0.0666658 0.0666658 0.0666658 0.0666658 0.0571419 0.047618
0.047618 0.0380942;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 29 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer4 30 float 3;
#A 0 0.428572 0.638095 0.714286 0.733334 0.514285 0.457142 0.409523
0.419047 0.447618 0.495238 0.504762 0.666667 0.733334 0.752382 0.704762
0.47619 0.419047 0.399999 0.409523 0.419047 0.466666 0.52381 0.590477
0.638096 0.685715 0.733335 0.733335 0.723811 0.695239 0.600001;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 509 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer2 40 float 3;
#A 0 0.380952 0.00952381 0.361905 -5.96046e-08 0.361905 -5.96046e-08
0.342857 0.8 0.352381 0 0.361905 0 0.371429 0 0.361905 -4.76837e-07
0.361905 0 -4.76837e-07 0.742857 -4.76837e-07 -4.76837e-07 -4.76837e-07
-0.00952435 -4.76837e-07 0 0 0 0 0.285714 0.00952381 0.27619 0.819048
-3.57628e-06 -3.57628e-06 -3.57628e-06 -3.57628e-06 -3.57628e-06 0.00952029
0.00952029;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 189 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer3 25 float 3;
#A 0 0.857143 0.857143 0.847619 0.857143 0.857143 0.00952387 0.00952387
0.00952387 0.828571 0.838095 0.847619 0.847619 1.19209e-07 1.19209e-07
0.657143 0.838095 0.838095 0.838095 1.19209e-07 1.19209e-07 1.19209e-07
0.809524 0.819048 0.819048 0.819048;
#X coords 0 1 25 0 150 105 1 0 0;
#X restore 349 31 graph;
#N canvas 58 203 688 374 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
@ -198,35 +166,71 @@
#X msg 89 343 0;
#X obj 62 302 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X connect 4 0 12 0;
#X connect 6 0 5 0;
#X connect 6 1 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 0 6 0;
#X connect 12 0 7 0;
#X connect 14 0 5 0;
#X connect 14 1 15 0;
#X connect 15 0 11 0;
#X connect 16 0 14 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer 40 float 3;
#A 0 0.380952 0.00952381 0.361905 -5.96046e-08 0.361905 -5.96046e-08
0.342857 0.8 0.352381 0 0.361905 0 0.371429 0 0.361905 -4.76837e-07
0.361905 0 -4.76837e-07 0.742857 -4.76837e-07 -4.76837e-07 -4.76837e-07
-0.00952435 -4.76837e-07 0 0 0 0 0.285714 0.00952381 0.27619 0.819048
-3.57628e-06 -3.57628e-06 -3.57628e-06 -3.57628e-06 -3.57628e-06 0.00952029
0.00952029;
#X coords 0 1 40 0 50 50 1 0 0;
#X restore 29 76 graph;
#X obj 31 138 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -204800
#X array drawer1 20 float 3;
#A 0 0.0285716 0.0666671 0.0857148 0.0857148 -0.0285716 -0.12381 -0.104763
-0.0476193 0 0.0380955 0.0952387 0.152382 0.133334 -0.00952387 -0.0476193
-0.12381 -0.12381 -0.0761909 -0.0285716 0.00952387;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 29 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer4 30 float 3;
#A 0 0.0380953 0.0380953 0.0380953 0.0190476 -0.0476195 -0.0571434
0.0285714 0.0380953 0.0380953 0.0380953 0.0380953 0.0380953 -0.00952405
-0.00952405 -0.00952405 0.0380953 0.0761908 0.0761908 0.057143 0.0285714
-0.0380957 -0.0190479 0.0190476 0.0666669 0.057143 0.0285714 -0.0476195
-0.0285718 -0.0285718 -1.78814e-07;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 509 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer2 20 float 3;
#A 0 0 0 0 0 0.628571 0 0 0 0 0.295238 0 0 0 0 0.457143 0 0 0 0.247619
0;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 185 36 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer3 30 float 3;
#A 0 -0.00952405 -0.00952405 0.628571 0.714286 0.72381 0.0126983 0.0158729
0.0190476 0.0285714 0.0380953 0.0444445 0.0507938 0.057143 0.057143
0.00317444 -0.0031748 -0.00952405 -0.00952405 -0.0190479 -0.0238099
-0.0285718 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476
0.0190476 0.0190476 0.0190476;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 349 31 graph;
#X obj 171 172 loadbang;
#X obj 171 214 s \$0-word-max;
#X obj 77 183 r \$0-word-max;
#X floatatom 77 204 5 0 0 0 - - -;
#X msg 171 193 4;
#X connect 0 0 8 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 8 0 2 0;
#X connect 8 0 3 0;
#X connect 10 0 1 0;
#X connect 10 1 11 0;
#X connect 11 0 7 0;
#X connect 12 0 10 0;
#X connect 17 0 21 0;
#X connect 19 0 20 0;
#X connect 20 0 8 1;
#X connect 21 0 18 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer 20 float 3;
#A 0 0 0 0 0 0.628571 0 0 0 0 0.295238 0 0 0 0 0.457143 0 0 0 0.247619
0;
#X coords 0 1 20 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -204800
-4160 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -4032 -1 -1
;
#X obj 164 21 r DRAWER;
#X obj 48 188 r DRAWER;
#X obj 48 218 r DRAWER;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -4032 -1
-1 0 1;
#X obj 295 452 s DRAWER_DONE;
@ -239,13 +243,24 @@
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 89 307 riff1_random 700 4403 700 1000;
#X obj 282 108 v \$0-STRESS;
#X obj 282 154 v \$0-STRESS;
#X obj 282 88 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 282 131 * 0.5;
#X connect 0 0 25 0;
#X obj 89 307 riff1_random 50 4403 700 1000;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 29 0;
#X connect 1 0 19 0;
#X connect 2 0 5 0;
#X connect 2 0 17 0;
@ -253,18 +268,22 @@
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 25 0;
#X connect 10 0 29 0;
#X connect 13 0 4 0;
#X connect 14 0 7 0;
#X connect 14 0 13 0;
#X connect 15 0 10 0;
#X connect 19 0 25 1;
#X connect 19 0 29 1;
#X connect 21 0 20 0;
#X connect 22 0 21 1;
#X connect 23 0 22 0;
#X connect 24 0 19 0;
#X connect 25 0 21 0;
#X connect 25 3 2 0;
#X connect 26 0 29 0;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 27 0;
#X connect 29 0 21 0;
#X connect 29 3 2 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

200
puredata/radio_drummer.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_drummer.pd
View file

@ -1,4 +1,4 @@
#N canvas 451 132 829 496 10;
#N canvas 611 81 829 496 10;
#X msg 37 337 0;
#X obj 316 306 loadbang;
#X obj 288 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@ -22,7 +22,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
@ -90,13 +90,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.67;
#X msg 285 439 0.15;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -115,11 +118,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -135,19 +138,19 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 275 25 pd world and me;
#N canvas 88 149 730 545 expressions 0;
#N canvas 11 153 730 545 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerA1 18 float 3;
#A 0 3.57628e-07 -0.00952339 -0.00952339 -0.00952339 -0.00952339 -0.00952339
-0.00952339 -0.00952339 -0.00952339 -0.00952339 -0.00952339 -0.00952339
-0.0190471 -0.0190471 -0.0190471 -0.00952333 -0.00952333 -0.00952333
;
#A 0 0.019047 0.219048 0.019047 0.419048 0.019047 0.019047 0.314286
0.219048 0.019047 0.219048 0.00952315 0.438095 0.219048 0.00952315
0.219048 0.00952315 0.190476 -0.00952458;
#X coords 0 1 18 0 150 105 1 0 0;
#X restore 52 41 graph;
#N canvas 0 23 450 278 (subpatch) 0;
@ -161,34 +164,35 @@
#X restore 212 41 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerA3 30 float 3;
#A 0 0.095238 0.133333 0.12381 0.200001 0.304763 0.190477 0.24762 0.380954
0.238096 0.0476186 0.0666664 0.24762 0.180953 0.285714 0.171429 0.180953
0.228572 0.295239 0.419048 0.12381 0.24762 0.161905 0.361906 0.314287
0.37143 0.180953 0.257144 0.104762 0.0666664 0.266668;
#A 0 0.0190474 0.342857 0.0285712 0.0285712 0.0285712 0.342857 0.0285712
0.0190474 0.0190474 0.0190474 0.0190474 0.0190474 0.314286 0.00952351
0.00952351 0.00952351 0.00952351 0.00952351 0.00952351 0.00952351 0.314286
-3.57628e-07 -3.57628e-07 -3.57628e-07 -3.57628e-07 -3.57628e-07 0.314286
0.00952351 0.0190474 0.0190474;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 372 41 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerA4 30 float 3;
#A 0 0.180952 0.161905 0.161905 0.161905 0.161905 0.161905 0.161905
0.161905 0.161905 0.161905 0.161905 0.161905 0.161905 0.161905 0.152381
0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381
0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381;
#A 0 0.323811 0.257143 0.219048 0.180952 0.142857 0.133333 0.114285
0.0952377 0.0666661 0.0476183 0.0285706 0.0285706 0.0190467 0.0190467
0.0190467 0.0190467 0.0190467 0.0285706 0.0285706 0.0380945 0.0380945
0.0476183 0.0666661 0.0857138 0.104762 0.123809 0.133333 0.180952 0.219047
0.238095;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 532 41 graph;
#X obj 55 312 inlet;
#X obj 55 393 outlet;
#X obj 55 364 t b a;
#X obj 257 359 s \$0-word;
#X obj 165 493 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
#X obj 55 322 inlet;
#X obj 55 403 outlet;
#X obj 55 374 t b a;
#X obj 257 369 s \$0-word;
#X obj 165 503 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 165 425 + 1;
#X floatatom 165 448 5 0 0 0 - - -;
#X obj 304 400 + 1;
#X floatatom 304 423 5 0 0 0 - - -;
#X obj 165 382 t a a;
#X obj 55 341 random 4;
#X obj 165 470 array_copier drummerA;
#X obj 304 445 array_copier drummerB;
#X obj 165 435 + 1;
#X floatatom 165 458 5 0 0 0 - - -;
#X obj 304 410 + 1;
#X floatatom 304 433 5 0 0 0 - - -;
#X obj 165 392 t a a;
#X obj 165 480 array_copier drummerA;
#X obj 304 455 array_copier drummerB;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerB1 18 float 3;
#A 0 0.133333 0.152381 0.180953 0.2 0.238096 0.285715 0.314287 0.37143
@ -225,9 +229,9 @@
0.685701 0.723795 0.704748;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 378 322 graph;
#X obj 32 459 t b b;
#X msg 59 480 0;
#X obj 32 439 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
#X obj 32 469 t b b;
#X msg 59 490 0;
#X obj 32 449 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 84 25 450 278 (subpatch) 0;
#X array drummerB0 10 float 3;
@ -235,34 +239,43 @@
0.27619 0.742855 0.790472;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 538 322 graph;
#X connect 4 0 14 0;
#X obj 55 351 count 4;
#X obj 188 299 loadbang;
#X obj 188 341 s \$0-word-max;
#X obj 94 310 r \$0-word-max;
#X floatatom 94 331 5 0 0 0 - - -;
#X msg 188 320 4;
#X connect 4 0 25 0;
#X connect 6 0 5 0;
#X connect 6 1 13 0;
#X connect 9 0 10 0;
#X connect 10 0 15 0;
#X connect 10 0 14 0;
#X connect 11 0 12 0;
#X connect 12 0 16 0;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 13 1 11 0;
#X connect 14 0 6 0;
#X connect 14 0 7 0;
#X connect 15 0 8 0;
#X connect 22 0 5 0;
#X connect 22 1 23 0;
#X connect 23 0 15 0;
#X connect 23 0 16 0;
#X connect 24 0 22 0;
#X restore 48 226 pd expressions;
#X connect 14 0 8 0;
#X connect 21 0 5 0;
#X connect 21 1 22 0;
#X connect 22 0 14 0;
#X connect 22 0 15 0;
#X connect 23 0 21 0;
#X connect 25 0 6 0;
#X connect 25 0 7 0;
#X connect 26 0 30 0;
#X connect 28 0 29 0;
#X connect 29 0 25 1;
#X connect 30 0 27 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerA 30 float 3;
#A 0 0.180952 0.161905 0.161905 0.161905 0.161905 0.161905 0.161905
0.161905 0.161905 0.161905 0.161905 0.161905 0.161905 0.161905 0.152381
0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381
0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 29 50 graph;
#X obj 21 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -203904
-260097 -1 3;
#X array drummerA 18 float 3;
#A 0 0.019047 0.219048 0.019047 0.419048 0.019047 0.019047 0.314286
0.219048 0.019047 0.219048 0.00952315 0.438095 0.219048 0.00952315
0.219048 0.00952315 0.190476 -0.00952458;
#X coords 0 1 18 0 25 25 1 0 0;
#X restore 29 40 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -203904
-260097 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -203904 -1
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -203904
@ -271,17 +284,16 @@
#X obj 397 460 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 397 437 loadbang;
#X obj 48 188 r DRUMMER;
#X obj 48 218 r DRUMMER;
#X obj 288 452 s DRUMMER_DONE;
#X obj 275 78 s DRUMMER;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerB 30 float 3;
#A 0 1.78814e-07 1.78814e-07 0.628571 0.00952393 0.00952393 0.00952393
0.00952393 1.78814e-07 1.78814e-07 1.78814e-07 0.67619 0.00952375 0.00952375
0.00952375 0.00952375 0 0 0 0 0.638095 0 0 0 0 0 0.638095 -0.00952357
-0.00952357 -0.00952357 -0.00952357;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 29 100 graph;
#X array drummerB 18 float 3;
#A 0 0.133333 0.152381 0.180953 0.2 0.238096 0.285715 0.314287 0.37143
0.409526 0.457145 0.504764 0.590479 0.66667 0.752385 0.819048 0.857147
0.980953 0.00952381;
#X coords 0 1 18 0 25 25 1 0 0;
#X restore 29 82 graph;
#X msg 316 329 drummerA;
#X obj 164 21 r DRUMMER;
#X obj 339 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
@ -294,7 +306,7 @@
-262144 -1 -1;
#X msg 726 329 drummerB;
#X obj 88 466 s NOTE;
#X obj 221 428 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
#X obj 221 428 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 88 443 spigot;
#X obj 498 466 s NOTE;
@ -303,14 +315,25 @@
#X obj 498 443 spigot;
#X obj 221 405 > 1;
#X obj 631 405 > 1;
#X obj 88 306 riff1_random 40 1031 600 1000;
#X obj 498 306 riff1_random 90 1032 600 1000;
#X obj 473 137 v \$0-STRESS;
#X obj 473 183 v \$0-STRESS;
#X obj 473 117 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 473 160 * 0.5;
#X connect 0 0 39 0;
#X obj 88 306 riff1_random 40 1031 1500 2000;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 44 0;
#X connect 1 0 22 0;
#X connect 2 0 5 0;
#X connect 2 0 19 0;
@ -318,34 +341,37 @@
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 39 0;
#X connect 10 0 40 0;
#X connect 10 0 44 0;
#X connect 13 0 4 0;
#X connect 15 0 33 0;
#X connect 16 0 15 1;
#X connect 16 0 28 1;
#X connect 17 0 16 0;
#X connect 18 0 10 0;
#X connect 22 0 39 1;
#X connect 22 0 44 1;
#X connect 23 0 7 0;
#X connect 23 0 13 0;
#X connect 24 0 22 0;
#X connect 25 0 40 0;
#X connect 25 0 39 0;
#X connect 26 0 30 0;
#X connect 28 0 36 0;
#X connect 29 0 30 0;
#X connect 30 0 40 1;
#X connect 30 0 39 1;
#X connect 32 0 33 1;
#X connect 33 0 31 0;
#X connect 35 0 36 1;
#X connect 36 0 34 0;
#X connect 37 0 32 0;
#X connect 38 0 35 0;
#X connect 39 0 15 0;
#X connect 39 2 37 0;
#X connect 39 3 2 0;
#X connect 40 0 28 0;
#X connect 40 2 38 0;
#X connect 41 0 44 0;
#X connect 39 0 28 0;
#X connect 39 2 38 0;
#X connect 40 0 43 0;
#X connect 42 0 40 0;
#X connect 43 0 41 0;
#X connect 44 0 42 0;
#X connect 44 0 15 0;
#X connect 44 2 37 0;
#X connect 44 3 2 0;
#X connect 47 0 49 0;
#X connect 49 0 48 0;
#X connect 51 0 53 0;
#X connect 52 0 51 0;
#X coords 0 -1 1 1 100 150 2 5 5;

0
puredata/radio_earth.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_earth.pd
View file

0
puredata/radio_europa.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_europa.pd
View file

116
puredata/radio_flasher.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_flasher.pd
View file

@ -15,7 +15,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
@ -83,13 +83,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 461 -0.05;
#X msg 285 439 0.18;
#X obj 16 210 < 0.7;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -108,11 +111,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 51 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 49 0;
#X connect 19 0 49 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -128,11 +131,12 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 15 0;
#X connect 51 0 1 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 284 70 pd world and me;
#N canvas 481 162 685 519 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
@ -171,20 +175,20 @@
0.0952381;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 24 28 graph;
#X obj 28 289 inlet;
#X obj 28 370 outlet;
#X obj 28 341 t b a;
#X obj 230 336 s \$0-word;
#X obj 138 470 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
#X obj 28 299 inlet;
#X obj 28 380 outlet;
#X obj 28 351 t b a;
#X obj 230 346 s \$0-word;
#X obj 138 480 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 138 402 + 1;
#X floatatom 138 425 5 0 0 0 - - -;
#X obj 277 377 + 1;
#X floatatom 277 400 5 0 0 0 - - -;
#X obj 138 359 t a a;
#X obj 138 447 array_copier flasherA;
#X obj 277 422 array_copier flasherB;
#X obj 28 318 random 4;
#X obj 138 412 + 1;
#X floatatom 138 435 5 0 0 0 - - -;
#X obj 277 387 + 1;
#X floatatom 277 410 5 0 0 0 - - -;
#X obj 138 369 t a a;
#X obj 138 457 array_copier flasherA;
#X obj 277 432 array_copier flasherB;
#X obj 28 328 random 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherB3 30 float 3;
#A 0 0.0761905 0.247619 0.504762 0.0761905 0.238095 0.457142 0.00952381
@ -227,10 +231,15 @@
0.371439 0.504763;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 479 382 graph;
#X obj 382 350 t b b;
#X msg 409 371 0;
#X obj 382 330 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144
#X obj 382 360 t b b;
#X msg 409 381 0;
#X obj 382 340 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144
-1 -1;
#X obj 167 276 loadbang;
#X obj 167 318 s \$0-word-max;
#X obj 73 287 r \$0-word-max;
#X floatatom 73 308 5 0 0 0 - - -;
#X msg 167 297 4;
#X connect 4 0 16 0;
#X connect 6 0 5 0;
#X connect 6 1 13 0;
@ -247,17 +256,22 @@
#X connect 22 1 23 0;
#X connect 23 0 14 0;
#X connect 24 0 22 0;
#X restore 48 226 pd expressions;
#X connect 25 0 29 0;
#X connect 27 0 28 0;
#X connect 28 0 16 1;
#X connect 29 0 26 0;
#X restore 48 256 pd expressions;
#N canvas 490 171 966 616 (subpatch) 0;
#X array flasherA 30 float 3;
#A 0 0.0761905 0.0761905 0 0.0761905 0.0761905 0.0761905 0 0.0761905
0.0761905 0 0.0761905 0.0761905 0.2 0 0.0761905 0 0.0761905 0.0857143
0.00952381 0.0666668 0.00952381 0.0666668 0.0666668 0.180952 0.00952381
-0.00952369 0.0666668 0.0190476 0.0666668 0.0666668;
#A 0 0.409525 0.409525 0.409525 0.0095253 0.0095253 0.304762 0.304762
0.0095253 0.0095253 0.466667 0.466667 2.92063e-06 2.92063e-06 0.361905
0.361905 2.92063e-06 2.92063e-06 0.0761909 0.0761909 0.0761909 0.0761909
0.0761909 0.0761909 -0.00952375 0.390476 0.390476 0 0.0952381 0.0952381
0.0952381;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 27 44 graph;
#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -66577
-257985 -1 3;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -66577
-257985 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -66577 -257985
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -66577 -257985
@ -277,13 +291,14 @@
#X obj 284 123 s FLASHER;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherB 30 float 3;
#A 0 0.0761905 -0.00952429 0 0.0761905 0.0761905 0.00952345 0 0.0761905
-0.00952446 0 0.00952345 0.0952383 0.2 0 0.0761905 0 0.00952381 0.0857143
0.00952381 0.342858 0.00952381 0.00952351 0.0666668 0.180952 0.00952381
-0.00952369 0.0666668 0.0190476 0.133334 0.0190474;
#A 0 0.0761905 0.0761905 0.0761905 0.0095253 0.0095253 0.0666667 0.0666667
0.0095253 0.0095253 0.0761905 0.0761905 2.92063e-06 2.92063e-06 0.0857143
0.0857143 2.92063e-06 2.92063e-06 0.380952 0.0761909 0.380952 0.0761909
0.371429 -4.76837e-07 -0.00952375 0.104762 0.104762 0.104762 0.266667
0.390476 0.266667;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 27 94 graph;
#X obj 48 187 r FLASHER;
#X restore 27 86 graph;
#X obj 48 217 r FLASHER;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@ -313,7 +328,7 @@
#X obj 418 406 spigot;
#X obj 418 467 s NOTE;
#X obj 513 406 > 50;
#X obj 513 429 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 513 429 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 418 444 spigot;
#X obj 418 306 riff1 1000 1500 1000;
@ -333,11 +348,23 @@
#X obj 397 146 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 397 189 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 19 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 36 0;
#X connect 4 0 48 0;
#X connect 4 0 36 0;
#X connect 7 0 0 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 13 0;
@ -347,7 +374,6 @@
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 18 0 1 0;
#X connect 18 0 7 0;
#X connect 21 0 4 0;
#X connect 22 0 36 0;
#X connect 23 0 37 0;
@ -386,4 +412,8 @@
#X connect 57 0 60 0;
#X connect 59 0 57 0;
#X connect 60 0 58 0;
#X connect 63 0 65 0;
#X connect 65 0 64 0;
#X connect 67 0 69 0;
#X connect 68 0 67 0;
#X coords 0 -1 1 1 100 150 2 5 5;

122
puredata/radio_frog.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_frog.pd
View file

@ -22,7 +22,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
@ -90,13 +90,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 43 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 113 resample 100;
#X msg 285 439 0.2;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.68;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -115,11 +118,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 51 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 49 0;
#X connect 19 1 50 0;
#X connect 19 0 48 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -135,11 +138,12 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 15 0;
#X connect 51 0 1 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 250 164 688 488 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
@ -154,14 +158,12 @@
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 24 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array frog2 50 float 3;
#A 0 0.0952381 0.104762 0.109524 0.114286 0.119048 0.12381 0.133333
0.142857 0.152381 0.171429 0.180952 0.2 0.2 0.228571 0.238095 0.257143
0.27619 0.304762 0.32381 0.352381 0.371429 0.409524 0.457143 0.533333
0.6 0.695238 0.761905 0.857143 0.971429 1.00952 1 1 1 1 1 1 1 0.990476
0.990476 0.990476 0.990476 0.0190476 0.0190476 0.0190476 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X array frog2 30 float 3;
#A 0 0.199999 0.195237 0.457144 0.457144 0.414286 0.333333 0.380953
0.438096 0.428572 0.199999 0.247618 0.161904 0.142856 0.257142 0.219047
0.247618 0.323809 0.514287 0.619049 0.619049 0.142856 0.133332 0.123808
0.123808 0.142856 0.199999 0.323809 0.476191 0.438096 0.4;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 184 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array frog3 21 float 3;
@ -198,6 +200,11 @@
#X msg 99 366 0;
#X obj 72 325 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 166 145 loadbang;
#X obj 166 187 s \$0-word-max;
#X obj 72 156 r \$0-word-max;
#X floatatom 72 177 5 0 0 0 - - -;
#X msg 166 166 4;
#X connect 4 0 12 0;
#X connect 6 0 5 0;
#X connect 6 1 9 0;
@ -210,19 +217,21 @@
#X connect 14 1 15 0;
#X connect 15 0 11 0;
#X connect 16 0 14 0;
#X restore 48 226 pd expressions;
#X connect 17 0 21 0;
#X connect 19 0 20 0;
#X connect 20 0 12 1;
#X connect 21 0 18 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array frog 50 float 3;
#A 0 0.0952381 0.104762 0.109524 0.114286 0.119048 0.12381 0.133333
0.142857 0.152381 0.171429 0.180952 0.2 0.2 0.228571 0.238095 0.257143
0.27619 0.304762 0.32381 0.352381 0.371429 0.409524 0.457143 0.533333
0.6 0.695238 0.761905 0.857143 0.971429 1.00952 1 1 1 1 1 1 1 0.990476
0.990476 0.990476 0.990476 0.0190476 0.0190476 0.0190476 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476;
#X coords 0 1 50 0 50 50 1 0 0;
#X array frog 21 float 3;
#A 0 0.0761905 0.0571432 0.00952381 0.0666667 0.0666667 0.0666667 0.0666667
0.00952381 0.0666667 0.0666667 0.0666667 0.0666667 0.0190476 0.0666667
0.0666667 0.0761905 0.0285714 0.0761905 0.0761905 0.0285714 0.0761905
;
#X coords 0 1 21 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262144
-128992 -1 1;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262144
-128992 -1 3;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
@ -232,14 +241,13 @@
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 48 187 r FROG;
#X obj 48 217 r FROG;
#X obj 231 452 s FROG_DONE;
#X obj 164 21 r FROG;
#X msg 249 329 frog;
#X obj 88 306 riff1 1000 1061 800;
#X obj 167 269 s FROG;
#X obj 183 421 > 50;
#X obj 183 444 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 183 444 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 88 459 spigot;
#X obj 102 277 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@ -251,31 +259,47 @@
#X obj 277 97 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 277 140 * 0.5;
#X connect 0 0 23 0;
#X obj 88 306 riff1 1000 1061 1500;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 33 0;
#X connect 1 0 22 0;
#X connect 2 0 5 0;
#X connect 2 0 20 0;
#X connect 4 0 24 0;
#X connect 4 0 23 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 23 0;
#X connect 16 0 27 0;
#X connect 10 0 33 0;
#X connect 13 0 4 0;
#X connect 16 0 26 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 10 0;
#X connect 21 0 7 0;
#X connect 21 0 13 0;
#X connect 22 0 23 1;
#X connect 23 0 16 0;
#X connect 23 2 25 0;
#X connect 23 3 2 0;
#X connect 25 0 26 0;
#X connect 26 0 27 1;
#X connect 27 0 15 0;
#X connect 28 0 23 0;
#X connect 29 0 22 0;
#X connect 30 0 33 0;
#X connect 22 0 33 1;
#X connect 24 0 25 0;
#X connect 25 0 26 1;
#X connect 26 0 15 0;
#X connect 27 0 33 0;
#X connect 28 0 22 0;
#X connect 29 0 32 0;
#X connect 31 0 29 0;
#X connect 32 0 30 0;
#X connect 33 0 31 0;
#X connect 33 0 16 0;
#X connect 33 2 24 0;
#X connect 33 3 2 0;
#X connect 36 0 38 0;
#X connect 38 0 37 0;
#X connect 40 0 42 0;
#X connect 41 0 40 0;
#X coords 0 -1 1 1 100 150 2 5 5;

0
puredata/radio_ganymede.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_ganymede.pd
View file

355
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_grayhose.pd Normal file
View file

@ -0,0 +1,355 @@
#N canvas 651 37 570 496 10;
#X obj 283 80 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 170 225 1159 537 expressions 0;
#X obj 55 312 inlet;
#X obj 55 393 outlet;
#X obj 55 364 t b a;
#X obj 257 359 s \$0-word;
#X obj 165 493 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 165 400 + 1;
#X floatatom 165 423 5 0 0 0 - - -;
#X obj 55 341 count 6;
#X obj 32 459 t b b;
#X msg 59 480 0;
#X obj 32 439 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 84 25 450 278 (subpatch) 0;
#X array ghoseB0 10 float 3;
#A 0 0.304762 0.457144 0.552381 0.466666 0.428571 0.67619 0.485713
0.371426 0.542857 0.619048;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 623 358 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ghoseB2 100 float 3;
#A 0 0.361905 0.504763 0.504763 0.476191 0.483334 0.490477 0.49762
0.504763 0.511906 0.519048 0.526191 0.533334 0.52381 0.500001 0.476191
0.438096 0.495238 0.495238 0.495238 0.514286 0.514286 0.52381 0.476191
0.489524 0.502858 0.516191 0.529525 0.542858 0.516667 0.490477 0.464286
0.438096 0.428572 0.419048 0.409524 0.419048 0.428572 0.438096 0.447619
0.457143 0.454762 0.495238 0.495238 0.561905 0.571429 0.571429 0.571429
0.566667 0.561905 0.552381 0.533333 0.52381 0.52381 0.52381 0.52381
0.52381 0.52381 0.52381 0.52381 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.457143 0.457143 0.457143 0.457143 0.457143 0.452381
0.447619 0.442858 0.476191 0.452381 0.419048 0.447619 0.457143 0.466667
0.476191 0.495238 0.514286 0.52381 0.466667 0.466667 0.457143 0.457143
0.466667 0.466667 0.476191 0.480953 0.485715 0.495239 0.504763 0.504763
0.495239 0.485715 0.485715 0.442858 0.419048;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 195 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ghoseB1 50 float 3;
#A 0 0.419047 0.361904 0.35238 0.314285 0.285713 0.253967 0.222221
0.190475 0.180951 0.142855 0.419048 0.419048 0.390476 0.361904 0.323809
0.304761 0.27619 0.238094 0.209522 0.209524 0.152379 0.419047 0.390476
0.361904 0.333333 0.314285 0.271427 0.22857 0.219046 0.161903 0.152379
0.428571 0.4 0.361904 0.304761 0.263491 0.222221 0.161903 0.142855
0.409524 0.371428 0.333333 0.285713 0.285713 0.25238 0.219046 0.142855
0.133332 0.4 0.247618;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 35 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ghoseB4 100 float 3;
#A 0 0.295237 0.295237 0.295237 0.295237 0.295237 0.323809 0.323809
0.323809 0.323809 0.323809 0.323809 0.323809 0.323809 0.323809 0.323809
0.323809 0.323809 0.320634 0.31746 0.314285 0.304761 0.295237 0.292063
0.288888 0.285713 0.285713 0.285713 0.285713 0.285713 0.285713 0.285713
0.285713 0.285713 0.285713 0.285713 0.285713 0.266667 0.266667 0.266667
0.266667 0.266667 0.266667 0.266667 0.266667 0.266667 0.266667 0.266667
0.266667 0.266667 0.266667 0.27619 0.27619 0.27619 0.27619 0.27619
0.27619 0.27619 0.279365 0.28254 0.285714 0.285714 0.285714 0.285714
0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714
0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714
0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714
0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714
0.285714 0.27619 0.27619 0.266667 0.257143;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 515 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ghoseB3 50 float 3;
#A 0 0.409524 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571
0.428571 0.428571 0.430476 0.432381 0.434286 0.43619 0.438095 0.438095
0.438095 0.438095 0.438095 0.438095 0.438095 0.438095 0.438095 0.438095
0.438095 0.438095 0.438095 0.44 0.441905 0.443809 0.445714 0.447619
0.447619 0.447619 0.447619 0.447619 0.447619 0.447619 0.447619 0.447619
0.449524 0.451429 0.453333 0.455238 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.466667;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 355 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ghoseB5 100 float 3;
#A 0 0.00952381 0.00476211 0.00476211 0.514286 0.4 0.371429 0.347619
-0.00952297 2.38419e-07 2.38419e-07 0.00476193 0.00476193 0.00476193
0.00476193 0.00476193 0.276191 0.347619 0.27619 0.0190475 0.0190475
0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475
0.0190475 0.304762 0.32381 0.400001 0.471429 0.771429 0.00952339 0.00952339
0.00952339 0.00952339 0.00952339 0.00952339 0.00952339 0.595238 0.266667
0.3 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369
0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.0285714 0.0285714
0.0285714 0.0285714 0.0285714 0.52381 0.280952 0.271429 0.285714 0.309523
0.290476 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.00952405
0.00952405 0.3 0.338095 0.319048 0.390476 0.476189 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.0285714
0.0285714 0.0285714 0.395222 0.419031 0.419031 0.428554 0.490456 0.461886
0 0 0 0 0 0;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 675 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ghoseB6 50 float 3;
#A 0 0.00952417 0 0.32381 0.00952417 0.32381 0.00952417 0.00952417
0.00952417 0.00952417 0.514286 0.00952417 0.514286 0.00952417 0.00952417
0.342857 0.00952417 0.342857 -0.00952333 -0.00952333 -0.00952333 -0.00952333
-0.00952333 0.495238 -0.00952333 0.495238 -0.00952333 4.17233e-07 4.17233e-07
4.17233e-07 0 0 0.352381 4.17233e-07 0.352381 4.17233e-07 4.17233e-07
4.17233e-07 4.17233e-07 4.17233e-07 4.17233e-07 0.00952417 0.457143
0.00952417 0.457143 0.00952417 0.00952417 0.00952417 0.0190479 0.0190479
0.0190479;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 835 35 graph;
#X obj 165 445 array_copier ghoseB;
#X obj 188 289 loadbang;
#X msg 188 310 6;
#X obj 188 331 s \$0-word-max;
#X obj 94 300 r \$0-word-max;
#X floatatom 94 321 5 0 0 0 - - -;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 18 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 1 0;
#X connect 8 1 9 0;
#X connect 9 0 18 0;
#X connect 10 0 8 0;
#X connect 18 0 4 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 23 0 7 1;
#X restore 48 256 pd expressions;
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -191407
-4034 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -191407 -4034
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -191407
-4034 -1 0 1;
#X obj 182 419 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 182 396 loadbang;
#X msg 43 325 0;
#X obj 322 294 loadbang;
#X text 41 306 stop!;
#X obj 94 417 s NOTE;
#X obj 94 394 spigot;
#X obj 345 340 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ghoseB 100 float 3;
#A 0 0.361905 0.504763 0.504763 0.476191 0.483334 0.490477 0.49762
0.504763 0.511906 0.519048 0.526191 0.533334 0.52381 0.500001 0.476191
0.438096 0.495238 0.495238 0.495238 0.514286 0.514286 0.52381 0.476191
0.489524 0.502858 0.516191 0.529525 0.542858 0.516667 0.490477 0.464286
0.438096 0.428572 0.419048 0.409524 0.419048 0.428572 0.438096 0.447619
0.457143 0.454762 0.495238 0.495238 0.561905 0.571429 0.571429 0.571429
0.566667 0.561905 0.552381 0.533333 0.52381 0.52381 0.52381 0.52381
0.52381 0.52381 0.52381 0.52381 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.457143 0.457143 0.457143 0.457143 0.457143 0.452381
0.447619 0.442858 0.476191 0.452381 0.419048 0.447619 0.457143 0.466667
0.476191 0.495238 0.514286 0.52381 0.466667 0.466667 0.457143 0.457143
0.466667 0.466667 0.476191 0.480953 0.485715 0.495239 0.504763 0.504763
0.495239 0.485715 0.485715 0.442858 0.419048;
#X coords 0 1 100 0 25 25 1 0 0;
#X restore 35 65 graph;
#X obj 427 120 v \$0-STRESS;
#X obj 427 166 v \$0-STRESS;
#X obj 427 100 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 427 143 * 0.5;
#X obj 294 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 314 406 0;
#X obj 314 429 v \$0-STATE;
#X obj 164 21 r GHOSE;
#X obj 283 110 s GHOSE;
#X obj 48 217 r GHOSE;
#X obj 294 452 s GHOSE_DONE;
#N canvas 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 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 -262144 -1 -1 1 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X msg 285 439 0.15;
#X obj 16 210 < 0.73;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 49 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 283 57 pd world and me;
#X msg 322 317 ghoseB;
#X obj 94 294 riff1_random 500 3307 600 900;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 6 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 24 0;
#X connect 1 0 2 0;
#X connect 3 0 29 0;
#X connect 5 0 0 0;
#X connect 7 0 13 1;
#X connect 8 0 7 0;
#X connect 9 0 29 0;
#X connect 10 0 28 0;
#X connect 13 0 12 0;
#X connect 14 0 28 0;
#X connect 16 0 19 0;
#X connect 18 0 16 0;
#X connect 19 0 17 0;
#X connect 20 0 21 0;
#X connect 20 0 26 0;
#X connect 21 0 22 0;
#X connect 23 0 1 0;
#X connect 25 0 3 0;
#X connect 27 0 0 0;
#X connect 28 0 29 1;
#X connect 29 0 13 0;
#X connect 29 3 20 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

0
puredata/radio_jupiter.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_jupiter.pd
View file

619
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_mote.pd Normal file
View file

@ -0,0 +1,619 @@
#N canvas 0 74 498 493 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 151 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 187 184 1;
#X obj 187 237 v \$0-STATE;
#N canvas 760 33 533 644 world 1;
#X floatatom 16 94 5 0 0 0 - - - 0;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - - 0;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 110 504 5 0 0 0 stress - - 0;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 238 480 8 0 0 0 - - - 0;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - - 0;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8
#f8fc00 #000000;
#X obj 238 578 max 0;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X msg 285 439 0.1;
#X msg 304 462 -0.05;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 #fcfcfc
#000000 #000000 0 1;
#X obj 158 51 s \$0-SLEEP;
#X obj 16 210 < 0.7;
#X text 109 114 listening speed;
#X obj 16 114 resampl 100;
#X connect 0 0 53 0;
#X connect 1 0 5 0;
#X connect 1 1 35 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 26 0;
#X connect 8 0 16 0;
#X connect 9 0 36 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 33 0;
#X connect 14 0 30 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 51 0;
#X connect 18 0 15 0;
#X connect 18 1 32 0;
#X connect 19 0 46 0;
#X connect 19 1 47 0;
#X connect 21 0 11 0;
#X connect 21 0 34 0;
#X connect 26 0 8 0;
#X connect 28 0 14 0;
#X connect 30 0 18 0;
#X connect 32 0 19 0;
#X connect 33 0 12 1;
#X connect 35 0 4 0;
#X connect 35 0 25 0;
#X connect 37 0 38 0;
#X connect 38 0 40 0;
#X connect 39 0 37 0;
#X connect 40 0 41 0;
#X connect 42 0 45 0;
#X connect 45 0 0 0;
#X connect 46 0 15 0;
#X connect 47 0 15 0;
#X connect 48 0 45 1;
#X connect 49 0 50 0;
#X connect 51 0 1 0;
#X connect 53 0 17 0;
#X restore 105 109 pd world and me;
#N canvas 500 330 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 40 float 2;
#X coords 0 1 40 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 2;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 536 45 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array \$0-sign2 40 float 2;
#X coords 0 1 40 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 2;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 26 45 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 267 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign 40 float 2;
#X coords 0 1 40 0 25 25 1 0 0;
#X restore 26 42 graph;
#X obj 112 52 hradio 15 1 0 4 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 339 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X text 35 320 stop!;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X obj 88 429 s NOTE;
#X obj 288 329 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 362 101 v \$0-STRESS;
#X obj 362 147 v \$0-STRESS;
#X obj 362 81 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 #fcfcfc #000000 #000000;
#X obj 362 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 362 271 r \$0-word-max;
#X obj 362 317 s \$0-word-max-set;
#X msg 362 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 362 209 set \$1;
#X obj 362 186 r \$0-SLEEP;
#X obj 362 232 s \$0-SLEEP-set;
#X obj 249 329 f \$0;
#X obj 249 352 makefilename %d-sign;
#N canvas 692 150 585 302 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 268 146 pd save-sign;
#X msg 268 123 4;
#X obj 221 90 t b b b b b;
#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 252 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 236 192 pd save-name;
#X msg 60 209 4;
#N canvas 0 0 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 137 129 pd loaded;
#N canvas 543 33 433 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 207 308 + 1;
#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 295 460 v \$0-signname_idx;
#X msg 295 437 0;
#X obj 295 414 loadbang;
#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 292 108 makefilename %s%%d;
#X msg 292 131 set \$1;
#X obj 292 85 symbol \$0-sign;
#X obj 292 154 s \$0-signname_set;
#X obj 292 65 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 292 42 loadbang;
#X obj 213 69 t a b;
#X connect 1 0 5 2;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 1 0;
#X connect 6 0 4 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 11 1;
#X connect 10 0 12 0;
#X connect 11 0 16 0;
#X connect 11 1 15 0;
#X connect 12 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 13 0;
#X connect 14 0 16 1;
#X connect 15 0 13 0;
#X connect 15 1 14 1;
#X connect 15 2 0 0;
#X connect 16 0 20 0;
#X connect 16 1 5 0;
#X connect 18 0 17 0;
#X connect 19 0 11 0;
#X connect 19 1 12 0;
#X connect 19 2 18 0;
#X connect 20 0 27 0;
#X connect 20 1 26 0;
#X connect 21 0 29 0;
#X connect 23 0 22 0;
#X connect 24 0 31 0;
#X connect 26 0 25 0;
#X connect 27 0 28 0;
#X connect 28 0 25 0;
#X connect 29 0 24 0;
#X connect 29 1 6 0;
#X connect 30 0 39 0;
#X connect 31 0 23 0;
#X connect 32 0 19 0;
#X connect 33 0 34 0;
#X connect 34 0 36 0;
#X connect 35 0 33 0;
#X connect 37 0 35 0;
#X connect 38 0 37 0;
#X connect 39 0 21 0;
#X connect 39 1 37 0;
#X restore 60 232 pd load-sign;
#X obj 60 111 t b b b a;
#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 94 152 pd load-name;
#N canvas 0 0 417 482 load-riff 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 52 24 r \$0-load-riff;
#X obj 223 97 symbol \$0-load-riff;
#X obj 109 165 - 4;
#X obj 80 218 unpack f f f f;
#X obj 80 310 s \$0-id-set;
#X obj 107 287 s \$0-key-set;
#X obj 134 264 s \$0-range-set;
#X obj 161 241 s \$0-sdelay-set;
#X obj 181 183;
#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 17 0;
#X connect 10 0 16 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 16 0 9 1;
#X connect 16 0 10 0;
#X connect 17 0 18 0;
#X connect 17 1 19 0;
#X connect 17 2 20 0;
#X connect 17 3 21 0;
#X restore 77 181 pd load-riff;
#X obj 445 124 list store;
#X obj 438 200 print;
#X obj 445 98 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 407 49 t a b;
#X obj 280 28 list prepend append;
#X obj 280 51 list trim;
#X connect 0 0 11 0;
#X connect 0 0 18 0;
#X connect 0 1 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 5 1 7 0;
#X connect 5 2 6 0;
#X connect 5 3 4 0;
#X connect 5 4 1 1;
#X connect 8 0 10 0;
#X connect 11 0 8 0;
#X connect 11 1 13 0;
#X connect 11 2 12 0;
#X connect 11 3 9 0;
#X connect 14 0 15 0;
#X connect 16 0 14 0;
#X connect 17 0 14 0;
#X connect 17 1 14 1;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X restore 388 444 pd statesave;
#X obj 248 92 pack s f;
#X obj 248 46 t b f;
#X obj 248 26 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 248 138 s FEED;
#X obj 197 212 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 303 393 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 248 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 155 loadbang;
#X obj 7 201 v \$0-STRESS;
#X obj 7 178 metro 100;
#X obj 7 224 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 88 306 riff2 \$2 \$1 \$3;
#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 \$0-sdelay-set sd
-14 7 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 110 10 15 0 0 0 @ \$0-name-set \$0-name 0;
#X obj 326 35 r \$0-name;
#X obj 200 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 248 69 symbol;
#N canvas 0 0 369 268 riffpara 0;
#X obj 23 141 pack f f f f;
#X obj 152 64 r \$0-sdelay;
#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 174 s \$0-riff-para;
#X obj 23 213 outlet;
#X connect 0 0 8 0;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 3 1 0 3;
#X connect 4 0 0 0;
#X connect 4 1 0 2;
#X connect 5 0 0 0;
#X connect 5 1 0 1;
#X connect 6 0 0 0;
#X connect 7 0 4 0;
#X restore 231 267 pd riffpara;
#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 45 0;
#X connect 8 0 1 0;
#X connect 9 0 45 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 45 1;
#X connect 32 0 38 0;
#X connect 33 0 52 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 45 0 15 0;
#X connect 45 3 11 0;
#X connect 50 0 52 1;
#X connect 52 0 32 0;
#X connect 53 0 45 2;
#X coords 0 -1 1 1 220 85 2 5 5;

499
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_mote2.pd Normal file
View file

@ -0,0 +1,499 @@
#N canvas 342 55 721 493 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 151 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 187 184 1;
#X obj 187 237 v \$0-STATE;
#N canvas 760 33 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - - 0;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - - 0;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 110 504 5 0 0 0 stress - - 0;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 238 480 8 0 0 0 - - - 0;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - - 0;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8
#f8fc00 #000000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X msg 285 439 0.1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 #fcfcfc
#000000 #000000 0 1;
#X obj 158 51 s \$0-SLEEP;
#X obj 16 210 < 0.7;
#X connect 0 0 48 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 53 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 47 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 15 0;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 46 1;
#X connect 51 0 52 0;
#X connect 53 0 1 0;
#X restore 105 109 pd world and me;
#N canvas 70 224 717 437 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 188 loadbang;
#X obj 157 230 s \$0-word-max;
#X obj 63 199 r \$0-word-max;
#X floatatom 63 220 5 0 0 0 - - - 0;
#X msg 157 209 4;
#X obj 134 369 array_copier \$0-sign;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign1 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 196 45 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign3 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 536 45 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array \$0-sign2 40 float 2;
#X coords 0 1 40 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 2;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 26 45 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 267 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign 60 float 3;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 60 0 25 25 1 0 0;
#X restore 26 42 graph;
#X obj 112 52 hradio 15 1 0 4 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 339 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X text 35 320 stop!;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X obj 88 429 s NOTE;
#X obj 288 329 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 594 308 v \$0-STRESS;
#X obj 594 354 v \$0-STRESS;
#X obj 594 288 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 #fcfcfc #000000 #000000;
#X obj 594 331 * 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 461 342 r \$0-word-max;
#X obj 461 388 s \$0-word-max-set;
#X msg 461 365 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 461 285 set \$1;
#X obj 461 262 r \$0-SLEEP;
#X obj 461 308 s \$0-SLEEP-set;
#X obj 249 329 f \$0;
#X obj 249 352 makefilename %d-sign;
#N canvas 192 357 513 304 statesave 1;
#X obj 60 72 savestate;
#X obj 382 135 makefilename %s%%d;
#X msg 382 158 set \$1;
#X obj 382 112 symbol \$0-sign;
#X obj 382 181 s \$0-signname_set;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#X obj 382 92 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 60 95 t a b;
#X obj 382 69 loadbang;
#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 36 220 array get;
#X obj 58 191 t b a b a;
#X obj 105 220 array size;
#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 connect 0 0 7 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 9 0;
#X connect 7 0 6 0;
#X connect 7 1 6 2;
#X connect 7 2 8 0;
#X connect 7 3 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 0 0;
#X connect 13 0 4 0;
#X restore 248 176 pd save-sign;
#X msg 248 153 4;
#N canvas 788 498 459 415 load-sign 1;
#X obj 200 246 array size;
#X obj 301 174 makefilename;
#X obj 301 151 r \$0-signname_set;
#X obj 234 122 + 1;
#X obj 267 122 v \$0-signname_idx;
#X obj 140 382 array set;
#X obj 73 142 + 1;
#X obj 18 257 +;
#X obj 267 86 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 51 68 t b b b b;
#X obj 51 33 until;
#X obj 51 10 inlet;
#X obj 330 70 v \$0-signname_idx;
#X msg 330 47 0;
#X obj 330 24 loadbang;
#X obj 106 142 v \$0-loaded-idx;
#X obj 51 257 v \$0-loaded-idx;
#X obj 106 188 s \$0-get-loaded;
#X obj 106 211 r \$0-loaded;
#X msg 106 165 get \$1;
#X obj 51 280 pack f f;
#X obj 51 326 s \$0-get-loaded;
#X obj 51 349 r \$0-loaded;
#X msg 51 303 get \$1 \$2;
#X connect 1 0 5 2;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 1 0;
#X connect 6 0 15 0;
#X connect 7 0 16 0;
#X connect 8 0 4 0;
#X connect 9 0 16 0;
#X connect 9 1 15 0;
#X connect 9 3 8 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 6 0;
#X connect 15 0 19 0;
#X connect 16 0 7 0;
#X connect 16 0 20 0;
#X connect 18 0 0 0;
#X connect 18 0 7 1;
#X connect 18 0 20 1;
#X connect 19 0 17 0;
#X connect 20 0 23 0;
#X connect 22 0 5 0;
#X connect 23 0 21 0;
#X restore 94 220 pd load-sign;
#X msg 94 197 4;
#X obj 201 120 t b b b b b;
#N canvas 0 0 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 232 199 pd save-riff;
#N canvas 0 0 376 189 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 216 222 pd save-name;
#N canvas 464 621 379 210 loaded 0;
#X obj 22 21 inlet;
#X msg 250 108 0;
#X obj 250 85 loadbang;
#X obj 250 131 v \$0-loaded-idx;
#X obj 22 134 list store;
#X obj 22 88 list prepend append;
#X obj 22 65 t a b;
#X obj 22 111 list trim;
#X obj 22 157 s \$0-loaded;
#X obj 78 47 r \$0-loaded-write;
#X obj 84 18 r \$0-get-loaded;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 6 1 4 1;
#X connect 7 0 4 0;
#X connect 10 0 4 0;
#X restore 111 171 pd loaded;
#X obj 60 138 t b b b a;
#N canvas 0 0 450 300 load-riff 0;
#X obj 44 21 inlet;
#X restore 77 243 pd load-riff;
#N canvas 0 0 450 300 load-name 0;
#X obj 44 21 inlet;
#X restore 60 266 pd load-name;
#X connect 0 0 8 0;
#X connect 0 1 14 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 5 0;
#X connect 7 0 3 0;
#X connect 8 0 18 0;
#X connect 8 1 7 0;
#X connect 9 0 7 0;
#X connect 11 0 10 0;
#X connect 13 0 12 0;
#X connect 14 0 5 0;
#X connect 14 1 16 0;
#X connect 14 2 15 0;
#X connect 14 3 11 0;
#X connect 14 4 5 1;
#X connect 18 0 20 0;
#X connect 18 1 19 0;
#X connect 18 2 13 0;
#X connect 18 3 17 0;
#X restore 378 454 pd statesave;
#X obj 248 92 pack s f;
#X obj 248 46 t b f;
#X obj 248 26 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 248 138 s FEED;
#X obj 197 212 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 303 393 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 248 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 155 loadbang;
#X obj 7 201 v \$0-STRESS;
#X obj 7 178 metro 100;
#X obj 7 224 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 88 306 riff2 \$2 \$1 \$3;
#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 \$0-sdelay-set sd
-14 7 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 110 10 15 0 0 0 @ \$0-name-set \$0-name 0;
#X obj 333 233 pack f f f f;
#X obj 462 156 r \$0-sdelay;
#X obj 417 33 r \$0-name;
#X obj 200 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 384 110 r \$0-key;
#X obj 462 179 t b a;
#X obj 423 156 t b a;
#X obj 384 133 t b a;
#X obj 333 133 r \$0-id;
#X obj 423 133 r \$0-range;
#X obj 248 69 symbol;
#X obj 333 256 s \$0-riff-para;
#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 45 0;
#X connect 8 0 1 0;
#X connect 9 0 45 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 45 1;
#X connect 32 0 38 0;
#X connect 33 0 60 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 45 0 15 0;
#X connect 45 3 11 0;
#X connect 50 0 45 2;
#X connect 50 0 61 0;
#X connect 51 0 55 0;
#X connect 52 0 60 1;
#X connect 54 0 57 0;
#X connect 55 0 50 0;
#X connect 55 1 50 3;
#X connect 56 0 50 0;
#X connect 56 1 50 2;
#X connect 57 0 50 0;
#X connect 57 1 50 1;
#X connect 58 0 50 0;
#X connect 59 0 56 0;
#X connect 60 0 32 0;
#X coords 0 -1 1 1 220 85 2 5 5;

387
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_party_4802.pd Normal file
View file

@ -0,0 +1,387 @@
#N canvas -334 33 913 516 10;
#X obj 88 54 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #f8fc00
#000000 #000000 0 1;
#X obj 114 211 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 197 244 1;
#X obj 197 267 v \$0-STATE;
#N canvas 1385 373 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - - 0;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - - 0;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 110 504 5 0 0 0 stress - - 0;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 238 480 8 0 0 0 - - - 0;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - - 0;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8
#f8fc00 #000000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X msg 285 439 0.1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 #fcfcfc
#000000 #000000 0 1;
#X obj 158 51 s \$0-SLEEP;
#X obj 16 210 < 0.7;
#X connect 0 0 48 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 53 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 47 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 15 0;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 46 1;
#X connect 51 0 52 0;
#X connect 53 0 1 0;
#X restore 164 168 pd world and me;
#N canvas 70 224 369 281 expressions 0;
#X obj 32 44 inlet;
#X obj 32 125 outlet;
#X obj 32 96 t b a;
#X obj 234 91 s \$0-word;
#X obj 142 225 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 142 157 + 1;
#X floatatom 142 180 5 0 0 0 - - - 0;
#X obj 142 114 t a a;
#X obj 32 73 count 4;
#X obj 165 21 loadbang;
#X obj 165 63 s \$0-word-max;
#X obj 71 32 r \$0-word-max;
#X floatatom 71 53 5 0 0 0 - - - 0;
#X msg 165 42 4;
#X obj 142 202 array_copier \$0-sign;
#X connect 0 0 8 0;
#X connect 2 0 1 0;
#X connect 2 1 7 0;
#X connect 5 0 6 0;
#X connect 6 0 14 0;
#X connect 7 0 5 0;
#X connect 8 0 2 0;
#X connect 8 0 3 0;
#X connect 9 0 13 0;
#X connect 11 0 12 0;
#X connect 12 0 8 1;
#X connect 13 0 10 0;
#X connect 14 0 4 0;
#X restore 88 267 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign 30 float 3;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 31 67 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #f8fc00
#7c7c7c #000000 0;
#X obj 88 37 bng 15 250 50 0 empty empty empty 17 7 0 10 #f8fc00 #000000
#000000;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X text 35 318 stop!;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X obj 88 429 s NOTE;
#X obj 288 329 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 414 409 v \$0-STRESS;
#X obj 414 455 v \$0-STRESS;
#X obj 414 389 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 #fcfcfc #000000 #000000;
#X obj 414 432 * 0.5;
#X floatatom 9 118 5 0 0 0 - \$0-word - 0;
#X obj 72 119 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 414 299 r \$0-word-max;
#X obj 414 340 s \$0-word-max-set;
#X msg 414 319 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00
#000000 0 1;
#X msg 414 239 set \$1;
#X obj 414 219 r \$0-SLEEP;
#X obj 414 260 s \$0-SLEEP-set;
#X obj 249 329 f \$0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign1 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 389 34 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign3 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 729 34 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array \$0-sign2 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 559 34 graph;
#X obj 231 451 outlet;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign0 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 219 34 graph;
#X obj 114 237 outlet;
#X obj 88 306 riff1 900 4501 500;
#X obj 574 229 savestate;
#X obj 755 351 makefilename %s%%d;
#X msg 755 374 set \$1;
#X obj 755 328 symbol \$0-sign;
#X obj 755 397 s \$0-signname_set;
#X obj 625 252 t b b b;
#X obj 574 205 list store;
#X obj 574 182 r \$0-save;
#X obj 755 308 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 249 352 makefilename %d-sign;
#X obj 574 252 t a b;
#X obj 755 285 loadbang;
#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 36 220 array get;
#X obj 58 191 t b a b a;
#X obj 105 220 array size;
#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 connect 0 0 7 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 9 0;
#X connect 7 0 6 0;
#X connect 7 1 6 2;
#X connect 7 2 8 0;
#X connect 7 3 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 0 0;
#X connect 13 0 4 0;
#X restore 644 318 pd save-sign;
#X msg 644 295 4;
#X obj 505 415 f;
#X obj 502 371 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 505 438 + 1;
#X msg 505 461 get \$1 -1;
#N canvas 680 453 448 396 load-sign 0;
#X obj 190 276 array size;
#X obj 301 244 makefilename;
#X obj 301 221 r \$0-signname_set;
#X obj 234 192 + 1;
#X obj 267 192 v \$0-signname_idx;
#X obj 158 362 array set;
#X obj 106 235 array get \$0-loaded;
#X obj 51 309 array get \$0-loaded;
#X obj 106 212 v $-loaded-idx;
#X msg 161 189 1;
#X obj 73 212 + 1;
#X obj 51 277 v $-loaded-idx;
#X obj 18 277 +;
#X obj 267 156 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 51 138 t b b b b;
#X obj 51 103 until;
#X obj 307 33 table \$0-loaded;
#X obj 191 90 array size \$0-loaded;
#X obj 191 67 list length;
#X obj 120 129 array set \$0-loaded;
#X obj 120 49 t a a;
#X obj 51 26 inlet;
#X obj 310 346 v \$0-signname_idx;
#X msg 310 323 0;
#X obj 310 300 loadbang;
#X obj 120 26 inlet;
#X connect 1 0 5 2;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 1 0;
#X connect 6 0 0 0;
#X connect 6 0 7 1;
#X connect 6 0 12 1;
#X connect 7 0 5 0;
#X connect 8 0 6 0;
#X connect 8 0 10 0;
#X connect 9 0 6 1;
#X connect 10 0 8 0;
#X connect 11 0 7 0;
#X connect 11 0 12 0;
#X connect 12 0 11 0;
#X connect 13 0 4 0;
#X connect 14 0 11 0;
#X connect 14 1 8 0;
#X connect 14 2 9 0;
#X connect 14 3 13 0;
#X connect 15 0 14 0;
#X connect 18 0 17 0;
#X connect 20 0 19 0;
#X connect 20 1 18 0;
#X connect 21 0 15 0;
#X connect 23 0 22 0;
#X connect 24 0 23 0;
#X connect 25 0 20 0;
#X restore 574 357 pd load-sign;
#X obj 574 311 t b a;
#X msg 574 334 4;
#X connect 1 0 5 0;
#X connect 1 0 2 0;
#X connect 1 0 36 0;
#X connect 2 0 3 0;
#X connect 5 0 37 0;
#X connect 8 0 1 0;
#X connect 9 0 37 0;
#X connect 10 0 30 0;
#X connect 11 0 13 0;
#X connect 11 0 34 0;
#X connect 13 0 14 0;
#X connect 16 0 30 0;
#X connect 17 0 20 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 23 0 25 0;
#X connect 25 0 24 0;
#X connect 27 0 29 0;
#X connect 28 0 27 0;
#X connect 30 0 47 0;
#X connect 37 0 15 0;
#X connect 37 3 11 0;
#X connect 38 0 48 0;
#X connect 38 1 43 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 43 0 44 0;
#X connect 43 1 51 0;
#X connect 43 2 44 1;
#X connect 44 0 38 0;
#X connect 45 0 44 0;
#X connect 46 0 41 0;
#X connect 47 0 37 1;
#X connect 48 0 57 0;
#X connect 48 1 46 0;
#X connect 49 0 46 0;
#X connect 51 0 50 0;
#X connect 52 0 54 0;
#X connect 53 0 52 0;
#X connect 54 0 55 0;
#X connect 57 0 58 0;
#X connect 57 1 56 1;
#X connect 58 0 56 0;
#X coords 0 -1 1 1 100 150 1 5 5;

386
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_party_4803.pd Normal file
View file

@ -0,0 +1,386 @@
#N canvas 278 33 475 493 10;
#X obj 88 54 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #f8fc00
#000000 #000000 0 1;
#X obj 114 211 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 197 244 1;
#X obj 197 267 v \$0-STATE;
#N canvas 1385 373 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - - 0;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - - 0;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 110 504 5 0 0 0 stress - - 0;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 238 480 8 0 0 0 - - - 0;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - - 0;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8
#f8fc00 #000000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X msg 285 439 0.1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 #fcfcfc
#000000 #000000 0 1;
#X obj 158 51 s \$0-SLEEP;
#X obj 16 210 < 0.7;
#X connect 0 0 48 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 53 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 47 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 15 0;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 46 1;
#X connect 51 0 52 0;
#X connect 53 0 1 0;
#X restore 164 168 pd world and me;
#N canvas 70 224 717 437 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 obj 134 324 + 1;
#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 188 loadbang;
#X obj 157 230 s \$0-word-max;
#X obj 63 199 r \$0-word-max;
#X floatatom 63 220 5 0 0 0 - - - 0;
#X msg 157 209 4;
#X obj 134 369 array_copier \$0-sign;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign1 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 196 45 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign3 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 536 45 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array \$0-sign2 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 366 45 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign0 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 26 45 graph;
#X connect 0 0 8 0;
#X connect 2 0 1 0;
#X connect 2 1 7 0;
#X connect 5 0 6 0;
#X connect 6 0 14 0;
#X connect 7 0 5 0;
#X connect 8 0 2 0;
#X connect 8 0 3 0;
#X connect 9 0 13 0;
#X connect 11 0 12 0;
#X connect 12 0 8 1;
#X connect 13 0 10 0;
#X connect 14 0 4 0;
#X restore 88 267 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign 30 float 3;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 31 67 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #f8fc00
#7c7c7c #000000 0;
#X obj 88 37 bng 15 250 50 0 empty empty empty 17 7 0 10 #f8fc00 #000000
#000000;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X text 35 318 stop!;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X obj 88 429 s NOTE;
#X obj 288 329 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 337 216 v \$0-STRESS;
#X obj 337 262 v \$0-STRESS;
#X obj 337 196 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 #fcfcfc #000000 #000000;
#X obj 337 239 * 0.5;
#X floatatom 9 118 5 0 0 0 - \$0-word - 0;
#X obj 72 119 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 337 106 r \$0-word-max;
#X obj 337 147 s \$0-word-max-set;
#X msg 337 126 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00
#000000 0 1;
#X msg 337 46 set \$1;
#X obj 337 26 r \$0-SLEEP;
#X obj 337 67 s \$0-SLEEP-set;
#X obj 249 329 f \$0;
#X obj 231 451 outlet;
#X obj 114 237 outlet;
#X obj 88 306 riff1 900 4501 500;
#X obj 249 352 makefilename %d-sign;
#N canvas 0 0 450 300 statesave 0;
#X obj 60 72 savestate;
#X obj 241 194 makefilename %s%%d;
#X msg 241 217 set \$1;
#X obj 241 171 symbol \$0-sign;
#X obj 241 240 s \$0-signname_set;
#X obj 111 95 t b b b;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#X obj 241 151 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 60 95 t a b;
#X obj 241 128 loadbang;
#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 36 220 array get;
#X obj 58 191 t b a b a;
#X obj 105 220 array size;
#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 connect 0 0 7 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 9 0;
#X connect 7 0 6 0;
#X connect 7 1 6 2;
#X connect 7 2 8 0;
#X connect 7 3 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 0 0;
#X connect 13 0 4 0;
#X restore 130 161 pd save-sign;
#X msg 130 138 4;
#N canvas 552 329 448 396 load-sign 0;
#X obj 190 276 array size;
#X obj 301 244 makefilename;
#X obj 301 221 r \$0-signname_set;
#X obj 234 192 + 1;
#X obj 267 192 v \$0-signname_idx;
#X obj 158 362 array set;
#X obj 106 235 array get \$0-loaded;
#X obj 51 309 array get \$0-loaded;
#X msg 161 189 1;
#X obj 73 212 + 1;
#X obj 18 277 +;
#X obj 267 156 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 51 138 t b b b b;
#X obj 51 103 until;
#X obj 307 33 table \$0-loaded;
#X obj 191 90 array size \$0-loaded;
#X obj 191 67 list length;
#X obj 120 129 array set \$0-loaded;
#X obj 120 49 t a a;
#X obj 51 26 inlet;
#X msg 310 323 0;
#X obj 310 300 loadbang;
#X obj 120 26 inlet;
#X obj 330 140 v \$0-signname_idx;
#X msg 330 117 0;
#X obj 330 94 loadbang;
#X obj 106 212 v \$0-loaded-idx;
#X obj 51 277 v \$0-loaded-idx;
#X obj 310 346 v \$0-loaded-idx;
#X connect 1 0 5 2;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 1 0;
#X connect 6 0 10 1;
#X connect 6 0 0 0;
#X connect 6 0 7 1;
#X connect 7 0 5 0;
#X connect 8 0 6 1;
#X connect 9 0 26 0;
#X connect 10 0 27 0;
#X connect 11 0 4 0;
#X connect 12 0 27 0;
#X connect 12 1 26 0;
#X connect 12 2 8 0;
#X connect 12 3 11 0;
#X connect 13 0 12 0;
#X connect 16 0 15 0;
#X connect 18 0 17 0;
#X connect 18 1 16 0;
#X connect 19 0 13 0;
#X connect 20 0 28 0;
#X connect 21 0 20 0;
#X connect 22 0 18 0;
#X connect 24 0 23 0;
#X connect 25 0 24 0;
#X connect 26 0 9 0;
#X connect 26 0 6 0;
#X connect 27 0 10 0;
#X connect 27 0 7 0;
#X restore 60 200 pd load-sign;
#X obj 60 154 t b a;
#X msg 60 177 4;
#X connect 0 0 9 0;
#X connect 0 1 5 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 5 0 6 0;
#X connect 5 1 12 0;
#X connect 5 2 6 1;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 3 0;
#X connect 9 0 14 0;
#X connect 9 1 8 0;
#X connect 10 0 8 0;
#X connect 12 0 11 0;
#X connect 14 0 15 0;
#X connect 14 1 13 1;
#X connect 15 0 13 0;
#X restore 205 26 pd statesave;
#X connect 1 0 5 0;
#X connect 1 0 2 0;
#X connect 1 0 32 0;
#X connect 2 0 3 0;
#X connect 5 0 33 0;
#X connect 8 0 1 0;
#X connect 9 0 33 0;
#X connect 10 0 30 0;
#X connect 11 0 13 0;
#X connect 11 0 31 0;
#X connect 13 0 14 0;
#X connect 16 0 30 0;
#X connect 17 0 20 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 23 0 25 0;
#X connect 25 0 24 0;
#X connect 27 0 29 0;
#X connect 28 0 27 0;
#X connect 30 0 34 0;
#X connect 33 0 15 0;
#X connect 33 3 11 0;
#X connect 34 0 33 1;
#X coords 0 -1 1 1 100 150 1 5 5;

0
puredata/radio_pluto.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_pluto.pd
View file

309
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_postbox.pd Normal file
View file

@ -0,0 +1,309 @@
#N canvas 586 54 367 511 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.65;
#X msg 285 439 0.15;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 84 248 697 398 expressions 0;
#X obj 42 195 inlet;
#X obj 42 276 outlet;
#X obj 42 247 t b a;
#X obj 244 242 s \$0-word;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox1 100 float 3;
#A 0 0.142857 0.152381 0.161905 0.171429 0.180953 0.190476 0.2 0.219048
0.219048 0.228572 0.228572 0.228572 0.228572 0.228572 0.228572 0.219048
0.209524 0.2 0.2 0.171429 0.161905 0.161905 0.152381 0.152381 0.142857
0.142857 0.142857 0.142857 0.142857 0.142857 0.142857 0.152381 0.161905
0.161905 0.171429 0.171429 0.180953 0.190476 0.190476 0.0380952 0.2
0.2 0.2 0.2 0.209524 0.209524 0.209524 0.209524 0.209524 0.209524 0.209524
0.209524 0.2 0.2 0.190476 0.185715 0.180953 0.180953 0.171429 0.161905
0.152381 0.142857 0.133333 0.123809 0.114286 0.104762 0.0952378 0.0857139
0.0857139 0.0857139 0.0857139 0.0857139 0.0952378 0.0952378 0.104762
0.114286 0.142857 0.152381 0.161905 0.171429 0.2 0.209524 0.228572
0.238096 0.257144 0.257144 0.257144 0.257144 0.257144 0.24762 0.24762
0.24762 0.24762 0.238096 0.238096 0.228572 0.228572 0.228572 0.219048
0.209524;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 38 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox2 50 float 3;
#A 0 0.12381 0.12381 0.12381 0.12381 0.12381 0.12381 0.12381 0.12381
0.12381 0.12381 0.128571 0.133333 0.133333 0.136508 0.139683 0.142857
0.147619 0.152381 0.157143 0.161905 0.168254 0.174603 0.180953 0.180953
0.190477 0.2 0.2 0.204762 0.209524 0.214286 0.219048 0.22381 0.228572
0.233334 0.238096 0.238096 0.24762 0.24762 0.252382 0.257144 0.257144
0.266668 0.276191 0.280953 0.285715 0.285715 0.295239 0.304763 0.304763
0.323811;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 198 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox3 30 float 3;
#A 0 0.238093 0.257141 0.276189 0 0 0.27976 0.280951 0.282141 0 -0.17143
-0.200002 -0.238097 -0.257145 -0.247621 0.152381 0.126984 0.111111
0.0952374 0.00952369 0.00952351 -0.314288 -0.285717 -0.257145 0.18095
0.192061 0.203173 0.209524 0.190476 0.161904 0.247617;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 358 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox4 60 float 3;
#A 0 0.0571418 0.142857 0.2 0.209524 0.2 0.180952 0.171428 0.0380943
-0.152382 -0.190478 -0.219049 -0.228573 -0.219049 -0.190478 -0.152382
-0.0190489 0.0761898 0.0857136 0.142857 0.161905 0.180952 0.180952
0.171428 0.133334 0.0380946 -0.0095247 -0.152382 -0.190478 -0.209525
-0.209525 -0.200001 -0.161906 -0.133334 0.07619 0.171429 0.180953 0.190476
0.2 0.2 0.161905 0.0857139 0.0190468 -0.0380964 -0.0952396 -0.190478
-0.190478 -0.228574 -0.238098 -0.238098 -0.238098 -0.200002 -0.104763
0.0952381 0.12381 0.152381 0.180953 0.209525 0.209525 0.209525 0.180953
;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 518 35 graph;
#X obj 161 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 161 265 + 1;
#X floatatom 161 288 5 0 0 0 - - -;
#N canvas 84 25 450 278 (subpatch) 0;
#X array postbox0 10 float 3;
#A 0 0.942858 0.97143 0.980954 0.685714 0.771429 0.923811 0.666679
0.704758 0.371439 0.504763;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 473 252 graph;
#X obj 67 351 t b b;
#X msg 94 372 0;
#X obj 67 331 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 42 224 count 4;
#X obj 161 310 array_copier postbox;
#X obj 175 172 loadbang;
#X obj 175 214 s \$0-word-max;
#X obj 81 183 r \$0-word-max;
#X floatatom 81 204 5 0 0 0 - - -;
#X msg 175 193 4;
#X connect 0 0 15 0;
#X connect 2 0 1 0;
#X connect 2 1 9 0;
#X connect 9 0 10 0;
#X connect 10 0 16 0;
#X connect 12 0 1 0;
#X connect 12 1 13 0;
#X connect 13 0 16 0;
#X connect 14 0 12 0;
#X connect 15 0 2 0;
#X connect 15 0 3 0;
#X connect 16 0 8 0;
#X connect 17 0 21 0;
#X connect 19 0 20 0;
#X connect 20 0 15 1;
#X connect 21 0 18 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox 30 float 3;
#A 0 0.238093 0.257141 0.276189 0 0 0.27976 0.280951 0.282141 0 -0.17143
-0.200002 -0.238097 -0.257145 -0.247621 0.152381 0.126984 0.111111
0.0952374 0.00952369 0.00952351 -0.314288 -0.285717 -0.257145 0.18095
0.192061 0.203173 0.209524 0.190476 0.161904 0.247617;
#X coords 0 1 30 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262144
-128992 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
-1 -1 0 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 233 129 v \$0-STRESS;
#X obj 233 175 v \$0-STRESS;
#X obj 233 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 233 152 * 0.5;
#X obj 88 306 riff1 900 4206 1000;
#X obj 48 218 r POSTBOX;
#X obj 164 21 r POSTBOX;
#X obj 167 269 s POSTBOX;
#X obj 231 452 s POSTBOX_DONE;
#X msg 249 329 postbox;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 24 0;
#X connect 1 0 29 0;
#X connect 2 0 5 0;
#X connect 2 0 28 0;
#X connect 4 0 27 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 24 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 29 0;
#X connect 20 0 23 0;
#X connect 22 0 20 0;
#X connect 23 0 21 0;
#X connect 24 0 16 0;
#X connect 24 3 2 0;
#X connect 25 0 10 0;
#X connect 26 0 7 0;
#X connect 29 0 24 1;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

126
puredata/radio_rounder.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_rounder.pd
View file

@ -15,7 +15,7 @@
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
@ -41,7 +41,7 @@
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
@ -90,13 +90,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 285 439 0.1;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.75;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -115,11 +118,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 51 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 49 0;
#X connect 19 1 50 0;
#X connect 19 0 48 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -135,11 +138,12 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 15 0;
#X connect 51 0 1 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 84 248 697 398 expressions 0;
#X obj 42 195 inlet;
@ -148,40 +152,41 @@
#X obj 244 242 s \$0-word;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder1 40 float 3;
#A 0 0.333333 0.409523 0.476189 0.552379 0.599998 0.599998 0.209524
0.285714 0.361904 0.419046 0.457141 0.485712 0.485712 0.104762 0.228571
0.314285 0.380951 0.447617 0.52381 0.161905 0.571429 -0.18095 -0.238093
-0.285711 -0.314283 -0.304759 -0.00952274 -0.123808 -0.238093 -0.323806
-0.380949 -0.447615 -0.533329 -0.0190467 -0.190474 -0.295235 -0.342854
-0.361902 -0.390473 -0.419044;
#A 0 0.0666656 -0.0095253 -0.028573 -0.0476208 -1.43175e-06 -0.0444462
0.133333 0.0571418 0.104761 0.104761 0.180952 0.171428 0.133333 0.15238
0.171428 -0.0190492 -0.0571446 -0.0714304 -0.0857162 0.0761895 0.161904
0.161904 0.161904 0.123809 0.15238 0.161904 0.136507 0.123809 -0.0666685
-0.0952401 -0.0380969 -0.0507954 0.0666656 0.15238 0.104761 -0.0571446
-0.0666685 -0.0761924 0.0285702 -0.0476208;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 38 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder2 50 float 3;
#A 0 -0.628567 -0.628567 -0.628567 -0.638091 -0.638091 -0.638091 -0.638091
-0.638091 -0.638091 -0.638091 -0.638091 -0.638091 -0.495234 -0.495234
-0.495234 -0.495234 -0.495234 -0.495234 -0.495234 -0.504758 -0.504758
-0.504758 -0.504758 -0.514282 -0.314283 -0.314283 -0.314283 -0.314283
-0.314283 -0.314283 -0.314283 -0.314283 -0.314283 -0.323806 -0.323806
-0.323806 -0.171427 -0.161903 -0.161903 -0.161903 -0.161903 -0.161903
-0.161903 -0.161903 -0.161903 -0.171427 -0.171427 -0.171427 -0.171427
-0.171427;
#A 0 0.180952 0.180952 0.180952 0.180952 0.180952 0.180952 0.180952
0.180952 0.180952 0.180952 0.180952 0.171428 0.171428 0.169047 0.166666
0.164285 0.161904 0.15873 0.155555 0.15238 0.149206 0.146031 0.142857
0.142857 0.142857 0.142857 0.133333 0.133333 0.123809 0.123809 0.120634
0.11746 0.114285 0.11111 0.107936 0.104761 0.104761 0.104761 0.104761
0.104761 0.104761 0.104761 0.114286 0.114286 0.114286 0.114286 0.114286
0.12381 0.133333 0.142857;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 198 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder3 30 float 3;
#A 0 0.371429 0.371429 0.0190476 -0.428571 -0.438095 0 0.390476 0.4
0.0285714 -0.438095 -0.428571 0.0190476 0.4 0.4 0.0285714 -0.447619
-0.447619 0.409524 0.409524 0.0285714 -0.457143 -0.457143 0.409524
0.409524 0.00952381 -0.428571 0.438095 0.0190476 -0.447619 0;
#A 0 0.285714 0.27619 0.0190476 -0.247621 -0.247621 -1.78814e-07 0.200001
0.209525 0.0285714 -0.438095 -0.428571 0.0190476 0.304762 0.304762
0.0285714 -0.352383 -0.371433 -0.352385 0.257144 0.0285714 0.0285714
-0.304764 -0.371431 0.304762 0.295238 -0.428571 0.314286 0.0190476
-0.447619 0;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 358 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder4 30 float 3;
#A 0 0.733333 0.885715 0.97143 1.05714 1.13334 1.12381 1.02857 0.914286
0.819048 0.761905 0.8 0.914286 1.00953 1.08572 1.16191 1.14286 1.06667
0.97143 0.904763 0.809524 0.761905 0.857143 0.933334 0.980954 1.04762
1.09524 1.0381 0.980952 0.876191 0.780953;
#A 0 0.152381 0.180952 0.247619 0.304763 0.199999 0.266666 0.380953
0.400001 0.15238 0.190476 0.247619 0.361905 0.228571 -0.0857149 -0.12381
-0.161906 -0.209525 -0.257145 -0.095239 -0.133335 -0.17143 -0.209525
-0.276193 -0.0952392 -0.0952392 -0.142859 -0.228573 -0.257145 -0.266669
0.171429;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 518 35 graph;
#X obj 161 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
@ -200,6 +205,11 @@
#X msg 94 372 0;
#X obj 67 331 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 175 172 loadbang;
#X obj 175 214 s \$0-word-max;
#X obj 81 183 r \$0-word-max;
#X floatatom 81 204 5 0 0 0 - - -;
#X msg 175 193 4;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 2 1 9 0;
@ -212,27 +222,28 @@
#X connect 14 1 15 0;
#X connect 15 0 10 0;
#X connect 16 0 14 0;
#X restore 48 226 pd expressions;
#X connect 17 0 21 0;
#X connect 19 0 20 0;
#X connect 20 0 12 1;
#X connect 21 0 18 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder 50 float 3;
#A 0 -0.628567 -0.628567 -0.628567 -0.638091 -0.638091 -0.638091 -0.638091
-0.638091 -0.638091 -0.638091 -0.638091 -0.638091 -0.495234 -0.495234
-0.495234 -0.495234 -0.495234 -0.495234 -0.495234 -0.504758 -0.504758
-0.504758 -0.504758 -0.514282 -0.314283 -0.314283 -0.314283 -0.314283
-0.314283 -0.314283 -0.314283 -0.314283 -0.314283 -0.323806 -0.323806
-0.323806 -0.171427 -0.161903 -0.161903 -0.161903 -0.161903 -0.161903
-0.161903 -0.161903 -0.161903 -0.171427 -0.171427 -0.171427 -0.171427
-0.171427;
#X coords 0 1 50 0 50 50 1 0 0;
#X array rounder 30 float 3;
#A 0 0.152381 0.180952 0.247619 0.304763 0.199999 0.266666 0.380953
0.400001 0.15238 0.190476 0.247619 0.361905 0.228571 -0.0857149 -0.12381
-0.161906 -0.209525 -0.257145 -0.095239 -0.133335 -0.17143 -0.209525
-0.276193 -0.0952392 -0.0952392 -0.142859 -0.228573 -0.257145 -0.266669
0.171429;
#X coords 0 1 30 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262130
-128992 -1 1;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262130
-128992 -1 3;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262130 -1
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262130
-1 -1 1 1;
-1 -1 0 1;
#X obj 164 21 r ROUNDER;
#X obj 48 188 r ROUNDER;
#X obj 48 218 r ROUNDER;
#X obj 167 269 s ROUNDER;
#X obj 231 452 s ROUNDER_DONE;
#X msg 249 329 rounder;
@ -249,6 +260,17 @@
#X obj 233 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 233 152 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 25 0;
#X connect 1 0 19 0;
#X connect 2 0 5 0;
@ -258,8 +280,8 @@
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 25 0;
#X connect 13 0 4 0;
#X connect 15 0 7 0;
#X connect 15 0 13 0;
#X connect 16 0 10 0;
#X connect 19 0 25 1;
#X connect 21 0 20 0;
@ -271,4 +293,8 @@
#X connect 26 0 29 0;
#X connect 28 0 26 0;
#X connect 29 0 27 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

0
puredata/radio_saturn.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_saturn.pd
View file

333
puredata/radio_suitcase.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_suitcase.pd
View file

@ -1,4 +1,4 @@
#N canvas 597 95 683 521 10;
#N canvas 0 168 683 521 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@ -22,7 +22,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
@ -90,13 +90,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 43 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.63;
#X msg 285 436 0.2;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -115,11 +118,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -135,55 +138,19 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 267 79 pd world and me;
#N canvas 202 79 809 655 expressions 0;
#N canvas 631 94 809 655 expressions 0;
#X obj 28 419 inlet;
#X obj 28 500 outlet;
#X obj 28 471 t b a;
#X obj 230 466 s \$0-word;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB2 50 float 3;
#A 0 0.580952 0.6 0.638095 0.647619 0.666666 0.67619 0.685714 0.685714
0.685714 0.685714 0.685714 0.67619 0.647619 0.619047 0.571429 0.533334
0.514286 0.514286 0.523809 0.523809 0.552381 0.561905 0.580952 0.609524
0.628572 0.647619 0.638095 0.590476 0.571428 0.6 0.619048 0.628572
0.590476 0.533333 0.495238 0.47619 0.47619 0.485714 0.504762 0.533333
0.552381 0.552381 0.533333 0.47619 0.47619 0.485714 0.533333 0.504762
0.399999 0.361904;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 189 155 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB3 60 float 3;
#A 0 0.514285 0.523809 0.533332 0.542856 0.542856 0.542856 0.6 0.619047
0.504761 0.495238 0.485714 0.47619 0.466667 0.809524 0.571429 0.638095
0.638095 0.647619 0.828571 0.657142 0.657142 0.495239 0.500001 0.809523
0.819046 0.82857 0.82857 0.838094 0.838094 0.771428 0.466667 0.457143
0.457143 0.438096 0.438096 0.428572 0.428572 0.609521 0.609521 0.676187
0.676187 0.68571 0.68571 0.68571 0.68571 0.647616 0.619045 0.599997
0.847616 0.847616 0.676194 0.66667 0.619049 0.609525 0.609525 0.609525
0.780951 0.780951 0.761903 0.75238;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 189 281 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array suitcaseB1 80 float 3;
#A 0 0.361905 0.371429 0.380952 0.390476 0.390476 0.428571 0.438095
0.438095 0.447619 0.457143 0.466667 0.466667 0.476191 0.485715 0.485715
0.485715 0.495239 0.495239 0.495239 0.495239 0.495239 0.495239 0.485715
0.485715 0.476191 0.466667 0.457143 0.447619 0.438095 0.428571 0.419048
0.409524 0.4 0.4 0.390476 0.390476 0.390476 0.390476 0.390476 0.395238
0.4 0.4 0.409524 0.409524 0.419048 0.419048 0.428571 0.438095 0.438095
0.438095 0.438095 0.447619 0.447619 0.452381 0.457143 0.466667 0.466667
0.471429 0.476191 0.476191 0.476191 0.480953 0.485715 0.485715 0.485715
0.485715 0.485715 0.485715 0.466667 0.466667 0.447619 0.438095 0.428571
0.428571 0.409524 0.409524 0.409524 0.409524 0.409524 0.409524;
#X coords 0 1 80 0 150 105 1 0 0;
#X restore 189 29 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB4 30 float 3;
#A 0 0.761905 0.790476 0.857144 0.876191 0.885715 0.885715 0.866667
0.819048 0.8 0.771429 0.752381 0.714285 0.685714 0.657142 0.62857 0.609523
@ -219,31 +186,6 @@
0.371428 0.380952 0.390475 0.390475 0.419046;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 518 281 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseA2 50 float 3;
#A 0 0.533333 0.552382 0.580953 0.619048 0.628572 0.657143 0.67619
0.685713 0.685713 0.685713 0.676189 0.657142 0.657142 0.638094 0.599999
0.571428 0.571428 0.533333 0.533333 0.533333 0.533333 0.542857 0.571428
0.619047 0.657142 0.676189 0.695237 0.704761 0.704761 0.704761 0.695237
0.685713 0.666666 0.638094 0.6 0.561905 0.533333 0.533333 0.533333
0.580952 0.590476 0.580952 0.580952 0.552381 0.495237 0.514285 0.533333
0.523809 0.438095 0.342856;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 28 155 graph;
#N canvas 84 25 1115 625 (subpatch) 0;
#X array suitcaseA1 80 float 3;
#A 0 0.371429 0.380952 0.390476 0.390476 0.4 0.409524 0.419048 0.42381
0.428572 0.438096 0.44762 0.457143 0.457143 0.466667 0.466667 0.485715
0.485715 0.495239 0.495239 0.495239 0.495239 0.495239 0.495239 0.485715
0.485715 0.476191 0.476191 0.466667 0.457143 0.457143 0.44762 0.438096
0.428572 0.419048 0.419048 0.409524 0.4 0.390476 0.390476 0.390476
0.380952 0.380952 0.380952 0.371429 0.371429 0.371429 0.371429 0.371429
0.380952 0.380952 0.380952 0.390476 0.390476 0.4 0.4 0.409524 0.414286
0.419048 0.419048 0.428572 0.428572 0.428572 0.428572 0.428572 0.428572
0.428572 0.438096 0.438096 0.438096 0.438096 0.438096 0.438096 0.438096
0.438096 0.438096 0.438096 0.447619 0.428571 0.428571 0.419047;
#X coords 0 1 80 0 150 105 1 0 0;
#X restore 28 29 graph;
#N canvas 0 23 1115 625 (subpatch) 0;
#X array suitcaseA4 30 float 3;
#A 0 0.8 0.847619 0.885715 0.904763 0.895239 0.885715 0.828572 0.809524
@ -254,28 +196,16 @@
#X restore 358 29 graph;
#N canvas 0 23 1115 625 (subpatch) 0;
#X array suitcaseA5 50 float 3;
#A 0 0.552382 0.542858 0.533334 0.52381 0.514286 0.504762 0.492064
0.479365 0.466667 0.452381 0.438095 0.434921 0.431746 0.428571 0.409524
0.409524 0.4 0.4 0.4 0.4 0.419047 0.423809 0.428571 0.438095 0.457143
0.457143 0.461905 0.466667 0.466667 0.466667 0.457143 0.447619 0.438095
0.438095 0.447619 0.457143 0.476191 0.485715 0.485715 0.485715 0.485715
0.476191 0.466667 0.466667 0.447619 0.419047 0.371428 0.323809 0.266665
0.190474;
#A 0 0.371428 0.371428 0.357142 0.361904 0.361904 0.361904 0.361904
0.365078 0.368253 0.371428 0.373809 0.37619 0.378571 0.380952 0.380952
0.380952 0.380952 0.384126 0.387301 0.390475 0.39365 0.396825 0.399999
0.399999 0.399999 0.403809 0.407618 0.411428 0.415237 0.419047 0.423809
0.428571 0.433333 0.438095 0.438095 0.438095 0.438095 0.438095 0.447619
0.447619 0.466666 0.466666 0.480952 0.485714 0.495238 0.476191 0.476191
0.447619 0.447619 0.428571;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 358 155 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseA3 60 float 3;
#A 0 0.514285 0.523809 0.533332 0.542856 0.542856 0.542856 0.6 0.619047
0.504761 0.495238 0.485714 0.466668 0.466668 0.457144 0.457144 0.457144
0.476191 0.495238 0.542857 0.55238 0.571429 0.495239 0.500001 0.647621
0.666669 0.714287 0.72381 0.742858 0.752381 0.771429 0.466667 0.457143
0.457143 0.438096 0.438096 0.428572 0.428572 0.609521 0.609521 0.676187
0.676187 0.68571 0.68571 0.68571 0.68571 0.647616 0.619045 0.600002
0.590478 0.561907 0.580954 0.600002 0.523809 0.533332 0.533332 0.523809
0.495238 0.485714 0.457143 0.44762;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 28 281 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseA6 100 float 3;
#A 0 0.552379 0.257145 0.409523 0.457141 0.476188 0.495235 0.504759
0.523806 0.523806 0.523806 0.514282 0.495235 0.476188 0.32381 0.285715
@ -318,24 +248,132 @@
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 444 484 graph;
#X obj 28 448 count 6;
#X connect 0 0 29 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB2 50 float 3;
#A 0 0.504761 0.428571 0.438095 0.485714 0.504762 0.571428 0.504761
0.42857 0.42857 0.523809 0.495238 0.47619 0.47619 0.47619 0.52381 0.571429
0.533334 0.552382 0.552382 0.561905 0.552382 0.533334 0.476191 0.476191
0.466667 0.471429 0.476191 0.476191 0.561905 0.495238 0.495238 0.495238
0.47619 0.504762 0.523809 0.547619 0.571429 0.580953 0.580953 0.561905
0.47619 0.457143 0.447619 0.447618 0.457142 0.47619 0.47619 0.447619
0.428571 0.419047;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 199 158 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB3 30 float 3;
#A 0 0.533334 0.542858 0.52381 0.52381 0.457143 0.619049 0.603176 0.587303
0.552382 0.438096 0.457143 0.52381 0.542858 0.561906 0.57143 0.561906
0.35238 0.428571 0.485714 0.52381 0.609525 0.609525 0.390476 0.414286
0.438096 0.438096 0.695238 0.695238 0.676191 0.495237;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 202 282 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseA2 80 float 3;
#A 0 0.361905 0.361905 0.361905 0.361905 0.361905 0.380952 0.380952
0.380952 0.380952 0.380952 0.387302 0.393651 0.4 0.4 0.4 0.409524 0.414286
0.419048 0.390476 0.385714 0.380952 0.380952 0.361905 0.352381 0.342857
0.342857 0.342857 0.342857 0.347619 0.352381 0.357143 0.361905 0.366667
0.371428 0.380952 0.390476 0.395238 0.4 0.4 0.4 0.390476 0.380952 0.361905
0.357143 0.342857 0.333333 0.32381 0.314286 0.309524 0.304762 0.304762
0.304762 0.304762 0.304762 0.307936 0.311111 0.314286 0.314286 0.326984
0.339683 0.352381 0.380953 0.380953 0.380953 0.380953 0.374603 0.368254
0.361905 0.371429 0.371429 0.371429 0.371429 0.371429 0.371429 0.371429
0.371429 0.361905 0.342857 0.333333 0.314286;
#X coords 0 1 80 0 150 105 1 0 0;
#X restore 42 159 graph;
#N canvas 84 25 1115 625 (subpatch) 0;
#X array suitcaseA1 200 float 3;
#A 0 0.380952 0.390476 0.4 0.419048 0.42381 0.428572 0.438096 0.457143
0.466667 0.47619 0.485714 0.47619 0.47619 0.47619 0.485715 0.485715
0.485715 0.476191 0.466667 0.44762 0.44762 0.428572 0.419048 0.409524
0.390476 0.380952 0.380952 0.361905 0.361905 0.352381 0.352381 0.352381
0.352381 0.352381 0.357143 0.361905 0.366667 0.380952 0.380952 0.4
0.428571 0.438095 0.447619 0.457143 0.466667 0.476191 0.47619 0.47619
0.47619 0.47619 0.47619 0.485714 0.476191 0.47619 0.466667 0.457143
0.447619 0.428571 0.419048 0.4 0.390476 0.371428 0.35238 0.342857 0.342857
0.342857 0.342857 0.342857 0.342857 0.35238 0.361904 0.409524 0.390476
0.409524 0.419048 0.428571 0.438095 0.447619 0.457143 0.457143 0.466667
0.466667 0.476191 0.476191 0.476191 0.476191 0.476191 0.476191 0.466667
0.466667 0.457143 0.447619 0.428571 0.419048 0.409524 0.390476 0.380952
0.361904 0.352381 0.3328 0.3312 0.3312 0.3312 0.3328 0.3392 0.3488
0.364801 0.379201 0.404801 0.427202 0.440002 0.448002 0.465602 0.480003
0.486403 0.491203 0.491203 0.4944 0.4944 0.495238 0.490476 0.495238
0.495238 0.476191 0.471429 0.466667 0.447619 0.419199 0.398399 0.380799
0.369599 0.358398 0.345598 0.339198 0.334398 0.334398 0.335998 0.340798
0.350398 0.371199 0.390399 0.419199 0.4368 0.4448 0.4544 0.4624 0.4688
0.4752 0.4784 0.4832 0.495238 0.485714 0.485714 0.47619 0.466666 0.4752
0.4624 0.4464 0.422399 0.399999 0.388799 0.369599 0.358398 0.348798
0.340798 0.332798 0.331198 0.326398 0.326398 0.326398 0.331198 0.339198
0.367998 0.391999 0.419199 0.452799 0.466667 0.485714 0.485714 0.485714
0.485714 0.485714 0.4848 0.4832 0.48 0.4752 0.4688 0.464 0.447999 0.425599
0.406399 0.380798 0.358398 0.350398 0.337598 0.335998 0.335998 0.335998
0.335998 0.3264;
#X coords 0 1 200 0 150 105 1 0 0;
#X restore 38 32 graph;
#N canvas 0 23 1115 625 (subpatch) 0;
#X array suitcaseA3 30 float 3;
#A 0 0.457143 0.476191 0.495238 0.504762 0.52381 0.542858 0.533334
0.485714 0.438095 0.428571 0.447619 0.438095 0.466667 0.52381 0.52381
0.542858 0.552382 0.552382 0.647619 0.657143 0.638095 0.638095 0.638095
0.666667 0.580953 0.585715 0.495238 0.419048 0.428572 0.333333;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 42 282 graph;
#N canvas 84 25 1115 625 (subpatch) 0;
#X array suitcaseB1 200 float 3;
#A 0 0.380952 0.390476 0.4 0.419048 0.42381 0.428572 0.438096 0.457143
0.466667 0.466667 0.476191 0.485715 0.485715 0.485715 0.485715 0.485715
0.485715 0.476191 0.466667 0.44762 0.44762 0.428572 0.419048 0.409524
0.390476 0.380952 0.380952 0.361905 0.361905 0.352381 0.352381 0.352381
0.352381 0.352381 0.357143 0.361905 0.366667 0.380952 0.380952 0.4
0.428571 0.438095 0.447619 0.457143 0.466667 0.476191 0.476191 0.485714
0.495238 0.495238 0.495238 0.485714 0.476191 0.47619 0.466667 0.457143
0.447619 0.428571 0.419048 0.4 0.390476 0.371428 0.35238 0.342857 0.342857
0.342857 0.342857 0.342857 0.342857 0.35238 0.361904 0.409524 0.390476
0.409524 0.419048 0.428571 0.438095 0.447619 0.457143 0.457143 0.466667
0.466667 0.466667 0.476191 0.476191 0.476191 0.476191 0.476191 0.466667
0.466667 0.457143 0.447619 0.428571 0.419048 0.409524 0.390476 0.380952
0.361904 0.352381 0.3328 0.3312 0.3312 0.3312 0.3328 0.3392 0.3488
0.364801 0.379201 0.404801 0.427202 0.440002 0.448002 0.465602 0.480003
0.486403 0.491203 0.491203 0.4944 0.4944 0.4944 0.4912 0.4864 0.4768
0.472 0.4656 0.4528 0.44 0.419199 0.398399 0.380799 0.369599 0.358398
0.345598 0.339198 0.334398 0.334398 0.335998 0.340798 0.350398 0.371199
0.390399 0.419199 0.4368 0.4448 0.4544 0.4624 0.4688 0.4752 0.4784
0.4832 0.4848 0.488001 0.488001 0.488001 0.4784 0.4752 0.4624 0.4464
0.422399 0.399999 0.388799 0.369599 0.358398 0.348798 0.340798 0.332798
0.331198 0.326398 0.326398 0.326398 0.331198 0.339198 0.367998 0.391999
0.419199 0.452799 0.4608 0.4688 0.4736 0.4816 0.4832 0.4848 0.4848
0.4832 0.48 0.4752 0.4688 0.464 0.447999 0.425599 0.406399 0.380798
0.358398 0.350398 0.337598 0.335998 0.335998 0.335998 0.335998 0.3264
;
#X coords 0 1 200 0 150 105 1 0 0;
#X restore 199 31 graph;
#X obj 161 396 loadbang;
#X msg 161 417 6;
#X obj 161 438 s \$0-word-max;
#X obj 67 407 r \$0-word-max;
#X floatatom 67 428 5 0 0 0 - - -;
#X connect 0 0 23 0;
#X connect 2 0 1 0;
#X connect 2 1 23 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 2 1 17 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 10 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 17 0 11 0;
#X connect 17 1 14 0;
#X connect 18 0 1 0;
#X connect 18 1 19 0;
#X connect 19 0 13 0;
#X connect 19 0 16 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 23 0 17 0;
#X connect 23 1 20 0;
#X connect 24 0 1 0;
#X connect 24 1 25 0;
#X connect 25 0 19 0;
#X connect 25 0 22 0;
#X connect 26 0 24 0;
#X connect 29 0 2 0;
#X connect 29 0 3 0;
#X restore 48 226 pd expressions;
#X connect 20 0 18 0;
#X connect 23 0 2 0;
#X connect 23 0 3 0;
#X connect 30 0 31 0;
#X connect 31 0 32 0;
#X connect 33 0 34 0;
#X connect 34 0 23 1;
#X restore 48 256 pd expressions;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 350 473 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
@ -349,7 +387,7 @@
0.342854 0.333331 0.323807 0.304759 0.295235 0.285711;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 26 46 graph;
#X obj 10 138 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -204786
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -204786
-13381 -1 3;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -1
-1;
@ -360,11 +398,11 @@
0.590475 0.580951 0.561903 0.542856 0.523808 0.50476 0.485712 0.466665
0.438093 0.428569 0.409521 0.390474 0.371426 0.352378;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 26 96 graph;
#X restore 26 86 graph;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
-1 -1 0 1;
#X obj 114 21 r SUITCASE;
#X obj 48 188 r SUITCASE;
#X obj 48 218 r SUITCASE;
#X obj 267 122 s SUITCASE;
#X obj 231 451 s SUITCASE_DONE;
#X msg 249 329 suitcaseA;
@ -374,8 +412,6 @@
#X obj 418 429 s NOTE;
#X obj 418 406 spigot;
#X msg 579 329 suitcaseB;
#X obj 88 306 riff1 1000 3011 500;
#X obj 418 306 riff1 1000 3012 500;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 599 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
@ -399,7 +435,20 @@
#X obj 369 165 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 369 208 * 0.5;
#X connect 0 0 31 0;
#X obj 88 306 riff1 1000 3011 500;
#X obj 418 306 riff1 1000 3012 500;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 6 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 49 0;
#X connect 1 0 24 0;
#X connect 2 0 5 0;
#X connect 2 0 23 0;
@ -407,36 +456,40 @@
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 31 0;
#X connect 10 0 32 0;
#X connect 10 0 49 0;
#X connect 10 0 50 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 13 0 29 1;
#X connect 14 0 13 0;
#X connect 17 0 4 0;
#X connect 20 0 7 0;
#X connect 20 0 17 0;
#X connect 21 0 10 0;
#X connect 24 0 31 1;
#X connect 25 0 32 0;
#X connect 24 0 49 1;
#X connect 25 0 50 0;
#X connect 26 0 30 0;
#X connect 29 0 28 0;
#X connect 30 0 32 1;
#X connect 31 0 12 0;
#X connect 31 3 2 0;
#X connect 32 0 29 0;
#X connect 33 0 24 0;
#X connect 34 0 30 0;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 39 0;
#X connect 37 2 38 0;
#X connect 38 0 45 0;
#X connect 30 0 50 1;
#X connect 31 0 24 0;
#X connect 32 0 30 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 37 0;
#X connect 35 2 36 0;
#X connect 36 0 43 0;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 39 2 40 0;
#X connect 40 0 44 0;
#X connect 41 0 43 0;
#X connect 41 2 42 0;
#X connect 42 0 46 0;
#X connect 44 0 41 0;
#X connect 47 0 50 0;
#X connect 49 0 47 0;
#X connect 50 0 48 0;
#X connect 42 0 39 0;
#X connect 45 0 48 0;
#X connect 47 0 45 0;
#X connect 48 0 46 0;
#X connect 49 0 12 0;
#X connect 49 3 2 0;
#X connect 50 0 29 0;
#X connect 53 0 55 0;
#X connect 55 0 54 0;
#X connect 57 0 59 0;
#X connect 58 0 57 0;
#X coords 0 -1 1 1 100 150 2 5 5;

395
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_suitcase_01.pd Normal file
View file

@ -0,0 +1,395 @@
#N canvas 671 253 683 521 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 267 102 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X msg 114 44 1;
#X obj 114 67 v \$0-STATE;
#N canvas 701 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 43 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.63;
#X msg 285 436 0.2;
#X connect 0 0 48 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X restore 267 79 pd world and me;
#N canvas 0 78 809 655 expressions 1;
#X obj 28 419 inlet;
#X obj 28 500 outlet;
#X obj 28 471 t b a;
#X obj 230 466 s \$0-word;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB2 50 float 3;
#A 0 0.504761 0.428571 0.438095 0.485714 0.504762 0.571428 0.504761
0.42857 0.42857 0.523809 0.495238 0.47619 0.47619 0.47619 0.52381 0.571429
0.533334 0.552382 0.552382 0.561905 0.552382 0.533334 0.476191 0.476191
0.466667 0.471429 0.476191 0.476191 0.561905 0.495238 0.495238 0.495238
0.47619 0.504762 0.523809 0.547619 0.571429 0.580953 0.580953 0.561905
0.47619 0.457143 0.447619 0.447618 0.457142 0.47619 0.47619 0.447619
0.428571 0.419047;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 189 155 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB3 30 float 3;
#A 0 0.533334 0.542858 0.52381 0.52381 0.457143 0.619049 0.603176 0.587303
0.552382 0.438096 0.457143 0.52381 0.542858 0.561906 0.57143 0.561906
0.35238 0.428571 0.485714 0.52381 0.609525 0.609525 0.390476 0.414286
0.438096 0.438096 0.695238 0.695238 0.676191 0.495237;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 518 29 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseA2 80 float 3;
#A 0 0.361905 0.361905 0.361905 0.361905 0.361905 0.380952 0.380952
0.380952 0.380952 0.380952 0.387302 0.393651 0.4 0.4 0.4 0.409524 0.414286
0.419048 0.390476 0.385714 0.380952 0.380952 0.361905 0.352381 0.342857
0.342857 0.342857 0.342857 0.347619 0.352381 0.357143 0.361905 0.366667
0.371428 0.380952 0.390476 0.395238 0.4 0.4 0.4 0.390476 0.380952 0.361905
0.357143 0.342857 0.333333 0.32381 0.314286 0.309524 0.304762 0.304762
0.304762 0.304762 0.304762 0.307936 0.311111 0.314286 0.314286 0.326984
0.339683 0.352381 0.380953 0.380953 0.380953 0.380953 0.374603 0.368254
0.361905 0.371429 0.371429 0.371429 0.371429 0.371429 0.371429 0.371429
0.371429 0.361905 0.342857 0.333333 0.314286;
#X coords 0 1 80 0 150 105 1 0 0;
#X restore 28 155 graph;
#N canvas 84 25 1115 625 (subpatch) 0;
#X array suitcaseA1 200 float 3;
#A 0 0.380952 0.390476 0.4 0.419048 0.42381 0.428572 0.438096 0.457143
0.466667 0.47619 0.485714 0.47619 0.47619 0.47619 0.485715 0.485715
0.485715 0.476191 0.466667 0.44762 0.44762 0.428572 0.419048 0.409524
0.390476 0.380952 0.380952 0.361905 0.361905 0.352381 0.352381 0.352381
0.352381 0.352381 0.357143 0.361905 0.366667 0.380952 0.380952 0.4
0.428571 0.438095 0.447619 0.457143 0.466667 0.476191 0.47619 0.47619
0.47619 0.47619 0.47619 0.485714 0.476191 0.47619 0.466667 0.457143
0.447619 0.428571 0.419048 0.4 0.390476 0.371428 0.35238 0.342857 0.342857
0.342857 0.342857 0.342857 0.342857 0.35238 0.361904 0.409524 0.390476
0.409524 0.419048 0.428571 0.438095 0.447619 0.457143 0.457143 0.466667
0.466667 0.476191 0.476191 0.476191 0.476191 0.476191 0.476191 0.466667
0.466667 0.457143 0.447619 0.428571 0.419048 0.409524 0.390476 0.380952
0.361904 0.352381 0.3328 0.3312 0.3312 0.3312 0.3328 0.3392 0.3488
0.364801 0.379201 0.404801 0.427202 0.440002 0.448002 0.465602 0.480003
0.486403 0.491203 0.491203 0.4944 0.4944 0.495238 0.490476 0.495238
0.495238 0.476191 0.471429 0.466667 0.447619 0.419199 0.398399 0.380799
0.369599 0.358398 0.345598 0.339198 0.334398 0.334398 0.335998 0.340798
0.350398 0.371199 0.390399 0.419199 0.4368 0.4448 0.4544 0.4624 0.4688
0.4752 0.4784 0.4832 0.495238 0.485714 0.485714 0.47619 0.466666 0.4752
0.4624 0.4464 0.422399 0.399999 0.388799 0.369599 0.358398 0.348798
0.340798 0.332798 0.331198 0.326398 0.326398 0.326398 0.331198 0.339198
0.367998 0.391999 0.419199 0.452799 0.466667 0.485714 0.485714 0.485714
0.485714 0.485714 0.4848 0.4832 0.48 0.4752 0.4688 0.464 0.447999 0.425599
0.406399 0.380798 0.358398 0.350398 0.337598 0.335998 0.335998 0.335998
0.335998 0.3264;
#X coords 0 1 200 0 150 105 1 0 0;
#X restore 28 29 graph;
#N canvas 0 23 1115 625 (subpatch) 0;
#X array suitcaseA3 30 float 3;
#A 0 0.457143 0.476191 0.495238 0.504762 0.52381 0.542858 0.533334
0.485714 0.438095 0.428571 0.447619 0.438095 0.466667 0.52381 0.52381
0.542858 0.552382 0.552382 0.647619 0.657143 0.638095 0.638095 0.638095
0.666667 0.580953 0.585715 0.495238 0.419048 0.428572 0.333333;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 358 29 graph;
#X obj 138 600 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 138 532 + 1;
#X floatatom 138 555 5 0 0 0 - - -;
#X obj 138 577 array_copier suitcaseA;
#X obj 277 507 + 1;
#X floatatom 277 530 5 0 0 0 - - -;
#X obj 277 552 array_copier suitcaseB;
#X obj 138 489 t a a;
#X obj 49 568 t b b;
#X msg 76 589 0;
#X obj 49 548 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB0 10 float 3;
#A 0 0.371429 0.342857 0.352381 0.361905 0.390476 0.4 0.428572 0.438096
0.485714 0.514286;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 605 484 graph;
#N canvas 0 23 1115 625 (subpatch) 0;
#X array suitcaseA0 10 float 3;
#A 0 0.42857 0.42857 0.447618 0.457142 0.495237 0.533332 0.609523 0.619047
0.638095 0.980952;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 444 484 graph;
#N canvas 84 25 1115 625 (subpatch) 0;
#X array suitcaseB1 200 float 3;
#A 0 0.380952 0.390476 0.4 0.419048 0.42381 0.428572 0.438096 0.457143
0.466667 0.466667 0.476191 0.485715 0.485715 0.485715 0.485715 0.485715
0.485715 0.476191 0.466667 0.44762 0.44762 0.428572 0.419048 0.409524
0.390476 0.380952 0.380952 0.361905 0.361905 0.352381 0.352381 0.352381
0.352381 0.352381 0.357143 0.361905 0.366667 0.380952 0.380952 0.4
0.428571 0.438095 0.447619 0.457143 0.466667 0.476191 0.476191 0.485714
0.495238 0.495238 0.495238 0.485714 0.476191 0.47619 0.466667 0.457143
0.447619 0.428571 0.419048 0.4 0.390476 0.371428 0.35238 0.342857 0.342857
0.342857 0.342857 0.342857 0.342857 0.35238 0.361904 0.409524 0.390476
0.409524 0.419048 0.428571 0.438095 0.447619 0.457143 0.457143 0.466667
0.466667 0.466667 0.476191 0.476191 0.476191 0.476191 0.476191 0.466667
0.466667 0.457143 0.447619 0.428571 0.419048 0.409524 0.390476 0.380952
0.361904 0.352381 0.3328 0.3312 0.3312 0.3312 0.3328 0.3392 0.3488
0.364801 0.379201 0.404801 0.427202 0.440002 0.448002 0.465602 0.480003
0.486403 0.491203 0.491203 0.4944 0.4944 0.4944 0.4912 0.4864 0.4768
0.472 0.4656 0.4528 0.44 0.419199 0.398399 0.380799 0.369599 0.358398
0.345598 0.339198 0.334398 0.334398 0.335998 0.340798 0.350398 0.371199
0.390399 0.419199 0.4368 0.4448 0.4544 0.4624 0.4688 0.4752 0.4784
0.4832 0.4848 0.488001 0.488001 0.488001 0.4784 0.4752 0.4624 0.4464
0.422399 0.399999 0.388799 0.369599 0.358398 0.348798 0.340798 0.332798
0.331198 0.326398 0.326398 0.326398 0.331198 0.339198 0.367998 0.391999
0.419199 0.452799 0.4608 0.4688 0.4736 0.4816 0.4832 0.4848 0.4848
0.4832 0.48 0.4752 0.4688 0.464 0.447999 0.425599 0.406399 0.380798
0.358398 0.350398 0.337598 0.335998 0.335998 0.335998 0.335998 0.3264
;
#X coords 0 1 200 0 150 105 1 0 0;
#X restore 189 28 graph;
#X obj 28 448 count 3;
#X connect 0 0 23 0;
#X connect 2 0 1 0;
#X connect 2 1 16 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 9 0;
#X connect 13 0 14 0;
#X connect 14 0 15 0;
#X connect 16 0 10 0;
#X connect 16 1 13 0;
#X connect 17 0 1 0;
#X connect 17 1 18 0;
#X connect 18 0 12 0;
#X connect 18 0 15 0;
#X connect 19 0 17 0;
#X connect 23 0 2 0;
#X connect 23 0 3 0;
#X restore 48 226 pd expressions;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 350 473 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 350 450 loadbang;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseA 30 float 3;
#A 0 0.457143 0.476191 0.495238 0.504762 0.52381 0.542858 0.533334
0.485714 0.438095 0.428571 0.447619 0.438095 0.466667 0.52381 0.52381
0.542858 0.552382 0.552382 0.647619 0.657143 0.67619 0.647619 0.638095
0.666667 0.580953 0.585715 0.590477 0.419048 0.428572 0.333333;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 26 46 graph;
#X obj 10 138 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -204786
-13381 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -1
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB 30 float 3;
#A 0 0.533334 0.542858 0.52381 0.52381 0.457143 0.619049 0.603176 0.587303
0.552382 0.438096 0.457143 0.52381 0.542858 0.561906 0.57143 0.561906
0.35238 0.428571 0.485714 0.52381 0.609525 0.609525 0.390476 0.414286
0.438096 0.438096 0.695238 0.695238 0.676191 0.495237;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 26 96 graph;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
-1 -1 0 1;
#X obj 114 21 r SUITCASE;
#X obj 48 188 r SUITCASE;
#X obj 267 122 s SUITCASE;
#X obj 231 451 s SUITCASE_DONE;
#X msg 249 329 suitcaseA;
#X msg 367 337 0;
#X obj 579 306 loadbang;
#X text 365 318 stop!;
#X obj 418 429 s NOTE;
#X obj 418 406 spigot;
#X msg 579 329 suitcaseB;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 599 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 457 36 r HELLO;
#X obj 457 59 route 3011;
#X obj 457 82 unpack f f f f;
#X floatatom 511 105 5 0 0 0 - - -;
#X floatatom 457 105 5 0 0 0 - - -;
#X obj 567 36 r HELLO;
#X obj 567 82 unpack f f f f;
#X floatatom 621 105 5 0 0 0 - - -;
#X floatatom 567 105 5 0 0 0 - - -;
#X obj 567 59 route 3012;
#X obj 531 127 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 641 127 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 369 185 v \$0-STRESS;
#X obj 369 231 v \$0-STRESS;
#X obj 369 165 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 369 208 * 0.5;
#X obj 88 306 riff1 1000 3011 500;
#X obj 418 306 riff1 1000 3012 500;
#X connect 0 0 49 0;
#X connect 1 0 24 0;
#X connect 2 0 5 0;
#X connect 2 0 23 0;
#X connect 4 0 22 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 49 0;
#X connect 10 0 50 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 13 0 29 1;
#X connect 14 0 13 0;
#X connect 20 0 7 0;
#X connect 20 0 17 0;
#X connect 21 0 10 0;
#X connect 24 0 49 1;
#X connect 25 0 50 0;
#X connect 26 0 30 0;
#X connect 29 0 28 0;
#X connect 30 0 50 1;
#X connect 31 0 24 0;
#X connect 32 0 30 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 37 0;
#X connect 35 2 36 0;
#X connect 36 0 43 0;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 39 2 40 0;
#X connect 40 0 44 0;
#X connect 42 0 39 0;
#X connect 45 0 48 0;
#X connect 47 0 45 0;
#X connect 48 0 46 0;
#X connect 49 0 12 0;
#X connect 49 3 2 0;
#X connect 50 0 29 0;
#X coords 0 -1 1 1 100 150 2 5 5;

116
puredata/radio_tanker_head.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_tanker_head.pd
View file

@ -10,7 +10,7 @@
#X obj 251 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 747 95 533 644 world 1;
#N canvas 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
@ -22,7 +22,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
@ -90,13 +90,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.5;
#X msg 285 439 0.55;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -115,11 +118,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -135,11 +138,12 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 588 137 683 529 expressions 0;
#X obj 22 210 inlet;
@ -171,19 +175,23 @@
#X obj 161 325 array_copier tankerH;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH1 40 float 3;
#A 0 0.590476 0.609524 0.628571 0.628571 0.628571 0.628571 0.590476
0.542857 0.52381 0.485715 0.466667 0.476191 0.476191 0.495239 0.514286
0.533334 0.542857 0.552381 0.552381 0.552381 0.561905 0.47619 -0.590472
-0.599996 -0.590472 -0.571424 -0.552377 -0.542853 -0.533329 -0.533329
-0.542853 -0.552377 -0.561901 -0.599996 -0.599996 -0.599996 -0.599996
-0.590472 -0.571424 -0.552377;
#A 0 0.990475 0.971428 0.971428 0.961904 0.961904 0.961904 0.961904
0.961904 0.961904 0.961904 0.961904 0.961904 0.961904 0.961904 0.961904
0.961904 0.961904 0.961904 0.961904 0.961904 0.961904 0.959523 0.957142
0.954761 0.95238 0.95238 0.95238 0.942856 0.933333 0.919047 0.904761
0.895238 0.885714 0.866666 0.847619 0.838095 0.828571 0.828571 0.833333
0.838095;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 21 28 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH2 15 float 3;
#A 0 1.11428 1.2 1.24762 1.27619 1.27619 1.19047 1.04761 0.904758 0.828568
0.742854 0.609522 0.542856 0.485713 0.438094 0.361905;
#X coords 0 1 15 0 150 105 1 0 0;
#X array tankerH2 40 float 3;
#A 0 -0.53333 -0.704757 -0.580949 -0.514282 -0.571425 -0.514282 -0.438092
-0.676186 -0.590472 -0.580949 -0.704757 -0.599996 -0.657139 -0.571425
-0.552377 -0.238094 -0.123809 -0.314284 -0.504759 1.78814e-07 -0.0952373
0.0380952 0.0952377 0.314284 0.357141 0.399998 0.142856 0.180951 0.161904
0.233332 0.30476 0.333331 0.40476 0.314284 0.390474 0.466664 0.409521
0.352379 0.30476 0.247618;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 181 28 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH4 20 float 3;
@ -210,6 +218,11 @@
#X msg 103 389 0;
#X obj 76 348 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 161 187 loadbang;
#X obj 161 229 s \$0-word-max;
#X obj 67 198 r \$0-word-max;
#X floatatom 67 219 5 0 0 0 - - -;
#X msg 161 208 4;
#X connect 0 0 14 0;
#X connect 2 0 1 0;
#X connect 2 1 7 0;
@ -222,15 +235,23 @@
#X connect 16 1 17 0;
#X connect 17 0 9 0;
#X connect 18 0 16 0;
#X restore 48 226 pd expressions;
#X connect 19 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 14 1;
#X connect 23 0 20 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH 10 float 3;
#A 0 0.933333 0.961905 0.980954 0.84762 0.771429 0.438095 0.571429
0.704758 0.371439 0.0761905;
#X coords 0 1 10 0 50 50 1 0 0;
#X array tankerH 40 float 3;
#A 0 0.990475 0.971428 0.971428 0.961904 0.961904 0.961904 0.961904
0.961904 0.961904 0.961904 0.961904 0.961904 0.961904 0.961904 0.961904
0.961904 0.961904 0.961904 0.961904 0.961904 0.961904 0.959523 0.957142
0.954761 0.95238 0.95238 0.95238 0.942856 0.933333 0.919047 0.904761
0.895238 0.885714 0.866666 0.847619 0.838095 0.828571 0.828571 0.833333
0.838095;
#X coords 0 1 40 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -204786
-159808 -1 1;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -204786
-159808 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -159808
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
@ -241,19 +262,30 @@
;
#X obj 7 397 loadbang;
#X obj 164 21 r TANKER_H;
#X obj 48 187 r TANKER_H;
#X obj 48 217 r TANKER_H;
#X obj 167 279 s TANKER_H;
#X obj 231 452 s TANKER_H_DONE;
#X msg 249 329 tankerH;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 88 305 riff1 500 4001 800;
#X obj 265 104 v \$0-STRESS;
#X obj 265 150 v \$0-STRESS;
#X obj 265 84 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 265 127 * 0.5;
#X connect 0 0 25 0;
#X obj 88 305 riff1 300 4001 800;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 29 0;
#X connect 1 0 23 0;
#X connect 2 0 5 0;
#X connect 2 0 22 0;
@ -261,18 +293,22 @@
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 25 0;
#X connect 10 0 29 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 7 0;
#X connect 19 0 13 0;
#X connect 20 0 10 0;
#X connect 23 0 25 1;
#X connect 23 0 29 1;
#X connect 24 0 23 0;
#X connect 25 0 16 0;
#X connect 25 3 2 0;
#X connect 26 0 29 0;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 27 0;
#X connect 29 0 16 0;
#X connect 29 3 2 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

132
puredata/radio_tanker_side.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_tanker_side.pd
View file

@ -1,4 +1,4 @@
#N canvas 587 95 462 511 10;
#N canvas 915 43 462 511 10;
#X msg 37 337 0;
#X obj 300 306 loadbang;
#X obj 288 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
@ -90,13 +90,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 43 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.56;
#X msg 285 438 0.35;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -115,11 +118,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -135,13 +138,14 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 548 302 673 530 expressions 0;
#N canvas 174 194 673 530 expressions 0;
#X obj 22 180 inlet;
#X obj 22 261 outlet;
#X obj 22 232 t b a;
@ -152,34 +156,37 @@
#X floatatom 161 273 5 0 0 0 - - -;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerS3 25 float 3;
#A 0 1.30476 0.0857143 1.31428 1.31428 1.31428 0.00952381 1.30476 1.31428
1.31428 1.31428 1.31428 0.12381 1.31428 1.31428 1.31428 0.00952381
1.30476 0.0857143 1.30476 0.0952381 1.30476 1.30476 0.171429 1.30476
1.30476;
#A 0 0.238095 0.228571 0.219048 0.247619 0.257143 0.257143 0.247619
0.238095 0.228571 0.219048 0.209524 0.209524 0.209524 0.209524 0.209524
0.209524 0.209524 0.209524 0.209524 0.209524 0.209524 0.209524 0.209524
0.209524 0.209524;
#X coords 0 1 25 0 150 105 1 0 0;
#X restore 333 38 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array tankerS2 16 float 3;
#A 0 0.819047 0.771428 0.752381 2.74181e-06 0.00952315 0.00952315 0.638096
0.666667 0.8 0.942857 0.161907 0.019051 0.866666 0.428573 0.342856
0.257142;
#X coords 0 1 16 0 150 105 1 0 0;
#X array tankerS2 30 float 3;
#A 0 0.0476188 2.98023e-07 0.0761901 0.00952381 0.0857138 0.00952381
0.104761 0.0190476 0.142856 0.0190476 0.219046 0.0190476 0.238094 0.0190476
0.30476 0.0190476 0.295236 0.0190476 0.247618 0.0190476 0.190475 0.0285714
0.171428 0.0190476 0.133333 0.00952381 0.0857138 0.0190476 0.0476188
0.0190476;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 173 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerS1 20 float 3;
#A 0 0.87619 0.885714 0.885714 0.895238 0.857143 0.8 0.72381 0.64762
0.57143 0.552383 0.600001 0.64762 0.733334 0.838095 0.971428 1.12381
1.21905 1.23809 1.23809 1.22857;
#A 0 0.0952384 0.00952381 0.0857146 0.00952411 3.57628e-07 0.0952384
0.0190476 0.152382 0.104762 0.0190476 -0.00952268 -0.00952268 0.00952381
0.0761905 0.190477 0.0190476 0.114286 0.00952494 0.0190476 0.190477
;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 13 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerS4 40 float 3;
#A 0 0.0190476 0.0190476 0.104762 0.190479 0.266669 0.342859 0.466668
0.952379 0.0190476 3.57628e-07 3.57628e-07 3.57628e-07 0.142857 0.238095
0.342857 0.457144 0.542858 0.647619 0.990474 3.57628e-07 3.57628e-07
3.57628e-07 0.00952411 0.00952411 0.133333 0.219048 0.352383 0.466668
0.657143 0.999999 0.0380952 0.0380952 0.0285741 0.0285716 0.19048 0.295238
0.438096 0.580952 0.666667 0.990476;
#A 0 0.142857 0.133333 0.133333 0.133333 0.133333 0.123809 0.114286
0.114286 0.114286 0.114286 0.114286 0.114286 0.114286 0.114286 0.114286
0.123809 0.114286 0.104762 0.104762 0.104762 0.104762 0.104762 0.104762
0.104762 0.104762 0.104762 0.104762 0.104762 0.104762 0.104762 0.104762
0.104762 0.104762 0.104762 0.104762 0.104762 0.104762 0.104762 0.104762
0.104762;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 493 38 graph;
#X obj 161 295 array_copier tankerS;
@ -194,6 +201,11 @@
#X msg 103 389 0;
#X obj 76 348 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 155 157 loadbang;
#X obj 155 199 s \$0-word-max;
#X obj 61 168 r \$0-word-max;
#X floatatom 61 189 5 0 0 0 - - -;
#X msg 155 178 4;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
@ -206,17 +218,22 @@
#X connect 14 1 15 0;
#X connect 15 0 11 0;
#X connect 16 0 14 0;
#X restore 48 226 pd expressions;
#X connect 17 0 21 0;
#X connect 19 0 20 0;
#X connect 20 0 12 1;
#X connect 21 0 18 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerS 25 float 3;
#A 0 1.30476 0.0857143 1.31428 1.31428 1.31428 0.00952381 1.30476 1.31428
1.31428 1.31428 1.31428 0.12381 1.31428 1.31428 1.31428 0.00952381
1.30476 0.0857143 1.30476 0.0952381 1.30476 1.30476 0.171429 1.30476
1.30476;
#X coords 0 1 25 0 50 50 1 0 0;
#X array tankerS 30 float 3;
#A 0 0.0476188 2.98023e-07 0.0761901 0.00952381 0.0857138 0.00952381
0.104761 0.0190476 0.142856 0.0190476 0.219046 0.0190476 0.238094 0.0190476
0.30476 0.0190476 0.295236 0.0190476 0.247618 0.0190476 0.190475 0.0285714
0.171428 0.0190476 0.133333 0.00952381 0.0857138 0.0190476 0.0476188
0.0190476;
#X coords 0 1 30 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -204786
-159808 -1 2;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -204786
-159808 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -159808
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
@ -229,17 +246,28 @@
#X obj 320 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 164 21 r TANKER_S;
#X obj 48 187 r TANKER_S;
#X obj 48 217 r TANKER_S;
#X obj 167 269 s TANKER_S;
#X msg 300 329 tankerS;
#X obj 288 452 s TANKER_S_DONE;
#X obj 85 306 riff1_random 20 1041 500 700;
#X obj 317 129 v \$0-STRESS;
#X obj 317 175 v \$0-STRESS;
#X obj 317 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 317 152 * 0.5;
#X connect 0 0 25 0;
#X obj 85 306 riff1_random 10 1041 500 700;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 29 0;
#X connect 1 0 23 0;
#X connect 2 0 5 0;
#X connect 2 0 24 0;
@ -247,18 +275,22 @@
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 25 0;
#X connect 10 0 29 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 23 0;
#X connect 20 0 7 0;
#X connect 20 0 13 0;
#X connect 21 0 10 0;
#X connect 23 0 25 1;
#X connect 25 0 16 0;
#X connect 25 3 2 0;
#X connect 26 0 29 0;
#X connect 23 0 29 1;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 27 0;
#X connect 29 0 16 0;
#X connect 29 3 2 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

155
puredata/radio_tissue.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_tissue.pd
View file

@ -1,4 +1,4 @@
#N canvas 310 95 737 597 10;
#N canvas 703 23 737 597 10;
#X msg 37 337 0;
#X obj 299 306 loadbang;
#X text 35 318 stop!;
@ -18,7 +18,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
@ -86,13 +86,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.57;
#X msg 285 439 0.2;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -111,11 +114,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 51 0;
#X connect 19 1 49 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -131,13 +134,14 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 15 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 267 79 pd world and me;
#N canvas 510 168 691 645 expressions 0;
#N canvas 159 139 691 645 expressions 0;
#X obj 28 419 inlet;
#X obj 28 500 outlet;
#X obj 28 471 t b a;
@ -153,10 +157,10 @@
#X obj 277 552 array_copier tissueB;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA1 30 float 3;
#A 0 1.0476 1.23808 1.90475 3.04762 5.2381 0 1.23808 1.61903 2.76189
5.42858 0.0952377 1.90475 3.14285 4.7619 0.0952377 1.42856 2.38095
4.38095 0.190476 0.190476 1.23808 1.5238 2.09523 2.66666 4.28571 0
0.857131 1.42856 1.99999 4.47619;
#A 0 0.190475 0.285714 1.90475 3.04762 5.2381 0 0.0952377 1.61903 2.76189
5.42858 0.0952387 0.0952387 3.14285 4.7619 0.0952377 1.42856 2.38095
4.38095 0.190476 0.190476 1.23808 1.5238 2.09523 2.66666 4.28571 0.190475
0.0952358 1.42856 1.99999 4.47619;
#X coords 0 10 30 0 150 105 1 0 0;
#X restore 26 41 graph;
#N canvas 1 89 450 278 (subpatch) 0;
@ -197,27 +201,27 @@
#X restore 506 181 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA2 45 float 3;
#A 0 8.38095 0.857142 0.857142 0.857142 6.57143 0.857142 0.857142 0.857142
9.14286 0.857142 0.857142 0.857142 8.66667 0.857142 0.761904 0.761904
7.33333 0.761904 0.761904 0.761904 0.761904 0.761904 0.761904 0.666665
#A 0 7.52381 0.857142 0.857142 0.857142 6.57143 0.857142 0.857142 0.952381
5.90476 0.857142 0.857142 0.857142 6.66667 0.857142 0.761904 0.761904
7.33333 0.761904 0.761904 0.761904 0.761904 5.71429 0.761904 0.666665
0.666665 7.04762 0.571426 0.571426 0.666665 0.666665 5.61905 0.571426
0.571426 7.90476 0.761904 8.66667 0.761904 0.761904 0.761904 6.95238
0.571426 7.90476 0.761904 6.66667 0.761904 0.761904 0.761904 6.95238
0.761904 0.666665 0.666665 6.09525 0.761905;
#X coords 0 10 45 0 150 105 1 0 0;
#X restore 186 41 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA3 30 float 3;
#A 0 6.66666 6.66666 5.71428 4.57141 3.8095 1.99997 3.90474 5.33332
4.66665 3.71426 2.38095 0.190476 0.0952377 4.2857 3.71426 2.19048 0.0952377
4.19046 2.95235 1.71429 4.2857 3.42855 2.09521 1.3333 -4.57764e-05
3.90474 3.42855 2.28568 1.23806 0.28567;
#A 0 1.61905 2.19048 2.95239 2.09524 2.66667 2.4762 2.76191 1.52381
1.42857 0.857138 1.04762 1.61905 1.80952 4.38097 1.23809 2.85715 2.09524
4 2.09524 1.42857 1.14285 1.14285 2.76191 3.90478 2 1.42857 3.61906
2.57143 1.04762 1.23809;
#X coords 0 10 30 0 150 105 1 0 0;
#X restore 346 41 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA4 20 float 3;
#A 0 6.85715 7.33334 7.52382 7.71429 5.04761 5.14285 5.61904 6.38095
6.95238 2.19045 4.66666 5.04761 5.23809 1.99997 3.33331 3.80953 3.52381
3.2381 3.90475 4.85713;
#A 0 2.19048 5.33332 4.19046 0.0952377 0.0952377 5.14285 6.09524 1.04762
4.09523 2.19045 4.66666 0.380951 0.380951 1.99997 3.33331 3.80953 0.285714
0.285714 3.90475 4.85713;
#X coords 0 10 20 0 150 105 1 0 0;
#X restore 506 41 graph;
#N canvas 1 89 450 278 (subpatch) 0;
@ -229,7 +233,7 @@
-0.39048 -0.400004 -0.400004 -0.380956 -0.361908 -0.333337 -0.257146
-0.190479 -0.0857162 0.0285702 0.0761895 0.123809 0.133333 0.104761
0.0476179 -0.0380969 -0.123812 -0.209527 -0.323813 -0.361908 -0.39048
-0.400004 ;
-0.400004;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 186 181 graph;
#N canvas 84 25 450 278 (subpatch) 0;
@ -243,6 +247,11 @@
#X obj 48 541 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 28 448 count 4;
#X obj 161 396 loadbang;
#X obj 161 438 s \$0-word-max;
#X obj 67 407 r \$0-word-max;
#X floatatom 67 428 5 0 0 0 - - -;
#X msg 161 417 4;
#X connect 0 0 24 0;
#X connect 2 0 1 0;
#X connect 2 1 9 0;
@ -259,36 +268,40 @@
#X connect 23 0 21 0;
#X connect 24 0 2 0;
#X connect 24 0 3 0;
#X restore 48 226 pd expressions;
#X connect 25 0 29 0;
#X connect 27 0 28 0;
#X connect 28 0 24 1;
#X connect 29 0 26 0;
#X restore 48 256 pd expressions;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 365 513 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 365 490 loadbang;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA 30 float 3;
#A 0 1.0476 1.23808 1.90475 3.04762 5.2381 0 1.23808 1.61903 2.76189
5.42858 0.0952377 1.90475 3.14285 4.7619 0.0952377 1.42856 2.38095
4.38095 0.190476 0.190476 1.23808 1.5238 2.09523 2.66666 4.28571 0
0.857131 1.42856 1.99999 4.47619;
#X coords 0 10 30 0 25 25 1 0 0;
#X array tissueA 20 float 3;
#A 0 2.19048 5.33332 4.19046 0.0952377 0.0952377 5.14285 6.09524 1.04762
4.09523 2.19045 4.66666 0.380951 0.380951 1.99997 3.33331 3.80953 0.285714
0.285714 3.90475 4.85713;
#X coords 0 10 20 0 25 25 1 0 0;
#X restore 34 46 graph;
#X obj 25 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -191407
-159808 -1 0;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -191407
-159808 -1 3;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -191407 -159808
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueB 50 float 3;
#A 0 -0.48571 -0.504758 -0.504758 -0.495234 -0.495234 -0.466663 -0.428568
-0.40952 -0.399996 -0.390473 -0.390473 -0.380949 -0.380949 -0.390473
-0.419044 -0.447615 -0.457139 -0.476186 -0.504758 -0.504758 -0.48571
-0.504758 -0.504758 -0.495234 -0.495234 -0.466663 -0.428568 -0.40952
-0.399996 -0.390473 -0.390473 -0.380949 -0.380949 -0.390473 -0.419044
-0.447615 -0.457139 -0.476186 -0.504758 -0.504758 -0.48571 -0.504758
-0.504758 -0.495234 -0.495234 -0.466663 -0.428568 -0.40952 -0.399996
-0.390473;
#X coords 0 1 50 0 25 25 1 0 0;
#X restore 34 96 graph;
#X array tissueB 60 float 3;
#A 0 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425;
#X coords 0 1 60 0 25 25 1 0 0;
#X restore 34 88 graph;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -191407
-159808 -1 0 1;
#X msg 417 337 0;
@ -301,7 +314,7 @@
#X obj 649 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 114 21 r TISSUE;
#X obj 48 188 r TISSUE;
#X obj 48 218 r TISSUE;
#X obj 267 122 s TISSUE;
#X msg 299 329 tissueA;
#X msg 629 329 tissueB;
@ -319,7 +332,6 @@
#X obj 216 490 *~;
#X msg 281 406 0;
#X msg 314 406 1;
#X obj 281 449 * 10;
#X text 468 441 motor stop!;
#X obj 355 401 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
@ -332,6 +344,20 @@
#X obj 433 120 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 433 163 * 0.5;
#X floatatom 320 449 5 0 0 0 - - -;
#X floatatom 265 509 5 0 0 0 - - -;
#X obj 281 449 * 0.2;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 30 0;
#X connect 1 0 27 0;
#X connect 3 0 26 0;
@ -343,12 +369,12 @@
#X connect 10 0 9 1;
#X connect 10 0 21 1;
#X connect 11 0 10 0;
#X connect 14 0 3 0;
#X connect 17 0 29 0;
#X connect 18 0 28 0;
#X connect 22 0 27 0;
#X connect 23 0 28 0;
#X connect 24 0 4 0;
#X connect 24 0 14 0;
#X connect 25 0 7 0;
#X connect 27 0 30 1;
#X connect 28 0 29 1;
@ -357,23 +383,28 @@
#X connect 30 0 9 0;
#X connect 30 2 32 0;
#X connect 30 3 40 0;
#X connect 30 3 44 0;
#X connect 30 3 43 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 33 0 39 0;
#X connect 34 0 35 0;
#X connect 34 1 36 0;
#X connect 37 0 34 0;
#X connect 38 0 42 0;
#X connect 39 0 48 0;
#X connect 39 0 48 1;
#X connect 38 0 54 0;
#X connect 39 0 47 1;
#X connect 40 0 38 0;
#X connect 41 0 38 0;
#X connect 42 0 39 1;
#X connect 43 0 44 0;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 44 0 47 0;
#X connect 45 0 46 0;
#X connect 49 0 52 0;
#X connect 48 0 51 0;
#X connect 50 0 48 0;
#X connect 51 0 49 0;
#X connect 52 0 50 0;
#X connect 52 0 54 1;
#X connect 54 0 39 1;
#X connect 54 0 53 0;
#X connect 57 0 59 0;
#X connect 59 0 58 0;
#X connect 61 0 63 0;
#X connect 62 0 61 0;
#X coords 0 -1 1 1 100 150 2 5 5;

321
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_toner.pd Normal file
View file

@ -0,0 +1,321 @@
#N canvas 0 23 1440 721 12;
#N canvas 123 195 1133 379 roundly 0;
#X msg 364 140 \$1 5000;
#X obj 364 163 unpack f f;
#X obj 364 186 s X1;
#X obj 421 186 s X2;
#X obj 54 209 r HELLO;
#X obj 54 255 unpack f f f f;
#X floatatom 85 284 12 0 0 0 - - -;
#X obj 107 312 hsl 1000 15 -500000 500000 0 0 empty empty empty -2
-8 0 10 -260097 -262144 -1 0 1;
#X obj 107 332 hsl 1000 15 -500000 500000 0 0 empty empty empty -2
-8 0 10 -13381 -262144 -1 0 1;
#X obj 164 255 unpack f f f f;
#X floatatom 195 284 12 0 0 0 - - -;
#X floatatom 263 100 12 0 0 0 target_pos - -;
#X obj 107 31 hsl 1000 15 -500000 500000 0 0 empty empty empty -2 -8
0 10 -260097 -262144 -1 0 1;
#X obj 107 51 hsl 1000 15 -500000 500000 0 0 empty empty empty -2 -8
0 10 -13381 -262144 -1 40459 1;
#X obj 263 122 t b a;
#X msg 714 140 \$1 5000;
#X obj 714 163 unpack f f;
#X obj 714 186 s X1;
#X obj 771 186 s X2;
#X floatatom 613 100 12 0 0 0 target_pos - -;
#X obj 613 122 t b a;
#X obj 16 26 loadbang;
#X obj 104 81 skip 500;
#X obj 358 81 skip 500;
#X obj 263 210 s NOTE;
#X obj 613 210 s NOTE;
#X msg 832 98 1.2e+06;
#X msg 613 151 20200 0 0 1;
#X msg 915 113 0;
#X msg 263 151 20100 0 0 1;
#X obj 54 232 route 20100 20200;
#X text 761 5 orange: pingpong --> +++ / return to 0;
#X text 771 66 green: shark --> +++ / stop at last loc.;
#X obj 1046 143 bng 15 250 50 0 empty empty stop_now! 17 7 0 10 -262144
-1 -1;
#X floatatom 974 158 5 0 0 0 - - -;
#X msg 974 134 set \$1;
#X obj 107 142 bng 15 250 50 0 empty empty stop_now! 17 7 0 10 -262144
-1 -1;
#X floatatom 35 157 5 0 0 0 - - -;
#X msg 35 133 set \$1;
#X msg 16 49 -95000;
#X msg 150 4 -50000;
#X msg 86 4 142000;
#X msg 29 81 950000;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 4 0 30 0;
#X connect 5 1 6 0;
#X connect 5 1 38 0;
#X connect 6 0 7 0;
#X connect 9 1 10 0;
#X connect 9 1 35 0;
#X connect 10 0 8 0;
#X connect 11 0 14 0;
#X connect 12 0 22 0;
#X connect 13 0 23 0;
#X connect 14 0 29 0;
#X connect 14 1 0 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 18 0;
#X connect 19 0 20 0;
#X connect 20 0 27 0;
#X connect 20 1 15 0;
#X connect 21 0 39 0;
#X connect 22 0 11 0;
#X connect 23 0 19 0;
#X connect 26 0 19 0;
#X connect 27 0 25 0;
#X connect 28 0 19 0;
#X connect 29 0 24 0;
#X connect 30 0 5 0;
#X connect 30 1 9 0;
#X connect 33 0 34 0;
#X connect 34 0 19 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 11 0;
#X connect 38 0 37 0;
#X connect 39 0 13 0;
#X connect 40 0 12 0;
#X connect 41 0 12 0;
#X connect 42 0 13 0;
#X restore 874 17 pd roundly;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff11 100 float 3;
#A 0 1.62858 1.40001 0.514286 0.485714 0.466666 0.447619 0.447619 0.457142
0.485714 0.514286 0.504762 0.47619 0.47619 0.47619 0.471428 0.457142
0.457142 0.457142 0.457142 0.466666 0.47619 0.457142 0.447619 0.428571
0.419047 0.399999 0.609523 0.533333 0.542857 0.561904 0.580952 0.609524
0.13333 0.13333 0.190473 0.199997 0.209521 0.219044 0.428571 0.428571
0.428571 0.438095 0.561905 0.571429 0.571429 0.609523 0.485714 0.485714
0.471428 0.371428 0.371428 0.409523 0.409523 0.428571 0.428571 0.523809
0.504761 0.485714 0.190474 0.219046 0.22857 0.247617 0.104759 0.104759
0.109521 0.114283 0.314286 0.304762 0.280952 0.342857 0.333333 0.328571
0.323809 0.304762 0.266666 0.266666 0.266666 0.495239 0.485715 0.476191
0.44762 0.409524 0.142855 0.142855 0.142855 0.361905 0.380953 0.380953
0.380953 0.371429 0.365079 0.35873 0.333333 0.323809 0.333333 0.342857
0.371429 0.371429 0.333333 0.304762;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 342 81 graph;
#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 42 81 graph;
#X obj 185 403 tgl 20 0 empty empty 3001 17 7 0 10 -257985 -1 -1 0
1;
#X obj 42 408 metro 2000;
#X obj 485 403 tgl 20 0 empty empty 3001 17 7 0 10 -257985 -1 -1 0
1;
#X obj 342 408 metro 2000;
#X obj 42 547 s NOTE;
#X obj 342 547 s NOTE;
#X msg 127 341 symbol riff10;
#X msg 407 347 symbol riff11;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff12 10 float 3;
#A 0 0.4 0.133332 -0.180956 0.142857 -0.257145 0.295238 0.104762 -0.161906
-0.361908 0.466668;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 854 107 graph;
#X obj 997 285 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 0
1;
#X obj 854 290 metro 2000;
#X obj 854 429 s NOTE;
#X msg 931 236 symbol riff10;
#X msg 921 257 symbol riff12;
#X obj 854 324 riff 600 4200;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff22 10 float 3;
#A 0 -0.219051 0.685714 0.695238 -0.676196 -0.68572 0.761906 0.571428
-0.600007 -0.428574 0.504765;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 1045 107 graph;
#X obj 1178 288 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1
0 1;
#X obj 1045 290 metro 2000;
#X obj 1045 429 s NOTE;
#X msg 1112 236 symbol riff10;
#X obj 1045 324 riff 600 4203;
#X msg 1102 257 symbol riff22;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff3122 100 float 3;
#A 0 0.342857 0.67619 0.638095 0.571428 0.523809 0.390475 0.371427
0.352379 0.333331 0.276188 0.271426 0.247617 0.242855 0.228569 0.223807
0.542856 0.523809 0.514285 0.514285 0.580952 0.561904 0.55238 0.542856
0.542856 0.542856 0.542856 0.542856 0.809525 0.84762 0.876192 0.904763
0.933335 0.942859 0.961907 0.971431 0.961907 0.933335 0.89524 0.866668
0.790477 0.628571 0.55238 0.542856 0.504761 0.790477 0.761905 0.733334
0.714286 0.714286 0.714286 0.709524 0.704762 0.704762 0.399998 0.371427
0.333331 0.309522 0.285712 0.276188 0.266664 0.25714 0.25714 0.25714
0.657143 0.666667 0.695238 0.707143 0.719048 0.730953 0.742858 0.752382
0.761905 0.771429 0.790477 0.790477 0.580952 0.55238 0.533333 0.523809
0.514285 0.509523 0.504761 0.666667 0.647619 0.64381 0.64 0.63619 0.632381
0.628571 0.619047 0.614285 0.609524 0.604762 0.6 0.590476 0.580952
0.561904 0.666667 0.800001 0.780953;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 342 213 graph;
#X msg 417 371 symbol riff3122;
#X obj 342 442 riff 400 3122;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff121 10 float 3;
#A 0 0.704762 0.571428 0.561904 0.361902 0.257142 0.342855 0.609524
0.352381 0.533333 0.114282;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 1244 110 graph;
#X obj 1377 279 tgl 20 0 empty empty 3001 17 7 0 10 -257985 -1 -1 0
1;
#X obj 1244 281 metro 2000;
#X obj 1244 420 s NOTE;
#X msg 1309 220 symbol riff11;
#X msg 1319 244 symbol riff121;
#X obj 1244 315 riff 400 3121;
#X obj 878 665 dac~;
#X obj 878 586 osc~;
#X obj 878 635 *~;
#X obj 878 556 unpack f f;
#X msg 878 501 0 0;
#X msg 958 509 10 1.5;
#X msg 1018 513 15 1.2;
#X msg 1078 517 20 0.35;
#X obj 612 369 tgl 15 0 empty empty melodica_long_long_breath 17 7
0 10 -262144 -1 -1 0 1;
#X msg 612 389 1999 0 0 \$1;
#X obj 612 413 s NOTE;
#X msg 198 368 symbol riff3122;
#X obj 42 442 riff 170 3120;
#X msg 945 586 \$1 1000;
#X obj 945 616 line~;
#X msg 918 505 5 2;
#X obj 612 541 tgl 15 0 empty empty fluorescent_light 17 7 0 10 -262144
-1 -1 0 1;
#X obj 612 585 s NOTE;
#X obj 612 500 s NOTE;
#X msg 612 561 1701 1001 0 \$1;
#X msg 612 476 1701 1000 0 \$1;
#X obj 612 456 tgl 15 0 empty empty harmonica 17 7 0 10 -262144 -1
-1 0 1;
#X text 853 470 thunder player;
#X text 95 41 plane;
#X text 427 39 bottles;
#X text 557 31 cable cars;
#X text 971 48 wind chimes;
#X text 1273 43 metal plane;
#X msg 562 83 1;
#X msg 602 83 0;
#X msg 562 120 20100 1 0 \$1;
#X obj 562 144 s NOTE;
#X floatatom 679 144 8 0 0 0 s:X1 - X1;
#X msg 562 183 1;
#X msg 602 183 0;
#X obj 562 244 s NOTE;
#X msg 562 220 20200 1 0 \$1;
#X obj 682 190 r HELLO;
#X obj 682 214 route 20100 20200;
#X floatatom 713 262 5 0 0 0 - - -;
#X obj 682 238 unpack f f f f;
#X msg 679 90 200000;
#X msg 689 114 -200000;
#X floatatom 713 312 5 0 0 0 - - -;
#X obj 682 288 unpack f f f f;
#X obj 42 364 loadbang;
#X obj 42 388 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 342 364 loadbang;
#X obj 342 388 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 854 246 loadbang;
#X obj 854 270 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 1045 246 loadbang;
#X obj 1045 270 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1244 236 loadbang;
#X obj 1244 260 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X connect 3 0 47 3;
#X connect 4 0 47 0;
#X connect 5 0 27 3;
#X connect 6 0 27 0;
#X connect 9 0 47 1;
#X connect 10 0 27 1;
#X connect 12 0 17 3;
#X connect 13 0 17 0;
#X connect 15 0 17 1;
#X connect 16 0 17 1;
#X connect 17 0 14 0;
#X connect 19 0 23 3;
#X connect 20 0 23 0;
#X connect 22 0 23 1;
#X connect 23 0 21 0;
#X connect 24 0 23 1;
#X connect 26 0 27 1;
#X connect 27 0 8 0;
#X connect 29 0 34 3;
#X connect 30 0 34 0;
#X connect 32 0 34 1;
#X connect 33 0 34 1;
#X connect 34 0 31 0;
#X connect 36 0 37 0;
#X connect 37 0 35 0;
#X connect 38 0 36 0;
#X connect 38 1 48 0;
#X connect 39 0 38 0;
#X connect 40 0 38 0;
#X connect 41 0 38 0;
#X connect 42 0 38 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 46 0 47 1;
#X connect 47 0 7 0;
#X connect 48 0 49 0;
#X connect 49 0 37 1;
#X connect 50 0 38 0;
#X connect 51 0 54 0;
#X connect 54 0 52 0;
#X connect 55 0 53 0;
#X connect 56 0 55 0;
#X connect 63 0 65 0;
#X connect 64 0 65 0;
#X connect 65 0 66 0;
#X connect 68 0 71 0;
#X connect 69 0 71 0;
#X connect 71 0 70 0;
#X connect 72 0 73 0;
#X connect 73 0 75 0;
#X connect 73 1 79 0;
#X connect 75 1 74 0;
#X connect 76 0 67 0;
#X connect 77 0 67 0;
#X connect 79 1 78 0;
#X connect 80 0 81 0;
#X connect 80 0 9 0;
#X connect 81 0 4 0;
#X connect 82 0 83 0;
#X connect 82 0 10 0;
#X connect 83 0 6 0;
#X connect 84 0 85 0;
#X connect 84 0 15 0;
#X connect 85 0 13 0;
#X connect 86 0 87 0;
#X connect 86 0 22 0;
#X connect 87 0 20 0;
#X connect 88 0 89 0;
#X connect 88 0 32 0;
#X connect 89 0 30 0;

0
puredata/radio_uranus.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_uranus.pd
View file

0
puredata/radio_venus.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_venus.pd
View file

355
puredata/radio_theatre_1.dots-dots.unstable/backup/radio_whitehose.pd Normal file
View file

@ -0,0 +1,355 @@
#N canvas 651 37 570 496 10;
#X obj 283 80 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 240 25 1159 537 expressions 0;
#X obj 55 312 inlet;
#X obj 55 393 outlet;
#X obj 55 364 t b a;
#X obj 257 359 s \$0-word;
#X obj 165 493 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 165 400 + 1;
#X floatatom 165 423 5 0 0 0 - - -;
#X obj 55 341 count 6;
#X obj 32 459 t b b;
#X msg 59 480 0;
#X obj 32 439 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 84 25 450 278 (subpatch) 0;
#X array whoseB0 10 float 3;
#A 0 0.304762 0.457144 0.552381 0.466666 0.428571 0.67619 0.485713
0.371426 0.542857 0.619048;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 623 358 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB2 100 float 3;
#A 0 0.361905 0.504763 0.504763 0.476191 0.483334 0.490477 0.49762
0.504763 0.511906 0.519048 0.526191 0.533334 0.52381 0.500001 0.476191
0.438096 0.495238 0.495238 0.495238 0.514286 0.514286 0.52381 0.476191
0.489524 0.502858 0.516191 0.529525 0.542858 0.516667 0.490477 0.464286
0.438096 0.428572 0.419048 0.409524 0.419048 0.428572 0.438096 0.447619
0.457143 0.454762 0.495238 0.495238 0.561905 0.571429 0.571429 0.571429
0.566667 0.561905 0.552381 0.533333 0.52381 0.52381 0.52381 0.52381
0.52381 0.52381 0.52381 0.52381 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.457143 0.457143 0.457143 0.457143 0.457143 0.452381
0.447619 0.442858 0.476191 0.452381 0.419048 0.447619 0.457143 0.466667
0.476191 0.495238 0.514286 0.52381 0.466667 0.466667 0.457143 0.457143
0.466667 0.466667 0.476191 0.480953 0.485715 0.495239 0.504763 0.504763
0.495239 0.485715 0.485715 0.442858 0.419048;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 195 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB1 50 float 3;
#A 0 0.419047 0.361904 0.35238 0.314285 0.285713 0.253967 0.222221
0.190475 0.180951 0.142855 0.419048 0.419048 0.390476 0.361904 0.323809
0.304761 0.27619 0.238094 0.209522 0.209524 0.152379 0.419047 0.390476
0.361904 0.333333 0.314285 0.271427 0.22857 0.219046 0.161903 0.152379
0.428571 0.4 0.361904 0.304761 0.263491 0.222221 0.161903 0.142855
0.409524 0.371428 0.333333 0.285713 0.285713 0.25238 0.219046 0.142855
0.133332 0.4 0.247618;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 35 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB4 100 float 3;
#A 0 0.295237 0.295237 0.295237 0.295237 0.295237 0.323809 0.323809
0.323809 0.323809 0.323809 0.323809 0.323809 0.323809 0.323809 0.323809
0.323809 0.323809 0.320634 0.31746 0.314285 0.304761 0.295237 0.292063
0.288888 0.285713 0.285713 0.285713 0.285713 0.285713 0.285713 0.285713
0.285713 0.285713 0.285713 0.285713 0.285713 0.266667 0.266667 0.266667
0.266667 0.266667 0.266667 0.266667 0.266667 0.266667 0.266667 0.266667
0.266667 0.266667 0.266667 0.27619 0.27619 0.27619 0.27619 0.27619
0.27619 0.27619 0.279365 0.28254 0.285714 0.285714 0.285714 0.285714
0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714
0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714
0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714
0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714 0.285714
0.285714 0.27619 0.27619 0.266667 0.257143;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 515 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB3 50 float 3;
#A 0 0.409524 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571
0.428571 0.428571 0.430476 0.432381 0.434286 0.43619 0.438095 0.438095
0.438095 0.438095 0.438095 0.438095 0.438095 0.438095 0.438095 0.438095
0.438095 0.438095 0.438095 0.44 0.441905 0.443809 0.445714 0.447619
0.447619 0.447619 0.447619 0.447619 0.447619 0.447619 0.447619 0.447619
0.449524 0.451429 0.453333 0.455238 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.466667;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 355 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB5 100 float 3;
#A 0 0.00952381 0.00476211 0.00476211 0.514286 0.4 0.371429 0.347619
-0.00952297 2.38419e-07 2.38419e-07 0.00476193 0.00476193 0.00476193
0.00476193 0.00476193 0.276191 0.347619 0.27619 0.0190475 0.0190475
0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475
0.0190475 0.304762 0.32381 0.400001 0.471429 0.771429 0.00952339 0.00952339
0.00952339 0.00952339 0.00952339 0.00952339 0.00952339 0.595238 0.266667
0.3 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369
0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.0285714 0.0285714
0.0285714 0.0285714 0.0285714 0.52381 0.280952 0.271429 0.285714 0.309523
0.290476 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.00952405
0.00952405 0.3 0.338095 0.319048 0.390476 0.476189 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.0285714
0.0285714 0.0285714 0.395222 0.419031 0.419031 0.428554 0.490456 0.461886
0 0 0 0 0 0;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 675 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB6 50 float 3;
#A 0 0.00952417 0 0.32381 0.00952417 0.32381 0.00952417 0.00952417
0.00952417 0.00952417 0.514286 0.00952417 0.514286 0.00952417 0.00952417
0.342857 0.00952417 0.342857 -0.00952333 -0.00952333 -0.00952333 -0.00952333
-0.00952333 0.495238 -0.00952333 0.495238 -0.00952333 4.17233e-07 4.17233e-07
4.17233e-07 0 0 0.352381 4.17233e-07 0.352381 4.17233e-07 4.17233e-07
4.17233e-07 4.17233e-07 4.17233e-07 4.17233e-07 0.00952417 0.457143
0.00952417 0.457143 0.00952417 0.00952417 0.00952417 0.0190479 0.0190479
0.0190479;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 835 35 graph;
#X obj 165 445 array_copier whoseB;
#X obj 188 289 loadbang;
#X msg 188 310 6;
#X obj 188 331 s \$0-word-max;
#X obj 94 300 r \$0-word-max;
#X floatatom 94 321 5 0 0 0 - - -;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 18 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 1 0;
#X connect 8 1 9 0;
#X connect 9 0 18 0;
#X connect 10 0 8 0;
#X connect 18 0 4 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 23 0 7 1;
#X restore 48 256 pd expressions;
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -262144
-4034 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -4034
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
-4034 -1 0 1;
#X obj 182 419 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 182 396 loadbang;
#X msg 43 325 0;
#X obj 322 294 loadbang;
#X text 41 306 stop!;
#X obj 94 417 s NOTE;
#X obj 94 394 spigot;
#X obj 345 340 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB 100 float 3;
#A 0 0.361905 0.504763 0.504763 0.476191 0.483334 0.490477 0.49762
0.504763 0.511906 0.519048 0.526191 0.533334 0.52381 0.500001 0.476191
0.438096 0.495238 0.495238 0.495238 0.514286 0.514286 0.52381 0.476191
0.489524 0.502858 0.516191 0.529525 0.542858 0.516667 0.490477 0.464286
0.438096 0.428572 0.419048 0.409524 0.419048 0.428572 0.438096 0.447619
0.457143 0.454762 0.495238 0.495238 0.561905 0.571429 0.571429 0.571429
0.566667 0.561905 0.552381 0.533333 0.52381 0.52381 0.52381 0.52381
0.52381 0.52381 0.52381 0.52381 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.457143 0.457143 0.457143 0.457143 0.457143 0.452381
0.447619 0.442858 0.476191 0.452381 0.419048 0.447619 0.457143 0.466667
0.476191 0.495238 0.514286 0.52381 0.466667 0.466667 0.457143 0.457143
0.466667 0.466667 0.476191 0.480953 0.485715 0.495239 0.504763 0.504763
0.495239 0.485715 0.485715 0.442858 0.419048;
#X coords 0 1 100 0 25 25 1 0 0;
#X restore 35 65 graph;
#X obj 427 120 v \$0-STRESS;
#X obj 427 166 v \$0-STRESS;
#X obj 427 100 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 427 143 * 0.5;
#X obj 164 21 r WHOSE;
#X obj 48 217 r WHOSE;
#X msg 322 317 whoseB;
#X obj 283 110 s WHOSE;
#X obj 294 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 314 406 0;
#X obj 314 429 v \$0-STATE;
#X obj 294 452 s WHOSE_DONE;
#N canvas 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 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 -262144 -1 -1 1 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X msg 285 439 0.15;
#X obj 16 210 < 0.73;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 49 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 283 57 pd world and me;
#X obj 94 294 riff1_random 400 3309 600 900;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 6 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 23 0;
#X connect 1 0 2 0;
#X connect 3 0 29 0;
#X connect 5 0 0 0;
#X connect 7 0 13 1;
#X connect 8 0 7 0;
#X connect 9 0 29 0;
#X connect 10 0 22 0;
#X connect 13 0 12 0;
#X connect 14 0 22 0;
#X connect 16 0 19 0;
#X connect 18 0 16 0;
#X connect 19 0 17 0;
#X connect 20 0 1 0;
#X connect 21 0 3 0;
#X connect 22 0 29 1;
#X connect 24 0 25 0;
#X connect 24 0 27 0;
#X connect 25 0 26 0;
#X connect 28 0 0 0;
#X connect 29 0 13 0;
#X connect 29 3 24 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

81
puredata/radio_yellow.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_yellow.pd
View file

@ -1,4 +1,4 @@
#N canvas 97 95 701 521 10;
#N canvas 436 23 701 521 10;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -257985
-1 -1 0 1;
#X obj 274 81 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
@ -17,7 +17,7 @@
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
@ -86,12 +86,15 @@
#X text 378 460 resting relax;
#X obj 16 210 < 0.8;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X msg 285 439 0.1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X connect 0 0 50 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 49 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -113,8 +116,8 @@
#X connect 17 0 46 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 49 0;
#X connect 19 1 51 0;
#X connect 19 0 48 0;
#X connect 19 1 50 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -131,10 +134,11 @@
#X connect 43 0 47 0;
#X connect 46 0 1 0;
#X connect 47 0 0 0;
#X connect 48 0 47 1;
#X connect 49 0 15 0;
#X connect 50 0 17 0;
#X connect 51 0 15 0;
#X connect 48 0 15 0;
#X connect 49 0 17 0;
#X connect 50 0 15 0;
#X connect 51 0 47 1;
#X connect 52 0 53 0;
#X restore 274 58 pd world and me;
#N canvas 642 25 443 747 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
@ -245,6 +249,11 @@
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 483 563 graph;
#X obj 19 600 count 4;
#X obj 152 548 loadbang;
#X obj 152 590 s \$0-word-max;
#X obj 58 559 r \$0-word-max;
#X floatatom 58 580 5 0 0 0 - - -;
#X msg 152 569 4;
#X connect 8 0 25 0;
#X connect 10 0 9 0;
#X connect 10 1 17 0;
@ -262,21 +271,26 @@
#X connect 22 0 20 0;
#X connect 25 0 10 0;
#X connect 25 0 11 0;
#X restore 48 225 pd expressions;
#X connect 26 0 30 0;
#X connect 28 0 29 0;
#X connect 29 0 25 1;
#X connect 30 0 27 0;
#X restore 48 255 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowA 30 float 3;
#A 0 0.580952 0.580952 0.580952 0.571429 0.571429 0.571429 0.571429
0.571429 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905
0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905
0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905;
#A 0 0.885716 0.800003 0.685719 0.619054 -0.0190476 -0.0190476 -0.0190476
0.92381 0.914286 0.857145 0.800003 0.733337 0.685719 -0.0285714 -0.0285714
-0.0285714 0.904762 0.866668 0.809526 0.771431 0.71429 0.666672 0.666672
-0.0285714 -0.0285714 -0.0285714 0.914287 0.866669 0.771432 0.733338
;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 35 47 graph;
#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -257985
-128992 -1 3;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -257985
-128992 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 164 21 r YELLOW;
#X obj 48 188 r YELLOW;
#X obj 48 218 r YELLOW;
#X obj 274 111 s YELLOW;
#X msg 37 337 0;
#X obj 249 306 loadbang;
@ -306,24 +320,35 @@
#X obj 231 451 s YELLOW_DONE;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowB 30 float 3;
#A 0 0.819048 0.819048 0.819048 0.819048 0.819048 0.819048 0.819048
0.819048 0.819048 0.828571 0.828571 0.828571 0.838095 0.838095 0.847619
0.847619 0.857143 0.857143 0.857143 0.857143 0.866666 0.866666 0.866666
0.866666 0.866666 0.866666 0.857143 0.847619 0.838095 0.809524;
#A 0 0.742857 0.580951 0.466664 0.352378 0.276187 0.223806 0.885714
0.552379 0.409521 0.352378 0.257139 0.20952 0.123805 0.0857093 0.914286
0.599998 0.523807 0.447616 0.390473 0.323806 0.257139 0.20952 0.133329
0.971429 0.723808 0.647618 0.561903 0.485712 0.371425 0.323806;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 35 93 graph;
#X restore 35 87 graph;
#X obj 454 139 v \$0-STRESS;
#X obj 454 185 v \$0-STRESS;
#X obj 454 119 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 454 162 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 4 0 1 0;
#X connect 5 0 30 0;
#X connect 5 0 29 0;
#X connect 5 0 30 0;
#X connect 8 0 1 0;
#X connect 9 0 2 0;
#X connect 9 0 8 0;
#X connect 10 0 5 0;
#X connect 12 0 29 0;
#X connect 13 0 31 0;
@ -347,4 +372,8 @@
#X connect 35 0 38 0;
#X connect 37 0 35 0;
#X connect 38 0 36 0;
#X connect 41 0 43 0;
#X connect 43 0 42 0;
#X connect 45 0 47 0;
#X connect 46 0 45 0;
#X coords 0 -1 1 1 100 150 2 5 5;

130
puredata/radio_yellowhose.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/radio_yellowhose.pd
View file

@ -3,7 +3,7 @@
-1 -1;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 747 95 533 644 world 1;
#N canvas 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
@ -83,13 +83,16 @@
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X msg 285 439 0.15;
#X obj 16 210 < 0.73;
#X connect 0 0 48 0;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
@ -108,11 +111,11 @@
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 51 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 49 0;
#X connect 19 0 49 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
@ -128,11 +131,12 @@
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 46 1;
#X connect 48 0 17 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 15 0;
#X connect 51 0 1 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 283 57 pd world and me;
#N canvas 240 25 1159 537 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
@ -143,7 +147,7 @@
0.285713 0.266665 0.247617 0.247617 0.257141 0.30476 0.504762 0.628571
0.67619 0.685714 0.685714 0.695238 0.285712 0.238093 0.238093 0.238093
0.247617 0.323809 0.447619 0.695238 0.6 0.6 0.638095 0.647619 0.152379
0.142855 0.142855 ;
0.142855 0.142855;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 675 52 graph;
#N canvas 0 23 450 278 (subpatch) 0;
@ -324,6 +328,11 @@
0.371426 0.542857 0.619048;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 623 358 graph;
#X obj 188 289 loadbang;
#X msg 188 310 6;
#X obj 188 331 s \$0-word-max;
#X obj 94 300 r \$0-word-max;
#X floatatom 94 321 5 0 0 0 - - -;
#X connect 11 0 25 0;
#X connect 13 0 12 0;
#X connect 13 1 20 0;
@ -341,27 +350,31 @@
#X connect 28 0 21 0;
#X connect 28 0 22 0;
#X connect 29 0 27 0;
#X restore 48 226 pd expressions;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 34 0 35 0;
#X connect 35 0 25 1;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yhoseA 50 float 3;
#A 0 0.733333 0.0285715 0.0285715 0.0253969 0.0222223 0.0190477 0.761905
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.838095 0.00952381
0.00952381 0.00952381 0.685714 0.00952363 0.00952363 0.00952363 0.00952363
0.838095 0.00952381 0.00952363 0.00952363 0.809524 -5.96046e-08 -5.96046e-08
-5.96046e-08 -5.96046e-08 0.838095 0.00952381 0.838095 -5.96046e-08
0.00952381 0.00952381 0.0190477 0.0190477 0.857143 0.0285715 0.0380954
0.0380954 0.0380954 0.0380952 0.866667 0.0380954 0.0380954 0.0380954
0.0380954 0.0190477;
#A 0 0.00952369 0.657143 0.00952369 0.00952369 0.771429 0.590476 0.00952369
0.00952369 0.761905 0.752381 0.752381 0.00952369 0.00952369 0.542857
0.542857 0.00952369 0.00952369 0.638095 0.638095 0.638095 0.0190476
0.0190476 0.0190476 0.704762 0.704762 0.0190476 0.0190476 0.0190476
0.0190476 0.619048 0.619048 0.0190476 0.0190476 0.714286 0.00952369
0.00952369 0.00952369 0.00952369 0.238095 0.714286 0.714286 0.714286
0.00952369 0.00952369 0.00952369 0.00952369 0.733333 0.00952381 0.00952369
0.00952369;
#X coords 0 1 50 0 25 25 1 0 0;
#X restore 35 45 graph;
#X obj 10 138 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -257985
-4034 -1 0;
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -257985
-4034 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -257985 -4034
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -257985
-4034 -1 0 1;
#X obj 164 21 r YHOSE;
#X obj 48 187 r YHOSE;
#X obj 48 217 r YHOSE;
#X obj 283 110 s YHOSE;
#X msg 37 337 0;
#X obj 316 306 loadbang;
@ -387,33 +400,50 @@
#X obj 295 452 s YHOSE_DONE;
#X msg 316 329 yhoseA;
#X msg 726 329 yhoseB;
#X obj 498 306 riff1_random 600 3206 600 900;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yhoseB 50 float 3;
#A 0 0.638095 0.580953 0.514287 0.457144 0.361907 0.314288 0.228574
0.180955 0.152384 0.152384 0.14286 0.133337 0.114289 0.104765 0.104765
0.104765 0.104765 0.638096 0.552382 0.504763 0.457144 0.371431 0.304765
0.228575 0.19048 0.152385 0.133337 0.133337 0.133337 0.123813 0.11429
0.542858 0.466668 0.380954 0.238098 0.209527 0.190479 0.171432 0.161908
0.104765 0.0761942 0.0476229 0.0285754 0.533334 0.390477 0.266669 0.152384
0.0666699 0.0380987 0.0380987;
#X coords 0 1 50 0 25 25 1 0 0;
#X restore 35 95 graph;
#X array yhoseB 100 float 3;
#A 0 0.380952 0.380952 0.380952 0.371428 0.371428 0.371428 0.361905
0.361905 0.361905 0.352381 0.352381 0.352381 0.352381 0.352381 0.352381
0.352381 0.352381 0.352381 0.352381 0.352381 0.352381 0.342857 0.342857
0.342857 0.333334 0.32381 0.314287 0.295239 0.285716 0.266668 0.247621
0.21905 0.190479 0.142861 0.123814 0.0761958 0.0666722 0.0190541 0.00953043
0.00953043 0.00953043 6.79493e-06 6.79493e-06 -0.00951684 -0.00951684
-0.00951684 -0.00951684 -0.00951684 -0.00951684 -0.00951684 -0.00951684
-0.00951684 -0.00951684 -0.00951684 -0.00951684 -0.00951684 -0.00951684
-0.00951684 -0.00951684 0.390476 0.390476 0.390476 0.390476 0.380952
0.380952 0.380952 0.380952 0.380952 0.361905 0.361905 0.361905 0.361905
0.352381 0.352381 0.352381 0.352381 0.333334 0.314287 0.276192 0.247621
0.190479 0.152385 0.0761958 0.0666722 0.0571486 0.0476249 0.0381013
0.0285777 0.0238159 0.0190541 0.0190541 0.0190541 0.0190541 0.0190541
0.0190541 0.0190541 0.0190541 0.0190541 0.0190541 0.0190541;
#X coords 0 1 100 0 25 25 1 0 0;
#X restore 35 87 graph;
#X obj 427 120 v \$0-STRESS;
#X obj 427 166 v \$0-STRESS;
#X obj 427 100 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 427 143 * 0.5;
#X obj 88 306 riff1_random 600 3207 600 900;
#X obj 88 306 riff1_random 400 3207 600 900;
#X obj 498 306 riff1_random 400 3206 600 900;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 6 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 32 0;
#X connect 4 0 38 0;
#X connect 4 0 37 0;
#X connect 7 0 0 0;
#X connect 9 0 1 0;
#X connect 9 0 7 0;
#X connect 10 0 4 0;
#X connect 12 0 38 0;
#X connect 12 0 37 0;
#X connect 13 0 30 0;
#X connect 14 0 16 0;
#X connect 14 0 29 0;
@ -423,16 +453,20 @@
#X connect 20 0 27 1;
#X connect 21 0 20 0;
#X connect 22 0 30 0;
#X connect 23 0 32 0;
#X connect 23 0 38 0;
#X connect 24 0 31 0;
#X connect 27 0 26 0;
#X connect 28 0 31 0;
#X connect 30 0 38 1;
#X connect 31 0 32 1;
#X connect 32 0 27 0;
#X connect 34 0 37 0;
#X connect 30 0 37 1;
#X connect 31 0 38 1;
#X connect 33 0 36 0;
#X connect 35 0 33 0;
#X connect 36 0 34 0;
#X connect 37 0 35 0;
#X connect 38 0 19 0;
#X connect 38 3 14 0;
#X connect 37 0 19 0;
#X connect 37 3 14 0;
#X connect 38 0 27 0;
#X connect 41 0 43 0;
#X connect 43 0 42 0;
#X connect 45 0 47 0;
#X connect 46 0 45 0;
#X coords 0 -1 1 1 100 150 2 5 5;

13
puredata/radio_theatre_1.dots-dots.unstable/backup/resampl-help.pd Normal file
View file

@ -0,0 +1,13 @@
#N canvas 620 344 450 300 12;
#X floatatom 24 125 5 0 0 0 - - - 0;
#X floatatom 24 188 5 0 0 0 - - - 0;
#X obj 24 212 print;
#X obj 24 163 resampl 1000;
#X text 19 27 [resampl] only output up to 1 output per \$1 millisec.
;
#X text 19 13 [resampl] always output \, no skip;
#X text 19 57 [resampl] is simpler version of [skip] which also detect/change
events;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 3 0 1 0;

39
puredata/radio_theatre_1.dots-dots.unstable/backup/resampl.pd Normal file
View file

@ -0,0 +1,39 @@
#N canvas 240 23 254 344 12;
#X floatatom 18 49 5 0 0 0 - - - 0;
#X obj 18 78 spigot;
#X obj 18 138 t a b;
#X obj 50 168 t b b;
#X msg 118 278 0;
#X obj 73 63 tgl 15 0 empty \$0-gate r:0-gate 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X msg 50 278 1;
#X msg 161 43 1;
#X floatatom 167 265 5 0 0 0 - - - 0;
#X obj 18 19 inlet;
#X obj 161 19 loadbang;
#X obj 161 73 tgl 15 0 \$0-gate empty s:0-gate 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 50 308 tgl 15 0 \$0-gate empty s:0-gate 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 50 198 del \$1;
#X obj 50 222 t b b;
#X obj 81 108 v \$0-track;
#X obj 82 246 v \$0-track;
#X obj 167 294 outlet;
#X connect 0 0 1 0;
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 3 0 13 0;
#X connect 3 1 4 0;
#X connect 4 0 12 0;
#X connect 5 0 1 1;
#X connect 6 0 12 0;
#X connect 7 0 11 0;
#X connect 8 0 17 0;
#X connect 9 0 0 0;
#X connect 10 0 7 0;
#X connect 13 0 14 0;
#X connect 14 0 6 0;
#X connect 14 1 16 0;
#X connect 16 0 8 0;

0
puredata/retro-help.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/retro-help.pd
View file

0
puredata/retro.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/retro.pd
View file

0
puredata/riff-help.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/riff-help.pd
View file

0
puredata/riff.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/riff.pd
View file

0
puredata/riff1.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/riff1.pd
View file

0
puredata/riff1_random.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/riff1_random.pd
View file

36
puredata/radio_theatre_1.dots-dots.unstable/backup/riff2-help.pd Normal file
View file

@ -0,0 +1,36 @@
#N canvas 0 0 353 343 10;
#X obj 96 166 riff2;
#X msg 167 112 \$1-abc;
#X obj 167 89 f \$0;
#X obj 167 69 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 24 151 bng 15 250 50 0 empty empty go- 17 7 0 10 #fcfcfc #000000
#000000;
#X msg 24 220 0;
#X obj 143 301 print;
#X obj 239 266 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 239 120 loadbang;
#X msg 239 143 4501 0 900 500;
#X obj 239 286 print done;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-abc 10 float 3;
#A 0 0.885708 0.785709 0.471426 0.0428596 -0.299994 -0.642848 -0.357136
0.514283 0.185715 -0.0571394;
#X coords 0 1 10 -1 100 100 1 0 0;
#X restore 19 25 graph;
#X obj 167 46 loadbang;
#X text 22 201 stop!;
#X connect 0 0 6 0;
#X connect 0 1 6 0;
#X connect 0 2 6 0;
#X connect 0 3 7 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 0 2;
#X connect 12 0 3 0;

129
puredata/radio_theatre_1.dots-dots.unstable/backup/riff2.pd Normal file
View file

@ -0,0 +1,129 @@
#N canvas 643 411 711 484 12;
#X floatatom 193 210 5 0 0 0 - - - 0;
#X floatatom 193 269 5 0 0 0 - - - 0;
#X floatatom 193 318 5 0 0 0 - - - 0;
#X obj 30 68 hsl 110 20 0 900 0 0 empty \$0-val empty -2 -8 0 10 #fcfcc4
#000000 #000000 0 1;
#X obj 193 18 inlet;
#X obj 85 156 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X msg 27 378 range 0 \$1;
#X obj 27 46 bng 14 250 50 0 empty empty empty 17 7 0 10 #00fc04 #fcc4c4
#000000;
#X floatatom 144 46 3 0 0 0 i \$0-i - 0;
#X floatatom 52 91 7 0 0 0 val \$0-val - 0;
#X floatatom 409 118 5 0 0 0 - - - 0;
#X obj 394 419 outlet;
#X obj 374 319 pack f f f f;
#X floatatom 131 91 5 0 0 0 key \$0-key - 0;
#X obj 374 369 outlet;
#X obj 386 18 inlet;
#X obj 193 244 tabread;
#X obj 409 93 array size;
#X msg 386 142 set \$1;
#X obj 386 68 t a b a;
#X obj 225 367 s \$0-val;
#X obj 329 419 r \$0-val;
#X text 432 18 2-array name;
#X text 423 368 1#msg;
#X obj 147 68 tgl 20 0 empty \$0-onoff empty 17 7 0 8 #f8fc00 #000000
#000000 0 1;
#X obj 580 318 s \$0-onoff;
#X symbolatom 44 46 12 0 0 0 - - - 0;
#X msg 44 231 symbol no-array;
#X obj 44 206 loadbang;
#X obj 324 30 s \$0-an;
#X obj 70 4 r \$0-an;
#X msg 374 344 \$4 \$2 \$1 \$3;
#X obj 126 144 s \$0-i;
#X obj 193 342 t a a;
#X obj 384 394 outlet;
#X obj 333 394 r \$0-i;
#X text 443 420 3#val;
#X text 433 394 2#idx;
#X obj 386 43 list split 1;
#X obj 193 160 f;
#X text 201 38 1-cmd for scan;
#X obj 193 65 route bang;
#X obj 260 90 route 0;
#X msg 260 115 0;
#X obj 193 92 t b b;
#X msg 476 210 1;
#X obj 257 225 t b b;
#X msg 476 245 0;
#X obj 404 444 outlet;
#X text 453 445 4#done;
#X obj 193 185 scan;
#X obj 512 122 inlet;
#X obj 27 353 r \$0-range;
#X obj 512 172 s \$0-id;
#X text 558 122 3-parameters;
#X obj 257 250 del;
#X obj 476 299 r \$0-id;
#X obj 193 293 *;
#X obj 512 147 unpack f f f f;
#X obj 377 275 r \$0-key;
#X obj 543 197 s \$0-key;
#X obj 575 172 s \$0-range;
#X obj 607 197 s \$0-sdelay;
#X obj 275 165 r \$0-sdelay;
#X floatatom 39 24 5 0 0 0 id \$0-id - 0;
#X floatatom 88 24 4 0 0 0 r \$0-range - 0;
#X floatatom 137 24 4 0 0 0 sd \$0-sdelay - 0;
#X connect 0 0 32 0;
#X connect 0 0 5 0;
#X connect 0 0 16 0;
#X connect 1 0 57 0;
#X connect 2 0 33 0;
#X connect 4 0 41 0;
#X connect 5 0 7 0;
#X connect 6 0 3 0;
#X connect 10 0 39 1;
#X connect 12 0 31 0;
#X connect 15 0 38 0;
#X connect 16 0 1 0;
#X connect 17 0 10 0;
#X connect 18 0 16 0;
#X connect 19 0 18 0;
#X connect 19 1 17 0;
#X connect 19 2 17 1;
#X connect 21 0 11 0;
#X connect 27 0 26 0;
#X connect 28 0 27 0;
#X connect 30 0 26 0;
#X connect 31 0 14 0;
#X connect 33 0 12 0;
#X connect 33 1 20 0;
#X connect 35 0 34 0;
#X connect 38 0 29 0;
#X connect 38 0 19 0;
#X connect 39 0 50 0;
#X connect 41 0 44 0;
#X connect 41 1 42 0;
#X connect 42 0 43 0;
#X connect 43 0 50 0;
#X connect 44 0 39 0;
#X connect 44 1 45 0;
#X connect 45 0 12 2;
#X connect 45 0 25 0;
#X connect 46 0 55 0;
#X connect 46 1 47 0;
#X connect 47 0 12 2;
#X connect 47 0 25 0;
#X connect 50 0 0 0;
#X connect 50 1 46 0;
#X connect 51 0 58 0;
#X connect 52 0 6 0;
#X connect 52 0 57 1;
#X connect 55 0 12 0;
#X connect 55 0 48 0;
#X connect 56 0 12 3;
#X connect 57 0 2 0;
#X connect 58 0 53 0;
#X connect 58 1 60 0;
#X connect 58 2 61 0;
#X connect 58 3 62 0;
#X connect 59 0 12 1;
#X connect 63 0 50 1;
#X connect 63 0 55 1;
#X coords 0 -1 1 1 150 95 2 20 20;

0
puredata/rscan.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/rscan.pd
View file

0
puredata/safeguard-mixer-forest-all.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/safeguard-mixer-forest-all.pd
View file

0
puredata/scan-help.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/scan-help.pd
View file

0
puredata/scan.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/scan.pd
View file

0
puredata/sigcnd.pd → puredata/radio_theatre_1.dots-dots.unstable/backup/sigcnd.pd
View file

0
puredata/star.lua → puredata/radio_theatre_1.dots-dots.unstable/backup/star.lua
View file

0
puredata/values_stress.lst → puredata/radio_theatre_1.dots-dots.unstable/backup/values_stress.lst
View file

0
puredata/values_we_triggering.lst → puredata/radio_theatre_1.dots-dots.unstable/backup/values_we_triggering.lst
View file

16
puredata/radio_theatre_1.dots-dots.unstable/backup2/retro-help.pd Normal file
View file

@ -0,0 +1,16 @@
#N canvas 1 89 370 282 12;
#X obj 94 124 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 94 189 print;
#X msg 189 95 1000 4000;
#X obj 94 143 retro 200 1800;
#X msg 200 125 200 1800;
#X text 2 7 <<<;
#X text 322 7 >>>;
#X text 2 237 <<<;
#X text 322 237 >>>;
#X text 95 39 * a randomized metro !;
#X connect 0 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 1 0;
#X connect 4 0 3 1;

57
puredata/radio_theatre_1.dots-dots.unstable/backup2/retro.pd Normal file
View file

@ -0,0 +1,57 @@
#N canvas 310 409 364 373 12;
#X obj 43 211 del;
#X obj 43 261 spigot;
#X obj 139 72 tgl 15 0 empty empty empty 17 7 0 10 -4160 -257985 -1
1 1;
#X obj 234 86 expr \$2-\$1;
#X obj 145 216 random;
#X obj 234 36 loadbang;
#X obj 82 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 50 47 inlet;
#X obj 43 286 outlet;
#X obj 50 104 t b f;
#X obj 113 191 t b b;
#X obj 158 72 bng 10 250 50 0 empty empty empty 17 7 0 10 -257985 -4160
-1;
#X text 2 7 <<<;
#X text 322 7 >>>;
#X text 2 337 <<<;
#X text 322 337 >>>;
#X obj 118 285 inlet;
#X obj 118 310 unpack f f;
#X obj 204 305 expr $f2-$f1;
#X floatatom 234 197 5 0 0 0 range - -;
#X floatatom 289 223 5 0 0 0 start - -;
#X obj 289 117 f \$1;
#X obj 145 242 +;
#X obj 234 61 t b b;
#X floatatom 171 69 5 0 0 1 r - -;
#X obj 288 278 outlet;
#X connect 0 0 1 0;
#X connect 1 0 8 0;
#X connect 1 0 11 0;
#X connect 2 0 9 0;
#X connect 3 0 19 0;
#X connect 4 0 22 0;
#X connect 5 0 23 0;
#X connect 6 0 1 1;
#X connect 7 0 2 0;
#X connect 9 0 11 0;
#X connect 9 1 6 0;
#X connect 10 0 0 0;
#X connect 10 1 4 0;
#X connect 11 0 10 0;
#X connect 16 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 4 1;
#X connect 20 0 22 1;
#X connect 21 0 20 0;
#X connect 22 0 0 1;
#X connect 22 0 24 0;
#X connect 22 0 25 0;
#X connect 23 0 3 0;
#X connect 23 1 21 0;
#X coords 0 -1 1 1 85 40 1 135 50;

67
puredata/radio_theatre_1.dots-dots.unstable/backup2/riff-help.pd Normal file
View file

@ -0,0 +1,67 @@
#N canvas 503 141 446 566 12;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-riff2 50 float 3;
#A 0 0.285714 0.304762 0.328572 0.457144 0.504763 0.514287 0.542858
0.542858 0.533335 0.533335 0.514287 0.495239 0.476191 0.428572 0.380953
0.361905 0.342857 0.333333 0.333333 0.361905 0.4 0.466667 0.466667
0.552382 0.57143 0.580954 0.590478 0.590478 0.580954 0.523811 0.457144
0.409524 0.361905 0.304762 0.27619 0.266666 0.257142 0.180951 0.123808
0.0761888 0.0571411 0.0571411 0.0571411 0.0476172 0.0476172 0.0380933
0.0380933 0.0380937 0.0380937 0.333333;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 20 185 graph;
#X obj 20 307 tgl 20 0 empty empty empty 17 7 0 10 -262130 -1 -1 1
1;
#X obj 163 327 tgl 20 0 empty empty gate_(onoff) 17 7 0 10 -257985
-1 -1 0 1;
#X text 177 114 <--- this graphic riff;
#X text 51 507 use it to fill up attaching numbers (e.g. X1~X4 & PS)
;
#X text 194 133 will be sent as 'velocity' values;
#X text 163 483 ^--2nd outlet acts before 1st outlet;
#X obj 20 481 print RIFF;
#X floatatom 115 481 5 0 0 0 - - -;
#X text 208 53 arguments:;
#N canvas 1 89 450 278 (subpatch) 0;
#X array \$0-riff1 50 float 3;
#A 0 0.219048 0.228572 0.266667 0.276191 0.285715 0.295239 0.32381
0.333334 0.361906 0.37143 0.380953 0.400001 0.414287 0.428573 0.447621
0.466668 0.476192 0.485716 0.504764 0.514288 0.51905 0.523811 0.533335
0.542859 0.547621 0.552383 0.571431 0.580955 0.590479 0.59524 0.600002
0.609526 0.61905 0.623812 0.628574 0.638098 0.647622 0.657146 0.676193
0.680955 0.685717 0.695241 0.704765 0.709527 0.714289 0.74286 0.752384
0.761908 0.771432 0.895242;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 20 55 graph;
#X obj 20 376 riff 800 3001;
#X text 164 421 <-- onoff indicator.;
#X text 165 446 <-- key == 0 \, unless you change.;
#X text 300 53 (1) multiplier;
#X text 300 67 (2) id value;
#X obj 285 290 f \$0;
#X obj 261 350 f \$0;
#X obj 245 235 hradio 15 1 0 8 empty empty empty 0 -8 0 10 -262144
-1 -1 0;
#X obj 245 255 sel 0 1 2 3 4 5 6 7;
#X msg 285 315 symbol \$1-riff1;
#X floatatom 115 318 5 0 0 2 key_(pitch) - -;
#X text 6 2 <<<;
#X text 416 2 >>>;
#X text 6 542 <<<;
#X text 416 542 >>>;
#X text 197 206 choose/change array on the fly;
#X msg 261 375 symbol \$1-riff2;
#X obj 20 332 metro 100;
#X connect 1 0 28 0;
#X connect 2 0 11 3;
#X connect 11 0 7 0;
#X connect 11 1 8 0;
#X connect 16 0 20 0;
#X connect 17 0 27 0;
#X connect 18 0 19 0;
#X connect 19 0 16 0;
#X connect 19 1 17 0;
#X connect 20 0 11 1;
#X connect 21 0 11 2;
#X connect 27 0 11 1;
#X connect 28 0 11 0;

93
puredata/radio_theatre_1.dots-dots.unstable/backup2/riff.pd Normal file
View file

@ -0,0 +1,93 @@
#N canvas 255 324 509 358 12;
#X obj 193 94 f;
#X obj 229 94 + 1;
#X floatatom 193 144 5 0 0 0 - - -;
#X floatatom 193 193 5 0 0 0 - - -;
#X floatatom 193 242 5 0 0 0 - - -;
#X obj 28 66 hsl 110 20 0 1600 0 0 empty \$0-val empty -2 -8 0 10 -262130
-1 -1 0 1;
#X obj 193 18 inlet;
#X obj 399 98 inlet;
#X obj 193 71 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 54 148 loadbang;
#X msg 54 198 range 0 \$1;
#X obj 25 41 bng 14 250 50 0 empty empty empty 17 7 0 10 -159808 -261234
-1;
#X floatatom 142 41 3 0 0 0 i #0-i -;
#X floatatom 50 91 7 0 0 0 val #0-val -;
#X obj 417 130 loadbang;
#X floatatom 298 100 5 0 0 0 - - -;
#X obj 193 119 mod;
#X obj 412 282 outlet;
#X obj 315 179 pack f f f f;
#X floatatom 129 91 5 0 0 0 key #0-key -;
#X obj 315 282 outlet;
#X obj 275 18 inlet;
#X obj 193 168 tabread;
#X obj 417 159 f \$2;
#X obj 193 217 * \$1;
#X obj 298 75 array size;
#X msg 275 130 set \$1;
#X obj 54 173 f \$1;
#X obj 342 148 inlet;
#X obj 275 44 t a b a;
#X obj 225 291 s \$0-val;
#X obj 412 251 r \$0-val;
#X text 201 38 1-bng;
#X text 321 18 2-array name;
#X text 341 125 3-key;
#X text 400 74 4-onoff;
#X text 314 305 1#msg;
#X text 414 305 2#val;
#X obj 145 66 tgl 20 0 empty \$0-onoff empty 17 7 0 8 -257985 -1 -1
0 1;
#X obj 249 168 s \$0-key;
#X obj 415 44 s \$0-onoff;
#X symbolatom 42 41 12 0 0 0 - - -;
#X msg 18 254 symbol no-array;
#X obj 18 229 loadbang;
#X obj 345 38 s \$0-an;
#X obj 119 288 r \$0-an;
#X msg 315 220 \$4 \$2 \$1 \$3;
#X obj 136 144 s \$0-i;
#X obj 193 266 t a a;
#X connect 0 0 1 0;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 22 0;
#X connect 2 0 47 0;
#X connect 3 0 24 0;
#X connect 4 0 48 0;
#X connect 6 0 8 0;
#X connect 7 0 18 2;
#X connect 7 0 40 0;
#X connect 8 0 0 0;
#X connect 8 0 11 0;
#X connect 9 0 27 0;
#X connect 10 0 5 0;
#X connect 14 0 23 0;
#X connect 15 0 16 1;
#X connect 16 0 2 0;
#X connect 18 0 46 0;
#X connect 21 0 29 0;
#X connect 21 0 44 0;
#X connect 22 0 3 0;
#X connect 23 0 18 3;
#X connect 24 0 4 0;
#X connect 25 0 15 0;
#X connect 26 0 22 0;
#X connect 27 0 10 0;
#X connect 28 0 18 1;
#X connect 28 0 39 0;
#X connect 29 0 26 0;
#X connect 29 1 25 0;
#X connect 29 2 25 1;
#X connect 31 0 17 0;
#X connect 42 0 41 0;
#X connect 43 0 42 0;
#X connect 45 0 41 0;
#X connect 46 0 20 0;
#X connect 48 0 18 0;
#X connect 48 1 30 0;
#X coords 0 -1 1 1 150 95 1 20 20;

120
puredata/radio_theatre_1.dots-dots.unstable/backup2/riff1.pd Normal file
View file

@ -0,0 +1,120 @@
#N canvas 355 364 551 449 12;
#X floatatom 193 170 5 0 0 0 - - -;
#X floatatom 193 239 5 0 0 0 - - -;
#X floatatom 193 288 5 0 0 0 - - -;
#X obj 28 66 hsl 110 20 0 1000 0 0 empty \$0-val empty -2 -8 0 10 -262130
-1 -1 3841 1;
#X obj 193 18 inlet;
#X obj 157 144 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 54 148 loadbang;
#X msg 54 198 range 0 \$1;
#X obj 25 41 bng 14 250 50 0 empty empty empty 17 7 0 10 -4034 -261234
-1;
#X floatatom 142 41 3 0 0 0 i #0-i -;
#X floatatom 50 91 7 0 0 0 val #0-val -;
#X obj 426 192 loadbang;
#X floatatom 369 124 5 0 0 0 - - -;
#X obj 421 344 outlet;
#X obj 324 241 pack f f f f;
#X floatatom 129 91 5 0 0 0 key #0-key -;
#X obj 324 344 outlet;
#X obj 346 18 inlet;
#X obj 193 214 tabread;
#X obj 426 221 f \$2;
#X obj 193 263 * \$1;
#X obj 369 99 array size;
#X msg 346 154 set \$1;
#X obj 54 173 f \$1;
#X obj 351 210 inlet;
#X obj 346 68 t a b a;
#X obj 225 337 s \$0-val;
#X obj 421 313 r \$0-val;
#X text 392 18 2-array name;
#X text 350 187 3-key;
#X text 323 367 1#msg;
#X obj 145 66 tgl 20 0 empty \$0-onoff empty 17 7 0 8 -257985 -1 -1
0 1;
#X obj 249 214 s \$0-key;
#X obj 453 112 s \$0-onoff;
#X symbolatom 42 41 12 0 0 0 - - -;
#X msg 18 254 symbol no-array;
#X obj 18 229 loadbang;
#X obj 451 63 s \$0-an;
#X obj 119 288 r \$0-an;
#X msg 324 282 \$4 \$2 \$1 \$3;
#X obj 136 170 s \$0-i;
#X obj 193 312 t a a;
#X obj 373 380 outlet;
#X obj 373 313 r \$0-i;
#X text 423 367 3#val;
#X text 367 398 2#idx;
#X obj 346 43 list split 1;
#X obj 193 120 f;
#X text 201 38 1-cmd for scan;
#X obj 193 65 route bang;
#X obj 260 90 route 0;
#X msg 260 115 0;
#X obj 193 145 scan \$3;
#X obj 193 92 t b b;
#X msg 426 167 1;
#X obj 257 145 t b b;
#X msg 426 142 0;
#X obj 257 170 del \$3;
#X obj 483 313 outlet;
#X text 483 335 4#done;
#X obj 297 180 del \$3;
#X connect 0 0 18 0;
#X connect 0 0 40 0;
#X connect 0 0 5 0;
#X connect 1 0 20 0;
#X connect 2 0 41 0;
#X connect 4 0 49 0;
#X connect 5 0 8 0;
#X connect 6 0 23 0;
#X connect 7 0 3 0;
#X connect 11 0 19 0;
#X connect 12 0 47 1;
#X connect 14 0 39 0;
#X connect 17 0 46 0;
#X connect 18 0 1 0;
#X connect 19 0 14 3;
#X connect 20 0 2 0;
#X connect 21 0 12 0;
#X connect 22 0 18 0;
#X connect 23 0 7 0;
#X connect 24 0 14 1;
#X connect 24 0 32 0;
#X connect 25 0 22 0;
#X connect 25 1 21 0;
#X connect 25 2 21 1;
#X connect 27 0 13 0;
#X connect 35 0 34 0;
#X connect 36 0 35 0;
#X connect 38 0 34 0;
#X connect 39 0 16 0;
#X connect 41 0 14 0;
#X connect 41 1 26 0;
#X connect 43 0 42 0;
#X connect 46 0 37 0;
#X connect 46 0 25 0;
#X connect 47 0 52 0;
#X connect 49 0 53 0;
#X connect 49 1 50 0;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X connect 52 0 0 0;
#X connect 52 1 55 0;
#X connect 53 0 47 0;
#X connect 53 1 54 0;
#X connect 54 0 14 2;
#X connect 54 0 33 0;
#X connect 55 0 57 0;
#X connect 55 1 56 0;
#X connect 56 0 14 2;
#X connect 56 0 33 0;
#X connect 57 0 14 0;
#X connect 57 0 58 0;
#X connect 57 0 60 0;
#X connect 60 0 14 0;
#X coords 0 -1 1 1 150 95 1 20 20;

120
puredata/radio_theatre_1.dots-dots.unstable/backup2/riff1_random.pd Normal file
View file

@ -0,0 +1,120 @@
#N canvas 415 315 594 449 12;
#X floatatom 193 170 5 0 0 0 - - -;
#X floatatom 193 239 5 0 0 0 - - -;
#X floatatom 193 288 5 0 0 0 - - -;
#X obj 28 66 hsl 110 20 0 0 0 0 empty \$0-val empty -2 -8 0 10 -262130
-1 -1 0 1;
#X obj 193 18 inlet;
#X obj 157 144 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 54 148 loadbang;
#X msg 54 198 range 0 \$1;
#X obj 25 41 bng 14 250 50 0 empty empty empty 17 7 0 10 -4034 -261234
-1;
#X floatatom 142 41 3 0 0 0 i #0-i -;
#X floatatom 50 91 7 0 0 0 val #0-val -;
#X obj 466 192 loadbang;
#X floatatom 409 124 5 0 0 0 - - -;
#X obj 461 344 outlet;
#X obj 364 241 pack f f f f;
#X floatatom 129 91 5 0 0 0 key #0-key -;
#X obj 364 344 outlet;
#X obj 386 18 inlet;
#X obj 193 214 tabread;
#X obj 466 221 f \$2;
#X obj 193 263 * \$1;
#X obj 409 99 array size;
#X msg 386 154 set \$1;
#X obj 54 173 f \$1;
#X obj 391 210 inlet;
#X obj 386 68 t a b a;
#X obj 225 337 s \$0-val;
#X obj 461 313 r \$0-val;
#X text 432 18 2-array name;
#X text 390 187 3-key;
#X text 363 367 1#msg;
#X obj 145 66 tgl 20 0 empty \$0-onoff empty 17 7 0 8 -257985 -1 -1
0 1;
#X obj 249 214 s \$0-key;
#X obj 493 112 s \$0-onoff;
#X symbolatom 42 41 12 0 0 0 - - -;
#X msg 18 254 symbol no-array;
#X obj 18 229 loadbang;
#X obj 491 63 s \$0-an;
#X obj 119 288 r \$0-an;
#X msg 364 282 \$4 \$2 \$1 \$3;
#X obj 136 170 s \$0-i;
#X obj 193 312 t a a;
#X obj 413 380 outlet;
#X obj 413 313 r \$0-i;
#X text 463 367 3#val;
#X text 407 398 2#idx;
#X obj 386 43 list split 1;
#X obj 193 120 f;
#X text 201 38 1-cmd for scan;
#X obj 193 65 route bang;
#X obj 260 90 route 0;
#X msg 260 115 0;
#X obj 193 92 t b b;
#X msg 466 167 1;
#X obj 297 145 t b b;
#X msg 466 142 0;
#X obj 297 170 del \$3;
#X obj 523 313 outlet;
#X text 523 335 4#done;
#X obj 337 180 del \$3;
#X obj 193 145 rscan \$3 \$4;
#X connect 0 0 18 0;
#X connect 0 0 40 0;
#X connect 0 0 5 0;
#X connect 1 0 20 0;
#X connect 2 0 41 0;
#X connect 4 0 49 0;
#X connect 5 0 8 0;
#X connect 6 0 23 0;
#X connect 7 0 3 0;
#X connect 11 0 19 0;
#X connect 12 0 47 1;
#X connect 14 0 39 0;
#X connect 17 0 46 0;
#X connect 18 0 1 0;
#X connect 19 0 14 3;
#X connect 20 0 2 0;
#X connect 21 0 12 0;
#X connect 22 0 18 0;
#X connect 23 0 7 0;
#X connect 24 0 14 1;
#X connect 24 0 32 0;
#X connect 25 0 22 0;
#X connect 25 1 21 0;
#X connect 25 2 21 1;
#X connect 27 0 13 0;
#X connect 35 0 34 0;
#X connect 36 0 35 0;
#X connect 38 0 34 0;
#X connect 39 0 16 0;
#X connect 41 0 14 0;
#X connect 41 1 26 0;
#X connect 43 0 42 0;
#X connect 46 0 37 0;
#X connect 46 0 25 0;
#X connect 47 0 60 0;
#X connect 49 0 52 0;
#X connect 49 1 50 0;
#X connect 50 0 51 0;
#X connect 51 0 60 0;
#X connect 52 0 47 0;
#X connect 52 1 53 0;
#X connect 53 0 14 2;
#X connect 53 0 33 0;
#X connect 54 0 56 0;
#X connect 54 1 55 0;
#X connect 55 0 14 2;
#X connect 55 0 33 0;
#X connect 56 0 14 0;
#X connect 56 0 57 0;
#X connect 56 0 59 0;
#X connect 59 0 14 0;
#X connect 60 0 0 0;
#X connect 60 1 54 0;
#X coords 0 -1 1 1 150 95 1 20 20;

56
puredata/radio_theatre_1.dots-dots.unstable/backup2/rscan.pd Normal file
View file

@ -0,0 +1,56 @@
#N canvas 291 274 385 490 12;
#X obj 120 365 f;
#X obj 84 365 + 1;
#X obj 218 340 sel 1;
#X msg 138 340 0;
#X obj 218 315 ==;
#X obj 236 205 - 1;
#X obj 39 81 inlet;
#X msg 179 225 0;
#X msg 106 224 1;
#X obj 106 165 t b b a;
#X msg 39 225 0;
#X obj 236 230 max 0;
#X text 5 4 <<<;
#X text 345 4 >>>;
#X text 5 454 <<<;
#X text 345 454 >>>;
#X text 39 22 generate numbers from 0 to given (inlet-1);
#X text 84 82 1-command:;
#X text 124 98 - number-> target value;
#X text 124 112 - if <= 0 \, stop immediately;
#X obj 39 135 moses 1;
#X obj 278 385 outlet;
#X text 278 364 2#end bng;
#X msg 39 310 bang;
#X obj 120 390 t a a;
#X floatatom 152 415 5 0 0 0 - - -;
#X obj 152 439 outlet;
#X text 202 439 1#values;
#X text 39 38 arguments: random range => \$1 \, random offset => \$2
;
#X obj 91 271 retro \$1 \$2;
#X connect 0 0 1 0;
#X connect 0 0 24 0;
#X connect 1 0 0 1;
#X connect 2 0 7 0;
#X connect 2 0 21 0;
#X connect 3 0 0 1;
#X connect 4 0 2 0;
#X connect 5 0 11 0;
#X connect 6 0 20 0;
#X connect 7 0 29 0;
#X connect 8 0 29 0;
#X connect 9 0 8 0;
#X connect 9 1 3 0;
#X connect 9 2 5 0;
#X connect 10 0 23 0;
#X connect 10 0 29 0;
#X connect 11 0 4 1;
#X connect 20 0 10 0;
#X connect 20 1 9 0;
#X connect 23 0 21 0;
#X connect 24 0 4 0;
#X connect 24 1 25 0;
#X connect 25 0 26 0;
#X connect 29 0 0 0;

38
puredata/radio_theatre_1.dots-dots.unstable/o.io.slipserial.pd Normal file
View file

@ -0,0 +1,38 @@
#N canvas 530 426 374 320 10;
#X obj 50 18 inlet;
#X obj 50 280 outlet;
#X obj 166 18 inlet;
#X obj 50 41 slipenc 65536;
#X obj 50 253 slipdec 65536;
#X msg 219 137 info;
#X obj 107 192 route open;
#X obj 166 41 t a a;
#X obj 219 93 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 170 266 outlet;
#X obj 196 235 print info;
#X obj 50 104 spigot;
#X obj 154 120 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 166 64 route open devicename close;
#X obj 219 114 del 200;
#X obj 50 169 comport -1;
#X connect 0 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 11 0;
#X connect 4 0 1 0;
#X connect 5 0 15 0;
#X connect 6 0 9 0;
#X connect 6 0 12 0;
#X connect 6 1 10 0;
#X connect 7 0 13 0;
#X connect 7 1 15 0;
#X connect 8 0 14 0;
#X connect 11 0 15 0;
#X connect 12 0 11 1;
#X connect 13 0 8 0;
#X connect 13 1 8 0;
#X connect 13 2 8 0;
#X connect 14 0 5 0;
#X connect 15 0 4 0;
#X connect 15 1 6 0;

34
puredata/piano_access_radio_comm_only_esp8266.pd → puredata/radio_theatre_1.dots-dots.unstable/piano_access_radio_comm_only.pd
View file

@ -1,4 +1,4 @@
#N canvas 503 89 623 400 10;
#N canvas 503 95 623 400 10;
#X obj 322 198 spigot;
#X obj 371 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
@ -57,7 +57,7 @@
#X obj 117 190 s HELLO;
#X obj 34 120 print OSC;
#X obj 34 93 spigot;
#X obj 83 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
#X obj 83 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 412 217 s OSC;
#X obj 412 155 r NOTE;
@ -66,7 +66,7 @@
#X floatatom 543 325 5 0 0 0 - - -;
#X obj 543 347 s PS;
#X obj 494 236 tgl 25 0 empty empty hello 32 7 0 15 -159808 -257985
-159808 0 1;
-159808 1 1;
#X obj 543 263 loadbang;
#X msg 543 286 1;
#X obj 494 286 sel 1;
@ -76,31 +76,24 @@
#X obj 34 190 print HELLO;
#X text 103 24 * a wireless "field synth" - based on 'esp now' protocol
;
#X msg 243 98 devicename /dev/ttyACM0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X msg 494 315 2000;
#X obj 230 203 tgl 15 0 empty empty connected? 17 7 0 10 -262144 -1
-1 1 1;
#X obj 79 307 tgl 15 0 empty empty melodica_long_long_breath 17 7 0
10 -262144 -1 -1 1 1;
#X obj 79 351 s NOTE;
#X obj 271 352 s NOTE;
#X msg 271 328 4401 0 \$1 1;
#X floatatom 271 305 5 0 0 0 - - -;
#X msg 243 78 devicename /dev/ttyUSB0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X obj 143 241 print;
#X msg 79 327 10001 1 127 \$1;
#X msg 204 58 devicename /dev/tty.usbmodem32177401 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 3 1 29 0;
#X connect 3 1 30 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 36 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 12 0 11 0;
@ -111,13 +104,10 @@
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 20 0;
#X connect 23 0 28 0;
#X connect 23 0 29 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 18 0;
#X connect 30 0 37 0;
#X connect 33 0 32 0;
#X connect 34 0 33 0;
#X connect 35 0 3 1;
#X connect 37 0 31 0;
#X connect 28 0 3 1;
#X connect 29 0 18 0;
#X connect 31 0 3 1;

595
puredata/radio_theatre_1.dots-dots.unstable/piano_access_radio_dots.pd Normal file
View file

@ -0,0 +1,595 @@
#N canvas 38 33 866 674 10;
#X obj 508 75 bng 15 250 50 0 empty empty open! 17 7 0 10 #fcfcfc #000000
#000000;
#X msg 448 75 close;
#X obj 508 150 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#N canvas 0 23 768 366 wireless 0;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 422 196 pd buildOSC for all;
#X obj 187 174 o.io.slipserial;
#X msg 313 129 devices;
#X msg 313 154 close;
#X obj 187 135 packOSC;
#X obj 187 110 r OSC;
#X obj 187 199 unpackOSC;
#X obj 187 224 routeOSC /hello;
#X obj 187 263 s HELLO;
#X obj 422 221 s OSC;
#X obj 422 171 r NOTE;
#X text 423 150 /id /pitch /velocity /onoff;
#X obj 303 202 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X text 12 12 <<<;
#X text 718 324 >>>;
#X obj 222 31 inlet;
#X obj 222 56 route bang;
#X obj 303 302 outlet;
#X obj 56 94 spigot;
#X obj 125 79 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 56 119 print NOTE;
#X obj 56 299 print OSC;
#X obj 56 274 spigot;
#X obj 125 259 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 56 184 spigot;
#X obj 125 169 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 56 209 print HELLO;
#X obj 56 249 r OSC;
#X obj 56 159 r HELLO;
#X obj 56 69 r NOTE;
#X obj 622 288 s PS;
#X obj 622 233 tgl 25 0 empty empty hello 32 7 0 15 #9c00fc #f8fc00
#9c00fc 0 1;
#X obj 669 155 loadbang;
#X msg 669 180 0;
#X obj 622 263 * 2000;
#X msg 313 89 devicename /dev/ttyUSB0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X connect 0 0 9 0;
#X connect 1 0 6 0;
#X connect 1 1 12 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 10 0 0 0;
#X connect 12 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 35 0;
#X connect 16 1 1 1;
#X connect 18 0 20 0;
#X connect 19 0 18 1;
#X connect 22 0 21 0;
#X connect 23 0 22 1;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 27 0 22 0;
#X connect 28 0 24 0;
#X connect 29 0 18 0;
#X connect 31 0 34 0;
#X connect 32 0 33 0;
#X connect 33 0 31 0;
#X connect 34 0 30 0;
#X connect 35 0 1 1;
#X restore 508 111 pd wireless;
#X text 445 32 ))) radio access (((;
#X text 10 8 <<<;
#N canvas 98 168 1033 566 (subpatch) 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array world_energy 20 float 3;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 20 0 200 50 1 0 0;
#X restore 9 32 graph;
#X floatatom 55 85 5 0 0 0 world_E WORLD_ENERGY - 0;
#X floatatom 177 85 5 0 0 0 r:E_SEQ_line E_SEQ_line - 0;
#X obj 125 106 tgl 15 0 WORLD_SLEEP empty WORLD_SLEEP 17 7 0 10 #fc0400
#fcfcfc #fc0400 0 1;
#X obj 9 106 bng 15 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
17 7 0 10 #f8fc00 #000000 #000000;
#X obj 406 174 array sum;
#X msg 482 144 symbol world_energy;
#X msg 536 83 \; world_energy const 0;
#X obj 406 139 metro 100;
#X obj 406 252 s WORLD_ENERGY;
#X obj 450 90 t b b;
#X obj 406 199 max 0.001;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_sequence 20 float 3;
#A 0 1.22 1.18 1.24 0.66 0.84 0.84 0.58 0.22 0.24 0.98 1.34 1.24 0.36
0.62 1.06 0.94 0.14 0.14 0.14 0.14;
#X coords 0 2 20 0 200 100 1 0 0;
#X restore 722 44 graph;
#X obj 657 274 f;
#X obj 690 274 + 1;
#X obj 657 299 mod 20;
#X floatatom 657 324 5 0 0 0 - - - 0;
#X obj 657 348 tabread we_sequence;
#X obj 643 244 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X floatatom 657 373 5 0 0 0 - - - 0;
#X obj 406 225 *;
#X obj 643 219 metro 60000;
#X obj 643 199 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 643 174 loadbang;
#X obj 657 397 s E_SEQ;
#X msg 774 172 \; we_sequence const 1;
#X obj 722 144 hradio 10 1 0 20 empty empty empty 0 -8 0 10 #f8fc00
#0400fc #000000 0;
#X obj 501 339 line;
#X floatatom 501 364 5 0 0 0 - - - 0;
#X msg 501 313 \$1 10000;
#X obj 501 388 s E_SEQ_line;
#X obj 811 295 bng 15 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
17 7 0 10 #fcfcfc #000000 #000000;
#X obj 781 241 sel 12 16 17 18 19;
#X obj 450 65 loadbang;
#X connect 5 0 11 0;
#X connect 6 0 5 2;
#X connect 8 0 5 0;
#X connect 10 1 6 0;
#X connect 10 1 7 0;
#X connect 11 0 20 0;
#X connect 13 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 1;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 0 26 0;
#X connect 16 0 32 0;
#X connect 17 0 19 0;
#X connect 18 0 13 0;
#X connect 19 0 24 0;
#X connect 19 0 29 0;
#X connect 20 0 9 0;
#X connect 21 0 18 0;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 27 0 28 0;
#X connect 28 0 20 1;
#X connect 28 0 30 0;
#X connect 29 0 27 0;
#X connect 32 0 31 0;
#X connect 32 1 31 0;
#X connect 32 2 31 0;
#X connect 32 3 31 0;
#X connect 32 4 31 0;
#X connect 33 0 10 0;
#X coords 0 -1 1 1 207 120 2 5 5;
#X restore 14 43 pd;
#X obj 357 81 r FEED;
#N canvas 246 33 510 649 flag 0;
#X obj 385 601 s NOTE;
#X obj 385 271 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 412 536 s X1;
#X obj 385 326 f;
#X obj 435 329 + 1;
#X obj 385 349 mod 2;
#X floatatom 385 372 5 0 0 0 - - - 0;
#X obj 385 303 metro 500;
#X floatatom 436 253 5 0 0 0 - - - 0;
#X obj 89 241 riff2;
#X msg 160 201 flag;
#X obj 89 110 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X msg 26 255 0;
#X floatatom 184 420 5 0 0 0 - - - 0;
#X msg 232 349 0;
#X obj 89 150 t b b;
#X msg 232 212 4401 0 500 1000;
#X obj 89 37 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000
0 1;
#X obj 89 63 metro 40000;
#X msg 385 572 4002 0 \$1 2;
#N canvas 0 50 450 250 (subpatch) 0;
#X array flag 20 float 3;
#A 0 0.471429 0.521429 0.378571 0.364285 0.414286 0.428573 0.535714
0.335712 0.678571 0.707143 0.514286 0.321429 0.578571 0.371429 0.492857
0.407143 0.514286 0.435715 0.471429 0.600005;
#X coords 0 1 20 0 200 140 1 0 0;
#X restore 269 25 graph;
#X obj 232 183 loadbang;
#X obj 385 485 t a b;
#X obj 385 394 * 2;
#X obj 385 417 - 1;
#X obj 385 440 * 1000;
#X floatatom 385 463 5 0 0 0 - - - 0;
#X obj 412 513 f 500;
#X msg 116 173 1;
#X connect 1 0 7 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 6 0;
#X connect 6 0 23 0;
#X connect 7 0 3 0;
#X connect 8 0 7 1;
#X connect 9 2 13 0;
#X connect 9 3 14 0;
#X connect 10 0 9 1;
#X connect 11 0 15 0;
#X connect 12 0 9 0;
#X connect 13 0 8 0;
#X connect 14 0 1 0;
#X connect 15 0 9 0;
#X connect 15 1 28 0;
#X connect 16 0 9 2;
#X connect 17 0 18 0;
#X connect 18 0 11 0;
#X connect 19 0 0 0;
#X connect 21 0 16 0;
#X connect 21 0 10 0;
#X connect 22 0 19 0;
#X connect 22 1 27 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 22 0;
#X connect 27 0 2 0;
#X connect 28 0 1 0;
#X restore 309 34 pd flag testing;
#N canvas 760 33 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - - 0;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - - 0;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 110 504 5 0 0 0 stress - - 0;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 238 480 8 0 0 0 - - - 0;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - - 0;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8
#f8fc00 #000000;
#X obj 238 578 max 0;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X msg 285 439 0.1;
#X msg 304 462 -0.05;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 #fcfcfc
#000000 #000000 0 1;
#X obj 158 51 s \$0-SLEEP;
#X obj 16 210 < 0.7;
#X text 109 114 listening speed;
#X obj 16 114 resampl 100;
#X connect 0 0 53 0;
#X connect 1 0 5 0;
#X connect 1 1 35 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 26 0;
#X connect 8 0 16 0;
#X connect 9 0 36 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 33 0;
#X connect 14 0 30 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 51 0;
#X connect 18 0 15 0;
#X connect 18 1 32 0;
#X connect 19 0 46 0;
#X connect 19 1 47 0;
#X connect 21 0 11 0;
#X connect 21 0 34 0;
#X connect 26 0 8 0;
#X connect 28 0 14 0;
#X connect 30 0 18 0;
#X connect 32 0 19 0;
#X connect 33 0 12 1;
#X connect 35 0 4 0;
#X connect 35 0 25 0;
#X connect 37 0 38 0;
#X connect 38 0 40 0;
#X connect 39 0 37 0;
#X connect 40 0 41 0;
#X connect 42 0 45 0;
#X connect 45 0 0 0;
#X connect 46 0 15 0;
#X connect 47 0 15 0;
#X connect 48 0 45 1;
#X connect 49 0 50 0;
#X connect 51 0 1 0;
#X connect 53 0 17 0;
#X restore 757 85 pd world and me;
#X obj 357 104 spigot;
#X obj 357 127 print;
#X obj 418 89 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#N canvas -11 33 1449 601 rounder 0;
#X obj 428 107 r rounder_onconnect;
#N canvas 0 50 450 250 (subpatch) 0;
#X array rounder_energy 10 float 2;
#X coords 0 1 10 0 200 50 1 0 0;
#X restore 104 121 graph;
#X obj 428 165 v rounder_member_count;
#X obj 395 165 + 1;
#X obj 428 136 t b a;
#X obj 735 167 r rounder_status;
#X msg 735 196 \; rounder_energy \$2 \$1;
#X msg 367 235 \; rounder_energy resize \$1;
#X obj 690 437 array sum;
#X obj 690 402 metro 100;
#X obj 690 462 max 0.001;
#X obj 690 488 *;
#X obj 690 318 loadbang;
#X msg 773 361 \; rounder_energy const 0;
#X msg 773 409 symbol rounder_energy;
#N canvas 0 50 450 250 (subpatch) 0;
#X array rounder_energy_sequence 20 float 3;
#A 0 1.22 1.18 1.24 0.66 0.84 0.84 0.58 0.22 0.24 0.98 1.34 1.24 0.36
0.62 1.06 0.94 0.14 0.14 0.14 0.14;
#X coords 0 2 20 0 200 100 1 0 0;
#X restore 1015 48 graph;
#X obj 950 278 f;
#X obj 983 278 + 1;
#X obj 950 303 mod 20;
#X floatatom 950 328 5 0 0 0 - - - 0;
#X obj 935 248 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X floatatom 950 385 5 0 0 0 - - - 0;
#X obj 935 223 metro 60000;
#X obj 935 203 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 935 178 loadbang;
#X obj 1015 148 hradio 10 1 0 20 empty empty empty 0 -8 0 10 #f8fc00
#0400fc #000000 0;
#X obj 950 442 line;
#X floatatom 950 471 5 0 0 0 - - - 0;
#X msg 950 413 \$1 10000;
#X msg 1222 48 \; rounder_energy_sequence const 1;
#X obj 950 356 tabread rounder_energy_sequence;
#X obj 690 533 v rounder_energy_sum;
#X floatatom 690 511 5 0 0 0 - - - 0;
#X obj 77 239 v rounder_sleep;
#X obj 103 182 tgl 15 0 empty empty sleep 17 7 0 10 #ff0400 #ffffff
#000000 0 1;
#X obj 428 194 send;
#X text 436 54 hi \, welcome!;
#X text 798 55 everyone-energy;
#X obj 690 343 t b b b;
#X floatatom 272 181 5 0 0 0 member\ count - - 0;
#X floatatom 272 201 5 0 0 0 e_seq - - 0;
#X floatatom 196 201 5 0 0 0 energy\ all - - 0;
#X obj 67 64 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 #fc0400
#fcfcfc #fc0400 0 1;
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 2 0 35 0;
#X connect 3 0 2 0;
#X connect 3 0 7 0;
#X connect 3 0 39 0;
#X connect 4 0 2 0;
#X connect 4 1 35 1;
#X connect 5 0 6 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 11 0;
#X connect 11 0 32 0;
#X connect 12 0 38 0;
#X connect 14 0 8 2;
#X connect 16 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 16 1;
#X connect 18 0 19 0;
#X connect 19 0 25 0;
#X connect 19 0 30 0;
#X connect 20 0 16 0;
#X connect 21 0 28 0;
#X connect 22 0 20 0;
#X connect 23 0 22 0;
#X connect 24 0 23 0;
#X connect 26 0 27 0;
#X connect 27 0 11 1;
#X connect 27 0 40 0;
#X connect 28 0 26 0;
#X connect 30 0 21 0;
#X connect 32 0 31 0;
#X connect 32 0 41 0;
#X connect 34 0 33 0;
#X connect 38 0 9 0;
#X connect 38 1 14 0;
#X connect 38 2 13 0;
#X connect 42 0 34 0;
#X coords 0 -1 1 1 207 120 2 100 100;
#X restore 19 229 pd rounder world;
#X obj 549 210 radio_mote;
#A saved 0.447618 0.466666 0.471428 0.47619 0.485714 0.485714 0.490476
0.495238 0.504762 0.504762 0.504762 0.514286 0.514286 0.514286 0.514286
0.514286 0.514286 0.504762 0.504762 0.504762 0.504762 0.504762 0.504762
0.504762 0.504762 0.504762 0.504762 0.504762 0.504762 0.495238 0.495238
0.504762 0.504762 0.523809 0.533333 0.552381 0.571429 0.590477 0.6
0.609524 0.628572 0.638096 0.64762 0.657144 0.666667 0.676191 0.685715
0.685715 0.695239 0.704763 0.714287 0.723811 0.723811 0.723811 0.733335
0.742858 0.742858 0.742858 0.752382 0.800002 60 0.514286 0.52381 0.533334
0.704762 0.752382 0.77143 0.809525 0.819049 0.838097 0.84762 0.866668
0.876192 0.885716 0.89524 0.89524 0.89524 0.89524 0.876192 0.828573
0.77143 0.752382 0.666667 0.619048 0.580952 0.514285 0.47619 0.495237
0.514285 0.552381 0.580952 0.6 0.638095 0.652381 0.685715 0.704762
0.733334 0.733334 0.704762 0.685715 0.399999 40 0.523809 0.609524 0.657143
0.695239 0.742858 0.761906 0.790477 0.819049 0.800001 0.733334 0.619048
0.561905 0.495237 0.457142 0.457142 0.533333 0.6 0.614286 0.647619
0.676191 0.695239 0.714286 0.695239 0.628572 0.495237 0.409523 0.485714
0.542857 0.571428 0.6 0.638095 0.666667 0.695239 0.695239 0.704763
0.666667 0.590476 0.542857 0.495237 0.514285 40 0.742858 0.580952 0.6
0.647619 0.657143 0.695239 0.704763 0.733334 0.752382 0.77143 0.790478
0.819049 0.838097 0.800001 0.780954 0.666667 0.6 0.447618 0.466666
0.485714 0.523809 0.561905 0.590476 0.609524 0.628572 0.647619 0.657143
0.657143 0.657143 0.657143 0.628572 0.6 0.580952 0.533333 0.514285
0.457142 0.419047 0.371427 0.390475 0.419047 0.457142 0.47619 0.504761
0.533333 0.552381 0.561905 0.571429 0.580952 0.580952 0.542857 0.504761
0.419047 0.399999 0.285712 0.323808 0.35238 0.390475 0.409523 0.419047
0.0476158 60 4004 0 600 500 r1 rounder 0.7 0.49 0.1 -0.05;
#X obj 422 354 radio_mote;
#A saved 0.447618 0.466666 0.471428 0.47619 0.485714 0.485714 0.490476
0.495238 0.504762 0.504762 0.504762 0.514286 0.514286 0.514286 0.514286
0.514286 0.514286 0.504762 0.504762 0.504762 0.504762 0.504762 0.504762
0.504762 0.504762 0.504762 0.504762 0.504762 0.504762 0.495238 0.495238
0.504762 0.504762 0.523809 0.533333 0.552381 0.571429 0.590477 0.6
0.609524 0.628572 0.638096 0.64762 0.657144 0.666667 0.676191 0.685715
0.685715 0.695239 0.704763 0.714287 0.723811 0.723811 0.723811 0.733335
0.742858 0.742858 0.742858 0.752382 0.800002 60 0.514286 0.52381 0.533334
0.704762 0.752382 0.77143 0.809525 0.819049 0.838097 0.84762 0.866668
0.876192 0.885716 0.89524 0.89524 0.89524 0.89524 0.876192 0.828573
0.77143 0.752382 0.666667 0.619048 0.580952 0.514285 0.47619 0.495237
0.514285 0.552381 0.580952 0.6 0.638095 0.652381 0.685715 0.704762
0.733334 0.733334 0.704762 0.685715 0.399999 40 0.523809 0.609524 0.657143
0.695239 0.742858 0.761906 0.790477 0.819049 0.800001 0.733334 0.619048
0.561905 0.495237 0.457142 0.457142 0.533333 0.6 0.614286 0.647619
0.676191 0.695239 0.714286 0.695239 0.628572 0.495237 0.409523 0.485714
0.542857 0.571428 0.6 0.638095 0.666667 0.695239 0.695239 0.704763
0.666667 0.590476 0.542857 0.495237 0.514285 40 0.742858 0.580952 0.6
0.647619 0.657143 0.695239 0.704763 0.733334 0.752382 0.77143 0.790478
0.819049 0.838097 0.800001 0.780954 0.666667 0.6 0.447618 0.466666
0.485714 0.523809 0.561905 0.590476 0.609524 0.628572 0.647619 0.657143
0.657143 0.657143 0.657143 0.628572 0.6 0.580952 0.533333 0.514285
0.457142 0.419047 0.371427 0.390475 0.419047 0.457142 0.47619 0.504761
0.533333 0.552381 0.561905 0.571429 0.580952 0.580952 0.542857 0.504761
0.419047 0.399999 0.285712 0.323808 0.35238 0.390475 0.409523 0.419047
0.0476158 60 4004 0 600 500 r1 rounder 0.7 0.49 0.1 -0.0499992;
#X obj 1142 111 list store;
#X obj 1142 82 route clear;
#X obj 949 224 r PEER_new;
#X obj 1064 76 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 892 218 print;
#X obj 1239 67 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 1154 216 makefilename %d-listen;
#X obj 1139 239 s;
#X obj 1142 59 r NODE_list;
#X obj 1142 134 print NODE;
#X connect 0 0 3 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 7 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 10 1;
#X connect 16 0 25 0;
#X connect 17 0 16 1;
#X connect 17 1 16 0;
#X connect 18 0 20 0;
#X connect 19 0 16 0;
#X connect 21 0 16 1;
#X connect 22 0 23 1;
#X connect 24 0 17 0;

618
puredata/radio_theatre_1.dots-dots.unstable/radio_gong.pd Normal file
View file

@ -0,0 +1,618 @@
#N canvas 0 74 498 493 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 151 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 187 184 1;
#X obj 187 237 v \$0-STATE;
#N canvas 760 33 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - - 0;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - - 0;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 110 504 5 0 0 0 stress - - 0;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 238 480 8 0 0 0 - - - 0;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - - 0;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8
#f8fc00 #000000;
#X obj 238 578 max 0;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X msg 285 439 0.1;
#X msg 304 462 -0.05;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 #fcfcfc
#000000 #000000 0 1;
#X obj 158 51 s \$0-SLEEP;
#X obj 16 210 < 0.7;
#X text 109 114 listening speed;
#X obj 16 114 resampl 100;
#X connect 0 0 53 0;
#X connect 1 0 5 0;
#X connect 1 1 35 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 26 0;
#X connect 8 0 16 0;
#X connect 9 0 36 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 33 0;
#X connect 14 0 30 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 51 0;
#X connect 18 0 15 0;
#X connect 18 1 32 0;
#X connect 19 0 46 0;
#X connect 19 1 47 0;
#X connect 21 0 11 0;
#X connect 21 0 34 0;
#X connect 26 0 8 0;
#X connect 28 0 14 0;
#X connect 30 0 18 0;
#X connect 32 0 19 0;
#X connect 33 0 12 1;
#X connect 35 0 4 0;
#X connect 35 0 25 0;
#X connect 37 0 38 0;
#X connect 38 0 40 0;
#X connect 39 0 37 0;
#X connect 40 0 41 0;
#X connect 42 0 45 0;
#X connect 45 0 0 0;
#X connect 46 0 15 0;
#X connect 47 0 15 0;
#X connect 48 0 45 1;
#X connect 49 0 50 0;
#X connect 51 0 1 0;
#X connect 53 0 17 0;
#X restore 105 109 pd world and me;
#N canvas 500 330 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 40 float 2;
#X coords 0 1 40 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 2;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 536 45 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array \$0-sign2 40 float 2;
#X coords 0 1 40 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 2;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 26 45 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 267 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign 40 float 2;
#X coords 0 1 40 0 25 25 1 0 0;
#X restore 26 42 graph;
#X obj 112 52 hradio 15 1 0 4 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 339 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X text 35 320 stop!;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X obj 88 429 s NOTE;
#X obj 288 329 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 362 101 v \$0-STRESS;
#X obj 362 147 v \$0-STRESS;
#X obj 362 81 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 #fcfcfc #000000 #000000;
#X obj 362 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 362 271 r \$0-word-max;
#X obj 362 317 s \$0-word-max-set;
#X msg 362 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 362 209 set \$1;
#X obj 362 186 r \$0-SLEEP;
#X obj 362 232 s \$0-SLEEP-set;
#X obj 249 329 f \$0;
#X obj 249 352 makefilename %d-sign;
#N canvas 692 150 585 302 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 268 146 pd save-sign;
#X msg 268 123 4;
#X obj 221 90 t b b b b b;
#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 252 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 236 192 pd save-name;
#X msg 60 209 4;
#N canvas 0 0 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 137 129 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 232 pd load-sign;
#X obj 60 111 t b b b a;
#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 94 152 pd load-name;
#N canvas 0 0 417 482 load-riff 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 52 24 r \$0-load-riff;
#X obj 223 97 symbol \$0-load-riff;
#X obj 109 165 - 4;
#X obj 80 218 unpack f f f f;
#X obj 80 310 s \$0-id-set;
#X obj 107 287 s \$0-key-set;
#X obj 134 264 s \$0-range-set;
#X obj 161 241 s \$0-sdelay-set;
#X obj 181 183;
#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 17 0;
#X connect 10 0 16 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 16 0 9 1;
#X connect 16 0 10 0;
#X connect 17 0 18 0;
#X connect 17 1 19 0;
#X connect 17 2 20 0;
#X connect 17 3 21 0;
#X restore 77 181 pd load-riff;
#X obj 445 124 list store;
#X obj 438 200 print;
#X obj 445 98 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 407 49 t a b;
#X obj 280 28 list prepend append;
#X obj 280 51 list trim;
#X connect 0 0 11 0;
#X connect 0 0 18 0;
#X connect 0 1 5 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X connect 5 1 7 0;
#X connect 5 2 6 0;
#X connect 5 3 4 0;
#X connect 5 4 1 1;
#X connect 8 0 10 0;
#X connect 11 0 8 0;
#X connect 11 1 13 0;
#X connect 11 2 12 0;
#X connect 11 3 9 0;
#X connect 14 0 15 0;
#X connect 16 0 14 0;
#X connect 17 0 14 0;
#X connect 17 1 14 1;
#X connect 18 0 19 0;
#X connect 19 0 17 0;
#X restore 388 444 pd statesave;
#X obj 248 92 pack s f;
#X obj 248 46 t b f;
#X obj 248 26 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 248 138 s FEED;
#X obj 197 212 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 303 393 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 248 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 155 loadbang;
#X obj 7 201 v \$0-STRESS;
#X obj 7 178 metro 100;
#X obj 7 224 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 88 306 riff2 \$2 \$1 \$3;
#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 \$0-sdelay-set sd
-14 7 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 110 10 15 0 0 0 @ \$0-name-set \$0-name 0;
#X obj 326 35 r \$0-name;
#X obj 200 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 248 69 symbol;
#N canvas 0 0 369 268 riffpara 0;
#X obj 23 141 pack f f f f;
#X obj 152 64 r \$0-sdelay;
#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 174 s \$0-riff-para;
#X obj 23 213 outlet;
#X connect 0 0 8 0;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 3 1 0 3;
#X connect 4 0 0 0;
#X connect 4 1 0 2;
#X connect 5 0 0 0;
#X connect 5 1 0 1;
#X connect 6 0 0 0;
#X connect 7 0 4 0;
#X restore 231 267 pd riffpara;
#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 45 0;
#X connect 8 0 1 0;
#X connect 9 0 45 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 45 1;
#X connect 32 0 38 0;
#X connect 33 0 52 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 45 0 15 0;
#X connect 45 3 11 0;
#X connect 50 0 52 1;
#X connect 52 0 32 0;
#X connect 53 0 45 2;
#X coords 0 -1 1 1 220 85 2 5 5;

894
puredata/radio_theatre_1.dots-dots.unstable/radio_mote.pd Normal file
View file

@ -0,0 +1,894 @@
#N canvas 91 33 728 518 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 \$0-motivate motivated! 17 7 0
10 #fcfcfc #000000 #000000;
#X msg 187 224 1;
#X obj 187 277 v \$0-STATE;
#N canvas 582 334 712 447 expressions 0;
#X obj 24 211 inlet;
#X obj 24 292 outlet;
#X obj 24 263 t b a;
#X obj 226 299 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 40 float 2;
#X coords 0 1 40 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 2;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 536 45 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array \$0-sign2 40 float 2;
#X coords 0 1 40 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 2;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 26 45 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 6 1 3 0;
#X connect 7 0 2 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 4 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 249 346 loadbang;
#X obj 231 446 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X text 35 360 stop!;
#X msg 251 446 0;
#X obj 251 469 v \$0-STATE;
#X obj 88 469 s NOTE;
#X obj 288 369 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 303 41 v \$0-STRESS;
#X obj 303 87 v \$0-STRESS;
#X obj 303 21 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 #fcfcfc #000000 #000000;
#X obj 303 64 * 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 303 211 r \$0-word-max;
#X obj 303 257 s \$0-word-max-set;
#X msg 303 234 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 303 149 set \$1;
#X obj 303 126 r \$0-SLEEP;
#X obj 303 172 s \$0-SLEEP-set;
#X obj 249 369 f \$0;
#X obj 249 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 0 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 0 417 482 load-riff 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 52 24 r \$0-load-riff;
#X obj 223 97 symbol \$0-load-riff;
#X obj 109 165 - 4;
#X obj 80 218 unpack f f f f;
#X obj 80 310 s \$0-id-set;
#X obj 107 287 s \$0-key-set;
#X obj 134 264 s \$0-range-set;
#X obj 161 241 s \$0-sdelay-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 1 0;
#X connect 9 1 17 0;
#X connect 10 0 16 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 16 0 9 1;
#X connect 16 0 10 0;
#X connect 17 0 18 0;
#X connect 17 1 19 0;
#X connect 17 2 20 0;
#X connect 17 3 21 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 377 464 pd statesave;
#X obj 197 252 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 303 433 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#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 88 346 riff2 \$2 \$1 \$3;
#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 \$0-sdelay-set sd
-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 200 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;
#N canvas 0 0 369 268 riffpara 0;
#X obj 23 141 pack f f f f;
#X obj 152 64 r \$0-sdelay;
#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 174 s \$0-riff-para;
#X obj 23 213 outlet;
#X connect 0 0 8 0;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 3 1 0 3;
#X connect 4 0 0 0;
#X connect 4 1 0 2;
#X connect 5 0 0 0;
#X connect 5 1 0 1;
#X connect 6 0 0 0;
#X connect 7 0 4 0;
#X restore 231 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 text 547 12 * group interactions;
#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;
#N canvas 936 33 533 714 weather 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 266 124 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 266 144 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 86 60 symbol;
#X obj 119 37 r \$0-group;
#X obj 86 14 loadbang;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 86 83 makefilename %s_energy_sum;
#X obj 266 101 v;
#X obj 336 60 symbol;
#X obj 369 37 r \$0-group;
#X obj 336 14 loadbang;
#X obj 336 83 makefilename %s_sleep;
#X obj 266 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 266 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 connect 0 0 19 0;
#X connect 0 0 59 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 62 0;
#X connect 18 1 63 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 42 0 43 0;
#X connect 44 0 48 0;
#X connect 45 0 49 0;
#X connect 46 0 45 1;
#X connect 47 0 45 0;
#X connect 47 0 56 0;
#X connect 48 0 40 0;
#X connect 49 0 44 1;
#X connect 50 0 42 0;
#X connect 51 0 54 0;
#X connect 52 0 51 1;
#X connect 53 0 51 0;
#X connect 53 0 55 0;
#X connect 54 0 50 1;
#X connect 55 0 50 0;
#X connect 56 0 44 0;
#X connect 57 0 56 0;
#X connect 58 0 55 0;
#X connect 59 0 1 0;
#X connect 60 0 61 0;
#X connect 61 0 59 1;
#X connect 62 0 15 0;
#X connect 63 0 15 0;
#X connect 64 0 65 0;
#X connect 65 0 62 0;
#X connect 66 0 63 0;
#X connect 67 0 66 0;
#X restore 105 149 pd weather and mood;
#X obj 472 71 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X text 638 413 DM;
#X msg 472 91 active \$1;
#X obj 620 442 r \$0-dm;
#X obj 620 465 print \$0-dm;
#X text 460 40 motivation feed;
#X obj 529 114 r \$0-word;
#X obj 472 137 pack s f f;
#N canvas 0 0 350 253 FEED_put 0;
#X obj 187 103 r \$0-name;
#X obj 134 129 pack s f;
#X obj 134 16 loadbang;
#X obj 134 39 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 134 62 t b b;
#X obj 52 170 list trim;
#X obj 52 193 s FEED;
#X obj 52 88 inlet;
#X obj 179 80 f \$0;
#X obj 134 106 symbol;
#X obj 52 147 list append;
#X connect 0 0 9 1;
#X connect 1 0 10 1;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 4 1 8 0;
#X connect 5 0 6 0;
#X connect 7 0 10 0;
#X connect 8 0 1 1;
#X connect 9 0 1 0;
#X connect 10 0 5 0;
#X restore 472 160 pd FEED_put;
#N canvas 0 0 382 463 FEED_get 0;
#X obj 39 114 list split;
#X obj 96 68 list length;
#X obj 96 91 - 1;
#X obj 39 50 t a a;
#X obj 72 137 == \$0;
#X obj 72 160 == 0;
#X obj 39 203 spigot;
#X obj 72 183 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 39 27 r FEED;
#X text 127 175 not interested in my own feed;
#X obj 39 313 list trim;
#X obj 39 336 outlet;
#X obj 39 290 list split;
#X obj 96 244 list length;
#X obj 96 267 - 1;
#X obj 39 226 t a a;
#X text 165 273 strip out name field;
#X connect 0 0 6 0;
#X connect 0 1 4 0;
#X connect 1 0 2 0;
#X connect 2 0 0 1;
#X connect 3 0 0 0;
#X connect 3 1 1 0;
#X connect 4 0 5 0;
#X connect 5 0 7 0;
#X connect 6 0 15 0;
#X connect 7 0 6 1;
#X connect 8 0 3 0;
#X connect 10 0 11 0;
#X connect 12 0 10 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 15 0 12 0;
#X connect 15 1 13 0;
#X restore 472 229 pd FEED_get;
#N canvas 311 238 338 337 tempted? 0;
#X obj 22 19 inlet;
#X text 80 105 think;
#X obj 55 131 gauss 1 0;
#X floatatom 55 177 5 0 0 0 - - - 0;
#X obj 55 222 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 55 154 abs;
#X obj 22 42 route active;
#X obj 22 65 route 1;
#X obj 22 88 t a b;
#X obj 55 111 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 22 242 spigot;
#X obj 22 265 outlet;
#X obj 88 284 print \$0-tempted!;
#X obj 55 199 > 1.8;
#X connect 0 0 6 0;
#X connect 2 0 5 0;
#X connect 3 0 13 0;
#X connect 4 0 10 1;
#X connect 5 0 3 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 10 0;
#X connect 8 1 9 0;
#X connect 9 0 2 0;
#X connect 10 0 11 0;
#X connect 10 0 12 0;
#X connect 13 0 4 0;
#X restore 472 252 pd tempted?;
#X obj 499 300 s \$0-word;
#X obj 472 275 t b a;
#X obj 472 330 bng 15 250 50 0 \$0-motivate empty s:motivate 17 7 0
10 #fcfcfc #000000 #000000;
#X connect 1 0 4 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 31 0;
#X connect 4 0 39 0;
#X connect 7 0 47 0;
#X connect 8 0 39 0;
#X connect 9 0 28 0;
#X connect 10 0 12 0;
#X connect 12 0 13 0;
#X connect 12 0 32 0;
#X connect 15 0 28 0;
#X connect 16 0 19 0;
#X connect 18 0 16 0;
#X connect 19 0 17 0;
#X connect 21 0 23 0;
#X connect 23 0 22 0;
#X connect 25 0 27 0;
#X connect 26 0 25 0;
#X connect 28 0 29 0;
#X connect 29 0 39 1;
#X connect 34 0 36 0;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 37 0 33 0;
#X connect 39 0 14 0;
#X connect 39 3 10 0;
#X connect 45 0 39 2;
#X connect 47 0 48 0;
#X connect 48 0 8 0;
#X connect 48 1 1 0;
#X connect 54 0 1 0;
#X connect 55 0 57 0;
#X connect 57 0 62 0;
#X connect 58 0 59 0;
#X connect 61 0 62 2;
#X connect 62 0 63 0;
#X connect 64 0 65 0;
#X connect 65 0 67 0;
#X connect 67 0 68 0;
#X connect 67 1 66 0;
#X coords 0 -1 1 1 220 122 2 5 5;

13
puredata/radio_theatre_1.dots-dots.unstable/resampl-help.pd Normal file
View file

@ -0,0 +1,13 @@
#N canvas 620 344 450 300 12;
#X floatatom 24 125 5 0 0 0 - - - 0;
#X floatatom 24 188 5 0 0 0 - - - 0;
#X obj 24 212 print;
#X obj 24 163 resampl 1000;
#X text 19 27 [resampl] only output up to 1 output per \$1 millisec.
;
#X text 19 13 [resampl] always output \, no skip;
#X text 19 57 [resampl] is simpler version of [skip] which also detect/change
events;
#X connect 0 0 3 0;
#X connect 1 0 2 0;
#X connect 3 0 1 0;

39
puredata/radio_theatre_1.dots-dots.unstable/resampl.pd Normal file
View file

@ -0,0 +1,39 @@
#N canvas 240 23 254 344 12;
#X floatatom 18 49 5 0 0 0 - - - 0;
#X obj 18 78 spigot;
#X obj 18 138 t a b;
#X obj 50 168 t b b;
#X msg 118 278 0;
#X obj 73 63 tgl 15 0 empty \$0-gate r:0-gate 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X msg 50 278 1;
#X msg 161 43 1;
#X floatatom 167 265 5 0 0 0 - - - 0;
#X obj 18 19 inlet;
#X obj 161 19 loadbang;
#X obj 161 73 tgl 15 0 \$0-gate empty s:0-gate 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 50 308 tgl 15 0 \$0-gate empty s:0-gate 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 50 198 del \$1;
#X obj 50 222 t b b;
#X obj 81 108 v \$0-track;
#X obj 82 246 v \$0-track;
#X obj 167 294 outlet;
#X connect 0 0 1 0;
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 1 3 0;
#X connect 3 0 13 0;
#X connect 3 1 4 0;
#X connect 4 0 12 0;
#X connect 5 0 1 1;
#X connect 6 0 12 0;
#X connect 7 0 11 0;
#X connect 8 0 17 0;
#X connect 9 0 0 0;
#X connect 10 0 7 0;
#X connect 13 0 14 0;
#X connect 14 0 6 0;
#X connect 14 1 16 0;
#X connect 16 0 8 0;

36
puredata/radio_theatre_1.dots-dots.unstable/riff2-help.pd Normal file
View file

@ -0,0 +1,36 @@
#N canvas 0 0 353 343 10;
#X obj 96 166 riff2;
#X msg 167 112 \$1-abc;
#X obj 167 89 f \$0;
#X obj 167 69 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 24 151 bng 15 250 50 0 empty empty go- 17 7 0 10 #fcfcfc #000000
#000000;
#X msg 24 220 0;
#X obj 143 301 print;
#X obj 239 266 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 239 120 loadbang;
#X msg 239 143 4501 0 900 500;
#X obj 239 286 print done;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-abc 10 float 3;
#A 0 0.885708 0.785709 0.471426 0.0428596 -0.299994 -0.642848 -0.357136
0.514283 0.185715 -0.0571394;
#X coords 0 1 10 -1 100 100 1 0 0;
#X restore 19 25 graph;
#X obj 167 46 loadbang;
#X text 22 201 stop!;
#X connect 0 0 6 0;
#X connect 0 1 6 0;
#X connect 0 2 6 0;
#X connect 0 3 7 0;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 2 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 7 0 10 0;
#X connect 8 0 9 0;
#X connect 9 0 0 2;
#X connect 12 0 3 0;

129
puredata/radio_theatre_1.dots-dots.unstable/riff2.pd Normal file
View file

@ -0,0 +1,129 @@
#N canvas 643 411 711 484 12;
#X floatatom 193 210 5 0 0 0 - - - 0;
#X floatatom 193 269 5 0 0 0 - - - 0;
#X floatatom 193 318 5 0 0 0 - - - 0;
#X obj 30 68 hsl 110 20 0 900 0 0 empty \$0-val empty -2 -8 0 10 #fcfcc4
#000000 #000000 0 1;
#X obj 193 18 inlet;
#X obj 85 156 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X msg 27 378 range 0 \$1;
#X obj 27 46 bng 14 250 50 0 empty empty empty 17 7 0 10 #00fc04 #fcc4c4
#000000;
#X floatatom 144 46 3 0 0 0 i \$0-i - 0;
#X floatatom 52 91 7 0 0 0 val \$0-val - 0;
#X floatatom 409 118 5 0 0 0 - - - 0;
#X obj 394 419 outlet;
#X obj 374 319 pack f f f f;
#X floatatom 131 91 5 0 0 0 key \$0-key - 0;
#X obj 374 369 outlet;
#X obj 386 18 inlet;
#X obj 193 244 tabread;
#X obj 409 93 array size;
#X msg 386 142 set \$1;
#X obj 386 68 t a b a;
#X obj 225 367 s \$0-val;
#X obj 329 419 r \$0-val;
#X text 432 18 2-array name;
#X text 423 368 1#msg;
#X obj 147 68 tgl 20 0 empty \$0-onoff empty 17 7 0 8 #f8fc00 #000000
#000000 0 1;
#X obj 580 318 s \$0-onoff;
#X symbolatom 44 46 12 0 0 0 - - - 0;
#X msg 44 231 symbol no-array;
#X obj 44 206 loadbang;
#X obj 324 30 s \$0-an;
#X obj 70 4 r \$0-an;
#X msg 374 344 \$4 \$2 \$1 \$3;
#X obj 126 144 s \$0-i;
#X obj 193 342 t a a;
#X obj 384 394 outlet;
#X obj 333 394 r \$0-i;
#X text 443 420 3#val;
#X text 433 394 2#idx;
#X obj 386 43 list split 1;
#X obj 193 160 f;
#X text 201 38 1-cmd for scan;
#X obj 193 65 route bang;
#X obj 260 90 route 0;
#X msg 260 115 0;
#X obj 193 92 t b b;
#X msg 476 210 1;
#X obj 257 225 t b b;
#X msg 476 245 0;
#X obj 404 444 outlet;
#X text 453 445 4#done;
#X obj 193 185 scan;
#X obj 512 122 inlet;
#X obj 27 353 r \$0-range;
#X obj 512 172 s \$0-id;
#X text 558 122 3-parameters;
#X obj 257 250 del;
#X obj 476 299 r \$0-id;
#X obj 193 293 *;
#X obj 512 147 unpack f f f f;
#X obj 377 275 r \$0-key;
#X obj 543 197 s \$0-key;
#X obj 575 172 s \$0-range;
#X obj 607 197 s \$0-sdelay;
#X obj 275 165 r \$0-sdelay;
#X floatatom 39 24 5 0 0 0 id \$0-id - 0;
#X floatatom 88 24 4 0 0 0 r \$0-range - 0;
#X floatatom 137 24 4 0 0 0 sd \$0-sdelay - 0;
#X connect 0 0 32 0;
#X connect 0 0 5 0;
#X connect 0 0 16 0;
#X connect 1 0 57 0;
#X connect 2 0 33 0;
#X connect 4 0 41 0;
#X connect 5 0 7 0;
#X connect 6 0 3 0;
#X connect 10 0 39 1;
#X connect 12 0 31 0;
#X connect 15 0 38 0;
#X connect 16 0 1 0;
#X connect 17 0 10 0;
#X connect 18 0 16 0;
#X connect 19 0 18 0;
#X connect 19 1 17 0;
#X connect 19 2 17 1;
#X connect 21 0 11 0;
#X connect 27 0 26 0;
#X connect 28 0 27 0;
#X connect 30 0 26 0;
#X connect 31 0 14 0;
#X connect 33 0 12 0;
#X connect 33 1 20 0;
#X connect 35 0 34 0;
#X connect 38 0 29 0;
#X connect 38 0 19 0;
#X connect 39 0 50 0;
#X connect 41 0 44 0;
#X connect 41 1 42 0;
#X connect 42 0 43 0;
#X connect 43 0 50 0;
#X connect 44 0 39 0;
#X connect 44 1 45 0;
#X connect 45 0 12 2;
#X connect 45 0 25 0;
#X connect 46 0 55 0;
#X connect 46 1 47 0;
#X connect 47 0 12 2;
#X connect 47 0 25 0;
#X connect 50 0 0 0;
#X connect 50 1 46 0;
#X connect 51 0 58 0;
#X connect 52 0 6 0;
#X connect 52 0 57 1;
#X connect 55 0 12 0;
#X connect 55 0 48 0;
#X connect 56 0 12 3;
#X connect 57 0 2 0;
#X connect 58 0 53 0;
#X connect 58 1 60 0;
#X connect 58 2 61 0;
#X connect 58 3 62 0;
#X connect 59 0 12 1;
#X connect 63 0 50 1;
#X connect 63 0 55 1;
#X coords 0 -1 1 1 150 95 2 20 20;

Some files were not shown because too many files have changed in this diff Show more