From 1070afa6b72f39f045187b78b27b25b0c6594a8b Mon Sep 17 00:00:00 2001
From: Dooho Yi <pilotedeguerre@gmail.com>
Date: Thu, 25 Mar 2021 23:38:51 +0900
Subject: [PATCH] roomA ver2 prepared. (not released yet)

---
 puredata/piano_access_radio_roomA2.pd | 499 ++++++++++++++++++++++++++
 puredata/radio_callisto.pd            | 266 ++++++++++++++
 puredata/radio_ceres.pd               | 266 ++++++++++++++
 puredata/radio_earth.pd               | 263 ++++++++++++++
 puredata/radio_europa.pd              | 266 ++++++++++++++
 puredata/radio_ganymede.pd            | 262 ++++++++++++++
 puredata/radio_jupiter.pd             | 266 ++++++++++++++
 puredata/radio_pluto.pd               | 266 ++++++++++++++
 puredata/radio_saturn.pd              | 265 ++++++++++++++
 puredata/radio_uranus.pd              | 264 ++++++++++++++
 puredata/radio_venus.pd               | 266 ++++++++++++++
 11 files changed, 3149 insertions(+)
 create mode 100644 puredata/piano_access_radio_roomA2.pd
 create mode 100644 puredata/radio_callisto.pd
 create mode 100644 puredata/radio_ceres.pd
 create mode 100644 puredata/radio_earth.pd
 create mode 100644 puredata/radio_europa.pd
 create mode 100644 puredata/radio_ganymede.pd
 create mode 100644 puredata/radio_jupiter.pd
 create mode 100644 puredata/radio_pluto.pd
 create mode 100644 puredata/radio_saturn.pd
 create mode 100644 puredata/radio_uranus.pd
 create mode 100644 puredata/radio_venus.pd

diff --git a/puredata/piano_access_radio_roomA2.pd b/puredata/piano_access_radio_roomA2.pd
new file mode 100644
index 0000000..0cc33cc
--- /dev/null
+++ b/puredata/piano_access_radio_roomA2.pd
@@ -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;
diff --git a/puredata/radio_callisto.pd b/puredata/radio_callisto.pd
new file mode 100644
index 0000000..7a93f03
--- /dev/null
+++ b/puredata/radio_callisto.pd
@@ -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;
diff --git a/puredata/radio_ceres.pd b/puredata/radio_ceres.pd
new file mode 100644
index 0000000..dd62646
--- /dev/null
+++ b/puredata/radio_ceres.pd
@@ -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;
diff --git a/puredata/radio_earth.pd b/puredata/radio_earth.pd
new file mode 100644
index 0000000..8dc226c
--- /dev/null
+++ b/puredata/radio_earth.pd
@@ -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;
diff --git a/puredata/radio_europa.pd b/puredata/radio_europa.pd
new file mode 100644
index 0000000..cdb4073
--- /dev/null
+++ b/puredata/radio_europa.pd
@@ -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;
diff --git a/puredata/radio_ganymede.pd b/puredata/radio_ganymede.pd
new file mode 100644
index 0000000..1efe311
--- /dev/null
+++ b/puredata/radio_ganymede.pd
@@ -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;
diff --git a/puredata/radio_jupiter.pd b/puredata/radio_jupiter.pd
new file mode 100644
index 0000000..6fc1335
--- /dev/null
+++ b/puredata/radio_jupiter.pd
@@ -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;
diff --git a/puredata/radio_pluto.pd b/puredata/radio_pluto.pd
new file mode 100644
index 0000000..01e6a07
--- /dev/null
+++ b/puredata/radio_pluto.pd
@@ -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;
diff --git a/puredata/radio_saturn.pd b/puredata/radio_saturn.pd
new file mode 100644
index 0000000..895b118
--- /dev/null
+++ b/puredata/radio_saturn.pd
@@ -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;
diff --git a/puredata/radio_uranus.pd b/puredata/radio_uranus.pd
new file mode 100644
index 0000000..8827dfc
--- /dev/null
+++ b/puredata/radio_uranus.pd
@@ -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;
diff --git a/puredata/radio_venus.pd b/puredata/radio_venus.pd
new file mode 100644
index 0000000..04523be
--- /dev/null
+++ b/puredata/radio_venus.pd
@@ -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;