roomA ver2 prepared. (not released yet)

This commit is contained in:
Dooho Yi 2021-03-25 23:38:51 +09:00
parent c4b74bf6d1
commit 1070afa6b7
11 changed files with 3149 additions and 0 deletions

View file

@ -0,0 +1,499 @@
#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;

266
puredata/radio_callisto.pd Normal file
View file

@ -0,0 +1,266 @@
#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
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 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#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 47 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 1 0;
#X connect 48 0 0 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 34 190 inlet;
#X obj 34 271 outlet;
#X obj 34 242 t b a;
#X obj 236 237 s \$0-word;
#X obj 144 328 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 144 260 + 1;
#X floatatom 144 283 5 0 0 0 - - -;
#X obj 34 219 count 4;
#X obj 144 305 array_copier callisto;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto1 50 float 3;
#A 0 0.0857146 0.228573 0.228573 0.219049 0.190477 0.133334 0.0857146
0.0476191 0.161906 0.24762 0.285716 0.219049 0.200001 0.0857146 0.190477
0.209525 0.209525 0.190477 0.171429 0.0952384 0.0476191 0.114286 0.209525
0.257144 0.24762 0.142858 0.0952384 0.0476191 0.190477 0.24762 0.24762
0.24762 0.238096 0.219049 0.133334 0.0857146 0.114286 0.219049 0.223811
0.228573 0.200001 0.152382 0.133334 0.12381 0.214287 0.238096 0.209525
0.161906 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 37 39 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.457144 0.523811 0.733334 0.790477 0.885716 0.980955 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952363 0.00952363 0.00952363 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.428574 0.523811 0.638096
0.80952 1.09524 0.0190476 0.00952381 0.00952381 0.00952381 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 restore 197 39 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto3 50 float 3;
#A 0 1.00952 1.00952 1.00952 1.00952 1.00952 0.0285714 0.0285714 0.0285714
0.0285714 0.0285714 1.00952 1.00952 1.00952 1.00952 1.00952 0.0285714
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 1.00952 1.00952 1.00952
1.00952 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
1.00952 1.00952 1.00952 1.00952 0.0190476 0.0190476 0.0190476 0.0190476
0.0190476 0.047619 0.992857 0.990476 0.990476 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.990476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 357 39 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto4 50 float 3;
#A 0 0.180953 0.161905 0.438095 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.466666 0.438095 0.438095 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.342857 0.92381 0.428571 0.428571 0.323809 0.380952 0.342857 0.47619
0.47619 0.285714 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 517 39 graph;
#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 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto 50 float 3;
#A 0 0.180953 0.161905 0.438095 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.466666 0.438095 0.438095 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.342857 0.92381 0.428571 0.428571 0.323809 0.380952 0.342857 0.47619
0.47619 0.285714 0.180951;
#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 -33289
-4032 -1 3;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -33289 -4032
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -33289 -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 msg 319 323 callisto;
#X obj 164 21 r CALLISTO;
#X obj 48 188 r CALLISTO;
#X obj 295 452 s CALLISTO_DONE;
#X obj 167 279 s CALLISTO;
#X obj 88 306 riff1_random 600 3307 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 27 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 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 27 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 32 1;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

266
puredata/radio_ceres.pd Normal file
View file

