final ver.1

crickets/src/main.cpp

@@ -21,7 +21,7 @@
 //============<identities>============
 //
 #define MY_GROUP_ID   (3000)
-#define MY_ID         (MY_GROUP_ID + 202)
+#define MY_ID         (MY_GROUP_ID + 789)
 #define MY_SIGN       ("CRICKET")
 //
 //============</identities>============
@@ -96,23 +96,39 @@ Scheduler runner;
 #include <Servo.h>
 // my tasks
 int speed = 0;
+bool isactive = false;
 void set_speed() {
   int r = speed;
   analogWrite(SERVO_PIN, r);
   MONITORING_SERIAL.print("set_speed:");
   MONITORING_SERIAL.println(r);
+  isactive = true;
 }
 Task set_speed_task(0, TASK_ONCE, &set_speed);
 //
 void rest() {
   analogWrite(SERVO_PIN, 0);
+  isactive = false;
 }
 Task rest_task(0, TASK_ONCE, &rest);
+//
+uint8_t watch_counter = 0;
+void watcher() {
+  if (isactive) {
+    if (watch_counter > 3) {
+      rest_task.restartDelayed(10);
+      watch_counter = 0;
+    } else {
+      watch_counter++;
+    }
+  }
+}
+Task watcher_task(1000, TASK_FOREVER, &watcher, &runner, true);
 //*-*-*-*-*-*-*-*-*-*-*-*-*
 
 //
 extern Task hello_task;