@ -0,0 +1,266 @@
#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 FOREST_ENERGY;
#X msg 285 439 0.002;
#X obj 16 210 < 0.7;
#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 49 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 48 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 15 0;
#X connect 49 0 1 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 38 224 count 4;
#X obj 148 310 array_copier ceres;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres1 50 float 3;
#A 0 0.0666659 0.0952375 0.0761898 0.133333 0.133333 0.114285 0.295238
0.190476 0.190476 0.114286 0.12381 0.12381 0.12381 0.142857 0.12381
0.161905 0.180953 0.27619 0.209525 0.133334 0.147619 0.171429 0.161905
0.171429 0.171429 0.190477 0.200001 0.304762 0.171429 0.200001 0.333333
0.0476187 0.104762 0.133334 0.0952381 0.104762 0.12381 0.104762 0.0571426
0.0857142 0.0571426 0.12381 0.152381 0.304762 0.161905 0.161905 0.161905
0.180953 0.161905 0.0761904;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 30 34 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres2 50 float 3;
#A 0 -0.0190476 0.00952381 0.0285714 0.0666667 0.0952381 0.12381 0.209524
0.295238 0.371429 0.447619 0.514286 0.0190476 0.828571 0.980952 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952363 0.00952363 0.00952363 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.142857 0.2 0.295238 0.361905 0.447619 0.514286
0.695238 0.00952381 0.0190476 0.0190476 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 restore 190 34 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres3 50 float 3;
#A 0 0.0190477 0.0190477 0.0190477 0.828571 0.0190477 0.0190477 0.0190477
0.0190477 0.838095 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477
0.790476 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477
0.0190477 0.0190477 0.8 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477
0.771429 0.0190477 0.0190477 0.0190477 0.0190477 0.8 0.0190477 0.0190477
0.0190477 0.0190477 0.0190477 0.0190477 0.771429 0.0190477 0.0190477
0.0190477 0.0190477 0.790476 0.0190477 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 350 34 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres4 50 float 3;
#A 0 0.180953 0.161905 0.342859 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.323811 0.257145 0.371429 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.209526 0.21905 0.295239 0.333334 0.323809 0.380952 0.342857 0.285716
0.333334 0.371429 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 510 34 graph;
#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 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres 50 float 3;
#A 0 0.180953 0.161905 0.342859 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.323811 0.257145 0.371429 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.209526 0.21905 0.295239 0.333334 0.323809 0.380952 0.342857 0.285716
0.333334 0.371429 0.180951;
#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 3;
#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 msg 319 323 ceres;
#X obj 164 21 r CERES;
#X obj 48 188 r CERES;
#X obj 295 452 s CERES_DONE;
#X obj 167 279 s CERES;
#X obj 88 306 riff1_random 600 3309 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 27 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 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 27 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 32 1;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

263
puredata/radio_earth.pd Normal file
View file

@ -0,0 +1,263 @@
#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 FOREST_ENERGY;
#X msg 285 439 0.002;
#X obj 16 210 < 0.8;
#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 49 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 48 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 15 0;
#X connect 49 0 1 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 38 224 count 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth1 50 float 3;
#A 0 0.0761902 0.095238 0.133333 0.152381 0.180953 0.190477 0.200001
0.200001 0.200001 0.180953 0.161905 0.142857 0.171429 0.209524 0.228572
0.24762 0.266668 0.285715 0.285715 0.304763 0.304763 0.314287 0.304763
0.276191 0.257144 0.276191 0.295239 0.314287 0.323811 0.333335 0.352382
0.361906 0.37143 0.37143 0.361906 0.323811 0.209524 0.228572 0.238096
0.257144 0.266668 0.266668 0.285715 0.295239 0.295239 0.295239 0.295239
0.285715 0.257144 0.228572;
#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 earth2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.504762 0.628571 0.695238 0.790476 0.92381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.447619 0.552381 0.657143
0.80952 0.885714 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#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 earth3 50 float 3;
#A 0 0.0380952 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0 0 0 0 0 0.0285714 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0 0 0 0 0 0 0 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0 0 0 0
0 0 0 0 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952;
#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 earth4 50 float 3;
#A 0 0.0571424 0.0761902 0.133332 0.209523 0.247619 0.304763 0.323811
0.276191 0.190477 0.152381 0.0761902 0.12381 0.161905 0.276191 0.342859
0.24762 0.180953 0.142858 0.0666666 0.114286 0.228572 0.304763 0.37143
0.380954 0.304763 0.238096 0.161905 0.12381 0.0761905 0.0857143 0.171429
0.24762 0.304763 0.361906 0.37143 0.342858 0.314287 0.266668 0.219048
0.152381 0.0761902 0.180953 0.219048 0.295239 0.380954 0.428573 0.380954
0.304763 0.171429 0.0666663;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 148 310 array_copier earth;
#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 12 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 12 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth 50 float 3;
#A 0 0.0380952 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0 0 0 0 0 0.0285714 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0 0 0 0 0 0 0 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0 0 0 0
0 0 0 0 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952;
#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 88 306 riff1_random 600 4203 700 1000;
#X obj 164 21 r EARTH;
#X obj 48 188 r EARTH;
#X obj 295 452 s EARTH_DONE;
#X obj 167 279 s EARTH;
#X msg 319 323 earth;
#X connect 0 0 27 0;
#X connect 1 0 32 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 27 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 32 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 16 0;
#X connect 27 3 2 0;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 27 1;
#X coords 0 -1 1 1 100 100 2 5 5;

266
puredata/radio_europa.pd Normal file
View file

@ -0,0 +1,266 @@
#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
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 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#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 47 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 1 0;
#X connect 48 0 0 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 38 224 count 4;
#X obj 148 310 array_copier europa;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa1 50 float 3;
#A 0 0.0761902 0.095238 0.133333 0.152381 0.180953 0.190477 0.200001
0.200001 0.200001 0.180953 0.161905 0.142857 0.171429 0.209524 0.228572
0.24762 0.266668 0.285715 0.285715 0.304763 0.304763 0.314287 0.304763
0.276191 0.257144 0.276191 0.295239 0.314287 0.323811 0.333335 0.352382
0.361906 0.37143 0.37143 0.361906 0.323811 0.209524 0.228572 0.238096
0.257144 0.266668 0.266668 0.285715 0.295239 0.295239 0.295239 0.295239
0.285715 0.257144 0.228572;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 34 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.504762 0.628571 0.695238 0.790476 0.92381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.447619 0.552381 0.657143
0.80952 0.885714 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 194 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa3 50 float 3;
#A 0 0.0380952 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0 0 0 0 0 0.0285714 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0 0 0 0 0 0 0 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0 0 0 0
0 0 0 0 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 354 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa4 50 float 3;
#A 0 0.0571424 0.0761902 0.133332 0.209523 0.247619 0.304763 0.323811
0.276191 0.190477 0.152381 0.0761902 0.12381 0.161905 0.276191 0.342859
0.24762 0.180953 0.142858 0.0666666 0.114286 0.228572 0.304763 0.37143
0.380954 0.304763 0.238096 0.161905 0.12381 0.0761905 0.0857143 0.171429
0.24762 0.304763 0.361906 0.37143 0.342858 0.314287 0.266668 0.219048
0.152381 0.0761902 0.180953 0.219048 0.295239 0.380954 0.428573 0.380954
0.304763 0.171429 0.0666663;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 514 31 graph;
#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 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.504762 0.628571 0.695238 0.790476 0.92381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.447619 0.552381 0.657143
0.80952 0.885714 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#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 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 msg 319 323 europa;
#X obj 164 21 r EUROPA;
#X obj 48 188 r EUROPA;
#X obj 167 279 s EUROPA;
#X obj 295 452 s EUROPA_DONE;
#X obj 88 306 riff1_random 600 4205 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 27 0;
#X connect 2 0 5 0;
#X connect 2 0 31 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 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 27 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 32 1;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

262
puredata/radio_ganymede.pd Normal file
View file