-static int hello_delay = 0;
+static int hello_delay = 2000;
 void hello() {
   //
   byte mac[6];
@@ -125,7 +141,7 @@ void hello() {
   count++;
   hello.h1 = (count % 1000);
   hello.h2 = speed;
-  // hello.h3 = 0;
+  hello.h3 = (isactive ? 1 : 0);
   // hello.h4 = 0;
   //
   uint8_t frm_size = sizeof(Hello) + 2;
@@ -185,6 +201,7 @@ void onNoteHandler(Note & n) {
       //
       if (n.onoff == 1) {
         set_speed_task.restartDelayed(10);
+        watch_counter = 0;
       } else if (n.onoff == 0) {
         rest_task.restartDelayed(10);
       }

id.list

@@ -36,4 +36,4 @@
     == gonggong x 1 ~ 4001
 
 - bird
-    == cricket x 1 ~ 3100
+    == cricket x 1 ~ 4100

puredata/array_copier.pd

@@ -0,0 +1,36 @@
+#N canvas 1 89 404 298 10;
+#X obj 123 148 array size;
+#X floatatom 123 172 5 0 0 0 - - -;
+#X obj 123 194 array size;
+#X obj 200 153 loadbang;
+#X obj 56 235 array get;
+#X obj 56 258 array set;
+#X obj 76 125 t b b a b a;
+#X obj 127 217 loadbang;
+#X obj 76 23 inlet;
+#X obj 200 176 symbol \$1;
+#X obj 127 240 symbol \$1;
+#X obj 26 143 outlet;
+#X obj 265 14 loadbang;
+#X obj 265 37 symbol \$1;
+#X obj 265 60 makefilename %s%%d;
+#X obj 76 101 makefilename;
+#X msg 265 83 set \$1;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 3 0 9 0;
+#X connect 4 0 5 0;
+#X connect 6 0 11 0;
+#X connect 6 1 4 0;
+#X connect 6 2 4 2;
+#X connect 6 3 0 0;
+#X connect 6 4 0 1;
+#X connect 7 0 10 0;
+#X connect 8 0 15 0;
+#X connect 9 0 2 1;
+#X connect 10 0 5 2;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 16 0;
+#X connect 15 0 6 0;
+#X connect 16 0 15 0;

puredata/piano_access_radio.pd

@@ -227,7 +227,7 @@
 #X restore 287 370 pd samplers;
 #X text 109 24 * a wireless "field synth" - based on 'esp now' protocol
 ;
-#N canvas 54 99 1440 855 crickets 1;
+#N canvas 0 89 1440 811 crickets 1;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff11 10 float 3;
 #A 0 0.342857 0.67619 0.371429 0.685714 0.352381 0.638095 0.352381
@@ -1372,7 +1372,7 @@
 #X connect 33 0 32 1;
 #X connect 34 0 31 1;
 #X restore 94 45 pd green suitcase;
-#N canvas 214 23 1167 807 pingpong 0;
+#N canvas 214 89 1167 806 pingpong 0;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff14-1 50 float 3;
 #A 0 0.952381 0.952381 0.952381 0.952381 0.952381 0.952381 0.952381
@@ -1634,7 +1634,7 @@
 #X text 722 17 >>>;
 #X text 12 17 <<<;
 #X text 12 577 <<<;
-#N canvas 314 47 909 831 gastank 1;
+#N canvas 314 89 909 806 gastank 0;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff19 50 float 3;
 #A 0 0.780952 0.561905 0.361905 0.00952381 0.00952381 0.00952381 0.00952381
@@ -1647,7 +1647,7 @@
 ;
 #X coords 0 1 50 0 150 105 1 0 0;
 #X restore 201 8 graph;
-#X obj 314 221 tgl 20 0 empty empty 3001 17 7 0 10 -257985 -1 -1 1
+#X obj 314 221 tgl 20 0 empty empty 3001 17 7 0 10 -257985 -1 -1 0
 1;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff18 20 float 3;
@@ -1711,7 +1711,7 @@
 -1;
 #X obj 75 221 t b b;
 #X obj 73 267 spigot;
-#X obj 119 198 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X obj 119 198 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
 #X obj 704 490 s NOTE;
 #X obj 557 287 riff 400 4001;
@@ -1760,7 +1760,7 @@
 #X connect 30 0 27 1;
 #X connect 31 0 27 1;
 #X restore 283 53 pd gastank;
-#N canvas -37 84 1440 794 frog 1;
+#N canvas 1 89 1438 794 frog 0;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff8-1 100 float 3;
 #A 0 0.695238 0.695238 0.695238 0.695238 0.695238 0.695238 0.695238
@@ -1833,7 +1833,7 @@
 #X obj 969 627 s NOTE;
 #X obj 846 565 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
-#X obj 699 276 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X obj 699 276 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
 #X obj 962 565 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
@@ -1930,7 +1930,7 @@
 #X msg 860 156 symbol riff20-3;
 #X msg 858 136 symbol riff20-4;
 #X obj 799 190 metro 1000;
-#X obj 802 160 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X obj 802 160 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
 #X obj 1155 350 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1
 0 1;
@@ -1941,7 +1941,7 @@
 #X obj 1010 247 riff 1000 1500;
 #X obj 998 198 metro 1000;
 #X obj 1001 168 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
-1 1;
+0 1;
 #X msg 1111 413 1500 1001 \$1 \$2;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff28-1 100 float 3;
@@ -2065,7 +2065,7 @@
 #X msg 287 315 symbol riff10;
 #X msg 447 315 symbol riff11;
 #X msg 607 315 symbol riff15;
-#N canvas 221 23 596 832 yellowhose 1;
+#N canvas 221 89 596 806 yellowhose 0;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff94 100 float 3;
 #A 0 0.380952 0.380952 0.380952 0.371428 0.371428 0.371428 0.361905
@@ -2453,7 +2453,7 @@
 #X connect 22 0 18 1;
 #X connect 25 0 18 1;
 #X restore 683 104 pd alu;
-#N canvas 658 23 450 841 rounder 1;
+#N canvas 658 89 497 706 rounder 1;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff60 40 float 3;
 #A 0 0.333333 0.409523 0.476189 0.552379 0.599998 0.599998 0.209524
@@ -2463,10 +2463,10 @@
 -0.380949 -0.447615 -0.533329 -0.0190467 -0.190474 -0.295235 -0.342854
 -0.361902 -0.390473 -0.419044;
 #X coords 0 1 40 0 150 105 1 0 0;
-#X restore 556 20 graph;
+#X restore 275 186 graph;
-#X obj 557 228 tgl 20 0 empty empty empty 17 7 0 10 -262130 -1 -1 0
+#X obj 276 394 tgl 20 0 empty empty empty 17 7 0 10 -262130 -1 -1 0
 1;
-#X obj 687 258 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 0
+#X obj 406 424 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 0
 1;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff60-2 50 float 3;
@@ -2479,13 +2479,13 @@
 -0.161903 -0.161903 -0.161903 -0.171427 -0.171427 -0.171427 -0.171427
 -0.171427;
 #X coords 0 1 50 0 150 105 1 0 0;
-#X restore 553 -118 graph;
+#X restore 272 48 graph;
-#X obj 704 490 s NOTE;
+#X obj 423 656 s NOTE;
-#X msg 613 179 symbol riff60-2;
+#X msg 332 345 symbol riff60-2;
-#X msg 612 201 symbol riff60-1;
+#X msg 331 367 symbol riff60-1;
-#X msg 617 224 symbol riff60;
+#X msg 336 390 symbol riff60;
-#X obj 557 287 riff 800 4002;
+#X obj 276 453 riff 800 4002;
-#X obj 557 253 metro 500;
+#X obj 276 419 metro 500;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff60-3 30 float 3;
 #A 0 0.371429 0.371429 0.0190476 -0.428571 -0.438095 0 0.390476 0.4
@@ -2493,8 +2493,8 @@
 -0.447619 0.409524 0.409524 0.0285714 -0.457143 -0.457143 0.409524
 0.409524 0.00952381 -0.428571 0.438095 0.0190476 -0.447619 0;
 #X coords 0 1 30 0 150 105 1 0 0;
-#X restore 340 -82 graph;
+#X restore 59 84 graph;
-#X msg 585 140 symbol riff60-3;
+#X msg 304 306 symbol riff60-3;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff60-1 30 float 3;
 #A 0 0.733333 0.885715 0.97143 1.05714 1.13334 1.12381 1.02857 0.914286
@@ -2502,7 +2502,7 @@
 0.97143 0.904763 0.809524 0.761905 0.857143 0.933334 0.980954 1.04762
 1.09524 1.0381 0.980952 0.876191 0.780953;
 #X coords 0 1 30 0 150 105 1 0 0;
-#X restore 339 148 graph;
+#X restore 58 314 graph;
 #X connect 1 0 9 0;
 #X connect 2 0 8 3;
 #X connect 5 0 8 1;
@@ -2543,7 +2543,7 @@
 #X msg 1307 377 symbol riff61;
 #X msg 1302 354 symbol riff61-1;
 #X msg 1303 332 symbol riff61-2;
-#N canvas 0 149 1178 687 drawer 1;
+#N canvas 1 149 1178 687 drawer 0;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff93-1 80 float 3;
 #A 0 0.219048 0.209524 0.209524 0.209524 0.2 0.2 0.190476 0.180952
@@ -2666,7 +2666,7 @@
 #X obj 1071 668 riff 800 4702;
 #X obj 1073 782 s NOTE;
 #X obj 1247 406 metro 1000;
-#N canvas 6 214 1362 825 copper 1;
+#N canvas 6 89 1362 806 copper 0;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array riff97 50 float 3;
 #A 0 0.0476214 0.104764 0.161906 0.219049 0.24762 0.285715 0.32381

puredata/piano_access_radio_comm_only.pd

@@ -0,0 +1,110 @@
+#N canvas 503 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;
+#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;

puredata/radio_alumi_A.pd

@@ -0,0 +1,267 @@
+#N canvas 713 255 399 491 10;
+#X msg 37 337 0;
+#X obj 249 306 loadbang;
+#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 251 406 0;
+#X obj 251 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 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 obj 16 39 r WORLD_ENERGY;
+#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 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 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 167 226 pd world and me;
+#N canvas 499 252 697 374 expressions 0;
+#X obj 42 185 inlet;
+#X obj 42 266 outlet;
+#X obj 42 237 t b a;
+#X obj 244 232 s \$0-word;
+#X obj 161 323 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 161 255 + 1;
+#X floatatom 161 278 5 0 0 0 - - -;
+#X obj 161 300 array_copier alumiA;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiA3 50 float 3;
+#A 0 0.514286 0.52381 0.533333 0.542857 0.571428 0.580951 0.599999
+0.619046 0.676188 0.599999 0.542857 0.495239 0.476192 0.457144 0.438097
+0.438097 0.457144 0.504762 0.7619 0.790471 0.828566 0.828566 0.828566
+0.571428 0.590475 0.52381 0.466668 0.438097 0.409526 0.580952 0.599999
+0.619046 0.742857 0.485715 0.457144 0.447621 0.447621 0.447621 0.609524
+0.571429 0.571429 0.647618 0.685713 0.41905 0.428573 0.400002 0.571428
+0.580951 0.609522 0.619046;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 354 38 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiA1 50 float 3;
+#A 0 0.219047 0.190476 0.15238 0.114285 0.0857131 0.0857131 0.0857131
+0.095237 0.133332 0.190476 0.238095 0.285714 0.314286 0.333334 0.333334
+0.333334 0.304762 0.238095 0.180952 0.142856 0.114285 0.104761 0.104761
+0.12381 0.142856 0.2 0.257143 0.314286 0.333334 0.352381 0.352381 0.342858
+0.295238 0.219047 0.15238 0.123809 0.114285 0.095237 0.095237 0.104762
+0.123809 0.123809 0.171428 0.238095 0.295238 0.32381 0.333334 0.333334
+0.314286 0.266667;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 34 38 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiA2 50 float 3;
+#A 0 0.142857 0.180952 0.195238 0.209524 0.228572 0.266667 0.295239
+0.742857 0.0952377 0.104762 0.161905 0.209524 0.234921 0.260318 0.704762
+0.133333 0.152381 0.171429 0.209524 0.219048 0.24762 0.685714 0.133333
+0.161905 0.195238 0.24762 0.723809 0.276191 0.104761 0.133333 0.171428
+0.209524 0.638095 0.0952372 0.161904 0.209524 0.295238 0.628571 0.147619
+0.2 0.266667 0.323811 0.352382 0.295239 0.714286 0.152381 0.2 0.238096
+0.333334 0.390478;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 194 38 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiA4 50 float 3;
+#A 0 0.438095 0.333333 0.27619 0.228571 0.171427 0.10476 0.0285694
+0.00952375 0.00952375 -1.19209e-07 -0.00952399 -0.00952399 -0.00952399
+-0.00952399 -0.00952399 0.390476 0.314285 0.266666 0.228571 0.142856
+0.0857126 0.0190455 -0.00952607 0.0190476 0.0190476 0.0190476 0.0190476
+0.0190476 0.0190476 0.409524 0.266666 0.15238 0.0857127 0.0190457 0.00952178
+0.0190476 0.0190476 0.0190476 0.419048 0.314285 0.27619 0.209523 0.133332
+0.0761887 0.0190455 0.0190476 0.0190476 0.0190476 0.0190476 -8.34465e-07
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 514 38 graph;
+#X obj 42 214 count 4;
+#X connect 0 0 12 0;
+#X connect 2 0 1 0;
+#X connect 2 1 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 4 0;
+#X connect 12 0 2 0;
+#X connect 12 0 3 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiA 50 float 3;
+#A 0 0.142857 0.180952 0.195238 0.209524 0.228572 0.266667 0.295239
+0.742857 0.0952377 0.104762 0.161905 0.209524 0.234921 0.260318 0.704762
+0.133333 0.152381 0.171429 0.209524 0.219048 0.24762 0.685714 0.133333
+0.161905 0.195238 0.24762 0.723809 0.276191 0.104761 0.133333 0.171428
+0.209524 0.638095 0.0952372 0.161904 0.209524 0.295238 0.628571 0.147619
+0.2 0.266667 0.323811 0.352382 0.295239 0.714286 0.152381 0.2 0.238096
+0.333334 0.390478;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 29 46 graph;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 164 21 r ALUMI_A;
+#X obj 48 188 r ALUMI_A;
+#X obj 167 269 s ALUMI_A;
+#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262144
+-203904 -1 1;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -228856 -1
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -228856
+-1 -1 1 1;
+#X obj 88 306 riff1 800 3202 500;
+#X msg 249 329 alumiA;
+#X obj 231 452 s ALUMI_A_DONE;
+#X obj 250 71 loadbang;
+#X obj 250 114 metro 2000;
+#X obj 250 94 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 325 142 r E_SEQ;
+#X obj 250 137 v \$0-STRESS;
+#X obj 250 160 *;
+#X obj 250 183 v \$0-STRESS;
+#X connect 0 0 23 0;
+#X connect 1 0 24 0;
+#X connect 2 0 5 0;
+#X connect 2 0 25 0;
+#X connect 4 0 19 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 23 0;
+#X connect 13 0 12 0;
+#X connect 14 0 13 1;
+#X connect 15 0 14 0;
+#X connect 16 0 24 0;
+#X connect 17 0 7 0;
+#X connect 17 0 21 0;
+#X connect 18 0 10 0;
+#X connect 23 0 13 0;
+#X connect 23 3 2 0;
+#X connect 24 0 23 1;
+#X connect 26 0 28 0;
+#X connect 27 0 30 0;
+#X connect 28 0 27 0;
+#X connect 29 0 31 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_alumi_B.pd

@@ -0,0 +1,267 @@
+#N canvas 737 231 419 510 10;
+#X msg 37 337 0;
+#X obj 249 306 loadbang;
+#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 251 406 0;
+#X obj 251 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 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
+1 1;
+#X obj 67 334 == 0;
+#X obj 16 316 sel 1;
+#X text 41 402 think;
+#X obj 16 428 gauss 1 0;
+#X floatatom 16 474 5 0 0 0 - - -;
+#X obj 16 544 sel 1;
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 110 504 5 0 0 0 stress - -;
+#X obj 238 555 +;
+#X obj 238 502 t a b;
+#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 238 480 8 0 0 0 - - -;
+#X obj 16 521 >;
+#X floatatom 16 137 5 0 0 0 - - -;
+#X obj 238 375 t b b;
+#X obj 285 416 sel 1 0;
+#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
+-257985 -1;
+#X obj 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 obj 16 39 r WORLD_ENERGY;
+#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.49;
+#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 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 167 226 pd world and me;
+#N canvas 222 280 697 374 expressions 0;
+#X obj 42 185 inlet;
+#X obj 42 266 outlet;
+#X obj 42 237 t b a;
+#X obj 244 232 s \$0-word;
+#X obj 161 323 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 161 255 + 1;
+#X floatatom 161 278 5 0 0 0 - - -;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiB1 50 float 3;
+#A 0 0.228571 0.257143 0.257143 0.209524 0.219048 0.242857 0.276191
+0.295239 0.304762 0.819048 0.419049 0.428573 0.314286 0.314286 0.295238
+0.32381 0.333334 0.485715 0.533334 0.380953 0.104762 0.0380947 0.00952309
+0.00952309 0.0285708 0.0476186 0.266666 0.352381 0.342857 0.361905
+0.400001 0.199999 0.199999 0.214285 0.228571 0.199999 0.228571 0.342857
+0.685714 0.695238 0.352381 0.0380935 0.0285696 0.114284 0.295238 0.180952
+0.219047 0.457144 0.400001 0.238095;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 34 44 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiB2 50 float 3;
+#A 0 0.142857 0.180952 0.195238 0.209524 0.228572 0.266667 0.295239
+0.685714 0.0952377 0.104762 0.161905 0.209524 0.234921 0.260318 0.647619
+0.133333 0.152381 0.171429 0.209524 0.219048 0.24762 0.685714 0.133333
+0.161905 0.195238 0.24762 0.723809 0.276191 0.171429 0.190476 0.219048
+0.24762 0.238096 0.2 0.22381 0.24762 0.609524 0.123809 0.147619 0.171429
+0.190476 0.257143 0.276191 0.295239 0.714286 0.152381 0.2 0.238096
+0.333334 0.390478;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 194 44 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiB3 50 float 3;
+#A 0 0.438094 0.438094 0.438094 0.438094 0.438094 0.438094 0.438094
+0.438094 0.438094 0.438094 0.438094 0.438094 0.438094 0.438094 0.438094
+0.438094 0.428571 0.438094 0.438094 0.438094 0.438094 0.438094 0.438094
+0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571
+0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571
+0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571
+0.438094 0.438094 0.447618;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 354 44 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiB4 50 float 3;
+#A 0 0.438095 0.333333 0.27619 0.228571 0.171427 0.10476 0.0285694
+0.00952375 0.00952375 -1.19209e-07 -0.00952399 -0.00952399 -0.00952399
+-0.00952399 -0.00952399 0.390476 0.314285 0.266666 0.228571 0.142856
+0.0857126 0.0190455 -0.00952607 0.0190476 0.0190476 0.0190476 0.0190476
+0.0190476 0.0190476 0.409524 0.266666 0.15238 0.0857127 0.0190457 0.00952178
+0.0190476 0.0190476 0.0190476 0.419048 0.314285 0.27619 0.209523 0.133332
+0.0761887 0.0190455 0.0190476 0.0190476 0.0190476 0.0190476 -8.34465e-07
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 514 44 graph;
+#X obj 161 300 array_copier alumiB;
+#X obj 42 214 count 4;
+#X connect 0 0 12 0;
+#X connect 2 0 1 0;
+#X connect 2 1 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 11 0;
+#X connect 11 0 4 0;
+#X connect 12 0 2 0;
+#X connect 12 0 3 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array alumiB 50 float 3;
+#A 0 0.142857 0.180952 0.195238 0.209524 0.228572 0.266667 0.295239
+0.685714 0.0952377 0.104762 0.161905 0.209524 0.234921 0.260318 0.647619
+0.133333 0.152381 0.171429 0.209524 0.219048 0.24762 0.685714 0.133333
+0.161905 0.195238 0.24762 0.723809 0.276191 0.171429 0.190476 0.219048
+0.24762 0.238096 0.2 0.22381 0.24762 0.609524 0.123809 0.147619 0.171429
+0.190476 0.257143 0.276191 0.295239 0.714286 0.152381 0.2 0.238096
+0.333334 0.390478;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 29 46 graph;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262144
+-203904 -1 1;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -228856 -1
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -228856
+-1 -1 1 1;
+#X obj 48 188 r ALUMI_B;
+#X obj 164 21 r ALUMI_B;
+#X obj 167 269 s ALUMI_B;
+#X msg 249 329 alumiB;
+#X obj 231 452 s ALUMI_B_DONE;
+#X obj 88 306 riff1 600 3205 500;
+#X obj 271 72 loadbang;
+#X obj 271 115 metro 2000;
+#X obj 271 95 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 346 143 r E_SEQ;
+#X obj 271 138 v \$0-STRESS;
+#X obj 271 161 *;
+#X obj 271 184 v \$0-STRESS;
+#X connect 0 0 25 0;
+#X connect 1 0 23 0;
+#X connect 2 0 5 0;
+#X connect 2 0 24 0;
+#X connect 4 0 22 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 25 0;
+#X connect 13 0 12 0;
+#X connect 14 0 13 1;
+#X connect 15 0 14 0;
+#X connect 16 0 23 0;
+#X connect 20 0 10 0;
+#X connect 21 0 7 0;
+#X connect 21 0 18 0;
+#X connect 23 0 25 1;
+#X connect 25 0 13 0;
+#X connect 25 3 2 0;
+#X connect 26 0 28 0;
+#X connect 27 0 30 0;
+#X connect 28 0 27 0;
+#X connect 29 0 31 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_bongbong.pd

@@ -0,0 +1,287 @@
+#N canvas 192 89 410 511 10;
+#X msg 37 337 0;
+#X obj 249 306 loadbang;
+#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X msg 249 329 bongbong;
+#X obj 164 21 r BONGBONG;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array bongbong 50 float 3;
+#A 0 1.15238 0.828571 1.15238 0.828571 1.15238 0.761905 1.14286 0.828571
+0.8 1.08571 0.961905 1.06667 0.92381 0.885714 1.05714 1.05714 1.05714
+0.933333 1.06667 0.933333 1.10476 1.11428 0.885714 1.10476 1.10476
+1.12381 1.14286 1.1619 0.971429 1.13333 0.904762 0.952381 1.13333 0.92381
+1.13333 0.838095 0.961905 1.13333 0.942857 1.12381 0.933333 1.09524
+0.87619 1.06667 0.904762 0.933333 1.05714 0.904762 0.885714 1.02857
+;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 30 32 graph;
+#X obj 88 8 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -1
+-1;
+#X obj 25 85 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -261682
+-4034 -1 1;
+#X text 35 318 stop!;
+#X obj 88 306 riff1 800 4100 400;
+#X obj 88 25 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
+-1 -1 0 1;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X obj 167 279 s BONGBONG;
+#X obj 48 188 r BONGBONG;
+#X msg 251 406 0;
+#X obj 251 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 557 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 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 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 obj 16 39 r WORLD_ENERGY;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 285 439 0.005;
+#X msg 304 462 -0.005;
+#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 47 0;
+#X connect 19 1 48 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 167 226 pd world and me;
+#N canvas 329 403 621 436 expressions 0;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array bongbong1 50 float 3;
+#A 0 1.01905 1.03809 1.05714 0.990476 0.952381 0.933334 0.904762 0.819048
+0.838095 0.857143 0.87619 0.87619 0.87619 0.866666 0.923809 0.895238
+0.87619 0.87619 0.87619 0.87619 0.87619 0.809524 0.914286 0.961904
+1.01905 1.04762 0.999999 0.980952 0.990476 0.914285 0.933332 0.971427
+0.95238 0.923809 0.885714 0.866666 0.866666 0.87619 1.02857 1.05714
+1.07619 1.09524 1.10476 1.10476 1.10476 1.10476 1.10476 1.10476 1.09524
+1.07619;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 49 36 graph;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array bongbong2 50 float 3;
+#A 0 1.15238 0.828571 1.15238 0.828571 1.15238 0.761905 1.14286 0.828571
+0.8 1.08571 0.961905 1.06667 0.92381 0.885714 1.05714 1.05714 1.05714
+0.933333 1.06667 0.933333 1.10476 1.11428 0.885714 1.10476 1.10476
+1.12381 1.14286 1.1619 0.971429 1.13333 0.904762 0.952381 1.13333 0.92381
+1.13333 0.838095 0.961905 1.13333 0.942857 1.12381 0.933333 1.09524
+0.87619 1.06667 0.904762 0.933333 1.05714 0.904762 0.885714 1.02857
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 219 36 graph;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array bongbong3 50 float 3;
+#A 0 -0.771422 -0.390472 -0.390472 0.0761905 -0.399996 -0.504758 -0.476186
+-0.457139 -0.438091 -0.48571 -0.48571 -0.466663 -0.457139 -0.447615
+-0.447615 -0.48571 -0.533328 -0.5619 -0.495234 -0.457139 -0.419044
+-0.40952 -0.40952 -0.40952 -0.419044 -0.399996 0.152381 0.161905 -0.590472
+-0.552377 -0.523806 -0.514282 -0.514282 -0.523806 -0.523806 0.0761904
+0.0761905 0.0761905 0.0761905 -0.628567 -0.599996 -0.561901 -0.542853
+-0.523806 -0.514282 -0.580948 -0.552377 -0.533329 -0.523806 -0.276188
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 389 36 graph;
+#X obj 443 271 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X msg 380 296 bang;
+#X obj 380 273 scan;
+#X obj 380 319 random 1000;
+#X obj 380 342 / 1000;
+#X floatatom 380 365 5 0 0 0 - - -;
+#X obj 380 253 t a b;
+#X msg 380 230 3;
+#X obj 380 403 asum bongbong;
+#X obj 80 403 asum bongbong;
+#X msg 80 380 1 \, 0 \, 0;
+#X obj 80 280 sel 0 1 2 3;
+#X obj 80 357 t b b;
+#X obj 180 403 asum bongbong;
+#X obj 180 357 t b b;
+#X obj 280 403 asum bongbong;
+#X obj 280 357 t b b;
+#X msg 180 380 0 \, 1 \, 0;
+#X msg 280 380 0 \, 0 \, 1;
+#X obj 22 210 inlet;
+#X obj 22 291 outlet;
+#X obj 22 239 random 4;
+#X obj 22 262 t b a;
+#X obj 224 257 s \$0-word;
+#X connect 3 0 11 1;
+#X connect 4 0 6 0;
+#X connect 5 0 4 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 11 0;
+#X connect 9 0 5 0;
+#X connect 9 1 3 0;
+#X connect 10 0 9 0;
+#X connect 13 0 12 0;
+#X connect 14 0 15 0;
+#X connect 14 1 17 0;
+#X connect 14 2 19 0;
+#X connect 14 3 10 0;
+#X connect 15 0 13 0;
+#X connect 15 1 12 1;
+#X connect 17 0 20 0;
+#X connect 17 1 16 1;
+#X connect 19 0 21 0;
+#X connect 19 1 18 1;
+#X connect 20 0 16 0;
+#X connect 21 0 18 0;
+#X connect 22 0 24 0;
+#X connect 24 0 25 0;
+#X connect 24 0 26 0;
+#X connect 25 0 23 0;
+#X connect 25 1 14 0;
+#X restore 48 226 pd expressions;
+#X obj 231 452 s BONGBONG_DONE;
+#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 259 57 loadbang;
+#X obj 259 100 metro 2000;
+#X obj 259 80 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 334 128 r E_SEQ;
+#X obj 259 123 v \$0-STRESS;
+#X obj 259 146 *;
+#X obj 259 169 v \$0-STRESS;
+#X connect 0 0 9 0;
+#X connect 1 0 3 0;
+#X connect 2 0 14 0;
+#X connect 2 0 20 0;
+#X connect 3 0 9 1;
+#X connect 4 0 6 0;
+#X connect 4 0 16 0;
+#X connect 9 0 22 0;
+#X connect 9 3 2 0;
+#X connect 11 0 12 0;
+#X connect 13 0 19 0;
+#X connect 14 0 15 0;
+#X connect 16 0 17 0;
+#X connect 18 0 11 0;
+#X connect 19 0 9 0;
+#X connect 22 0 21 0;
+#X connect 23 0 22 1;
+#X connect 24 0 23 0;
+#X connect 25 0 27 0;
+#X connect 26 0 29 0;
+#X connect 27 0 26 0;
+#X connect 28 0 30 1;
+#X connect 29 0 30 0;
+#X connect 30 0 31 0;
+#X coords 0 -1 1 1 100 100 2 5 5;

puredata/radio_copper.pd

@@ -0,0 +1,266 @@
+#N canvas 1 89 461 502 10;
+#X msg 37 337 0;
+#X obj 349 303 loadbang;
+#X obj 302 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 322 406 0;
+#X obj 322 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 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 obj 16 39 r WORLD_ENERGY;
+#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 msg 285 439 1;
+#X connect 0 0 21 0;
+#X connect 1 0 5 0;
+#X connect 1 1 37 0;
+#X connect 2 0 7 0;
+#X connect 3 0 2 1;
+#X connect 4 0 3 0;
+#X connect 5 0 2 0;
+#X connect 7 0 28 0;
+#X connect 8 0 16 0;
+#X connect 9 0 38 0;
+#X connect 11 0 16 1;
+#X connect 12 0 22 0;
+#X connect 13 0 12 0;
+#X connect 13 1 35 0;
+#X connect 14 0 32 0;
+#X connect 15 0 13 0;
+#X connect 16 0 9 0;
+#X connect 16 0 10 0;
+#X connect 17 0 20 0;
+#X connect 17 0 48 0;
+#X connect 18 0 15 0;
+#X connect 18 1 34 0;
+#X connect 19 0 49 0;
+#X connect 19 1 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 1 0;
+#X connect 49 0 15 0;
+#X restore 167 226 pd world and me;
+#N canvas 333 259 684 376 expressions 0;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array copper1 50 float 3;
+#A 0 0.0476214 0.104764 0.161906 0.219049 0.24762 0.285715 0.32381
+0.361905 0.419048 0.390476 0.371429 0.333334 0.295239 0.257144 0.190476
+0.104762 0.0666671 0.00952458 0.0476196 0.0952383 0.152383 0.219049
+0.257144 0.295239 0.333334 0.419045 0.409522 0.361903 0.295237 0.266665
+0.219047 0.171428 0.123809 0.0761904 0.142856 0.180951 0.238094 0.276189
+0.333331 0.38095 0.419045 0.390474 0.352379 0.295236 0.257141 0.219046
+0.171428 0.114285 0.0666665 0.0285715;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 26 68 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array copper4 50 float 3;
+#A 0 0.419048 0.419048 0.419048 0.419048 0.419048 0.504762 0.561905
+0.6 0.609524 0.619048 0.619048 0.619048 0.333333 0.314286 0.304762
+0.304762 0.304762 0.371429 0.438095 0.47619 0.495238 0.504762 0.504762
+0.504762 0.485714 0.419048 0.209524 0.180952 0.171429 0.152381 0.152381
+0.142857 0.142857 0.190476 0.67619 0.704762 0.733333 0.733333 0.723809
+0.714286 0.685714 0.495238 0.485714 0.485714 0.457143 0.257143 0.247619
+0.228571 0.228571 0.219048;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 506 68 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array copper3 50 float 3;
+#A 0 1 1.20953 1.05715 0.352379 0.30476 0.228569 0.161901 0.0857105
+0.0476151 1.18095 1.21905 0.571429 0.495238 0.419047 0.342856 0.257141
+0.209522 0.495238 0.123807 0.0857117 1.02857 1.31429 0.695237 0.657142
+0.542856 0.352381 0.295237 0.22857 0.180951 0.0952362 0.0571407 0.038093
+0.0285691 0.0190452 0.0190452 0.00952137 0.619047 0.533332 0.438093
+0.38095 0.314283 0.266664 0.238092 0.180949 0.104762 0.0761902 0.0571425
+0.0476186 0.0285709 0.019047;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 346 68 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array copper2 50 float 3;
+#A 0 0.0666668 0.104762 0.161906 0.228573 0.29524 0.342859 0.409526
+0.476193 0.54286 0.600003 0.695242 0.752385 0.809529 0.847619 0.914286
+0.990477 1.07619 1.17143 0.00952369 0.00952369 0.00952369 0.00952387
+0.00952387 0.00952387 0 0 0 -1.19209e-07 0.00952375 0.0476192 0.12381
+0.219049 0.304764 0.361907 0.428574 0.514289 0.59048 0.685718 0.771433
+0.857148 1 1.04762 1.16191 1.21905 1.2381 -0.00952542 -0.00952542 -0.00952542
+-0.00952542 -0.00952542;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 186 68 graph;
+#X obj 38 195 inlet;
+#X obj 38 276 outlet;
+#X obj 38 247 t b a;
+#X obj 240 242 s \$0-word;
+#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 148 265 + 1;
+#X floatatom 148 288 5 0 0 0 - - -;
+#X obj 148 310 array_copier copper;
+#X obj 38 224 count 4;
+#X connect 4 0 12 0;
+#X connect 6 0 5 0;
+#X connect 6 1 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 8 0;
+#X connect 12 0 6 0;
+#X connect 12 0 7 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array copper 50 float 3;
+#A 0 0.419048 0.419048 0.419048 0.419048 0.419048 0.504762 0.561905
+0.6 0.609524 0.619048 0.619048 0.619048 0.333333 0.314286 0.304762
+0.304762 0.304762 0.371429 0.438095 0.47619 0.495238 0.504762 0.504762
+0.504762 0.485714 0.419048 0.209524 0.180952 0.171429 0.152381 0.152381
+0.142857 0.142857 0.190476 0.67619 0.704762 0.733333 0.733333 0.723809
+0.714286 0.685714 0.495238 0.485714 0.485714 0.457143 0.257143 0.247619
+0.228571 0.228571 0.219048;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 29 76 graph;
+#X obj 24 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -83269
+-262144 -1 3;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -83269 -262144
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -83269 -262144
+-1 0 1;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 164 21 r COPPER;
+#X obj 167 279 s COPPER;
+#X obj 48 188 r COPPER;
+#X obj 302 452 s COPPER_DONE;
+#X msg 349 326 copper;
+#X obj 88 306 riff1_random 800 3204 1000 1300;
+#X obj 369 349 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 302 69 loadbang;
+#X obj 302 112 metro 2000;
+#X obj 302 92 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 377 140 r E_SEQ;
+#X obj 302 135 v \$0-STRESS;
+#X obj 302 158 *;
+#X obj 302 181 v \$0-STRESS;
+#X connect 0 0 24 0;
+#X connect 1 0 23 0;
+#X connect 2 0 5 0;
+#X connect 2 0 22 0;
+#X connect 4 0 20 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 24 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 1;
+#X connect 18 0 17 0;
+#X connect 19 0 7 0;
+#X connect 19 0 13 0;
+#X connect 21 0 10 0;
+#X connect 23 0 24 1;
+#X connect 24 0 16 0;
+#X connect 24 3 2 0;
+#X connect 25 0 23 0;
+#X connect 26 0 28 0;
+#X connect 27 0 30 0;
+#X connect 28 0 27 0;
+#X connect 29 0 31 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_drawer.pd

@@ -0,0 +1,266 @@
+#N canvas 310 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 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
+1 1;
+#X obj 67 334 == 0;
+#X obj 16 316 sel 1;
+#X text 41 402 think;
+#X obj 16 428 gauss 1 0;
+#X floatatom 16 474 5 0 0 0 - - -;
+#X obj 16 544 sel 1;
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 110 504 5 0 0 0 stress - -;
+#X obj 238 555 +;
+#X obj 238 502 t a b;
+#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 238 480 8 0 0 0 - - -;
+#X obj 16 521 >;
+#X floatatom 16 137 5 0 0 0 - - -;
+#X obj 238 375 t b b;
+#X obj 285 416 sel 1 0;
+#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
+-257985 -1;
+#X obj 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 obj 16 39 r WORLD_ENERGY;
+#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 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 47 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 44 0 0 0;
+#X connect 47 0 15 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 688 374 expressions 0;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drawer1 80 float 3;
+#A 0 0.219048 0.209524 0.209524 0.209524 0.2 0.2 0.190476 0.180952
+0.180952 0.180952 0.171428 0.171428 0.161904 0.161904 0.152381 0.142857
+0.142857 0.133333 0.133333 0.123809 0.123809 0.114285 0.114285 0.104761
+0.104761 0.0952374 0.0857135 0.0761896 0.0761896 0.0761896 0.0761896
+0.0761896 0.0666658 0.0666658 0.0666658 0.0666658 0.0571419 0.047618
+0.047618 0.0380942 0.0380942 0.0380942 0.0285703 0.0285703 0.0285703
+0.0285703 0.0285703 0.0190464 0.0190464 0.00952256 0 0 0 0 0 0 0 0
+0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
+#X coords 0 1 80 0 150 105 1 0 0;
+#X restore 29 31 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drawer4 50 float 3;
+#A 0 0.0190476 0.457143 0.457143 0.457143 0.00952381 0.457143 0.457143
+0 0.457143 0.457143 0.00952381 0.457143 0.457143 0.457143 0 0.457143
+0.457143 0.457143 0 0.457143 0 0.457143 0.457143 0 0.457143 -0.304759
+-0.304759 -0.285712 0 -0.285712 -0.285712 -0.285712 0 -0.285712 -0.285712
+0.0190476 -0.285712 -0.285712 0 -0.276188 -0.276188 -0.276188 -0.276188
+-0.276188 0 -0.276188 0.00952381 -0.276188 -0.276188 -0.276188;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 509 31 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drawer2 40 float 3;
+#A 0 0.380952 0.00952381 0.361905 -5.96046e-08 0.361905 -5.96046e-08
+0.342857 0.8 0.352381 0 0.361905 0 0.371429 0 0.361905 -4.76837e-07
+0.361905 0 -4.76837e-07 0.742857 -4.76837e-07 -4.76837e-07 -4.76837e-07
+-0.00952435 -4.76837e-07 0 0 0 0 0.285714 0.00952381 0.27619 0.819048
+-3.57628e-06 -3.57628e-06 -3.57628e-06 -3.57628e-06 -3.57628e-06 0.00952029
+0.00952029;
+#X coords 0 1 40 0 150 105 1 0 0;
+#X restore 189 31 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drawer3 50 float 3;
+#A 0 0.00952381 0.00952387 0.00952387 0.00952387 0.942857 0.00952387
+0.00952387 0.00952387 0.00952387 0.00952387 1.19209e-07 1.19209e-07
+1.19209e-07 1.19209e-07 0.657143 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 1.19209e-07 0.761905 1.19209e-07 1.19209e-07 1.19209e-07
+1.19209e-07 1.19209e-07 1.19209e-07 0.219048 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 -0.438091 -0.00952232 -0.00952375 -0.00952375
+-0.00952375;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 349 31 graph;
+#X obj 38 195 inlet;
+#X obj 38 276 outlet;
+#X obj 38 247 t b a;
+#X obj 240 242 s \$0-word;
+#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 148 265 + 1;
+#X floatatom 148 288 5 0 0 0 - - -;
+#X obj 148 310 array_copier drawer;
+#X obj 38 224 count 4;
+#X connect 4 0 12 0;
+#X connect 6 0 5 0;
+#X connect 6 1 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 8 0;
+#X connect 12 0 6 0;
+#X connect 12 0 7 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drawer 40 float 3;
+#A 0 0.380952 0.00952381 0.361905 -5.96046e-08 0.361905 -5.96046e-08
+0.342857 0.8 0.352381 0 0.361905 0 0.371429 0 0.361905 -4.76837e-07
+0.361905 0 -4.76837e-07 0.742857 -4.76837e-07 -4.76837e-07 -4.76837e-07
+-0.00952435 -4.76837e-07 0 0 0 0 0.285714 0.00952381 0.27619 0.819048
+-3.57628e-06 -3.57628e-06 -3.57628e-06 -3.57628e-06 -3.57628e-06 0.00952029
+0.00952029;
+#X coords 0 1 40 0 50 50 1 0 0;
+#X restore 29 76 graph;
+#X obj 31 138 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -204800
+-4160 -1 1;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -4032 -1 -1
+;
+#X obj 164 21 r DRAWER;
+#X obj 48 188 r DRAWER;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -4032 -1
+-1 0 1;
+#X obj 295 452 s DRAWER_DONE;
+#X obj 167 279 s DRAWER;
+#X msg 319 323 drawer;
+#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 88 306 riff1_random 600 4403 700 1000;
+#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 355 126 r E_SEQ;
+#X obj 280 121 v \$0-STRESS;
+#X obj 280 144 *;
+#X obj 280 167 v \$0-STRESS;
+#X connect 0 0 24 0;
+#X connect 1 0 19 0;
+#X connect 2 0 5 0;
+#X connect 2 0 17 0;
+#X connect 4 0 18 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 24 0;
+#X connect 14 0 7 0;
+#X connect 14 0 13 0;
+#X connect 15 0 10 0;
+#X connect 19 0 24 1;
+#X connect 21 0 20 0;
+#X connect 22 0 21 1;
+#X connect 23 0 22 0;
+#X connect 24 0 21 0;
+#X connect 24 3 2 0;
+#X connect 25 0 19 0;
+#X connect 26 0 28 0;
+#X connect 27 0 30 0;
+#X connect 28 0 27 0;
+#X connect 29 0 31 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_drummer.pd

@@ -0,0 +1,335 @@
+#N canvas 1 280 829 496 10;
+#X msg 37 337 0;
+#X obj 316 306 loadbang;
+#X obj 288 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 275 48 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 308 406 0;
+#X obj 308 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 obj 16 39 r WORLD_ENERGY;
+#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 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 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 275 25 pd world and me;
+#N canvas 350 89 730 545 expressions 0;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerA1 30 float 3;
+#A 0 3.57628e-07 -0.00952339 -0.00952339 -0.00952339 -0.00952339 -0.00952339
+-0.00952339 -0.00952339 -0.00952339 -0.00952339 -0.00952339 -0.00952339
+-0.0190471 -0.0190471 -0.0190471 -0.00952333 -0.00952333 -0.00952333
+-0.00952333 -0.00952333 4.17233e-07 4.17233e-07 4.17233e-07 4.17233e-07
+4.17233e-07 4.17233e-07 -0.00952339 -0.00952339 -0.00952339 -0.00952339
+;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 52 41 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerA2 30 float 3;
+#A 0 0.628571 0.00952381 0.00952381 0.00952381 0.733333 0.00952381
+-0.00952381 -0.00952381 -0.00952381 -0.00952381 -0.00952381 -0.00952381
+-0.00952381 0.647619 -0.00952381 -0.00952381 -0.00952381 0 0.761905
+-0.00634921 -0.0031746 0 0.0031746 0.438095 0.00952381 0.00952381 0.00952381
+0.00952381 0.723809 0.00952381;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 212 41 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerA3 30 float 3;
+#A 0 0.095238 0.133333 0.12381 0.200001 0.304763 0.190477 0.24762 0.380954
+0.238096 0.0476186 0.0666664 0.24762 0.180953 0.285714 0.171429 0.180953
+0.228572 0.295239 0.200001 0.12381 0.24762 0.161905 0.361906 0.314287
+0.37143 0.180953 0.257144 0.104762 0.0666664 0.266668;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 372 41 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerA4 30 float 3;
+#A 0 0.180952 0.161905 0.161905 0.161905 0.161905 0.161905 0.161905
+0.161905 0.161905 0.161905 0.161905 0.161905 0.161905 0.161905 0.152381
+0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381
+0.152381 0.152381 0.152381 0.152381 0.152381 0.152381 0.152381;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 532 41 graph;
+#X obj 55 312 inlet;
+#X obj 55 393 outlet;
+#X obj 55 364 t b a;
+#X obj 257 359 s \$0-word;
+#X obj 165 493 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 165 425 + 1;
+#X floatatom 165 448 5 0 0 0 - - -;
+#X obj 304 400 + 1;
+#X floatatom 304 423 5 0 0 0 - - -;
+#X obj 165 382 t a a;
+#X obj 55 341 random 4;
+#X obj 165 470 array_copier drummerA;
+#X obj 304 445 array_copier drummerB;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerB1 30 float 3;
+#A 0 0.133333 0.152381 0.180953 0.2 0.238096 0.285715 0.314287 0.37143
+0.409526 0.457145 0.504764 0.590479 0.66667 0.752385 0.819048 0.857147
+0.980953 0.00952381 -5.96046e-08 -5.96046e-08 -5.96046e-08 -5.96046e-08
+-5.96046e-08 -5.96046e-08 -5.96046e-08 0.00952381 0.00952381 0.00952381
+0 0;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 52 181 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerB2 30 float 3;
+#A 0 0.52381 0.342857 -0.00952381 -0.00952381 0 0 0 0.00952381 0.838095
+0.419048 0 0 0 0.561905 0.361905 0 0 0 0 0 0 0.733333 0.333333 0 0
+0 0.47619 0.295238 0.00952381 0.00952381;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 212 181 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerB3 30 float 3;
+#A 0 1.78814e-07 1.78814e-07 0.00952393 0.00952393 0.00952393 0.00952393
+0.00952393 1.78814e-07 1.78814e-07 1.78814e-07 0.00952375 0.00952375
+0.00952375 0.00952375 0.00952375 0 0 0 0 0 0 0 0 0 0 -0.00952357 -0.00952357
+-0.00952357 -0.00952357 -0.00952357;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 372 181 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerB4 30 float 3;
+#A 0 1.78814e-07 1.78814e-07 0.628571 0.00952393 0.00952393 0.00952393
+0.00952393 1.78814e-07 1.78814e-07 1.78814e-07 0.67619 0.00952375 0.00952375
+0.00952375 0.00952375 0 0 0 0 0.638095 0 0 0 0 0 0.638095 -0.00952357
+-0.00952357 -0.00952357 -0.00952357;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 532 181 graph;
+#X connect 4 0 14 0;
+#X connect 6 0 5 0;
+#X connect 6 1 13 0;
+#X connect 9 0 10 0;
+#X connect 10 0 15 0;
+#X connect 11 0 12 0;
+#X connect 12 0 16 0;
+#X connect 13 0 9 0;
+#X connect 13 1 11 0;
+#X connect 14 0 6 0;
+#X connect 14 0 7 0;
+#X connect 15 0 8 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerA 30 float 3;
+#A 0 0.095238 0.133333 0.12381 0.200001 0.304763 0.190477 0.24762 0.380954
+0.238096 0.0476186 0.0666664 0.24762 0.180953 0.285714 0.171429 0.180953
+0.228572 0.295239 0.200001 0.12381 0.24762 0.161905 0.361906 0.314287
+0.37143 0.180953 0.257144 0.104762 0.0666664 0.266668;
+#X coords 0 1 30 0 25 25 1 0 0;
+#X restore 29 50 graph;
+#X obj 21 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -203904
+-260097 -1 2;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -203904 -1
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -203904
+-1 -1 0 1;
+#X obj 88 406 spigot;
+#X obj 397 460 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 397 437 loadbang;
+#X obj 48 188 r DRUMMER;
+#X obj 288 452 s DRUMMER_DONE;
+#X obj 275 78 s DRUMMER;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array drummerB 30 float 3;
+#A 0 1.78814e-07 1.78814e-07 0.00952393 0.00952393 0.00952393 0.00952393
+0.00952393 1.78814e-07 1.78814e-07 1.78814e-07 0.00952375 0.00952375
+0.00952375 0.00952375 0.00952375 0 0 0 0 0 0 0 0 0 0 -0.00952357 -0.00952357
+-0.00952357 -0.00952357 -0.00952357;
+#X coords 0 1 30 0 25 25 1 0 0;
+#X restore 29 100 graph;
+#X msg 316 329 drummerA;
+#X obj 88 306 riff1_random 30 1031 600 1000;
+#X obj 164 21 r DRUMMER;
+#X obj 339 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X msg 447 337 0;
+#X obj 726 306 loadbang;
+#X text 445 318 stop!;
+#X obj 498 406 spigot;
+#X obj 749 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 498 306 riff1_random 80 1032 600 1000;
+#X msg 726 329 drummerB;
+#X obj 88 466 s NOTE;
+#X obj 221 428 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 88 443 spigot;
+#X obj 498 466 s NOTE;
+#X obj 631 428 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 498 443 spigot;
+#X obj 637 63 loadbang;
+#X obj 637 106 metro 2000;
+#X obj 637 86 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 712 134 r E_SEQ;
+#X obj 637 129 v \$0-STRESS;
+#X obj 637 152 *;
+#X obj 637 175 v \$0-STRESS;
+#X obj 221 405 > 1;
+#X obj 631 405 > 1;
+#X connect 0 0 23 0;
+#X connect 1 0 22 0;
+#X connect 2 0 5 0;
+#X connect 2 0 19 0;
+#X connect 4 0 20 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 23 0;
+#X connect 10 0 31 0;
+#X connect 15 0 35 0;
+#X connect 16 0 15 1;
+#X connect 16 0 29 1;
+#X connect 17 0 16 0;
+#X connect 18 0 10 0;
+#X connect 22 0 23 1;
+#X connect 23 0 15 0;
+#X connect 23 2 46 0;
+#X connect 23 3 2 0;
+#X connect 24 0 7 0;
+#X connect 24 0 13 0;
+#X connect 25 0 22 0;
+#X connect 26 0 31 0;
+#X connect 27 0 32 0;
+#X connect 29 0 38 0;
+#X connect 30 0 32 0;
+#X connect 31 0 29 0;
+#X connect 31 2 47 0;
+#X connect 32 0 31 1;
+#X connect 34 0 35 1;
+#X connect 35 0 33 0;
+#X connect 37 0 38 1;
+#X connect 38 0 36 0;
+#X connect 39 0 41 0;
+#X connect 40 0 43 0;
+#X connect 41 0 40 0;
+#X connect 42 0 44 1;
+#X connect 43 0 44 0;
+#X connect 44 0 45 0;
+#X connect 46 0 34 0;
+#X connect 47 0 37 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_flasher.pd

@@ -0,0 +1,369 @@
+#N canvas 110 169 704 515 10;
+#X obj 284 93 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 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 obj 16 39 r WORLD_ENERGY;
+#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.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 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 284 70 pd world and me;
+#N canvas 702 198 685 519 expressions 0;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherA2 40 float 3;
+#A 0 0.0952381 0 0.109524 0.00952381 0.119048 0 0.133333 0 0.152381
+0 0.180952 0.00952381 0.2 0.00952381 0.238095 0.0190476 0.27619 0 0.32381
+0 0.457143 0 0.590477 0.00952381 0.771429 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0;
+#X coords 0 1 40 0 150 105 1 0 0;
+#X restore 184 28 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherA3 30 float 3;
+#A 0 0.0761905 0.285714 0.552381 0.0761905 0.257143 0.542857 0.00952381
+0.00952381 0.0761905 0.266667 0.495238 0.428571 0.228571 0.485714 0.0857143
+0.238095 0.504762 0.904762 0.904762 0 0 0 0 0 0 0 0 0 0 0;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 344 28 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherA4 50 float 3;
+#A 0 0.171429 0.171429 0.00952387 0.00952387 0.00952387 0.00952387
+0.428571 0.0952381 0.00952375 0.00952375 0.00952375 0.00952375 0.00952375
+0.00952375 0.00952375 0.00952375 0.00952375 0.00952375 0.114286 0.257143
+0 0 0.00952375 0.00952375 0.00952375 0.00952375 0.0952381 0.0952381
+0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.219048
+0.0857143 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476
+0.0190476 0.0190476 0.152381 0.342857 0.0190476 0.0190476 0.0190476
+0.0190476;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 504 28 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherA1 50 float 3;
+#A 0 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.571429
+0.571429 0.571429 0.571429 0.571429 0.571429 0.571429 0.571429 0.571429
+0.571429 0.571429 0.571429 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.580956 0.580956 0.561908 0.561908 0.561908
+0.561908 0.571432 0.571432 0.571432 0.571429 0.571429 0.571429 0.571429
+0.571429 0.571429 0.571429 0.571429 0.0190476 0.0190476 0.0190476;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 24 28 graph;
+#X obj 28 289 inlet;
+#X obj 28 370 outlet;
+#X obj 28 341 t b a;
+#X obj 230 336 s \$0-word;
+#X obj 138 470 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 138 402 + 1;
+#X floatatom 138 425 5 0 0 0 - - -;
+#X obj 277 377 + 1;
+#X floatatom 277 400 5 0 0 0 - - -;
+#X obj 138 359 t a a;
+#X obj 138 447 array_copier flasherA;
+#X obj 277 422 array_copier flasherB;
+#X obj 28 318 random 4;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherB1 100 float 3;
+#A 0 0.533333 0.533333 0.533333 0.533333 0.533333 0.533333 0.533333
+0.533333 0.533333 0.533333 4.76837e-06 4.76837e-06 4.76837e-06 4.76837e-06
+0.00952381 0.295238 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.00952381 0.00952381 0.00952381 0.00952381 0.504762 0.504762
+0.504762 0.504762 0.504762 0.67619 0.0190476 0.371429 0.00952381 0.00952381
+0.52381 0.52381 0.52381 0.52381 0.67619 0.438095 0 0 0 0 0 0 0 0.314286
+0 0 0 0 0 0 0 0 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07
+0.466666 0.466666 0.466666 0.466666 0.466666 0.466666 0.466666 0.466666
+0.466666 0.466666 0.466666 0.466666 0.466666 0.466666 0 0 0 0 0 0.342857
+-0.0190474 -0.0190474 -0.0190474 -0.0190474 -0.0190474 -0.0190474 -0.0190474
+-0.0190474 -0.0190474 -0.0190474 0;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 24 159 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherB4 30 float 3;
+#A 0 0.0761905 0.247619 0.504762 0.0761905 0.238095 0.457142 0.00952381
+0.00952381 0.0761905 0.228571 0.428571 0.0666667 0.228571 0.438095
+0.0857143 0.238095 0.447619 0.904762 0.904762 0 0 0 0 0 0 0 0 0 0 0.2
+;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 504 159 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherB3 30 float 3;
+#A 0 0.180952 0.171429 -0.00952411 -2.38419e-07 -2.38419e-07 -2.38419e-07
+0 0.00952363 0.00952363 0.00952363 0.00952363 0.152381 0.152381 0.00952363
+0.00952363 0.00952363 0.00952363 0.00952363 0.0190475 0.171429 0.180952
+0 0 0 0 0.161905 0 0.161905 0 0;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 344 159 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherB2 40 float 3;
+#A 0 0.0952381 0 0.109524 0.00952381 0.119048 0 0.133333 0 0.152381
+0 0.180952 0.00952381 0.2 0.00952381 0.238095 0.0190476 0.27619 0 0.32381
+0 0.457143 0 0.590477 0.00952381 0.771429 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0;
+#X coords 0 1 40 0 150 105 1 0 0;
+#X restore 184 159 graph;
+#X connect 4 0 16 0;
+#X connect 6 0 5 0;
+#X connect 6 1 13 0;
+#X connect 9 0 10 0;
+#X connect 10 0 14 0;
+#X connect 11 0 12 0;
+#X connect 12 0 15 0;
+#X connect 13 0 9 0;
+#X connect 13 1 11 0;
+#X connect 14 0 8 0;
+#X connect 16 0 6 0;
+#X connect 16 0 7 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherA 40 float 3;
+#A 0 0.0952381 0 0.109524 0.00952381 0.119048 0 0.133333 0 0.152381
+0 0.180952 0.00952381 0.2 0.00952381 0.238095 0.0190476 0.27619 0 0.32381
+0 0.457143 0 0.590477 0.00952381 0.771429 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0;
+#X coords 0 1 40 0 25 25 1 0 0;
+#X restore 27 44 graph;
+#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -66577
+-257985 -1 1;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -66577 -257985
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -66577 -257985
+-1 1 1;
+#X obj 564 161 s NOTE;
+#X obj 564 118 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X msg 564 138 1500 1000 0 \$1;
+#X obj 281 231 loadbang;
+#X msg 281 254 1001;
+#X obj 564 95 v \$0-STATE;
+#X obj 564 72 metro 50;
+#X obj 564 52 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 564 29 loadbang;
+#X obj 164 21 r FLASHER;
+#X obj 284 123 s FLASHER;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array flasherB 40 float 3;
+#A 0 0.0952381 0 0.109524 0.00952381 0.119048 0 0.133333 0 0.152381
+0 0.180952 0.00952381 0.2 0.00952381 0.238095 0.0190476 0.27619 0 0.32381
+0 0.457143 0 0.590477 0.00952381 0.771429 0 0 0 0 0 0 0 0 0 0 0 0 0
+0 0;
+#X coords 0 1 40 0 25 25 1 0 0;
+#X restore 27 94 graph;
+#X obj 48 187 r FLASHER;
+#X msg 37 337 0;
+#X obj 249 306 loadbang;
+#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X msg 251 406 0;
+#X obj 251 429 v \$0-STATE;
+#X obj 88 406 spigot;
+#X obj 350 473 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 350 450 loadbang;
+#X msg 367 337 0;
+#X obj 579 306 loadbang;
+#X text 365 318 stop!;
+#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 599 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 88 306 riff1 1000 1500 1000;
+#X msg 249 329 flasherA;
+#X obj 231 451 s FLASHER_DONE;
+#X obj 88 467 s NOTE;
+#X obj 183 406 > 50;
+#X obj 183 429 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 88 444 spigot;
+#X obj 418 406 spigot;
+#X obj 418 467 s NOTE;
+#X obj 513 406 > 50;
+#X obj 513 429 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 418 444 spigot;
+#X obj 418 306 riff1 1000 1500 1000;
+#X obj 601 231 loadbang;
+#X msg 601 254 1002;
+#X msg 579 329 flasherB;
+#X obj 412 109 loadbang;
+#X obj 412 152 metro 2000;
+#X obj 412 132 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 487 180 r E_SEQ;
+#X obj 412 175 v \$0-STRESS;
+#X obj 412 198 *;
+#X obj 412 221 v \$0-STRESS;
+#X connect 0 0 19 0;
+#X connect 1 0 2 0;
+#X connect 3 0 0 0;
+#X connect 4 0 36 0;
+#X connect 4 0 48 0;
+#X connect 10 0 11 0;
+#X connect 11 0 9 0;
+#X connect 12 0 13 0;
+#X connect 13 0 36 2;
+#X connect 14 0 10 0;
+#X connect 15 0 14 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 0;
+#X connect 18 0 1 0;
+#X connect 18 0 7 0;
+#X connect 21 0 4 0;
+#X connect 22 0 36 0;
+#X connect 23 0 37 0;
+#X connect 24 0 26 0;
+#X connect 24 0 38 0;
+#X connect 26 0 27 0;
+#X connect 28 0 42 0;
+#X connect 29 0 28 1;
+#X connect 29 0 43 1;
+#X connect 30 0 29 0;
+#X connect 31 0 48 0;
+#X connect 32 0 51 0;
+#X connect 34 0 37 0;
+#X connect 35 0 51 0;
+#X connect 36 0 28 0;
+#X connect 36 2 40 0;
+#X connect 36 3 24 0;
+#X connect 37 0 36 1;
+#X connect 40 0 41 0;
+#X connect 41 0 42 1;
+#X connect 42 0 39 0;
+#X connect 43 0 47 0;
+#X connect 45 0 46 0;
+#X connect 46 0 47 1;
+#X connect 47 0 44 0;
+#X connect 48 0 43 0;
+#X connect 48 2 45 0;
+#X connect 49 0 50 0;
+#X connect 50 0 48 2;
+#X connect 51 0 48 1;
+#X connect 52 0 54 0;
+#X connect 53 0 56 0;
+#X connect 54 0 53 0;
+#X connect 55 0 57 1;
+#X connect 56 0 57 0;
+#X connect 57 0 58 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_frog.pd

@@ -0,0 +1,279 @@
+#N canvas 156 89 404 528 10;
+#X msg 37 337 0;
+#X obj 249 306 loadbang;
+#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 251 406 0;
+#X obj 251 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 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 obj 16 39 r WORLD_ENERGY;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 304 462 -0.005;
+#X msg 285 439 0.01;
+#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 47 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 44 0 0 0;
+#X connect 47 0 15 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 688 352 expressions 0;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array frog1 100 float 3;
+#A 0 0.695238 0.695238 0.695238 0.695238 0.695238 0.695238 0.695238
+0.695238 0.685715 0.685715 4.76837e-06 4.76837e-06 4.76837e-06 4.76837e-06
+0.00952381 0.295238 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.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
+0.67619 0.67619 0.67619 0.67619 0.67619 0.67619 0.67619 0.67619 0.67619
+0.67619 0.67619 0.67619 0.67619 0 0 0 0 0 0 0 0 0.314286 0 0 0 0 0
+0 0 0 0 -0.00952375 -0.00952375 -0.0190475 0.685714 0.685714 0.685714
+0.685714 0.685714 0.685714 0.685714 0.685714 0.685714 0.685714 0.685714
+0.685714 0.685714 0 0 0 0 0 0 0.342857 -0.0190474 -0.0190474 -0.0190474
+-0.0190474 -0.0190474 -0.0190474 -0.0190474 -0.0190474 -0.0190474 -0.0190474
+0;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 24 35 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array frog2 50 float 3;
+#A 0 0.0952381 0.104762 0.109524 0.114286 0.119048 0.12381 0.133333
+0.142857 0.152381 0.171429 0.180952 0.2 0.2 0.228571 0.238095 0.257143
+0.27619 0.304762 0.32381 0.352381 0.371429 0.409524 0.457143 0.533333
+0.6 0.695238 0.761905 0.857143 0.971429 0 0 0 0 0 0 0.00952381 0.00952381
+0.00952381 0.0190476 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 184 35 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array frog3 21 float 3;
+#A 0 0.0761905 0.285714 0.552381 0.0761905 0.257143 0.542857 0.00952381
+0.00952381 0.0761905 0.266667 0.495238 0.0666667 0.228571 0.485714
+0.0857143 0.238095 0.504762 0.904762 0.904762 0 0;
+#X coords 0 1 21 0 150 105 1 0 0;
+#X restore 344 35 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array frog4 21 float 3;
+#A 0 0.0761905 0.0761905 0.0666667 0.0666667 0.0666667 0.0666667 0.0666667
+0.0666667 0.0666667 0.0666667 0.0666667 0.0666667 0.0666667 0.0666667
+0.0666667 0.0761905 0.0761905 0.0761905 0.0761905 0.0761905 0.0761905
+;
+#X coords 0 1 21 0 150 105 1 0 0;
+#X restore 504 35 graph;
+#X obj 33 168 inlet;
+#X obj 33 249 outlet;
+#X obj 33 220 t b a;
+#X obj 235 215 s \$0-word;
+#X obj 143 306 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 143 238 + 1;
+#X floatatom 143 261 5 0 0 0 - - -;
+#X obj 143 283 array_copier frog;
+#X obj 33 197 count 4;
+#X connect 4 0 12 0;
+#X connect 6 0 5 0;
+#X connect 6 1 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 8 0;
+#X connect 12 0 6 0;
+#X connect 12 0 7 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array frog 100 float 3;
+#A 0 0.695238 0.695238 0.695238 0.695238 0.695238 0.695238 0.695238
+0.695238 0.685715 0.685715 4.76837e-06 4.76837e-06 4.76837e-06 4.76837e-06
+0.00952381 0.295238 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.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
+0.67619 0.67619 0.67619 0.67619 0.67619 0.67619 0.67619 0.67619 0.67619
+0.67619 0.67619 0.67619 0.67619 0 0 0 0 0 0 0 0 0.314286 0 0 0 0 0
+0 0 0 0 -0.00952375 -0.00952375 -0.0190475 0.685714 0.685714 0.685714
+0.685714 0.685714 0.685714 0.685714 0.685714 0.685714 0.685714 0.685714
+0.685714 0.685714 0 0 0 0 0 0 0.342857 -0.0190474 -0.0190474 -0.0190474
+-0.0190474 -0.0190474 -0.0190474 -0.0190474 -0.0190474 -0.0190474 -0.0190474
+0;
+#X coords 0 1 100 0 50 50 1 0 0;
+#X restore 29 46 graph;
+#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262144
+-128992 -1 0;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
+-1 -1 1 1;
+#X obj 88 482 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 48 187 r FROG;
+#X obj 231 452 s FROG_DONE;
+#X obj 164 21 r FROG;
+#X msg 249 329 frog;
+#X obj 88 306 riff1 1000 1061 800;
+#X obj 167 269 s FROG;
+#X obj 183 421 > 50;
+#X obj 183 444 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 88 459 spigot;
+#X obj 102 277 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 259 74 loadbang;
+#X obj 259 117 metro 2000;
+#X obj 259 97 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 334 145 r E_SEQ;
+#X obj 259 140 v \$0-STRESS;
+#X obj 259 163 *;
+#X obj 259 186 v \$0-STRESS;
+#X connect 0 0 23 0;
+#X connect 1 0 22 0;
+#X connect 2 0 5 0;
+#X connect 2 0 20 0;
+#X connect 4 0 24 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 23 0;
+#X connect 16 0 27 0;
+#X connect 17 0 16 1;
+#X connect 18 0 17 0;
+#X connect 19 0 10 0;
+#X connect 21 0 7 0;
+#X connect 21 0 13 0;
+#X connect 22 0 23 1;
+#X connect 23 0 16 0;
+#X connect 23 2 25 0;
+#X connect 23 3 2 0;
+#X connect 25 0 26 0;
+#X connect 26 0 27 1;
+#X connect 27 0 15 0;
+#X connect 28 0 23 0;
+#X connect 29 0 22 0;
+#X connect 30 0 32 0;
+#X connect 31 0 34 0;
+#X connect 32 0 31 0;
+#X connect 33 0 35 1;
+#X connect 34 0 35 0;
+#X connect 35 0 36 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_rounder.pd

@@ -0,0 +1,257 @@
+#N canvas 698 89 367 511 10;
+#X msg 37 337 0;
+#X obj 249 306 loadbang;
+#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 251 406 0;
+#X obj 251 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 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 obj 16 39 r WORLD_ENERGY;
+#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.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 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 167 226 pd world and me;
+#N canvas 19 521 697 374 expressions 0;
+#X obj 42 195 inlet;
+#X obj 42 276 outlet;
+#X obj 42 247 t b a;
+#X obj 244 242 s \$0-word;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array rounder1 40 float 3;
+#A 0 0.333333 0.409523 0.476189 0.552379 0.599998 0.599998 0.209524
+0.285714 0.361904 0.419046 0.457141 0.485712 0.485712 0.104762 0.228571
+0.314285 0.380951 0.447617 0.52381 0.161905 0.571429 -0.18095 -0.238093
+-0.285711 -0.314283 -0.304759 -0.00952274 -0.123808 -0.238093 -0.323806
+-0.380949 -0.447615 -0.533329 -0.0190467 -0.190474 -0.295235 -0.342854
+-0.361902 -0.390473 -0.419044;
+#X coords 0 1 40 0 150 105 1 0 0;
+#X restore 38 35 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array rounder2 50 float 3;
+#A 0 -0.628567 -0.628567 -0.628567 -0.638091 -0.638091 -0.638091 -0.638091
+-0.638091 -0.638091 -0.638091 -0.638091 -0.638091 -0.495234 -0.495234
+-0.495234 -0.495234 -0.495234 -0.495234 -0.495234 -0.504758 -0.504758
+-0.504758 -0.504758 -0.514282 -0.314283 -0.314283 -0.314283 -0.314283
+-0.314283 -0.314283 -0.314283 -0.314283 -0.314283 -0.323806 -0.323806
+-0.323806 -0.171427 -0.161903 -0.161903 -0.161903 -0.161903 -0.161903
+-0.161903 -0.161903 -0.161903 -0.171427 -0.171427 -0.171427 -0.171427
+-0.171427;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 198 35 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array rounder3 30 float 3;
+#A 0 0.371429 0.371429 0.0190476 -0.428571 -0.438095 0 0.390476 0.4
+0.0285714 -0.438095 -0.428571 0.0190476 0.4 0.4 0.0285714 -0.447619
+-0.447619 0.409524 0.409524 0.0285714 -0.457143 -0.457143 0.409524
+0.409524 0.00952381 -0.428571 0.438095 0.0190476 -0.447619 0;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 358 35 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array rounder4 30 float 3;
+#A 0 0.733333 0.885715 0.97143 1.05714 1.13334 1.12381 1.02857 0.914286
+0.819048 0.761905 0.8 0.914286 1.00953 1.08572 1.16191 1.14286 1.06667
+0.97143 0.904763 0.809524 0.761905 0.857143 0.933334 0.980954 1.04762
+1.09524 1.0381 0.980952 0.876191 0.780953;
+#X coords 0 1 30 0 150 105 1 0 0;
+#X restore 518 35 graph;
+#X obj 161 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 161 265 + 1;
+#X obj 161 310 array_copier rounder;
+#X floatatom 161 288 5 0 0 0 - - -;
+#X obj 42 224 count 4;
+#X connect 0 0 12 0;
+#X connect 2 0 1 0;
+#X connect 2 1 9 0;
+#X connect 9 0 11 0;
+#X connect 10 0 8 0;
+#X connect 11 0 10 0;
+#X connect 12 0 2 0;
+#X connect 12 0 3 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array rounder 30 float 3;
+#A 0 0.733333 0.885715 0.97143 1.05714 1.13334 1.12381 1.02857 0.914286
+0.819048 0.761905 0.8 0.914286 1.00953 1.08572 1.16191 1.14286 1.06667
+0.97143 0.904763 0.809524 0.761905 0.857143 0.933334 0.980954 1.04762
+1.09524 1.0381 0.980952 0.876191 0.780953;
+#X coords 0 1 30 0 50 50 1 0 0;
+#X restore 29 46 graph;
+#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262130
+-128992 -1 3;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262130 -1
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262130
+-1 -1 1 1;
+#X obj 164 21 r ROUNDER;
+#X obj 48 188 r ROUNDER;
+#X obj 167 269 s ROUNDER;
+#X obj 231 452 s ROUNDER_DONE;
+#X obj 88 306 riff1 800 4002 500;
+#X msg 249 329 rounder;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 238 71 loadbang;
+#X obj 238 114 metro 2000;
+#X obj 238 94 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 313 142 r E_SEQ;
+#X obj 238 137 v \$0-STRESS;
+#X obj 238 160 *;
+#X obj 238 183 v \$0-STRESS;
+#X connect 0 0 19 0;
+#X connect 1 0 20 0;
+#X connect 2 0 5 0;
+#X connect 2 0 18 0;
+#X connect 4 0 17 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 19 0;
+#X connect 15 0 7 0;
+#X connect 15 0 13 0;
+#X connect 16 0 10 0;
+#X connect 19 0 22 0;
+#X connect 19 3 2 0;
+#X connect 20 0 19 1;
+#X connect 22 0 21 0;
+#X connect 23 0 22 1;
+#X connect 24 0 23 0;
+#X connect 25 0 20 0;
+#X connect 26 0 28 0;
+#X connect 27 0 30 0;
+#X connect 28 0 27 0;
+#X connect 29 0 31 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_suitcase.pd

@@ -0,0 +1,483 @@
+#N canvas 1 89 683 521 10;
+#X msg 37 337 0;
+#X obj 249 306 loadbang;
+#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 267 102 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 251 406 0;
+#X obj 251 429 v \$0-STATE;
+#X msg 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
+1 1;
+#X obj 67 334 == 0;
+#X obj 16 316 sel 1;
+#X text 41 402 think;
+#X obj 16 428 gauss 1 0;
+#X floatatom 16 474 5 0 0 0 - - -;
+#X obj 16 544 sel 1;
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 110 504 5 0 0 0 stress - -;
+#X obj 238 555 +;
+#X obj 238 502 t a b;
+#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 238 480 8 0 0 0 - - -;
+#X obj 16 521 >;
+#X floatatom 16 137 5 0 0 0 - - -;
+#X obj 238 375 t b b;
+#X obj 285 416 sel 1 0;
+#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
+-257985 -1;
+#X obj 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 obj 16 39 r WORLD_ENERGY;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 304 462 -0.005;
+#X msg 285 439 0.1;
+#X obj 16 210 < 0.4;
+#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 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 267 79 pd world and me;
+#N canvas 200 213 809 655 expressions 0;
+#X obj 28 419 inlet;
+#X obj 28 500 outlet;
+#X obj 28 471 t b a;
+#X obj 230 466 s \$0-word;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseB2 50 float 3;
+#A 0 0.580952 0.6 0.638095 0.647619 0.666666 0.67619 0.685714 0.685714
+0.685714 0.685714 0.685714 0.67619 0.647619 0.619047 0.571429 0.533334
+0.514286 0.514286 0.523809 0.523809 0.552381 0.561905 0.580952 0.590476
+0.6 0.609524 0.614285 0.619047 0.619047 0.619047 0.619047 0.609524
+0.580952 0.533333 0.495238 0.485714 0.457143 0.457144 0.44762 0.44762
+0.44762 0.44762 0.457143 0.466667 0.504762 0.466667 0.504762 0.52381
+0.533334 0.533334;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 189 155 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseB3 100 float 3;
+#A 0 0.514285 0.523809 0.533332 0.542856 0.542856 0.542856 0.6 0.619047
+0.504761 0.495238 0.485714 0.47619 0.466667 0.809524 0.571429 0.638095
+0.638095 0.647619 0.914286 0.657142 0.657142 0.495239 0.500001 0.809523
+0.819046 0.82857 0.82857 0.838094 0.838094 0.771428 0.466667 0.457143
+0.457143 0.438096 0.438096 0.428572 0.428572 0.609521 0.609521 0.676187
+0.676187 0.68571 0.68571 0.68571 0.68571 0.647616 0.619045 0.599997
+0.847616 0.847616 0.676194 0.66667 0.619049 0.609525 0.609525 0.609525
+0.780951 0.780951 0.761903 0.75238 0.638099 0.857143 0.428571 0.428571
+0.428571 0.447619 0.457142 0.542855 0.552379 0.571426 0.599997 0.619044
+0.619044 0.619044 0.60952 0.60952 0.60952 0.599997 0.742858 0.704763
+0.685716 0.685716 0.685716 0.733334 0.92381 0.809525 0.53334 0.561911
+0.571434 0.580958 0.580958 0.58572 0.590481 0.600005 0.8 0.609529 0.61429
+0.619052 0.628576 0.6381;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 189 281 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseB1 100 float 3;
+#A 0 0.371429 0.342857 0.352381 0.361905 0.390476 0.4 0.428572 0.438096
+0.266666 0.304761 0.342856 0.371428 0.4 0.428571 0.457143 0.476191
+0.32381 0.352381 0.380953 0.400001 0.428572 0.438096 0.44762 0.32381
+0.361905 0.390477 0.419048 0.438096 0.476191 0.476191 0.32381 0.361905
+0.390477 0.409524 0.438096 0.457144 0.295238 0.314285 0.352381 0.390476
+0.409524 0.428572 0.44762 0.457143 0.495239 0.523811 0.533334 0.552382
+0.57143 0.352381 0.352381 0.352381 0.371429 0.380953 0.4 0.419048 0.428572
+0.428572 0.352381 0.371429 0.380953 0.4 0.409524 0.419048 0.428572
+0.333333 0.352381 0.361905 0.380953 0.419048 0.438096 0.447619 0.466667
+0.466667 0.47619 0.485714 0.44762 0 0.352381 0.380953 0.390476 0.44762
+0.44762 0.466667 0.380952 0.409524 0.419048 0.438096 0.44762 0.476191
+0.485715 0.504763 0.4 0.419048 0.428572 0.457143 0.466667 0.476191
+0 0;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 189 29 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseB4 100 float 3;
+#A 0 0.428571 0.438095 0.452381 0.47619 0.47619 0.495238 0.495237 0.495237
+0.495237 0.495237 0.495237 0.485714 0.485714 0.485714 0.466667 0.466667
+0.466666 0.466666 0.457142 0.457142 0.447618 0.447618 0.438095 0.438095
+0.438095 0.438095 0.438095 0.438095 0.428571 0.428571 0.428571 0.428571
+0.428571 0.428571 0.428571 0.419048 0.419048 0.419048 0.419048 0.419048
+0.438095 0.438095 0.442857 0.447619 0.447619 0.447619 0.457143 0.457143
+0.457143 0.457143 0.438095 0.433333 0.4 0.390476 0.380952 0.352381
+0.342857 0.304762 0.285714 0.266667 0.257143 0.238095 0.228571 0.2
+0.180952 0.142857 0.142857 0.104762 0.0761905 0.047619 0.047619 0.0380952
+0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952
+0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952
+0.0380952 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
+0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
+;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 518 29 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseB5 100 float 3;
+#A 0 0.438095 0.438095 0.438095 0.438095 0.438095 0.438095 0.438095
+0.438095 0.438095 0.438095 0.438095 0.438095 0.442856 0.447618 0.447618
+0.447618 0.447618 0.447618 0.447618 0.457142 0.457142 0.457142 0.461904
+0.466666 0.466666 0.466666 0.466666 0.466666 0.466666 0.466666 0.466666
+0.466666 0.466666 0.466666 0.457142 0.447618 1.22856 0.628575 0.66667
+0.714288 0.77143 0.790477 0.838095 0.838096 0.838096 0.847619 0.847619
+0.852381 0.857143 0.857143 0.866667 0.87619 0.880952 0.885714 0.885714
+0.895238 0.895238 0.904761 0.914285 0.923808 0.933332 0.942856 0.942856
+0.952379 0.952379 0.961903 0.971428 0.971428 0.971428 0.980952 0.990475
+0.999999 0.999999 1.00952 1.00952 1.01905 1.02857 1.02857 1.03809 1.04762
+1.04762 1.06666 1.06666 1.07619 1.07619 1.08571 1.10476 1.1238 1.13333
+1.14285 1.14285 1.15237 1.1619 1.19047 1.19047 1.19999 1.23809 1.25713
+1.2857 1.29523;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 518 155 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseB6 100 float 3;
+#A 0 0.695239 0.685715 0.673017 0.660319 0.638096 0.622223 0.60635
+0.590477 0.580953 0.566667 0.533334 0.514286 0.81905 0.81905 0.81905
+0.81905 0.81905 0.81905 0.81905 0.81905 0.815875 0.812701 0.809526
+0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526
+0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526
+0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526
+0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526
+0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526
+0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526
+0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526
+0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526 0.809526
+0.809526 0.809526 0.811907 0.814288 0.816669 0.81905 0.821771 0.824492
+0.827213 0.829934 0.832655 0.835377 0.838098;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 518 281 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseA2 50 float 3;
+#A 0 0.533333 0.552382 0.580953 0.619048 0.628572 0.657143 0.67619
+0.685713 0.685713 0.685713 0.676189 0.657142 0.657142 0.638094 0.599999
+0.571428 0.571428 0.533333 0.533333 0.533333 0.533333 0.542857 0.571428
+0.619047 0.657142 0.676189 0.695237 0.704761 0.704761 0.704761 0.695237
+0.685713 0.666666 0.638094 0.6 0.6 0.6 0.6 0.6 0.6 0.6 0.619048 0.647619
+0.704761 0.733333 0.75238 0.742856 0.757141 0.761903 0.761904;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 28 155 graph;
+#N canvas 0 23 1115 625 (subpatch) 0;
+#X array suitcaseA1 100 float 3;
+#A 0 0.361905 0.371429 0.390477 0.409524 0.44762 0.485715 0.504763
+0.504763 0.514287 0.409523 0.438095 0.485713 0.495237 0.495237 0.352381
+0.371429 0.4 0.428571 0.457142 0.47619 0.495237 0.4928 0.380952 0.390476
+0.419047 0.428571 0.457142 0.47619 0.495237 0.504761 0.371429 0.4 0.428571
+0.447619 0.466666 0.47619 0.485714 0.495237 0.390476 0.390476 0.4 0.409524
+0.438095 0.447619 0.476191 0.495239 0.5456 0.5536 0.592001 0.36 0.3504
+0.3648 0.380801 0.403201 0.452802 0.491202 0.5104 0.528003 0.528003
+0 0.408 0.425601 0.448001 0.492802 0 0.352 0.3664 0.384001 0.409601
+0.4336 0.48 0.507203 0.515203 0.520003 0.528003 0.529603 0.32 0.344
+0.363201 0.384001 0.390401 0.425602 0.449602 0.470403 0.510403 0.352381
+0.361905 0.371429 0.390476 0.395238 0.409524 0.419048 0.466667 0.485715
+0.409524 0.447619 0.485715 0.533334 0.552382 0.57143;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 28 29 graph;
+#N canvas 0 23 1115 625 (subpatch) 0;
+#X array suitcaseA4 100 float 3;
+#A 0 0.457143 0.457143 0.47619 0.504762 0.552381 0.542857 0.542857
+0.542857 0.542857 0.542857 0.542857 0.542857 0.542857 0.533333 0.533333
+0.533333 0.533333 0.533333 0.533333 0.533333 0.533333 0.514286 0.514286
+0.504762 0.504762 0.495238 0.495238 0.495238 0.495238 0.485714 0.485714
+0.476191 0.466667 0.47619 0.466667 0.466667 0.466667 0.466667 0.47619
+0.495238 0.495238 0.495238 0.495238 0.495238 0.495238 0.495238 0.495238
+0.495238 0.490476 0.485714 0.47619 0.419048 0.409524 0.371429 0.352381
+0.314286 0.285714 0.228571 0.209524 0.180952 0.161905 0.142857 0.133333
+0.114286 0.114286 0.104762 0.097619 0.0285714 0.0190476 0.00952381
+-0.00952381 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.00952381
+0.00952381 0.0190476 0.0285714;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 358 29 graph;
+#N canvas 0 23 1115 625 (subpatch) 0;
+#X array suitcaseA5 100 float 3;
+#A 0 0.552382 0.542858 0.533334 0.52381 0.514286 0.504762 0.492064
+0.479365 0.466667 0.452381 0.438095 0.434921 0.431746 0.428571 0.409524
+0.409524 0.4 0.4 0.4 0.4 0.419047 0.423809 0.428571 0.438095 0.457143
+0.457143 0.461905 0.466667 0.466667 0.466667 0.457143 0.447619 0.438095
+0.438095 0.447619 0.457143 0.476191 0.485715 0.485715 0.485715 0.485715
+0.476191 0.466667 0.466667 0.466667 0.466667 0.466667 0.457143 0.447619
+0.447619 0.466666 0.476189 0.514285 0.523809 0.647619 0.685715 0.704762
+0.714286 0.714286 0.714286 0.714286 0.695239 0.685715 0.657143 0.628572
+0.590476 0.571428 0.676191 0.72381 0.77143 0.790477 0.809525 0.809525
+0.819049 0.819049 0.819049 0.809525 0.77143 0.704762 0.704762 0.72381
+0.761906 0.790477 0.819049 0.838097 0.89524 0.89524 0.89524 0.876192
+0.742858 0.742858 0.790477 0.819049 0.923811 0.942859 0.971431 0.971431
+0.971431 0.961907 0.914288;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 358 155 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseA3 100 float 3;
+#A 0 0.514285 0.523809 0.533332 0.542856 0.542856 0.542856 0.6 0.619047
+0.504761 0.495238 0.485714 0.47619 0.466667 0.809524 0.571429 0.638095
+0.638095 0.647619 0.914286 0.657142 0.657142 0.495239 0.500001 0.809523
+0.819046 0.82857 0.82857 0.838094 0.838094 0.771428 0.466667 0.457143
+0.457143 0.438096 0.438096 0.428572 0.428572 0.609521 0.609521 0.676187
+0.676187 0.68571 0.68571 0.68571 0.68571 0.647616 0.619045 0.599997
+0.847616 0.847616 0.676194 0.66667 0.619049 0.609525 0.609525 0.609525
+0.780951 0.780951 0.761903 0.75238 0.638099 0.857143 0.428571 0.428571
+0.428571 0.447619 0.457142 0.542855 0.552379 0.571426 0.599997 0.619044
+0.619044 0.619044 0.60952 0.60952 0.60952 0.599997 0.742858 0.704763
+0.685716 0.685716 0.685716 0.733334 0.92381 0.809525 0.53334 0.561911
+0.571434 0.580958 0.580958 0.58572 0.590481 0.600005 0.8 0.609529 0.61429
+0.619052 0.628576 0.6381;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 28 281 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseA6 100 float 3;
+#A 0 0.457143 0.461905 0.466667 0.471429 0.476191 0.47619 0.481905
+0.487619 0.493333 0.499048 0.504762 0.504762 0.504762 0.507143 0.509524
+0.511905 0.514286 0.514286 0.514286 0.519048 0.533334 0.538096 0.542858
+0.552381 0.557143 0.561905 0.571429 0.571429 0.590477 0.595239 0.600001
+0.609525 0.614287 0.619049 0.628572 0.628572 0.638096 0.638096 0.638096
+0.638096 0.638096 0.638096 0.642858 0.64762 0.64762 0.64762 0.64762
+0.64762 0.64762 0.64762 0.64762 0.64762 0.64762 0.64762 0.64762 0.64762
+0.64762 0.64762 0.64762 0.64762 0.64762 0.64762 0.64762 0.644445 0.641271
+0.638096 0.634922 0.631747 0.628572 0.62381 0.619049 0.614287 0.600001
+0.514286 0.508572 0.502857 0.497143 0.491429 0.485714 0.480952 0.476191
+0.471429 0.466667 0.461905 0.457143 0.452381 0.447619 0.440816 0.434013
+0.427211 0.420408 0.413605 0.406802 0.4 0.390476 0.380952 0.361904
+0.442858 0.435715 0.419048;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 358 281 graph;
+#X obj 28 448 random 6;
+#X obj 138 600 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 138 532 + 1;
+#X floatatom 138 555 5 0 0 0 - - -;
+#X obj 138 577 array_copier suitcaseA;
+#X obj 277 507 + 1;
+#X floatatom 277 530 5 0 0 0 - - -;
+#X obj 277 552 array_copier suitcaseB;
+#X obj 138 489 t a a;
+#X connect 0 0 16 0;
+#X connect 2 0 1 0;
+#X connect 2 1 24 0;
+#X connect 16 0 2 0;
+#X connect 16 0 3 0;
+#X connect 18 0 19 0;
+#X connect 19 0 20 0;
+#X connect 20 0 17 0;
+#X connect 21 0 22 0;
+#X connect 22 0 23 0;
+#X connect 24 0 18 0;
+#X connect 24 1 21 0;
+#X restore 48 226 pd expressions;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 350 473 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 350 450 loadbang;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseA 100 float 3;
+#A 0 0.552382 0.542858 0.533334 0.52381 0.514286 0.504762 0.492064
+0.479365 0.466667 0.452381 0.438095 0.434921 0.431746 0.428571 0.409524
+0.409524 0.4 0.4 0.4 0.4 0.419047 0.423809 0.428571 0.438095 0.457143
+0.457143 0.461905 0.466667 0.466667 0.466667 0.457143 0.447619 0.438095
+0.438095 0.447619 0.457143 0.476191 0.485715 0.485715 0.485715 0.485715
+0.476191 0.466667 0.466667 0.466667 0.466667 0.466667 0.457143 0.447619
+0.447619 0.466666 0.476189 0.514285 0.523809 0.647619 0.685715 0.704762
+0.714286 0.714286 0.714286 0.714286 0.695239 0.685715 0.657143 0.628572
+0.590476 0.571428 0.676191 0.72381 0.77143 0.790477 0.809525 0.809525
+0.819049 0.819049 0.819049 0.809525 0.77143 0.704762 0.704762 0.72381
+0.761906 0.790477 0.819049 0.838097 0.89524 0.89524 0.89524 0.876192
+0.742858 0.742858 0.790477 0.819049 0.923811 0.942859 0.971431 0.971431
+0.971431 0.961907 0.914288;
+#X coords 0 1 100 0 25 25 1 0 0;
+#X restore 26 46 graph;
+#X obj 10 138 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -204786
+-13381 -1 4;
+#X obj 138 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -1
+-1;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array suitcaseB 100 float 3;
+#A 0 0.438095 0.438095 0.438095 0.438095 0.438095 0.438095 0.438095
+0.438095 0.438095 0.438095 0.438095 0.438095 0.442856 0.447618 0.447618
+0.447618 0.447618 0.447618 0.447618 0.457142 0.457142 0.457142 0.461904
+0.466666 0.466666 0.466666 0.466666 0.466666 0.466666 0.466666 0.466666
+0.466666 0.466666 0.466666 0.457142 0.447618 1.22856 0.628575 0.66667
+0.714288 0.77143 0.790477 0.838095 0.838096 0.838096 0.847619 0.847619
+0.852381 0.857143 0.857143 0.866667 0.87619 0.880952 0.885714 0.885714
+0.895238 0.895238 0.904761 0.914285 0.923808 0.933332 0.942856 0.942856
+0.952379 0.952379 0.961903 0.971428 0.971428 0.971428 0.980952 0.990475
+0.999999 0.999999 1.00952 1.00952 1.01905 1.02857 1.02857 1.03809 1.04762
+1.04762 1.06666 1.06666 1.07619 1.07619 1.08571 1.10476 1.1238 1.13333
+1.14285 1.14285 1.15237 1.1619 1.19047 1.19047 1.19999 1.23809 1.25713
+1.2857 1.29523;
+#X coords 0 1 100 0 25 25 1 0 0;
+#X restore 26 96 graph;
+#X obj 138 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
+-1 -1 0 1;
+#X obj 164 21 r SUITCASE;
+#X obj 48 188 r SUITCASE;
+#X obj 267 122 s SUITCASE;
+#X obj 231 451 s SUITCASE_DONE;
+#X msg 249 329 suitcaseA;
+#X msg 367 337 0;
+#X obj 579 306 loadbang;
+#X text 365 318 stop!;
+#X obj 418 429 s NOTE;
+#X obj 418 406 spigot;
+#X msg 579 329 suitcaseB;
+#X obj 88 306 riff1 1000 3011 500;
+#X obj 418 306 riff1 1000 3012 500;
+#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 599 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 457 36 r HELLO;
+#X obj 457 59 route 3011;
+#X obj 457 82 unpack f f f f;
+#X floatatom 511 105 5 0 0 0 - - -;
+#X floatatom 457 105 5 0 0 0 - - -;
+#X obj 567 36 r HELLO;
+#X obj 567 82 unpack f f f f;
+#X floatatom 621 105 5 0 0 0 - - -;
+#X floatatom 567 105 5 0 0 0 - - -;
+#X obj 567 59 route 3012;
+#X obj 531 127 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 641 127 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 386 146 loadbang;
+#X obj 386 189 metro 2000;
+#X obj 386 169 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 461 217 r E_SEQ;
+#X obj 386 212 v \$0-STRESS;
+#X obj 386 235 *;
+#X obj 386 258 v \$0-STRESS;
+#X connect 0 0 31 0;
+#X connect 1 0 24 0;
+#X connect 2 0 5 0;
+#X connect 2 0 23 0;
+#X connect 4 0 22 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 31 0;
+#X connect 10 0 32 0;
+#X connect 12 0 11 0;
+#X connect 13 0 12 1;
+#X connect 13 0 29 1;
+#X connect 14 0 13 0;
+#X connect 20 0 7 0;
+#X connect 20 0 17 0;
+#X connect 21 0 10 0;
+#X connect 24 0 31 1;
+#X connect 25 0 32 0;
+#X connect 26 0 30 0;
+#X connect 29 0 28 0;
+#X connect 30 0 32 1;
+#X connect 31 0 12 0;
+#X connect 31 3 2 0;
+#X connect 32 0 29 0;
+#X connect 33 0 24 0;
+#X connect 34 0 30 0;
+#X connect 35 0 36 0;
+#X connect 36 0 37 0;
+#X connect 37 0 39 0;
+#X connect 37 2 38 0;
+#X connect 38 0 45 0;
+#X connect 40 0 44 0;
+#X connect 41 0 43 0;
+#X connect 41 2 42 0;
+#X connect 42 0 46 0;
+#X connect 44 0 41 0;
+#X connect 47 0 49 0;
+#X connect 48 0 51 0;
+#X connect 49 0 48 0;
+#X connect 50 0 52 1;
+#X connect 51 0 52 0;
+#X connect 52 0 53 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_tanker_head.pd

@@ -0,0 +1,236 @@
+#N canvas 126 89 400 493 10;
+#X msg 37 337 0;
+#X obj 249 306 loadbang;
+#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 251 406 0;
+#X obj 251 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 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 obj 16 39 r WORLD_ENERGY;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 304 462 -0.005;
+#X msg 285 439 0.25;
+#X obj 16 210 < 0.4;
+#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 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 167 226 pd world and me;
+#N canvas 514 89 449 454 expressions 0;
+#X obj 22 210 inlet;
+#X obj 22 291 outlet;
+#X obj 22 262 t b a;
+#X obj 224 257 s \$0-word;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array tankerH1 20 float 3;
+#A 0 0.390477 0.485714 0.485714 0.438095 0.342858 0.285715 0.114288
+0.00952661 -0.0857109 -0.180948 -0.257138 -0.295233 -0.333328 -0.333328
+-0.333331 -0.314283 -0.228569 -0.190472 -0.152377 -0.0190446;
+#X coords 0 1 20 0 150 105 1 0 0;
+#X restore 33 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array tankerH2 50 float 3;
+#A 0 0.0285712 0 0 0 0 0.666666 0.876189 1.25714 0.0190483 0.0190483
+0.028572 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477
+0.0190477 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477
+0.0190477 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477
+0.0190477 0.0190477 0.0190477 0.0190477 0.0190477 0.0238096 -0.133332
+-0.285712 -1.00952 -0.876184 0.00952381 0.00952381 0.00952381 0.00952381
+0.0571427 0.0666665 0.0761902 0.0761902 0.0761902;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 193 40 graph;
+#X obj 22 239 random 2;
+#X obj 161 348 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 161 280 + 1;
+#X floatatom 161 303 5 0 0 0 - - -;
+#X obj 161 325 array_copier tankerH;
+#X connect 0 0 6 0;
+#X connect 2 0 1 0;
+#X connect 2 1 8 0;
+#X connect 6 0 2 0;
+#X connect 6 0 3 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 10 0 7 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array tankerH 20 float 3;
+#A 0 0.390477 0.485714 0.485714 0.438095 0.342858 0.285715 0.114288
+0.00952661 -0.0857109 -0.180948 -0.257138 -0.295233 -0.333328 -0.333328
+-0.333331 -0.314283 -0.228569 -0.190472 -0.152377 -0.0190446;
+#X coords 0 1 20 0 50 50 1 0 0;
+#X restore 29 46 graph;
+#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -204786
+-159808 -1 0;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -159808
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
+-159808 -1 1 1;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 164 21 r TANKER_H;
+#X obj 48 187 r TANKER_H;
+#X obj 167 279 s TANKER_H;
+#X obj 231 452 s TANKER_H_DONE;
+#X msg 249 329 tankerH;
+#X obj 88 306 riff1 400 4001 1000;
+#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 264 68 loadbang;
+#X obj 264 111 metro 2000;
+#X obj 264 91 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 339 139 r E_SEQ;
+#X obj 264 134 v \$0-STRESS;
+#X obj 264 157 *;
+#X obj 264 180 v \$0-STRESS;
+#X connect 0 0 24 0;
+#X connect 1 0 23 0;
+#X connect 2 0 5 0;
+#X connect 2 0 22 0;
+#X connect 4 0 21 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 24 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 1;
+#X connect 18 0 17 0;
+#X connect 19 0 7 0;
+#X connect 19 0 13 0;
+#X connect 20 0 10 0;
+#X connect 23 0 24 1;
+#X connect 24 0 16 0;
+#X connect 24 3 2 0;
+#X connect 25 0 23 0;
+#X connect 26 0 28 0;
+#X connect 27 0 30 0;
+#X connect 28 0 27 0;
+#X connect 29 0 31 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_tanker_side.pd

@@ -0,0 +1,270 @@
+#N canvas 443 89 462 511 10;
+#X msg 37 337 0;
+#X obj 300 306 loadbang;
+#X obj 288 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-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 308 406 0;
+#X obj 308 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 obj 16 39 r WORLD_ENERGY;
+#X obj 16 210 < 0.3;
+#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 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 45 0;
+#X connect 18 0 15 0;
+#X connect 18 1 34 0;
+#X connect 19 0 49 0;
+#X connect 19 1 48 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 44 0 0 0;
+#X connect 45 0 1 0;
+#X connect 48 0 15 0;
+#X connect 49 0 15 0;
+#X restore 167 226 pd world and me;
+#N canvas 514 89 673 371 expressions 1;
+#X obj 22 180 inlet;
+#X obj 22 261 outlet;
+#X obj 22 232 t b a;
+#X obj 224 227 s \$0-word;
+#X obj 161 318 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 161 250 + 1;
+#X floatatom 161 273 5 0 0 0 - - -;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array tankerS3 50 float 3;
+#A 0 0.780952 0.561905 0.361905 0.00952381 0.00952381 0.00952381 0.00952381
+0.00952381 0.00952381 5.96046e-08 0 0.723809 0.580952 0.361905 5.96046e-08
+5.96046e-08 5.96046e-08 0.87619 0.457143 0.285714 0.00952381 0.0190476
+0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.828571
+0.542857 0.304762 0.00952387 0.0190476 0.0190476 0.0190476 0.0190476
+5.96046e-08 5.96046e-08 0.87619 0.552381 0.304762 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 333 38 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array tankerS2 50 float 3;
+#A 0 0.00952315 0.00952315 0.457143 0.457143 0.00952315 0.00952315
+0.00952315 0.00952315 0.00476122 -7.15256e-07 -7.15256e-07 -7.15256e-07
+-7.15256e-07 -7.15256e-07 -7.15256e-07 0.295238 0.295238 -7.15256e-07
+-7.15256e-07 -7.15256e-07 -7.15256e-07 -7.15256e-07 -7.15256e-07 -7.15256e-07
+0.00952381 0.6 0.6 -7.15256e-07 -7.15256e-07 -7.15256e-07 -7.15256e-07
+-7.15256e-07 -7.15256e-07 0.809524 0.809524 -7.15256e-07 -7.15256e-07
+-7.15256e-07 -7.15256e-07 -7.15256e-07 -7.15256e-07 0.00952381 0.590476
+0.6 -7.15256e-07 -7.15256e-07 -7.15256e-07 -7.15256e-07 -7.15256e-07
+-7.15256e-07;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 173 38 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array tankerS1 50 float 3;
+#A 0 0.019044 0.019044 0.0285679 0.0380918 0.0476156 0.0571395 0.0666634
+0.0857111 0.104759 0.13333 0.171426 0.199998 0.247617 0.285712 0.333332
+0.380951 0.409523 0.466666 0.504761 0.542857 0.580952 0.61905 0.666669
+0.704765 0.752384 0.790479 0.828575 0.885714 0.914286 0.980956 1.04762
+1.13333 1.2 0.00952387 0.00952387 0.00952387 0.00952387 0.00952387
+0.00952387 0.00952387 0.00952387 0.00952387 0.00952387 0.00952387 0.00952387
+0.00952387 0.00952387 0.00952387 0.00952387 0.00952387;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 13 38 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array tankerS4 50 float 3;
+#A 0 0.0190476 0.0190476 0.0285714 0.0571426 0.0952376 0.180951 0.438095
+3.57628e-07 3.57628e-07 3.57628e-07 3.57628e-07 3.57628e-07 0.00952375
+0.038095 0.0666662 0.0952375 0.133332 0.190475 0.514286 3.57628e-07
+3.57628e-07 3.57628e-07 0.00952411 0.00952411 0.00952411 0.0190479
+0.0190479 0.12381 0.219048 0.533333 0.0380952 0.0380952 0.0285741 0.0285716
+0.0285716 0.0285716 0.0285716 0.0285716 0.0285716 0.0761904 0.171428
+0.247619 0.295236 0.609524 0.0285716 0.0285716 0.0285716 0.0285716
+0.0285716 0.0285716;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 493 38 graph;
+#X obj 161 295 array_copier tankerS;
+#X obj 22 209 count 4;
+#X connect 0 0 12 0;
+#X connect 2 0 1 0;
+#X connect 2 1 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 11 0;
+#X connect 11 0 4 0;
+#X connect 12 0 2 0;
+#X connect 12 0 3 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array tankerS 50 float 3;
+#A 0 0.019044 0.019044 0.0285679 0.0380918 0.0476156 0.0571395 0.0666634
+0.0857111 0.104759 0.13333 0.171426 0.199998 0.247617 0.285712 0.333332
+0.380951 0.409523 0.466666 0.504761 0.542857 0.580952 0.61905 0.666669
+0.704765 0.752384 0.790479 0.828575 0.885714 0.914286 0.980956 1.04762
+1.13333 1.2 0.00952387 0.00952387 0.00952387 0.00952387 0.00952387
+0.00952387 0.00952387 0.00952387 0.00952387 0.00952387 0.00952387 0.00952387
+0.00952387 0.00952387 0.00952387 0.00952387 0.00952387;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 29 46 graph;
+#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -204786
+-159808 -1 0;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -159808
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
+-159808 -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 320 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 164 21 r TANKER_S;
+#X obj 48 187 r TANKER_S;
+#X obj 167 269 s TANKER_S;
+#X msg 300 329 tankerS;
+#X obj 288 452 s TANKER_S_DONE;
+#X obj 88 306 riff1_random 10 1041 600 1000;
+#X obj 310 71 loadbang;
+#X obj 310 114 metro 2000;
+#X obj 310 94 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 385 142 r E_SEQ;
+#X obj 310 137 v \$0-STRESS;
+#X obj 310 160 *;
+#X obj 310 183 v \$0-STRESS;
+#X connect 0 0 25 0;
+#X connect 1 0 23 0;
+#X connect 2 0 5 0;
+#X connect 2 0 24 0;
+#X connect 4 0 22 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 25 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 1;
+#X connect 18 0 17 0;
+#X connect 19 0 23 0;
+#X connect 20 0 7 0;
+#X connect 20 0 13 0;
+#X connect 21 0 10 0;
+#X connect 23 0 25 1;
+#X connect 25 0 16 0;
+#X connect 25 3 2 0;
+#X connect 26 0 28 0;
+#X connect 27 0 30 0;
+#X connect 28 0 27 0;
+#X connect 29 0 31 1;
+#X connect 30 0 31 0;
+#X connect 31 0 32 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_yellow.pd

@@ -0,0 +1,346 @@
+#N canvas 686 89 701 521 10;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -257985
+-1 -1 1 1;
+#X obj 274 81 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 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 obj 16 39 r WORLD_ENERGY;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 304 462 -0.005;
+#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 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 274 58 pd world and me;
+#N canvas 996 89 443 806 expressions 0;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowA1 50 float 3;
+#A 0 0.266667 0.285714 0.295238 0.32381 0.352381 0.371429 0.409525
+0.2 0.228572 0.257143 0.276191 0.285715 0.314286 0.32381 0.352382 0.37143
+0.390477 0.238095 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.171429 0.209524 0.257143
+0.276191 0.304763 0.333334 0.342858 -0.00952393 -0.00952393 -0.00952393
+-0.00952393 -0.00952393 -0.00952393 -0.00952393 -0.00952393 -0.00952393
+-0.00952393 -0.00952393;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 19 425 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowB1 50 float 3;
+#A 0 0.685715 0.723811 0.800002 0.485714 0.519047 0.552381 0.580953
+0.609524 0.626191 0.642858 0.659525 0.676191 0.685715 0.399999 0.495238
+0.533333 0.571429 0.604762 0.638096 0.653969 0.669842 0.685715 0.695239
+0.704763 0.561905 0.666667 0.704763 0.714287 0.266665 0.323808 0.35238
+0.366666 0.380951 0.399999 0.423809 0.933336 0.952384 0.957145 0.961907
+0.609524 0.628572 0.47619 0.523809 0.523809 0.523809 0.438095 0.457142
+0.457142 0 0.361904;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 179 425 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowB2 50 float 3;
+#A 0 0.0380952 0.0380952 0.0380952 0.047619 0.047619 0.0571427 0.0761902
+0.0952377 0.0952377 0.114285 0.142856 0.161904 0.180951 0.219046 0.247618
+0.266665 0.276189 0.30476 0.333331 0.371426 0.419045 0.476188 0.542854
+0.67619 0.761905 0.638095 0.542857 0.447616 0.409521 0.352379 0.333331
+0.30476 0.266665 0.247618 0.199999 0.180951 0.161904 0.133333 0.114285
+0.104761 0.085714 0.0761902 0.0666665 0.0666665 0.0571427 0.047619
+0.047619 0.047619 0.0380952 0.0190477;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 179 295 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowB3 50 float 3;
+#A 0 0.742857 0.580951 0.466664 0.352378 0.276187 0.223806 0.885714
+0.552379 0.409521 0.352378 0.257139 0.20952 0.123805 0.0857093 0.914286
+0.599998 0.523807 0.447616 0.390473 0.323806 0.257139 0.20952 0.133329
+0.971429 0.723808 0.647618 0.561903 0.485712 0.371425 0.323806 0.247615
+0.223805 0.171424 0.114281 0.0857093 0.0285661 0.961905 0.62857 0.552379
+0.371426 0.304759 0.238092 0.123805 0.895238 0.657142 0.542856 0.476189
+0.409522 0.376188 0.0952342;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 179 165 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowA2 50 float 3;
+#A 0 0.0380987 0.0380987 0.0380987 0.0476224 0.0571462 0.0571462 0.0666699
+0.0761937 0.0952412 0.104765 0.123813 0.133337 0.161908 0.171432 0.200003
+0.238098 0.26667 0.304765 0.34286 0.371431 0.409526 0.523809 0.590475
+0.70476 0.809524 0.885714 0.666667 0.609525 0.552382 0.485716 0.428574
+0.390479 0.34286 0.314289 0.276194 0.26667 0.228575 0.209527 0.180956
+0.161909 0.152385 0.133337 0.123814 0.11429 0.11429 0.104766 0.0952425
+0.076195 0.076195 0.0761944;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 19 295 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowB4 50 float 3;
+#A 0 0.0857139 0.104762 0.104762 0.0952381 0.0857142 0.0666665 0.0571426
+0.028571 -0.0190483 -0.0857154 -0.0857154 -0.0476199 -0.0190483 0.0190471
+0.0476187 0.0571426 0.0571426 0.028571 -0.0380961 -0.104763 -0.114287
+-0.104763 -0.0666677 -0.0285722 0.0190471 0.0761904 0.0952381 0.0952381
+-0.00952446 -0.0571438 -0.0666677 -0.0761915 -0.0761915 -0.0761915
+-0.0761915 -0.0666677 -0.0285722 0.0380949 0.0761904 0.133334 0.133334
+0.114286 0.0571426 -0.0380961 -0.0571438 -0.0571438 -0.0666677 -0.0571438
+-0.0285722 0.0761904;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 179 35 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowA4 50 float 3;
+#A 0 0.514288 0.552383 0.552383 0.552383 0.552383 0.552383 0.552383
+0.561907 0.561907 0.561907 0.571431 0.571431 0.571431 0.571431 0.571431
+0.571431 0.571431 0.571431 0.571431 0.571431 0.571431 0.571431 0.571431
+0.571431 0.571431 0.571431 0.571431 0.571431 0.571431 0.571431 0.571431
+0.571431 0.571431 0.566669 0.561907 0.561907 0.561907 0.561907 0.561907
+0.561907 0.561907 0.561907 0.561907 0.561907 0.561907 0.561907 0.561907
+0.561907 0.561907 0.561907;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 19 35 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowA3 50 float 3;
+#A 0 0.819048 0.657143 -0.0190476 -0.0190476 -0.0190476 -0.0190476
+-0.0190476 0.92381 0.761905 -0.0285714 -0.0285714 -0.0285714 -0.0285714
+-0.0285714 -0.0285714 -0.0285714 -0.0285714 0.914286 0.723809 -0.0285714
+-0.0285714 -0.0285714 -0.0285714 -0.0285714 -0.0285714 -0.0285714 0.961905
+0.809524 -0.0285714 -0.0285714 -0.0285714 -0.0285714 -0.0285714 -0.0285714
+-0.0285714 0.971429 0.87619 -0.0190476 -0.0285714 -0.0285714 -0.0285714
+-0.0285714 0.904762 0.723809 -0.0285714 -0.0285714 -0.0285714 -0.0285714
+-0.0285714 0;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 19 165 graph;
+#X obj 19 571 inlet;
+#X obj 19 652 outlet;
+#X obj 19 623 t b a;
+#X obj 221 618 s \$0-word;
+#X obj 129 752 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 129 684 + 1;
+#X floatatom 129 707 5 0 0 0 - - -;
+#X obj 268 659 + 1;
+#X floatatom 268 682 5 0 0 0 - - -;
+#X obj 129 641 t a a;
+#X obj 19 600 random 4;
+#X obj 129 729 array_copier yellowA;
+#X obj 268 704 array_copier yellowB;
+#X connect 8 0 18 0;
+#X connect 10 0 9 0;
+#X connect 10 1 17 0;
+#X connect 13 0 14 0;
+#X connect 14 0 19 0;
+#X connect 15 0 16 0;
+#X connect 16 0 20 0;
+#X connect 17 0 13 0;
+#X connect 17 1 15 0;
+#X connect 18 0 10 0;
+#X connect 18 0 11 0;
+#X connect 19 0 12 0;
+#X restore 48 225 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowA 50 float 3;
+#A 0 0.266667 0.285714 0.295238 0.32381 0.352381 0.371429 0.409525
+0.2 0.228572 0.257143 0.276191 0.285715 0.314286 0.32381 0.352382 0.37143
+0.390477 0.238095 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0.171429 0.209524 0.257143
+0.276191 0.304763 0.333334 0.342858 -0.00952393 -0.00952393 -0.00952393
+-0.00952393 -0.00952393 -0.00952393 -0.00952393 -0.00952393 -0.00952393
+-0.00952393 -0.00952393;
+#X coords 0 1 50 0 25 25 1 0 0;
+#X restore 35 47 graph;
+#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -257985
+-128992 -1 0;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -257985 -1
+-1;
+#X obj 164 21 r YELLOW;
+#X obj 48 188 r YELLOW;
+#X obj 274 111 s YELLOW;
+#X msg 37 337 0;
+#X obj 249 306 loadbang;
+#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X msg 251 406 0;
+#X obj 251 429 v \$0-STATE;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 350 473 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 350 450 loadbang;
+#X msg 367 337 0;
+#X obj 579 306 loadbang;
+#X text 365 318 stop!;
+#X obj 418 429 s NOTE;
+#X obj 418 406 spigot;
+#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 599 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 88 306 riff1 600 3020 500;
+#X obj 418 306 riff1 600 3021 500;
+#X msg 249 329 yellowA;
+#X msg 579 329 yellowB;
+#X obj 231 451 s YELLOW_DONE;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yellowB 50 float 3;
+#A 0 0.685715 0.723811 0.800002 0.485714 0.519047 0.552381 0.580953
+0.609524 0.626191 0.642858 0.659525 0.676191 0.685715 0.399999 0.495238
+0.533333 0.571429 0.604762 0.638096 0.653969 0.669842 0.685715 0.695239
+0.704763 0.561905 0.666667 0.704763 0.714287 0.266665 0.323808 0.35238
+0.366666 0.380951 0.399999 0.423809 0.933336 0.952384 0.957145 0.961907
+0.609524 0.628572 0.47619 0.523809 0.523809 0.523809 0.438095 0.457142
+0.457142 0 0.361904;
+#X coords 0 1 50 0 25 25 1 0 0;
+#X restore 35 93 graph;
+#X obj 430 85 loadbang;
+#X obj 430 128 metro 2000;
+#X obj 430 108 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 505 156 r E_SEQ;
+#X obj 430 151 v \$0-STRESS;
+#X obj 430 174 *;
+#X obj 430 197 v \$0-STRESS;
+#X connect 1 0 11 0;
+#X connect 2 0 3 0;
+#X connect 4 0 1 0;
+#X connect 5 0 30 0;
+#X connect 5 0 29 0;
+#X connect 9 0 2 0;
+#X connect 9 0 8 0;
+#X connect 10 0 5 0;
+#X connect 12 0 29 0;
+#X connect 13 0 31 0;
+#X connect 14 0 16 0;
+#X connect 14 0 33 0;
+#X connect 16 0 17 0;
+#X connect 19 0 18 0;
+#X connect 20 0 19 1;
+#X connect 20 0 26 1;
+#X connect 21 0 20 0;
+#X connect 22 0 30 0;
+#X connect 23 0 32 0;
+#X connect 26 0 25 0;
+#X connect 27 0 31 0;
+#X connect 28 0 32 0;
+#X connect 29 0 19 0;
+#X connect 29 3 14 0;
+#X connect 30 0 26 0;
+#X connect 31 0 29 1;
+#X connect 32 0 30 1;
+#X connect 35 0 37 0;
+#X connect 36 0 39 0;
+#X connect 37 0 36 0;
+#X connect 38 0 40 1;
+#X connect 39 0 40 0;
+#X connect 40 0 41 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/radio_yellowhose.pd

@@ -0,0 +1,419 @@
+#N canvas 1 89 829 496 10;
+#X obj 283 80 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 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
+1 1;
+#X obj 67 334 == 0;
+#X obj 16 316 sel 1;
+#X text 41 402 think;
+#X obj 16 428 gauss 1 0;
+#X floatatom 16 474 5 0 0 0 - - -;
+#X obj 16 544 sel 1;
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 110 504 5 0 0 0 stress - -;
+#X obj 238 555 +;
+#X obj 238 502 t a b;
+#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 238 480 8 0 0 0 - - -;
+#X obj 16 521 >;
+#X floatatom 16 137 5 0 0 0 - - -;
+#X obj 238 375 t b b;
+#X obj 285 416 sel 1 0;
+#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
+-257985 -1;
+#X obj 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 obj 16 39 r WORLD_ENERGY;
+#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.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 47 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 44 0 0 0;
+#X connect 47 0 15 0;
+#X connect 48 0 15 0;
+#X connect 49 0 1 0;
+#X restore 283 57 pd world and me;
+#N canvas 68 145 1159 537 expressions 0;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseA5 50 float 3;
+#A 0 0.47619 0.495238 0.514286 0.504762 0.495238 0.304762 0.27619 0.257142
+0.238095 0.219047 0.199999 0.190475 0.180951 0.180951 0.190475 0.542857
+0.542857 0.552381 0.561905 0.533333 0.533333 0.35238 0.314284 0.285713
+0.266665 0.247617 0.247617 0.257141 0.30476 0.504762 0.504762 0.533334
+0.542858 0.542858 0.495238 0.285712 0.238093 0.238093 0.238093 0.247617
+0.323809 0.447619 0.466667 0.476191 0.4 0.209523 0.161903 0.152379
+0.142855 0.142855;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 675 52 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseA1 50 float 3;
+#A 0 0.733333 0.0285715 0.0285715 0.0253969 0.0222223 0.0190477 0.761905
+0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.838095 0.00952381
+0.00952381 0.00952381 0.00952363 0.00952363 0.00952363 0.00952363 0.00952363
+0.838095 0.00952381 0.00952363 0.00952363 0.00952363 -5.96046e-08 -5.96046e-08
+-5.96046e-08 -5.96046e-08 0.838095 0.00952381 0.838095 -5.96046e-08
+0.00952381 0.00952381 0.0190477 0.0190477 0.857143 0.0285715 0.0380954
+0.0380954 0.0380954 0.0380952 0.866667 0.0380954 0.0380954 0.0380954
+0.0380954 0.0190477;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 35 52 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseA3 50 float 3;
+#A 0 0.00952369 0.657143 0.00952369 0.00952369 0.00952369 0.590476
+0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369
+0.542857 0.542857 0.00952369 0.00952369 0.0190476 0.0190476 0.0190476
+0.0190476 0.0190476 0.0190476 0.704762 0.704762 0.0190476 0.0190476
+0.0190476 0.0190476 0.619048 0.619048 0.0190476 0.0190476 0.52381 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.67619 0.00952369 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.733333 0.00952381 0.00952369
+0.00952369;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 355 52 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseA2 50 float 3;
+#A 0 0.00952369 0.657143 0.00952369 0.00952369 0.00952369 0.590476
+0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369
+0.542857 0.542857 0.00952369 0.00952369 0.0190476 0.0190476 0.0190476
+0.0190476 0.0190476 0.0190476 0.704762 0.704762 0.0190476 0.0190476
+0.0190476 0.0190476 0.619048 0.619048 0.0190476 0.0190476 0.52381 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.67619 0.00952369 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.733333 0.00952381 0.00952369
+0.00952369;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 195 52 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseA4 100 float 3;
+#A 0 0.00952381 0.00476211 0.00476211 0.514286 0.4 0.371429 0.347619
+-0.00952297 2.38419e-07 2.38419e-07 0.00476193 0.00476193 0.00476193
+0.00476193 0.00476193 0.276191 0.347619 0.27619 0.0190475 0.0190475
+0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475
+0.0190475 0.304762 0.32381 0.400001 0.471429 0.771429 0.00952339 0.00952339
+0.00952339 0.00952339 0.00952339 0.00952339 0.00952339 0.595238 0.266667
+0.3 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.0285714 0.0285714
+0.0285714 0.0285714 0.0285714 0.52381 0.280952 0.271429 0.285714 0.309523
+0.290476 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.00952405
+0.00952405 0.3 0.338095 0.319048 0.390476 0.476189 0.00952381 0.00952381
+0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.0285714
+0.0285714 0.0285714 0.395222 0.419031 0.419031 0.428554 0.490456 0.461886
+0 0 0 0 0 0;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 515 52 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseB2 100 float 3;
+#A 0 0.380952 0.380952 0.380952 0.371428 0.371428 0.371428 0.361905
+0.361905 0.361905 0.352381 0.352381 0.352381 0.352381 0.352381 0.352381
+0.352381 0.352381 0.352381 0.352381 0.352381 0.352381 0.342857 0.342857
+0.342857 0.333334 0.32381 0.314287 0.295239 0.285716 0.266668 0.247621
+0.21905 0.190479 0.142861 0.123814 0.0761958 0.0666722 0.0190541 0.00953043
+0.00953043 0.00953043 6.79493e-06 6.79493e-06 -0.00951684 -0.00951684
+-0.00951684 -0.00951684 -0.00951684 -0.00951684 -0.00951684 -0.00951684
+-0.00951684 -0.00951684 -0.00951684 -0.00951684 -0.00951684 -0.00951684
+-0.00951684 -0.00951684 0.390476 0.390476 0.390476 0.390476 0.380952
+0.380952 0.380952 0.380952 0.380952 0.361905 0.361905 0.361905 0.361905
+0.352381 0.352381 0.352381 0.352381 0.333334 0.314287 0.276192 0.247621
+0.190479 0.152385 0.0761958 0.0666722 0.0571486 0.0476249 0.0381013
+0.0285777 0.0238159 0.0190541 0.0190541 0.0190541 0.0190541 0.0190541
+0.0190541 0.0190541 0.0190541 0.0190541 0.0190541 0.0190541;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 195 179 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseB1 50 float 3;
+#A 0 0.638095 0.580953 0.514287 0.457144 0.361907 0.314288 0.228574
+0.180955 0.152384 0.152384 0.14286 0.133337 0.114289 0.104765 0.104765
+0.104765 0.104765 0.638096 0.552382 0.504763 0.457144 0.371431 0.304765
+0.228575 0.19048 0.152385 0.133337 0.133337 0.133337 0.123813 0.11429
+0.542858 0.466668 0.380954 0.238098 0.209527 0.190479 0.171432 0.161908
+0.104765 0.0761942 0.0476229 0.0285754 0.533334 0.390477 0.266669 0.152384
+0.0666699 0.0380987 0.0380987;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 35 179 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseB4 50 float 3;
+#A 0 0.361905 0.457143 0.552381 0.571429 0.561905 0.438095 0.371429
+0.314286 0.2 0.0666667 0.0380952 0.00952381 0.00952381 0.00952381 0.00952381
+0.342857 0.4 0.552381 0.6 0.552381 0.419048 0.352381 0.295238 0.228571
+0.152381 0.00952381 0.00952381 0.0190476 0.0190476 0.0190476 0.0190476
+0.0285714 0.00952381 0.0285714 0.409524 0.504762 0.552381 0.6 0.533333
+0.4 0.304762 0.238095 0.219048 0 0 0 -0.0190476 -0.00952381 -0.00952381
+-0.0190476;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 515 179 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseB3 50 float 3;
+#A 0 -1.78814e-07 0.27619 -1.78814e-07 -1.78814e-07 -1.78814e-07 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.457143 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.285714 -1.78814e-07
+-1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07
+-1.78814e-07 -1.78814e-07 0.4 -1.78814e-07 -1.78814e-07 -1.78814e-07
+-1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07
+0.32381 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07
+-1.78814e-07 0.27619 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 355 179 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseB5 100 float 3;
+#A 0 0.00952381 0.00476211 0.00476211 0.514286 0.4 0.371429 0.347619
+-0.00952297 2.38419e-07 2.38419e-07 0.00476193 0.00476193 0.00476193
+0.00476193 0.00476193 0.276191 0.347619 0.27619 0.0190475 0.0190475
+0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475
+0.0190475 0.304762 0.32381 0.400001 0.471429 0.771429 0.00952339 0.00952339
+0.00952339 0.00952339 0.00952339 0.00952339 0.00952339 0.595238 0.266667
+0.3 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.0285714 0.0285714
+0.0285714 0.0285714 0.0285714 0.52381 0.280952 0.271429 0.285714 0.309523
+0.290476 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.00952405
+0.00952405 0.3 0.338095 0.319048 0.390476 0.476189 0.00952381 0.00952381
+0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.0285714
+0.0285714 0.0285714 0.395222 0.419031 0.419031 0.428554 0.490456 0.461886
+0 0 0 0 0 0;
+#X coords 0 1 100 0 150 105 1 0 0;
+#X restore 675 179 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseB6 50 float 3;
+#A 0 0.00952417 0 0.32381 0.00952417 0.32381 0.00952417 0.00952417
+0.00952417 0.00952417 0.514286 0.00952417 0.514286 0.00952417 0.00952417
+0.342857 0.00952417 0.342857 -0.00952333 -0.00952333 -0.00952333 -0.00952333
+-0.00952333 0.495238 -0.00952333 0.495238 -0.00952333 4.17233e-07 4.17233e-07
+4.17233e-07 0 0 0.352381 4.17233e-07 0.352381 4.17233e-07 4.17233e-07
+4.17233e-07 4.17233e-07 4.17233e-07 4.17233e-07 0.00952417 0.457143
+0.00952417 0.457143 0.00952417 0.00952417 0.00952417 0.0190479 0.0190479
+0.0190479;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 835 179 graph;
+#X obj 55 312 inlet;
+#X obj 55 393 outlet;
+#X obj 55 364 t b a;
+#X obj 257 359 s \$0-word;
+#X obj 165 493 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 165 425 + 1;
+#X floatatom 165 448 5 0 0 0 - - -;
+#X obj 304 400 + 1;
+#X floatatom 304 423 5 0 0 0 - - -;
+#X obj 165 382 t a a;
+#X obj 165 470 array_copier yhoseA;
+#X obj 304 445 array_copier yhoseB;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseA6 50 float 3;
+#A 0 0.47619 0.495238 0.514286 0.504762 0.495238 0.304762 0.27619 0.257142
+0.238095 0.219047 0.199999 0.190475 0.180951 0.180951 0.190475 0.542857
+0.542857 0.552381 0.561905 0.533333 0.533333 0.35238 0.314284 0.285713
+0.266665 0.247617 0.247617 0.257141 0.30476 0.504762 0.504762 0.533334
+0.542858 0.542858 0.495238 0.285712 0.238093 0.238093 0.238093 0.247617
+0.323809 0.447619 0.466667 0.476191 0.4 0.209523 0.161903 0.152379
+0.142855 0.142855;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 835 52 graph;
+#X text 919 77 <-----REPEATED only to MATCH numbers.;
+#X obj 55 341 count 6;
+#X connect 11 0 25 0;
+#X connect 13 0 12 0;
+#X connect 13 1 20 0;
+#X connect 16 0 17 0;
+#X connect 17 0 21 0;
+#X connect 18 0 19 0;
+#X connect 19 0 22 0;
+#X connect 20 0 16 0;
+#X connect 20 1 18 0;
+#X connect 21 0 15 0;
+#X connect 25 0 13 0;
+#X connect 25 0 14 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseA 50 float 3;
+#A 0 0.733333 0.0285715 0.0285715 0.0253969 0.0222223 0.0190477 0.761905
+0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.838095 0.00952381
+0.00952381 0.00952381 0.00952363 0.00952363 0.00952363 0.00952363 0.00952363
+0.838095 0.00952381 0.00952363 0.00952363 0.00952363 -5.96046e-08 -5.96046e-08
+-5.96046e-08 -5.96046e-08 0.838095 0.00952381 0.838095 -5.96046e-08
+0.00952381 0.00952381 0.0190477 0.0190477 0.857143 0.0285715 0.0380954
+0.0380954 0.0380954 0.0380952 0.866667 0.0380954 0.0380954 0.0380954
+0.0380954 0.0190477;
+#X coords 0 1 50 0 25 25 1 0 0;
+#X restore 35 45 graph;
+#X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -257985
+-4034 -1 0;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -257985 -4034
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -257985
+-4034 -1 1 1;
+#X obj 164 21 r YHOSE;
+#X obj 48 187 r YHOSE;
+#X obj 283 110 s YHOSE;
+#X msg 37 337 0;
+#X obj 316 306 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 msg 315 406 0;
+#X obj 315 429 v \$0-STATE;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 397 460 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 397 437 loadbang;
+#X obj 339 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X msg 447 337 0;
+#X obj 726 306 loadbang;
+#X text 445 318 stop!;
+#X obj 498 429 s NOTE;
+#X obj 498 406 spigot;
+#X obj 749 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 295 452 s YHOSE_DONE;
+#X msg 316 329 yhoseA;
+#X msg 726 329 yhoseB;
+#X obj 88 306 riff1_random 600 3207 600 900;
+#X obj 498 306 riff1_random 600 3206 600 900;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array yhoseB 50 float 3;
+#A 0 0.638095 0.580953 0.514287 0.457144 0.361907 0.314288 0.228574
+0.180955 0.152384 0.152384 0.14286 0.133337 0.114289 0.104765 0.104765
+0.104765 0.104765 0.638096 0.552382 0.504763 0.457144 0.371431 0.304765
+0.228575 0.19048 0.152385 0.133337 0.133337 0.133337 0.123813 0.11429
+0.542858 0.466668 0.380954 0.238098 0.209527 0.190479 0.171432 0.161908
+0.104765 0.0761942 0.0476229 0.0285754 0.533334 0.390477 0.266669 0.152384
+0.0666699 0.0380987 0.0380987;
+#X coords 0 1 50 0 25 25 1 0 0;
+#X restore 35 95 graph;
+#X obj 572 62 loadbang;
+#X obj 572 105 metro 2000;
+#X obj 572 85 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 647 133 r E_SEQ;
+#X obj 572 128 v \$0-STRESS;
+#X obj 572 151 *;
+#X obj 572 174 v \$0-STRESS;
+#X connect 0 0 11 0;
+#X connect 1 0 2 0;
+#X connect 3 0 0 0;
+#X connect 4 0 32 0;
+#X connect 4 0 33 0;
+#X connect 9 0 1 0;
+#X connect 9 0 7 0;
+#X connect 10 0 4 0;
+#X connect 12 0 32 0;
+#X connect 13 0 30 0;
+#X connect 14 0 16 0;
+#X connect 14 0 29 0;
+#X connect 16 0 17 0;
+#X connect 19 0 18 0;
+#X connect 20 0 19 1;
+#X connect 20 0 27 1;
+#X connect 21 0 20 0;
+#X connect 22 0 30 0;
+#X connect 23 0 33 0;
+#X connect 24 0 31 0;
+#X connect 27 0 26 0;
+#X connect 28 0 31 0;
+#X connect 30 0 32 1;
+#X connect 31 0 33 1;
+#X connect 32 0 19 0;
+#X connect 32 3 14 0;
+#X connect 33 0 27 0;
+#X connect 35 0 37 0;
+#X connect 36 0 39 0;
+#X connect 37 0 36 0;
+#X connect 38 0 40 1;
+#X connect 39 0 40 0;
+#X connect 40 0 41 0;
+#X coords 0 -1 1 1 100 150 2 5 5;

puredata/riff1.pd

@@ -2,8 +2,8 @@
 #X floatatom 193 170 5 0 0 0 - - -;
 #X floatatom 193 239 5 0 0 0 - - -;
 #X floatatom 193 288 5 0 0 0 - - -;
-#X obj 28 66 hsl 110 20 0 800 0 0 empty \$0-val empty -2 -8 0 10 -262130
+#X obj 28 66 hsl 110 20 0 1000 0 0 empty \$0-val empty -2 -8 0 10 -262130
--1 -1 4049 1;
+-1 -1 4568 1;
 #X obj 193 18 inlet;
 #X obj 157 144 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
@@ -34,7 +34,7 @@
 #X text 350 187 3-key;
 #X text 323 367 1#msg;
 #X obj 145 66 tgl 20 0 empty \$0-onoff empty 17 7 0 8 -257985 -1 -1
-1 1;
+0 1;
 #X obj 249 214 s \$0-key;
 #X obj 453 112 s \$0-onoff;
 #X symbolatom 42 41 12 0 0 0 - - -;
@@ -63,6 +63,7 @@
 #X obj 257 170 del \$3;
 #X obj 483 313 outlet;
 #X text 483 335 4#done;
+#X obj 297 180 del \$3;
 #X connect 0 0 18 0;
 #X connect 0 0 40 0;
 #X connect 0 0 5 0;
@@ -114,4 +115,6 @@
 #X connect 56 0 33 0;
 #X connect 57 0 14 0;
 #X connect 57 0 58 0;
+#X connect 57 0 60 0;
+#X connect 60 0 14 0;
 #X coords 0 -1 1 1 150 95 1 20 20;

puredata/riff1_random.pd

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

puredata/rscan.pd

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

roller/src/main.cpp

@@ -21,7 +21,7 @@
 //============<identities>============
 //
 #define MY_GROUP_ID   (4000)
-#define MY_ID         (MY_GROUP_ID + 702)
+#define MY_ID         (MY_GROUP_ID + 403)
 #define MY_SIGN       ("ROLLER")
 //
 //============</identities>============

taak/src/main.cpp

@@ -21,7 +21,7 @@
 //============<identities>============
 //
 #define MY_GROUP_ID   (1000)
-#define MY_ID         (MY_GROUP_ID + 100)
+#define MY_ID         (MY_GROUP_ID + 32)
 #define MY_SIGN       ("TAAK")
 //
 //============</identities>============