@ -0,0 +1,262 @@
#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
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 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#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 47 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 1 0;
#X connect 48 0 0 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 38 224 count 4;
#X obj 148 310 array_copier ganymede;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede1 50 float 3;
#A 0 0.2 0.2 0.266666 0.333332 0.390475 0.457141 0.533331 0.590473
0.666663 0.780948 0.80952 0.80952 0.752377 0.65714 0.561902 0.519045
0.476188 0.371427 0.257142 0.2 0.152381 0.12381 0.114286 0.0666667
0.0190476 0.0285714 0.0285714 0.0285714 0.0285714 0.0190476 0.0190476
0.0190476 0.609524 0.609524 0.609524 0.6 0.228571 0.238095 0.238095
0 0.12381 0.6 0.590476 0.580953 0.561905 0.552381 0.238095 0.238095
0.238095 0.238095;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 34 43 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede2 50 float 3;
#A 0 0.00952381 0.114286 0.17143 0.29524 0.400002 0.46667 0.580956
0.676195 0.819053 0.952387 0 0 0 0 0 0.304762 0.428573 0.523811 0.628574
0.714289 1.02857 1.17143 0 0 0 0 0 0 0.41905 0.523812 0.609527 0.752385
0.819052 1.14286 0 0 0 0 0 0 0.428573 0.476192 0.590478 0.838099 0.933338
1.06667 1.25715 1.30477 0 0;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 194 43 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede3 50 float 3;
#A 0 0.0761898 0.0952375 0.114285 0.133333 0.152381 0.295238 0.114285
0.0952375 0.0952375 0.0952375 0.0761904 0.0666665 0.0666665 0.0666665
0.0761904 0.0952381 0.114286 0.123809 0.142857 0.171428 0.295238 0.180953
0.142857 0.133333 0.114286 0.104762 0.085714 0.085714 0.085714 0.085714
0.0666663 0.0666663 0.0666663 0.0761902 0.0952378 0.104762 0.123809
0.238095 0.123809 0.0952376 0.0761898 0.0666659 0.0666659 0.0666659
0.0761898 0.0761898 0.0952376 0.27619 0.133333 0.0952377;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 354 43 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede4 50 float 3;
#A 0 0.180953 0.161905 0.504761 0.257143 0.180952 0.0857131 0.0761893
0.228569 0.466666 0.371427 0.314284 0.114286 0.0952379 0.114286 0.238096
0.295239 0.466666 0.819048 0.104759 0.257141 0.323808 0.495237 0.104762
0.104762 0.095238 0.104762 0.142857 0.190477 0.361906 0.161902 0.209521
0.857143 0.361903 0.238094 0.0952377 0.0857139 0.190475 0.238094 0.352381
0.342857 0.92381 0.142857 0.114285 0.114285 0.142857 0.238096 0.114285
0.104762 0.285714 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 514 43 graph;
#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 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede 50 float 3;
#A 0 0.00952381 0.114286 0.17143 0.29524 0.400002 0.46667 0.580956
0.676195 0.819053 0.952387 0 0 0 0 0 0.304762 0.428573 0.523811 0.628574
0.714289 1.02857 1.17143 0 0 0 0 0 0 0.41905 0.523812 0.609527 0.752385
0.819052 1.14286 0 0 0 0 0 0 0.428573 0.476192 0.590478 0.838099 0.933338
1.06667 1.25715 1.30477 0 0;
#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 -86853
-261682 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -86853 -261682
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -86853 -261682
-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 GANYMEDE;
#X obj 48 188 r GANYMEDE;
#X obj 167 279 s GANYMEDE;
#X obj 295 452 s GANYMEDE_DONE;
#X msg 319 323 ganymede;
#X obj 88 306 riff1_random 600 4201 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 31 0;
#X connect 2 0 5 0;
#X connect 2 0 30 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 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 32 1;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

266
puredata/radio_jupiter.pd Normal file
View file

@ -0,0 +1,266 @@
#N canvas 561 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 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#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 47 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 1 0;
#X connect 48 0 0 0;
#X connect 49 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 675 374 expressions 0;
#X obj 20 167 inlet;
#X obj 20 248 outlet;
#X obj 20 219 t b a;
#X obj 222 214 s \$0-word;
#X obj 130 305 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 130 237 + 1;
#X floatatom 130 260 5 0 0 0 - - -;
#X obj 20 196 count 4;
#X obj 130 282 array_copier jupiter;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter1 50 float 3;
#A 0 0.0857146 0.228573 0.228573 0.219049 0.190477 0.133334 0.0857146
0.0476191 0.161906 0.24762 0.285716 0.219049 0.200001 0.0857146 0.190477
0.209525 0.209525 0.190477 0.171429 0.0952384 0.0476191 0.114286 0.209525
0.257144 0.24762 0.142858 0.0952384 0.0476191 0.190477 0.24762 0.24762
0.24762 0.238096 0.219049 0.133334 0.0857146 0.114286 0.219049 0.223811
0.228573 0.200001 0.152382 0.133334 0.12381 0.214287 0.238096 0.209525
0.161906 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 19 32 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter2 50 float 3;
#A 0 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.152381 0.295238
0.447619 0.580952 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.32381
0.409524 0.47619 0.580952 0.704762 0.00952363 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.361905 0.523811 0.638096
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 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 restore 179 32 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter3 50 float 3;
#A 0 0.828571 0.00952381 0.00952381 0.00952381 0.857143 0.857143 0.857143
0.861904 0.866666 0.866666 0.0190476 0.00952381 0.00952381 0.00952381
0.866666 0.866666 0.866666 0.0190476 0.0190476 0.0190476 0.866666 0.866666
0.864285 0.861904 0.0190476 0.0190476 0.0190476 0.853333 0.849524 0.845714
0.0285714 0.0285714 0.0285714 0.825397 0.822222 0.819048 0.0190479
0.0190479 0.0190479 0.0190479 0.809524 0.809524 0.809524 0.00952387
0.00952387 0.0142857 0.0190476 0.809524 0.809524 0.0285711;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 339 32 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter4 50 float 3;
#A 0 0.180953 0.161905 0.438095 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.466666 0.438095 0.438095 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.342857 0.92381 0.428571 0.428571 0.323809 0.380952 0.342857 0.47619
0.47619 0.285714 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 499 32 graph;
#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 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter 50 float 3;
#A 0 0.828571 0.00952381 0.00952381 0.00952381 0.857143 0.857143 0.857143
0.861904 0.866666 0.866666 0.0190476 0.00952381 0.00952381 0.00952381
0.866666 0.866666 0.866666 0.0190476 0.0190476 0.0190476 0.866666 0.866666
0.864285 0.861904 0.0190476 0.0190476 0.0190476 0.853333 0.849524 0.845714
0.0285714 0.0285714 0.0285714 0.825397 0.822222 0.819048 0.0190479
0.0190479 0.0190479 0.0190479 0.809524 0.809524 0.809524 0.00952387
0.00952387 0.0142857 0.0190476 0.809524 0.809524 0.0285711;
#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 -86853
-260097 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -86853 -260097
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -86853 -260097
-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 88 306 riff1_random 600 3308 700 1000;
#X obj 164 21 r JUPITER;
#X obj 48 188 r JUPITER;
#X obj 167 279 s JUPITER;
#X obj 295 452 s JUPITER_DONE;
#X msg 319 323 jupiter;
#X connect 0 0 27 0;
#X connect 1 0 32 0;
#X connect 2 0 5 0;
#X connect 2 0 31 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 27 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 32 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 16 0;
#X connect 27 3 2 0;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 27 1;
#X coords 0 -1 1 1 100 100 2 5 5;

266
puredata/radio_pluto.pd Normal file
View file

@ -0,0 +1,266 @@
#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 msg 285 439 0.05;
#X obj 16 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#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 47 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 15 0;
#X connect 48 0 1 0;
#X connect 49 0 0 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 38 224 count 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth1 50 float 3;
#A 0 0.0761902 0.095238 0.133333 0.152381 0.180953 0.190477 0.200001
0.200001 0.200001 0.180953 0.161905 0.142857 0.171429 0.209524 0.228572
0.24762 0.266668 0.285715 0.285715 0.304763 0.304763 0.314287 0.304763
0.276191 0.257144 0.276191 0.295239 0.314287 0.323811 0.333335 0.352382
0.361906 0.37143 0.37143 0.361906 0.323811 0.209524 0.228572 0.238096
0.257144 0.266668 0.266668 0.285715 0.295239 0.295239 0.295239 0.295239
0.285715 0.257144 0.228572;
#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 earth2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.504762 0.628571 0.695238 0.790476 0.92381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.447619 0.552381 0.657143
0.80952 0.885714 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#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 earth3 50 float 3;
#A 0 0.0380952 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0 0 0 0 0 0.0285714 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0 0 0 0 0 0 0 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0 0 0 0
0 0 0 0 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952;
#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 earth4 50 float 3;
#A 0 0.0571424 0.0761902 0.133332 0.209523 0.247619 0.304763 0.323811
0.276191 0.190477 0.152381 0.0761902 0.12381 0.161905 0.276191 0.342859
0.24762 0.180953 0.142858 0.0666666 0.114286 0.228572 0.304763 0.37143
0.380954 0.304763 0.238096 0.161905 0.12381 0.0761905 0.0857143 0.171429
0.24762 0.304763 0.361906 0.37143 0.342858 0.314287 0.266668 0.219048
0.152381 0.0761902 0.180953 0.219048 0.295239 0.380954 0.428573 0.380954
0.304763 0.171429 0.0666663;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 148 310 array_copier earth;
#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 12 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 12 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.504762 0.628571 0.695238 0.790476 0.92381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.447619 0.552381 0.657143
0.80952 0.885714 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#X coords 0 1 50 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 -204786
-4160 -1 0;
#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 88 306 riff1_random 600 4203 700 1000;
#X obj 164 21 r EARTH;
#X obj 48 188 r EARTH;
#X obj 295 452 s EARTH_DONE;
#X obj 167 279 s EARTH;
#X msg 319 323 earth;
#X connect 0 0 27 0;
#X connect 1 0 32 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 27 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 32 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 16 0;
#X connect 27 3 2 0;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 27 1;
#X coords 0 -1 1 1 100 150 2 5 5;

265
puredata/radio_saturn.pd Normal file
View file

@ -0,0 +1,265 @@
#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
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 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#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 47 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 1 0;
#X connect 48 0 0 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 38 224 count 4;
#X obj 148 310 array_copier saturn;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn1 50 float 3;
#A 0 0.0857146 0.228573 0.228573 0.219049 0.190477 0.133334 0.0857146
0.0476191 0.161906 0.24762 0.285716 0.219049 0.200001 0.0857146 0.190477
0.209525 0.209525 0.190477 0.171429 0.0952384 0.0476191 0.114286 0.209525
0.257144 0.24762 0.142858 0.0952384 0.0476191 0.190477 0.24762 0.24762
0.24762 0.238096 0.219049 0.133334 0.0857146 0.114286 0.219049 0.223811
0.228573 0.200001 0.152382 0.133334 0.12381 0.214287 0.238096 0.209525
0.161906 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 20 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.457144 0.523811 0.733334 0.790477 0.885716 0.980955 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952363 0.00952363 0.00952363 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.428574 0.523811 0.638096
0.80952 1.09524 0.0190476 0.00952381 0.00952381 0.00952381 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 restore 180 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn3 50 float 3;
#A 0 1.00952 1.00952 0.0285713 0.0285713 0.0285713 0.0285713 0.0285713
0.0285713 0.0190474 0.00952369 1.00952 1.00952 1.00952 1.00952 1.00952
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476
1.00952 1.0119 1 1 1 0 0 0 0 0 0 0.990476 0.990476 0.990476 0.990476
0.990476 0.990476 -5.96046e-08 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.990476 0.990476 0.990476 0.990476 0.990476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 340 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn4 50 float 3;
#A 0 0.180953 0.161905 0.438095 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.466666 0.438095 0.438095 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.342857 0.92381 0.428571 0.428571 0.323809 0.380952 0.342857 0.47619
0.47619 0.285714 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 500 31 graph;
#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 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn 50 float 3;
#A 0 0.0857146 0.228573 0.228573 0.219049 0.190477 0.133334 0.0857146
0.0476191 0.161906 0.24762 0.285716 0.219049 0.200001 0.0857146 0.190477
0.209525 0.209525 0.190477 0.171429 0.0952384 0.0476191 0.114286 0.209525
0.257144 0.24762 0.142858 0.0952384 0.0476191 0.190477 0.24762 0.24762
0.24762 0.238096 0.219049 0.133334 0.0857146 0.114286 0.219049 0.223811
0.228573 0.200001 0.152382 0.133334 0.12381 0.214287 0.238096 0.209525
0.161906 0.0190476 0.0190476;
#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 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 SATURN;
#X obj 48 188 r SATURN;
#X obj 167 279 s SATURN;
#X obj 295 452 s SATURN_DONE;
#X msg 319 323 saturn;
#X obj 88 306 riff1_random 600 4206 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 31 0;
#X connect 2 0 5 0;
#X connect 2 0 30 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 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 32 1;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

264
puredata/radio_uranus.pd Normal file
View file

@ -0,0 +1,264 @@
#N canvas 534 209 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 1;
#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 FOREST_ENERGY;
#X msg 285 439 0.002;
#X obj 16 210 < 0.7;
#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 49 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 48 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 15 0;
#X connect 49 0 1 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 38 224 count 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array uranus3 50 float 3;
#A 0 0.0380952 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0 0 0 0 0 0.0285714 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0 0 0 0 0 0 0 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0 0 0 0
0 0 0 0 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952;
#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 uranus4 50 float 3;
#A 0 0.0571424 0.0761902 0.133332 0.209523 0.247619 0.304763 0.323811
0.276191 0.190477 0.152381 0.0761902 0.12381 0.161905 0.276191 0.342859
0.24762 0.180953 0.142858 0.0666666 0.114286 0.228572 0.304763 0.37143
0.380954 0.304763 0.238096 0.161905 0.12381 0.0761905 0.0857143 0.171429
0.24762 0.304763 0.361906 0.37143 0.342858 0.314287 0.266668 0.219048
0.152381 0.0761902 0.180953 0.219048 0.295239 0.380954 0.428573 0.380954
0.304763 0.171429 0.0666663;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 148 310 array_copier uranus;
#N canvas 0 23 450 278 (subpatch) 0;
#X array uranus1 50 float 3;
#A 0 0.00952387 0.00952387 0.0285715 0.0285715 0.0285715 0.0285715
0.0285715 0.0190476 0.0190476 0.0476193 0.0476193 0.0476193 0.0476193
0.0476193 0.0476193 0 0 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193
0.0476193 0 0 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.00952381
0.00952381 0.00952381 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193
0.0476193 0.0476193 0.0476193 0.00952369 0.00952369 0.00952369 0.00952369
0.0571432 0.0571432 0.0571432 0.0571432 0.0285712;
#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 uranus2 50 float 3;
#A 0 0.0190473 0.0285712 0.0380951 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.447616 0.495235 0.590474 0.666665 0.742856 0.799999 0.857142
0.933333 1.13334 0.0190474 0.0285713 0.0380952 0.0285713 0.0285715
0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193
0.0380954 0.0380954 0.0380954 0.485712 0.485714 0.514286 0.561905 0.600001
0.638096 0.695239 0.752383 0.800002 0.857145 0.952384 1.06667 0.0380953
0.0380953 0.0380953 0.0380953 0.0285714 0.0285714;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 200 40 graph;
#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 10 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 10 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array uranus 50 float 3;
#A 0 0.0190473 0.0285712 0.0380951 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.447616 0.495235 0.590474 0.666665 0.742856 0.799999 0.857142
0.933333 1.13334 0.0190474 0.0285713 0.0380952 0.0285713 0.0285715
0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193
0.0380954 0.0380954 0.0380954 0.485712 0.485714 0.514286 0.561905 0.600001
0.638096 0.695239 0.752383 0.800002 0.857145 0.952384 1.06667 0.0380953
0.0380953 0.0380953 0.0380953 0.0285714 0.0285714;
#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 -4032 -16662
-1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -4032 -16662
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -4032 -16662
-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 msg 319 323 uranus;
#X obj 164 21 r URANUS;
#X obj 48 188 r URANUS;
#X obj 295 452 s URANUS_DONE;
#X obj 167 279 s URANUS;
#X obj 88 306 riff1_random 600 4204 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 27 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 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 27 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 32 1;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

266
puredata/radio_venus.pd Normal file
View file

@ -0,0 +1,266 @@
#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
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 FOREST_ENERGY;
#X msg 285 439 0.002;
#X obj 16 210 < 0.6;
#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 49 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 48 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 15 0;
#X connect 49 0 1 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 38 224 count 4;
#X obj 148 310 array_copier venus;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus1 50 float 3;
#A 0 0.0571427 0.085714 0.123809 0.15238 0.161904 0.190475 0.190475
0.190475 0.190475 0.180952 0.142857 0.12381 0.0952379 0.114285 0.133333
0.142857 0.161904 0.171428 0.180952 0.180952 0.152381 0.0380952 0.0761905
0.123809 0.152381 0.180952 0.190476 0.199999 0.199999 0.190476 0.161905
0.0476193 0.0857143 0.142857 0.161904 0.171428 0.190476 0.190476 0.190476
0.171428 0.152381 0.047619 0.0857146 0.12381 0.180952 0.180952 0.190475
0.190475 0.190475 0.171428;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 38 77 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.30476 0.4 0.457143 0.533334
0.69524 0.895241 1.05715 1.16191 1.2762 1.25715 1.4762 -1.19209e-07
-1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07
-1.19209e-07 -1.19209e-07 -1.19209e-07 0.0190485 0.980952 0.0380998
0.0761948 0.171428 0.247619 0.32381 0.419049 0.514288 0.657146 0.800004
0.904766 1.00001 1.16191 1.20001 1.24763 0.00952381 0.00952381 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 restore 198 77 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus3 50 float 3;
#A 0 0.447622 0.476193 0.533337 0.580956 0.609527 0.638099 0.657147
0.666671 0.638099 0.352383 0.304764 0.314288 0.333335 0.371431 0.400002
0.438098 0.466669 0.495241 0.523813 0.54286 0.571432 0.609527 0.628575
0.647623 0.238097 0.200001 0.180953 0.180953 0.200001 0.219049 0.24762
0.276192 0.304764 0.333335 0.371431 0.409526 0.447622 0.495241 0.54286
0.580956 0.152382 0.161906 0.180953 0.209525 0.238097 0.276192 0.304764
0.342859 0.361907 0.457146;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 358 77 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus4 50 float 3;
#A 0 0.180953 0.161905 0.504761 0.409523 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.114287 0.114287 0.133334 0.152381 0.371427
0.42857 0.466666 0.819048 0.104759 0.257141 0.323808 0.495237 0.190474
0.114287 0.114287 0.171429 0.123811 0.2 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.87619 0.952379 1.05714 1.07619
1.07619 1.07619 1.07619 1.07619 1.07619 1.07619 1.07619 1.07619 1.07619
1.07619 1.19047;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 518 77 graph;
#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 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.30476 0.4 0.457143 0.533334
0.69524 0.895241 1.05715 1.16191 1.2762 1.25715 1.4762 -1.19209e-07
-1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07
-1.19209e-07 -1.19209e-07 -1.19209e-07 0.0190485 0.980952 0.0380998
0.0761948 0.171428 0.247619 0.32381 0.419049 0.514288 0.657146 0.800004
0.904766 1.00001 1.16191 1.20001 1.24763 0.00952381 0.00952381 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 restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -261682
-257985 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -257985
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
-257985 -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 VENUS;
#X obj 48 188 r VENUS;
#X obj 167 279 s VENUS;
#X obj 295 452 s VENUS_DONE;
#X msg 319 323 venus;
#X obj 88 306 riff1_random 600 3789 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 31 0;
#X connect 2 0 5 0;
#X connect 2 0 30 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 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 32 1;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;