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

무엇의 숲 @ 탈영역 우정국 / 2021.11.05

Browse source
This commit is contained in:
Dooho Yi 2022-06-07 13:39:43 +09:00
parent 9063eeeb80
commit 4fca7fc789
65 changed files with 20763 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
puredata/radio_theatre_0.forest-of-unknown/arr2q.pd Normal file
View file

@ -0,0 +1,42 @@
#N canvas 1 89 358 397 12;
#X floatatom 57 234 5 0 0 0 - - -;
#X floatatom 57 123 5 0 0 0 - - -;
#X obj 57 211 tabread;
#X obj 57 98 array size;
#X msg 142 98 set \$1;
#X obj 57 20 inlet;
#X obj 57 145 hooop;
#X obj 57 282 pack f f s;
#X msg 57 313 add \$2 \$3 \$1;
#X text 107 19 1-array-name;
#X text 105 345 1#qlist;
#X obj 57 342 outlet;
#X obj 57 53 t b a a;
#X obj 222 237 loadbang;
#X obj 222 262 symbol \$2;
#X obj 133 190 sel 0;
#X msg 133 215 0;
#X obj 165 240 f \$1;
#X msg 165 215 bang;
#X obj 57 170 t a a;
#X connect 0 0 7 0;
#X connect 1 0 6 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 5 0 12 0;
#X connect 6 0 19 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 12 0 3 0;
#X connect 12 1 3 1;
#X connect 12 2 4 0;
#X connect 13 0 14 0;
#X connect 14 0 7 2;
#X connect 15 0 16 0;
#X connect 15 1 18 0;
#X connect 16 0 7 1;
#X connect 17 0 7 1;
#X connect 18 0 17 0;
#X connect 19 0 2 0;
#X connect 19 1 15 0;

41
puredata/radio_theatre_0.forest-of-unknown/array_copier.pd Normal file
View file

@ -0,0 +1,41 @@
#N canvas 272 257 410 322 10;
#X obj 123 152 array size;
#X floatatom 123 176 5 0 0 0 - - -;
#X obj 123 198 array size;
#X obj 56 239 array get;
#X obj 56 262 array set;
#X obj 76 129 t b b a b a;
#X obj 197 223 loadbang;
#X obj 76 13 inlet;
#X obj 197 246 symbol \$1;
#X obj 26 147 outlet;
#X obj 246 76 symbol \$1;
#X obj 246 97 makefilename %s%%d;
#X obj 76 95 makefilename;
#X msg 246 118 set \$1;
#X obj 76 38 t a b;
#X obj 197 159 loadbang;
#X obj 197 182 symbol \$1;
#X text 117 14 <-- [inlet] is faster than [loadbang] !?;
#X text 155 55 a quick patch.;
#X obj 246 54 lbang;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 4 0;
#X connect 5 0 9 0;
#X connect 5 1 3 0;
#X connect 5 2 3 2;
#X connect 5 3 0 0;
#X connect 5 4 0 1;
#X connect 6 0 8 0;
#X connect 7 0 14 0;
#X connect 8 0 4 2;
#X connect 10 0 11 0;
#X connect 11 0 13 0;
#X connect 12 0 5 0;
#X connect 13 0 12 0;
#X connect 14 0 12 0;
#X connect 14 1 19 0;
#X connect 15 0 16 0;
#X connect 16 0 2 1;
#X connect 19 0 10 0;

51
puredata/radio_theatre_0.forest-of-unknown/asum.pd Normal file
View file

@ -0,0 +1,51 @@
#N canvas 483 255 379 517 10;
#X obj 217 160 symbol \$1;
#X obj 217 210 makefilename %s%%d;
#X obj 217 270 makefilename;
#X msg 217 235 set \$1;
#X obj 52 310 array get;
#X msg 247 81 \; \$1 const 0;
#X obj 72 227 f;
#X obj 108 227 + 1;
#X obj 52 335 list-math *;
#X obj 173 375 array get;
#X obj 92 466 array set;
#X obj 92 400 list-emath +;
#X obj 227 185 s \$0-out-an;
#X obj 233 350 r \$0-out-an;
#X obj 152 441 r \$0-out-an;
#X obj 52 149 t b b a b;
#X obj 52 78 inlet;
#X obj 167 78 inlet;
#X text 153 15 argument 1: array name;
#X text 21 48 1-ratios \, comma separated;
#X msg 167 128 0;
#X msg 167 103 bang;
#X obj 247 56 symbol \$1;
#X obj 217 138 lbang;
#X connect 0 0 1 0;
#X connect 0 0 12 0;
#X connect 1 0 3 0;
#X connect 2 0 4 2;
#X connect 3 0 2 0;
#X connect 4 0 8 0;
#X connect 6 0 7 0;
#X connect 7 0 6 1;
#X connect 7 0 2 0;
#X connect 8 0 11 0;
#X connect 9 0 11 1;
#X connect 11 0 10 0;
#X connect 13 0 9 2;
#X connect 14 0 10 2;
#X connect 15 0 4 0;
#X connect 15 1 6 0;
#X connect 15 2 8 1;
#X connect 15 3 9 0;
#X connect 15 3 23 0;
#X connect 16 0 15 0;
#X connect 17 0 21 0;
#X connect 20 0 6 1;
#X connect 21 0 20 0;
#X connect 21 0 22 0;
#X connect 22 0 5 0;
#X connect 23 0 0 0;

1185
puredata/radio_theatre_0.forest-of-unknown/crickets_save.pd Normal file
View file

File diff suppressed because it is too large Load diff

22
puredata/radio_theatre_0.forest-of-unknown/hooop.pd Normal file
View file

@ -0,0 +1,22 @@
#N canvas 510 530 450 300 12;
#X obj 22 143 until;
#X obj 22 99 f;
#X obj 104 163 f;
#X obj 134 163 + 1;
#X obj 104 188 mod;
#X msg 122 99 0;
#X obj 22 23 inlet;
#X obj 104 226 outlet;
#X obj 22 58 t b b a a;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 1;
#X connect 4 0 7 0;
#X connect 5 0 2 1;
#X connect 6 0 8 0;
#X connect 8 0 1 0;
#X connect 8 1 5 0;
#X connect 8 2 1 1;
#X connect 8 3 4 1;

45
puredata/radio_theatre_0.forest-of-unknown/lbang.pd Normal file
View file

@ -0,0 +1,45 @@
#N canvas 245 99 377 221 10;
#X obj 44 60 loadbang;
#X obj 98 60 inlet;
#X obj 98 80 bang;
#X obj 70 120 outlet;
#X text 216 51 Inlets;
#X text 216 101 Outlets;
#X text 12 171 (C) 2006 João Pais - jmmmpais@googlemail.com;
#N canvas 0 0 426 446 license 0;
#X text 8 47 All rights reserved.;
#X text 8 227 The names of its contributors may not be used to endorse
or promote products derived from this software without specific prior
written permission.;
#X text 8 87 Redistribution and use in source and binary forms \, with
or without modification \, are permitted provided that the following
conditions are met:;
#X text 8 127 Redistributions of source code must retain the above
copyright notice \, this list of conditions and the following disclaimer.
;
#X text 8 297 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES \, INCLUDING
\, BUT NOT LIMITED TO \, THE IMPLIED WARRANTIES OF MERCHANTABILITY
AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT \, INDIRECT
\, INCIDENTAL \, SPECIAL \, EXEMPLARY \, OR CONSEQUENTIAL DAMAGES (INCLUDING
\, BUT NOT LIMITED TO \, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES
;
#X text 8 167 Redistributions in binary form must reproduce the above
copyright notice \, this list of conditions and the following disclaimer
in the documentation and/or other materials provided with the distribution.
;
#X text 8 27 jmmmpais@googlemail.com;
#X text 8 7 Copyright 2006 \, João Pais;
#X restore 15 189 pd license;
#X text 12 10 [lbang] - loadbang which can be triggered more often
;
#X obj 70 102 bng 13 250 50 0 empty empty empty 0 -6 0 8 -233017 -1
-1;
#X text 216 71 - bang;
#X text 216 121 - loadbang / bang;
#X connect 0 0 9 0;
#X connect 1 0 2 0;
#X connect 2 0 9 0;
#X connect 9 0 3 0;
#X coords 0 -1 1 1 55 17 1 30 100;

12
puredata/radio_theatre_0.forest-of-unknown/limitcnt-help.pd Normal file
View file

@ -0,0 +1,12 @@
#N canvas 1 89 450 300 12;
#X obj 82 72 bng 15 250 50 0 empty empty -(dec) 17 7 0 10 -262144 -1
-1;
#X obj 163 72 bng 15 250 50 0 empty empty +(inc) 17 7 0 10 -262144
-1 -1;
#X floatatom 82 137 5 0 0 0 - - -;
#X obj 82 104 limitcnt 0 8;
#X text 195 102 count from 0 to 8;
#X text 195 122 always stay in the range;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 3 0 2 0;

53
puredata/radio_theatre_0.forest-of-unknown/limitcnt.pd Normal file
View file

@ -0,0 +1,53 @@
#N canvas 414 282 439 376 12;
#X obj 141 161 f;
#X obj 171 161 +;
#X obj 49 49 t b b;
#X obj 231 51 t b b;
#X floatatom 171 196 5 0 0 0 - - -;
#X floatatom 263 304 5 0 0 0 - - -;
#X msg 28 216 0;
#X obj 352 140 f \$2;
#X msg 352 190 set \$1;
#X obj 263 273 moses;
#X obj 352 109 loadbang;
#X msg 352 247 8;
#X obj 263 328 outlet;
#X obj 49 18 inlet;
#X obj 231 20 inlet;
#X obj 28 115 loadbang;
#X obj 28 146 f \$1;
#X obj 171 242 moses;
#X msg 28 171 set \$1;
#X text 27 292 bangged counter from \$1 to \$2;
#X text 27 312 limited at each edges;
#X obj 295 199 + 1;
#X msg 117 69 -1;
#X msg 263 141 1;
#X connect 0 0 1 0;
#X connect 1 0 0 1;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 2 1 22 0;
#X connect 3 0 0 0;
#X connect 3 1 23 0;
#X connect 4 0 17 0;
#X connect 5 0 12 0;
#X connect 6 0 0 1;
#X connect 7 0 21 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 5 0;
#X connect 9 1 11 0;
#X connect 10 0 7 0;
#X connect 11 0 0 1;
#X connect 13 0 2 0;
#X connect 14 0 3 0;
#X connect 15 0 16 0;
#X connect 16 0 18 0;
#X connect 16 0 17 1;
#X connect 17 0 6 0;
#X connect 17 1 9 0;
#X connect 18 0 6 0;
#X connect 21 0 9 1;
#X connect 22 0 1 1;
#X connect 23 0 1 1;

38
puredata/radio_theatre_0.forest-of-unknown/o.io.slipserial.pd Normal file
View file

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

2897
puredata/radio_theatre_0.forest-of-unknown/piano_access_radio.pd Normal file
View file

File diff suppressed because it is too large Load diff

968
puredata/radio_theatre_0.forest-of-unknown/piano_access_radio_MMCA.pd Normal file
View file

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

113
puredata/radio_theatre_0.forest-of-unknown/piano_access_radio_comm_only.pd Normal file
View file

@ -0,0 +1,113 @@
#N canvas 503 95 623 400 10;
#X obj 322 198 spigot;
#X obj 371 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#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 494 315 2000;
#X obj 230 203 tgl 15 0 empty empty connected? 17 7 0 10 -262144 -1
-1 1 1;
#X msg 204 58 devicename /dev/tty.usbmodem32177401 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#X connect 0 0 16 0;
#X connect 1 0 0 1;
#X connect 2 0 14 0;
#X connect 3 0 8 0;
#X connect 3 1 30 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X connect 7 0 6 0;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 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 29 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 18 0;
#X connect 31 0 3 1;

449
puredata/radio_theatre_0.forest-of-unknown/piano_access_radio_crickets.pd Normal file
View file

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

499
puredata/radio_theatre_0.forest-of-unknown/piano_access_radio_roomA2.pd Normal file
View file

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

1310
puredata/radio_theatre_0.forest-of-unknown/piano_access_radio_roomB.pd Normal file
View file

File diff suppressed because it is too large Load diff

976
puredata/radio_theatre_0.forest-of-unknown/piano_access_radio_theatre.pd Normal file
View file

@ -0,0 +1,976 @@
#N canvas 637 87 642 489 10;
#X obj 328 198 spigot;
#X obj 377 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 11 12 <<<;
#X text 581 12 >>>;
#N canvas 676 408 512 395 buildOSC 0;
#X obj 319 66 t a b;
#X msg 456 84 [;
#X msg 34 327 ];
#X obj 68 236 r X1;
#X obj 98 236 r X2;
#X obj 128 236 r X3;
#X obj 158 236 r X4;
#X obj 53 266 f;
#X obj 34 126 t b b a;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 188 236 r PS;
#X obj 88 284 pack f f f f f;
#X msg 319 112 sendtyped /note/onoff f \$1;
#X msg 254 141 sendtyped /note/velocity f \$1;
#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X msg 73 199 sendtyped /note/id i \$1;
#X msg 167 170 sendtyped /note/pitch f \$1;
#X obj 140 39 unpack f f f f;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 7 1;
#X connect 4 0 12 1;
#X connect 5 0 12 2;
#X connect 6 0 12 3;
#X connect 7 0 12 0;
#X connect 8 0 2 0;
#X connect 8 1 7 0;
#X connect 8 2 16 0;
#X connect 10 0 18 0;
#X connect 11 0 12 4;
#X connect 12 0 15 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 9 0;
#X connect 18 0 8 0;
#X connect 18 1 17 0;
#X connect 18 2 14 0;
#X connect 18 3 0 0;
#X restore 418 194 pd buildOSC for all;
#X obj 123 121 o.io.slipserial;
#X msg 249 142 devices;
#X msg 249 165 close;
#X obj 123 80 packOSC;
#X obj 123 55 r OSC;
#X obj 123 144 unpackOSC;
#X obj 123 167 routeOSC /hello;
#X obj 123 190 s HELLO;
#X obj 40 120 print OSC;
#X obj 40 93 spigot;
#X obj 89 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X obj 418 217 s OSC;
#X obj 418 155 r NOTE;
#X obj 328 225 print NOTE;
#X text 419 134 /id /pitch /velocity /onoff;
#X text 11 442 <<<;
#X text 581 442 >>>;
#X text 297 267 * sub-patches;
#X floatatom 549 325 5 0 0 0 - - -;
#X obj 549 347 s PS;
#X obj 500 236 tgl 25 0 empty empty hello 32 7 0 15 -159808 -257985
-159808 1 1;
#X obj 549 263 loadbang;
#X msg 549 286 1;
#X obj 500 286 sel 1;
#X obj 40 163 spigot;
#X obj 89 148 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 40 190 print HELLO;
#N canvas 224 125 706 244 samplers 0;
#X obj 35 142 spigot;
#X obj 84 127 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 11 12 <<<;
#X text 671 12 >>>;
#X text 155 34 /pitch /velocity /onoff;
#X obj 59 93 s OSC;
#X obj 365 32 loadbang;
#X text 489 93 BIG;
#X text 327 93 SMALL;
#X obj 365 94 hradio 15 1 0 8 empty empty vol._override 0 -8 0 10 -257985
-1 -1 4;
#X obj 365 117 tabread \$0-volume-list;
#N canvas 763 340 501 420 volume-list 0;
#X msg 146 359 \; \$1-volume-list 0 0 10 25 50 127 180 255 500;
#X obj 146 336 f \$0;
#X obj 146 316 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 146 276 loadbang;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-volume-list 20 float 3;
#A 0 0 10 25 50 127 180 255 500 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1000 20 0 200 140 1 0 0;
#X restore 227 181 graph;
#X text 441 311 0;
#X text 445 172 1000;
#X obj 100 169 bng 15 250 50 0 empty empty v+ 17 7 0 10 -262144 -1
-1;
#X obj 31 169 bng 15 250 50 0 empty empty v- 17 7 0 10 -262144 -1 -1
;
#X obj 31 64 unpack f f f;
#X text 127 42 /pitch /velocity /onoff;
#X obj 100 92 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 31 107 spigot;
#X text 104 128 keys for volume control: vol+ / vol-;
#X text 45 16 volume control w/ keyboard;
#X obj 31 128 sel 38 40;
#X floatatom 71 288 5 0 0 0 s:0-vol - #0-vol;
#X obj 31 250 tabread \$0-volume-list;
#X floatatom 31 228 5 0 0 0 - - -;
#X obj 31 205 limitcnt 0 7;
#X obj 31 43 r SAMPLER_NOTE;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 7 0 19 1;
#X connect 8 0 19 0;
#X connect 9 0 12 0;
#X connect 9 2 11 0;
#X connect 11 0 12 1;
#X connect 12 0 15 0;
#X connect 15 0 8 0;
#X connect 15 1 7 0;
#X connect 17 0 16 0;
#X connect 18 0 17 0;
#X connect 19 0 18 0;
#X connect 20 0 9 0;
#X restore 413 146 pd volume-list;
#X floatatom 365 146 5 0 0 0 s:0-vol - #0-vol;
#X msg 365 55 4;
#X text 11 212 <<<;
#X text 671 212 >>>;
#X floatatom 586 120 5 0 0 3 r:0-vol #0-vol -;
#X obj 546 67 nbx 5 25 -1e+37 1e+37 0 0 empty empty volume-now 0 -12
0 20 -262130 -159808 -159808 127 256;
#X obj 177 110 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 222 108 5 0 0 0 - - -;
#X obj 177 136 pack f f;
#X msg 177 159 \$2 100 \$1;
#N canvas 113 357 512 395 buildOSC 0;
#X obj 319 76 t a b;
#X msg 456 94 [;
#X msg 34 327 ];
#X obj 140 39 unpack f f f;
#X obj 66 226 r X1;
#X obj 96 226 r X2;
#X obj 126 226 r X3;
#X obj 156 226 r X4;
#X obj 51 256 f;
#X obj 254 345 outlet;
#X obj 140 17 inlet;
#X obj 186 226 r PS;
#X obj 86 274 pack f f f f f;
#X msg 319 122 sendtyped /note/onoff f \$1;
#X msg 85 150 sendtyped /note/pitch f \$1;
#X msg 254 150 sendtyped /note/velocity f \$1;
#X msg 86 297 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
#X floatatom 174 82 5 0 0 0 - - -;
#X obj 174 62 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X floatatom 315 19 5 0 0 0 r:0-vol #0-vol -;
#X msg 315 41 set \$1;
#X msg 68 179 sendtyped /note/id i 5000;
#X obj 34 121 t b b b a;
#X connect 0 0 13 0;
#X connect 0 1 1 0;
#X connect 1 0 9 0;
#X connect 2 0 9 0;
#X connect 3 0 22 0;
#X connect 3 1 18 0;
#X connect 3 2 0 0;
#X connect 4 0 8 1;
#X connect 5 0 12 1;
#X connect 6 0 12 2;
#X connect 7 0 12 3;
#X connect 8 0 12 0;
#X connect 10 0 3 0;
#X connect 11 0 12 4;
#X connect 12 0 16 0;
#X connect 13 0 9 0;
#X connect 14 0 9 0;
#X connect 15 0 9 0;
#X connect 16 0 9 0;
#X connect 17 0 15 0;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 17 0;
#X connect 21 0 9 0;
#X connect 22 0 2 0;
#X connect 22 1 8 0;
#X connect 22 2 21 0;
#X connect 22 3 14 0;
#X restore 59 64 pd buildOSC id 5000;
#X text 183 64 id == 5000 FIXED;
#X text 236 130 TESTER;
#X obj 59 35 r SAMPLER_NOTE;
#X obj 35 169 print SAMPLER_NOTE;
#X obj 177 182 s SAMPLER_NOTE;
#X connect 0 0 26 0;
#X connect 1 0 0 1;
#X connect 6 0 13 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 13 0 9 0;
#X connect 16 0 17 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 21 0;
#X connect 21 0 27 0;
#X connect 22 0 5 0;
#X connect 25 0 22 0;
#X connect 25 0 0 0;
#X coords 0 244 1 243 200 200 0;
#X restore 62 424 pd samplers;
#X text 109 24 * a wireless "field synth" - based on 'esp now' protocol
;
#X msg 500 315 2000;
#N canvas 803 196 443 470 keyboard 0;
#X obj 20 126 unpackOSC;
#X obj 107 18 loadbang;
#X msg 147 103 devices;
#X obj 20 147 routeOSC /note;
#X floatatom 20 189 5 0 0 0 - - -;
#X floatatom 77 189 5 0 0 0 - - -;
#X floatatom 135 189 5 0 0 0 - - -;
#X obj 20 105 o.io.slipserial;
#X msg 147 127 close;
#X obj 20 235 pack f f f;
#X obj 20 168 routeOSC /pitch /velocity /onoff /oncnt;
#X floatatom 193 189 5 0 0 0 - - -;
#X obj 135 245 tgl 100 0 empty empty empty 17 7 0 10 -262144 -1 -1
0 1;
#X msg 20 52 devicename /dev/tty.HC-06-DevB-1 \, baud 57600 \, pollintervall
1 \, verbose 1;
#X text 1 2 <<<;
#X text 401 2 >>>;
#X text 1 422 <<<;
#X text 401 422 >>>;
#X obj 20 258 s SAMPLER_NOTE;
#X floatatom 185 349 8 0 0 0 pitch - -;
#X floatatom 185 369 8 0 0 0 velocity - -;
#X obj 259 230 notein 1;
#X floatatom 259 259 5 0 0 0 - - -;
#X floatatom 304 259 5 0 0 0 - - -;
#X obj 304 287 t a a;
#X floatatom 259 321 5 0 0 0 - - -;
#X floatatom 304 321 5 0 0 0 - - -;
#X floatatom 361 332 5 0 0 0 - - -;
#X obj 259 349 pack f f f;
#X obj 361 305 != 0;
#X obj 259 372 s SAMPLER_NOTE;
#X text 260 205 * from midi master keybrd;
#X text 180 25 * from bt-keybrd made w/ teensy;
#X connect 0 0 3 0;
#X connect 2 0 7 1;
#X connect 3 0 10 0;
#X connect 4 0 9 0;
#X connect 4 0 19 0;
#X connect 5 0 9 1;
#X connect 5 0 20 0;
#X connect 6 0 9 2;
#X connect 6 0 12 0;
#X connect 7 0 0 0;
#X connect 8 0 7 1;
#X connect 9 0 18 0;
#X connect 10 0 4 0;
#X connect 10 1 5 0;
#X connect 10 2 6 0;
#X connect 10 3 11 0;
#X connect 13 0 7 1;
#X connect 21 0 22 0;
#X connect 21 1 23 0;
#X connect 22 0 25 0;
#X connect 23 0 24 0;
#X connect 24 0 26 0;
#X connect 24 1 29 0;
#X connect 25 0 28 0;
#X connect 26 0 28 1;
#X connect 27 0 28 2;
#X connect 27 0 12 0;
#X connect 28 0 30 0;
#X connect 29 0 27 0;
#X coords 0 -1 1 1 110 170 1 130 220;
#X restore 62 244 pd keyboard ctrlr;
#N canvas 1 87 836 712 crickets 1;
#X obj 45 28 cnv 15 700 700 empty empty empty 20 12 0 14 -233017 -66577
0;
#N canvas 1 87 1278 711 (subpatch) 0;
#X obj 74 266 r BONGBONG_DONE;
#X obj 24 243 r BONGBONG;
#N canvas 0 50 450 250 (subpatch) 0;
#X array world_energy 20 float 3;
#A 0 0.199924 0.199924 0 0 0 3.67517e-18 0.149943 1.03606e-14 0 0.199924
7.17458e-27 0.249905 0 1.59002e-29 3.63502e-25 0 0 0 0 0;
#X coords 0 1 20 0 200 50 1 0 0;
#X restore 15 36 graph;
#X msg 24 452 \; world_energy \$2 \$1;
#X obj 24 429 pack f f;
#X msg 157 411 0;
#X obj 448 134 array sum;
#X msg 519 116 symbol world_energy;
#X floatatom 183 18 5 0 0 0 sum WORLD_ENERGY -;
#X msg 608 52 \; world_energy const 0;
#X obj 448 111 metro 100;
#X obj 130 332 loadbang;
#X obj 448 210 s WORLD_ENERGY;
#X obj 492 39 loadbang;
#X obj 492 62 t b b;
#X obj 24 361 snapshot~;
#X msg 24 309 start;
#X msg 74 309 stop;
#X obj 69 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 24 384 5 0 0 0 - - -;
#X obj 24 406 * 0.2;
#X obj 130 368 t b b;
#X msg 204 452 \; world_energy \$2 \$1;
#X obj 204 429 pack f f;
#X obj 310 332 loadbang;
#X obj 204 361 snapshot~;
#X msg 204 309 start;
#X msg 254 309 stop;
#X obj 249 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 204 384 5 0 0 0 - - -;
#X obj 310 368 t b b;
#X obj 204 243 r ROUNDER;
#X obj 254 266 r ROUNDER_DONE;
#X msg 337 411 1;
#X obj 249 406 metro 50;
#X obj 69 406 metro 50;
#X obj 204 338 ear~ 2000 10000;
#X obj 24 338 ear~ 2000 10000;
#X obj 448 157 max 0.001;
#X obj 262 40 loadbang;
#X msg 262 63 \; pd dsp 1;
#X msg 384 452 \; world_energy \$2 \$1;
#X obj 384 429 pack f f;
#X obj 490 332 loadbang;
#X obj 384 361 snapshot~;
#X msg 384 309 start;
#X msg 434 309 stop;
#X obj 429 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 384 384 5 0 0 0 - - -;
#X obj 490 368 t b b;
#X obj 429 406 metro 50;
#X obj 384 338 ear~ 2000 10000;
#X obj 384 243 r DRAWER;
#X obj 434 266 r DRAWER_DONE;
#X msg 517 411 2;
#X msg 564 452 \; world_energy \$2 \$1;
#X obj 564 429 pack f f;
#X obj 670 332 loadbang;
#X obj 564 361 snapshot~;
#X msg 564 309 start;
#X msg 614 309 stop;
#X obj 609 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 564 384 5 0 0 0 - - -;
#X obj 670 368 t b b;
#X obj 609 406 metro 50;
#X obj 564 338 ear~ 2000 10000;
#X msg 697 411 3;
#X msg 924 452 \; world_energy \$2 \$1;
#X obj 924 429 pack f f;
#X obj 1030 332 loadbang;
#X obj 924 361 snapshot~;
#X msg 924 309 start;
#X msg 974 309 stop;
#X obj 969 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 924 384 5 0 0 0 - - -;
#X obj 1030 368 t b b;
#X obj 969 406 metro 50;
#X obj 924 338 ear~ 2000 10000;
#X obj 924 243 r SUITCASE;
#X obj 974 266 r SUITCASE_DONE;
#X msg 1104 452 \; world_energy \$2 \$1;
#X obj 1104 429 pack f f;
#X obj 1210 332 loadbang;
#X obj 1104 361 snapshot~;
#X msg 1104 309 start;
#X msg 1154 309 stop;
#X obj 1149 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X floatatom 1104 384 5 0 0 0 - - -;
#X obj 1210 368 t b b;
#X obj 1149 406 metro 50;
#X obj 1104 338 ear~ 2000 10000;
#X obj 1104 243 r YELLOW;
#X obj 1154 266 r YELLOW_DONE;
#X msg 24 722 \; world_energy \$2 \$1;
#X obj 24 699 pack f f;
#X obj 130 602 loadbang;
#X obj 24 631 snapshot~;
#X msg 24 579 start;
#X msg 74 579 stop;
#X obj 69 656 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 24 654 5 0 0 0 - - -;
#X obj 130 638 t b b;
#X msg 204 722 \; world_energy \$2 \$1;
#X obj 204 699 pack f f;
#X obj 310 602 loadbang;
#X obj 204 631 snapshot~;
#X msg 204 579 start;
#X msg 254 579 stop;
#X obj 249 656 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 204 654 5 0 0 0 - - -;
#X obj 310 638 t b b;
#X obj 249 676 metro 50;
#X obj 69 676 metro 50;
#X obj 204 608 ear~ 2000 10000;
#X obj 24 608 ear~ 2000 10000;
#X msg 574 722 \; world_energy \$2 \$1;
#X obj 574 699 pack f f;
#X obj 680 602 loadbang;
#X obj 574 631 snapshot~;
#X msg 574 579 start;
#X msg 624 579 stop;
#X obj 619 656 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 574 654 5 0 0 0 - - -;
#X obj 680 638 t b b;
#X obj 619 676 metro 50;
#X obj 574 608 ear~ 2000 10000;
#X msg 754 722 \; world_energy \$2 \$1;
#X obj 754 699 pack f f;
#X obj 860 602 loadbang;
#X obj 754 631 snapshot~;
#X msg 754 579 start;
#X msg 804 579 stop;
#X obj 799 656 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 754 654 5 0 0 0 - - -;
#X obj 860 638 t b b;
#X obj 799 676 metro 50;
#X obj 754 608 ear~ 2000 10000;
#X msg 934 722 \; world_energy \$2 \$1;
#X obj 934 699 pack f f;
#X obj 1040 602 loadbang;
#X obj 934 631 snapshot~;
#X msg 934 579 start;
#X msg 984 579 stop;
#X obj 979 656 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 934 654 5 0 0 0 - - -;
#X obj 1040 638 t b b;
#X obj 979 676 metro 50;
#X obj 934 608 ear~ 2000 10000;
#X obj 934 676 * 0.3;
#X msg 1114 722 \; world_energy \$2 \$1;
#X obj 1114 699 pack f f;
#X obj 1220 602 loadbang;
#X obj 1114 631 snapshot~;
#X msg 1114 579 start;
#X msg 1164 579 stop;
#X obj 1159 656 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X floatatom 1114 654 5 0 0 0 - - -;
#X obj 1220 638 t b b;
#X obj 1159 676 metro 50;
#X obj 1114 608 ear~ 2000 10000;
#X obj 24 513 r FROG;
#X obj 74 536 r FROG_DONE;
#X obj 574 513 r FLASHER;
#X obj 625 536 r FLASHER_DONE;
#X obj 754 513 r DRUMMER;
#X obj 804 536 r DRUMMER_DONE;
#X obj 934 513 r COPPER;
#X obj 984 536 r COPPER_DONE;
#X obj 1114 513 r YHOSE;
#X obj 1164 536 r YHOSE_DONE;
#X obj 564 243 r ALUMI_A;
#X obj 614 266 r ALUMI_A_DONE;
#X obj 204 513 r TANKER_H;
#X obj 254 536 r TANKER_H_DONE;
#X msg 744 452 \; world_energy \$2 \$1;
#X obj 744 429 pack f f;
#X obj 850 332 loadbang;
#X obj 744 361 snapshot~;
#X msg 744 309 start;
#X msg 794 309 stop;
#X obj 789 386 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 744 384 5 0 0 0 - - -;
#X obj 850 368 t b b;
#X obj 789 406 metro 50;
#X obj 744 338 ear~ 2000 10000;
#X obj 744 243 r ALUMI_B;
#X obj 794 266 r ALUMI_B_DONE;
#X msg 384 722 \; world_energy \$2 \$1;
#X obj 384 699 pack f f;
#X obj 490 602 loadbang;
#X obj 384 631 snapshot~;
#X msg 384 579 start;
#X msg 434 579 stop;
#X obj 429 656 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 384 654 5 0 0 0 - - -;
#X obj 490 638 t b b;
#X obj 429 676 metro 50;
#X obj 384 608 ear~ 2000 10000;
#X obj 384 513 r TANKER_S;
#X obj 434 536 r TANKER_S_DONE;
#X msg 877 411 4;
#X msg 1057 411 5;
#X msg 1237 411 6;
#X msg 157 681 7;
#X msg 337 681 8;
#X msg 517 681 9;
#X msg 707 681 10;
#X msg 887 681 11;
#X msg 1067 681 12;
#X msg 1247 681 13;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_sequence 20 float 3;
#A 0 0.38 0.5 0.120001 0.140001 0.8 0.76 0.84 1 0.16 0.6 0.5 0.54 0.76
0.98 0.74 0.18 0.34 0.44 0.9 0.600001;
#X coords 0 2 20 0 200 100 1 0 0;
#X restore 764 36 graph;
#X obj 1065 75 f;
#X obj 1098 75 + 1;
#X obj 1065 98 mod 20;
#X floatatom 1065 121 5 0 0 0 - - -;
#X obj 1065 143 tabread we_sequence;
#X obj 1045 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X floatatom 1065 166 5 0 0 0 - - -;
#X obj 448 183 *;
#X obj 1045 52 metro 60000;
#X obj 1045 32 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 1045 9 loadbang;
#X obj 1065 188 s E_SEQ;
#X msg 1167 66 \; we_sequence const 1;
#X obj 764 136 hradio 10 1 0 20 empty empty empty 0 -8 0 10 -257985
-4160 -1 18;
#X obj 204 406 * 0.2;
#X obj 384 406 * 0.25;
#X obj 204 675 * 0.3;
#N canvas 84 89 450 300 backup 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_sequence_backup 20 float 3;
#A 0 0.885714 1 0.685714 1 0.514286 1 0.485714 1 1 0.6 0.585714 0.642857
1 1 0.842857 1 0.857143 1 1 0.885714;
#X coords 0 1 20 0 200 70 1 0 0;
#X restore 22 32 graph;
#N canvas 0 50 450 250 (subpatch) 0;
#X array we_sequence.backup 20 float 3;
#A 0 1 0.91 0.91 0.799999 0.79 0.78 0.73 0.66 1 0.91 0.87 0.85 0.64
0.66 1 1 1 0.8 0.8 1;
#X coords 0 1 20 0 200 100 1 0 0;
#X restore 195 141 graph;
#X restore 137 152 pd backup sequences;
#X obj 1114 676 * 0.2;
#X obj 754 676 * 0.25;
#X obj 24 676 * 0.2;
#X msg 1294 722 \; world_energy \$2 \$1;
#X obj 1294 699 pack f f;
#X obj 1400 602 loadbang;
#X obj 1294 631 snapshot~;
#X msg 1294 579 start;
#X msg 1344 579 stop;
#X obj 1339 656 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X floatatom 1294 654 5 0 0 0 - - -;
#X obj 1400 638 t b b;
#X obj 1339 676 metro 50;
#X obj 1294 608 ear~ 2000 10000;
#X obj 1294 513 r TISSUE;
#X obj 1344 536 r TISSUE_DONE;
#X msg 1427 681 14;
#X obj 744 406 * 0.35;
#X obj 565 406 * 0.3;
#X obj 700 172 line;
#X floatatom 700 193 5 0 0 0 - - -;
#X msg 700 151 \$1 10000;
#X obj 924 406 * 0.35;
#X obj 700 213 s E_SEQ_line;
#X obj 1007 220 bng 15 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 362 29 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 362 70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 351 95 \; pd dsp \$1;
#X obj 362 49 == 0;
#X text 871 153 12;
#X obj 937 189 sel 11 12 13 14 15;
#X obj 574 676 * 0.2;
#X obj 1104 406 * 0.15;
#X obj 1294 676 * 0.25;
#X obj 384 676 * 0.2;
#X connect 0 0 17 0;
#X connect 1 0 16 0;
#X connect 4 0 3 0;
#X connect 5 0 4 1;
#X connect 6 0 38 0;
#X connect 7 0 6 2;
#X connect 10 0 6 0;
#X connect 11 0 21 0;
#X connect 13 0 14 0;
#X connect 14 0 10 0;
#X connect 14 1 7 0;
#X connect 14 1 9 0;
#X connect 15 0 19 0;
#X connect 16 0 37 0;
#X connect 17 0 37 0;
#X connect 18 0 35 0;
#X connect 19 0 20 0;
#X connect 20 0 4 0;
#X connect 21 0 18 0;
#X connect 21 1 5 0;
#X connect 23 0 22 0;
#X connect 24 0 30 0;
#X connect 25 0 29 0;
#X connect 26 0 36 0;
#X connect 27 0 36 0;
#X connect 28 0 34 0;
#X connect 29 0 225 0;
#X connect 30 0 28 0;
#X connect 30 1 33 0;
#X connect 31 0 26 0;
#X connect 32 0 27 0;
#X connect 33 0 23 1;
#X connect 34 0 25 0;
#X connect 35 0 15 0;
#X connect 36 0 25 0;
#X connect 37 0 15 0;
#X connect 38 0 218 0;
#X connect 39 0 40 0;
#X connect 42 0 41 0;
#X connect 43 0 49 0;
#X connect 44 0 48 0;
#X connect 45 0 51 0;
#X connect 46 0 51 0;
#X connect 47 0 50 0;
#X connect 48 0 226 0;
#X connect 49 0 47 0;
#X connect 49 1 54 0;
#X connect 50 0 44 0;
#X connect 51 0 44 0;
#X connect 52 0 45 0;
#X connect 53 0 46 0;
#X connect 54 0 42 1;
#X connect 56 0 55 0;
#X connect 57 0 63 0;
#X connect 58 0 62 0;
#X connect 59 0 65 0;
#X connect 60 0 65 0;
#X connect 61 0 64 0;
#X connect 62 0 247 0;
#X connect 63 0 61 0;
#X connect 63 1 66 0;
#X connect 64 0 58 0;
#X connect 65 0 58 0;
#X connect 66 0 56 1;
#X connect 68 0 67 0;
#X connect 69 0 75 0;
#X connect 70 0 74 0;
#X connect 71 0 77 0;
#X connect 72 0 77 0;
#X connect 73 0 76 0;
#X connect 74 0 251 0;
#X connect 75 0 73 0;
#X connect 75 1 201 0;
#X connect 76 0 70 0;
#X connect 77 0 70 0;
#X connect 78 0 71 0;
#X connect 79 0 72 0;
#X connect 81 0 80 0;
#X connect 82 0 88 0;
#X connect 83 0 87 0;
#X connect 84 0 90 0;
#X connect 85 0 90 0;
#X connect 86 0 89 0;
#X connect 87 0 261 0;
#X connect 88 0 86 0;
#X connect 88 1 202 0;
#X connect 89 0 83 0;
#X connect 90 0 83 0;
#X connect 91 0 84 0;
#X connect 92 0 85 0;
#X connect 94 0 93 0;
#X connect 95 0 101 0;
#X connect 96 0 100 0;
#X connect 97 0 114 0;
#X connect 98 0 114 0;
#X connect 99 0 112 0;
#X connect 100 0 231 0;
#X connect 101 0 99 0;
#X connect 101 1 203 0;
#X connect 103 0 102 0;
#X connect 104 0 110 0;
#X connect 105 0 109 0;
#X connect 106 0 113 0;
#X connect 107 0 113 0;
#X connect 108 0 111 0;
#X connect 109 0 227 0;
#X connect 110 0 108 0;
#X connect 110 1 204 0;
#X connect 111 0 105 0;
#X connect 112 0 96 0;
#X connect 113 0 105 0;
#X connect 114 0 96 0;
#X connect 116 0 115 0;
#X connect 117 0 123 0;
#X connect 118 0 122 0;
#X connect 119 0 125 0;
#X connect 120 0 125 0;
#X connect 121 0 124 0;
#X connect 122 0 260 0;
#X connect 123 0 121 0;
#X connect 123 1 206 0;
#X connect 124 0 118 0;
#X connect 125 0 118 0;
#X connect 127 0 126 0;
#X connect 128 0 134 0;
#X connect 129 0 133 0;
#X connect 130 0 136 0;
#X connect 131 0 136 0;
#X connect 132 0 135 0;
#X connect 133 0 230 0;
#X connect 134 0 132 0;
#X connect 134 1 207 0;
#X connect 135 0 129 0;
#X connect 136 0 129 0;
#X connect 138 0 137 0;
#X connect 139 0 145 0;
#X connect 140 0 144 0;
#X connect 141 0 147 0;
#X connect 142 0 147 0;
#X connect 143 0 146 0;
#X connect 144 0 148 0;
#X connect 145 0 143 0;
#X connect 145 1 208 0;
#X connect 146 0 140 0;
#X connect 147 0 140 0;
#X connect 148 0 138 0;
#X connect 150 0 149 0;
#X connect 151 0 157 0;
#X connect 152 0 156 0;
#X connect 153 0 159 0;
#X connect 154 0 159 0;
#X connect 155 0 158 0;
#X connect 156 0 229 0;
#X connect 157 0 155 0;
#X connect 157 1 209 0;
#X connect 158 0 152 0;
#X connect 159 0 152 0;
#X connect 160 0 97 0;
#X connect 161 0 98 0;
#X connect 162 0 119 0;
#X connect 163 0 120 0;
#X connect 164 0 130 0;
#X connect 165 0 131 0;
#X connect 166 0 141 0;
#X connect 167 0 142 0;
#X connect 168 0 153 0;
#X connect 169 0 154 0;
#X connect 170 0 59 0;
#X connect 171 0 60 0;
#X connect 172 0 106 0;
#X connect 173 0 107 0;
#X connect 175 0 174 0;
#X connect 176 0 182 0;
#X connect 177 0 181 0;
#X connect 178 0 184 0;
#X connect 179 0 184 0;
#X connect 180 0 183 0;
#X connect 181 0 246 0;
#X connect 182 0 180 0;
#X connect 182 1 200 0;
#X connect 183 0 177 0;
#X connect 184 0 177 0;
#X connect 185 0 178 0;
#X connect 186 0 179 0;
#X connect 188 0 187 0;
#X connect 189 0 195 0;
#X connect 190 0 194 0;
#X connect 191 0 197 0;
#X connect 192 0 197 0;
#X connect 193 0 196 0;
#X connect 194 0 263 0;
#X connect 195 0 193 0;
#X connect 195 1 205 0;
#X connect 196 0 190 0;
#X connect 197 0 190 0;
#X connect 198 0 191 0;
#X connect 199 0 192 0;
#X connect 200 0 175 1;
#X connect 201 0 68 1;
#X connect 202 0 81 1;
#X connect 203 0 94 1;
#X connect 204 0 103 1;
#X connect 205 0 188 1;
#X connect 206 0 116 1;
#X connect 207 0 127 1;
#X connect 208 0 138 1;
#X connect 209 0 150 1;
#X connect 211 0 212 0;
#X connect 211 0 213 0;
#X connect 212 0 211 1;
#X connect 213 0 214 0;
#X connect 214 0 215 0;
#X connect 214 0 224 0;
#X connect 214 0 259 0;
#X connect 215 0 217 0;
#X connect 216 0 211 0;
#X connect 217 0 222 0;
#X connect 217 0 250 0;
#X connect 218 0 12 0;
#X connect 219 0 216 0;
#X connect 220 0 219 0;
#X connect 221 0 220 0;
#X connect 225 0 23 0;
#X connect 226 0 42 0;
#X connect 227 0 103 0;
#X connect 229 0 150 0;
#X connect 230 0 127 0;
#X connect 231 0 94 0;
#X connect 233 0 232 0;
#X connect 234 0 240 0;
#X connect 235 0 239 0;
#X connect 236 0 242 0;
#X connect 237 0 242 0;
#X connect 238 0 241 0;
#X connect 239 0 262 0;
#X connect 240 0 238 0;
#X connect 240 1 245 0;
#X connect 241 0 235 0;
#X connect 242 0 235 0;
#X connect 243 0 236 0;
#X connect 244 0 237 0;
#X connect 245 0 233 1;
#X connect 246 0 175 0;
#X connect 247 0 56 0;
#X connect 248 0 249 0;
#X connect 249 0 218 1;
#X connect 249 0 252 0;
#X connect 250 0 248 0;
#X connect 251 0 68 0;
#X connect 255 0 256 0;
#X connect 259 0 253 0;
#X connect 259 1 253 0;
#X connect 259 2 253 0;
#X connect 259 3 253 0;
#X connect 259 4 253 0;
#X connect 260 0 116 0;
#X connect 261 0 81 0;
#X connect 262 0 233 0;
#X connect 263 0 188 0;
#X coords 0 -1 1 1 220 100 1 5 5;
#X restore 7 7 pd;
#X obj 263 571 radio_yellow;
#X obj 240 321 radio_rounder;
#X obj 123 382 radio_suitcase;
#X obj 672 538 radio_copper;
#X obj 683 342 radio_drummer;
#X obj 684 14 radio_flasher;
#X obj 412 165 radio_yellowhose;
#X obj 455 8 radio_tanker_head;
#X obj 558 8 radio_tanker_side;
#X obj 11 484 radio_tissue;
#X floatatom 307 9 5 0 0 0 r:E_SEQ_line E_SEQ_line -;
#X obj 517 165 radio_whitehose;
#X restore 371 319 pd crickets;
#X obj 491 25 loadbang;
#X obj 221 399 tgl 25 0 WORLD_SLEEP empty WORLD_SLEEP 27 7 0 14 -258113
-262144 -258113 0 1;
#X floatatom 221 380 5 0 0 1 WORLD_ENERGY WORLD_ENERGY -;
#X obj 535 410 bng 25 250 50 0 ACT0 empty ACT0 27 7 0 15 -4034 -4160
-1;
#X obj 221 333 tgl 25 0 ONOFF empty s:ONOFF 27 7 0 15 -4032 -159808
-1 0 1;
#X msg 221 310 1;
#X obj 231 194 tgl 15 0 empty empty connected? 17 7 0 10 -262144 -1
-1 1 1;
#X obj 465 380 radio_toner;
#X msg 285 436 1;
#X obj 317 436 bng 20 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
22 7 0 10 -257985 -1 -1;
#X msg 195 93 open 2;
#X msg 210 58 devicename /dev/tty.wchusbserial1410 \, baud 57600 \,
pollintervall 1 \, verbose 1;
#N canvas 1 212 450 300 planets 0;
#X obj 53 43 radio_earth;
#X obj 169 43 radio_callisto;
#X obj 283 44 radio_ganymede;
#X restore 374 361 pd planets;
#X msg 249 98 devicename /dev/ttyUSB0 \, baud 57600 \, pollintervall
1 \, verbose 1;
#N canvas 207 353 419 308 timer 0;
#X obj 109 17 loadbang;
#X obj 109 63 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 109 86 metro 1000;
#X obj 109 109 time;
#X floatatom 109 132 5 0 0 1 hour_(24hr) - -;
#X obj 109 177 change;
#X obj 109 200 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 269 223 sel 1 0;
#X msg 269 246 1;
#X floatatom 269 269 5 0 0 0 s:vol_max - VMAX;
#X msg 299 246 0.1;
#X obj 109 40 t b b;
#X msg 210 58 -1;
#X obj 109 243 outlet;
#X obj 109 220 == 0;
#X obj 109 154 expr $f1 >= 12 && $f1 < 19;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 15 0;
#X connect 5 0 6 0;
#X connect 6 0 14 0;
#X connect 7 0 8 0;
#X connect 7 1 10 0;
#X connect 8 0 9 0;
#X connect 10 0 9 0;
#X connect 11 0 1 0;
#X connect 11 1 12 0;
#X connect 12 0 5 0;
#X connect 14 0 13 0;
#X connect 15 0 5 0;
#X restore 468 443 pd timer;
#X connect 0 0 18 0;
#X connect 1 0 0 1;
#X connect 4 0 16 0;
#X connect 5 0 10 0;
#X connect 5 1 43 0;
#X connect 6 0 5 1;
#X connect 7 0 5 1;
#X connect 8 0 5 0;
#X connect 9 0 8 0;
#X connect 9 0 14 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 11 0 29 0;
#X connect 14 0 13 0;
#X connect 15 0 14 1;
#X connect 17 0 0 0;
#X connect 17 0 4 0;
#X connect 23 0 24 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 28 0 34 0;
#X connect 28 1 23 0;
#X connect 29 0 31 0;
#X connect 30 0 29 1;
#X connect 34 0 23 0;
#X connect 37 0 50 0;
#X connect 42 0 41 0;
#X connect 45 0 38 0;
#X connect 47 0 5 1;
#X connect 48 0 5 1;
#X connect 50 0 5 1;
#X connect 51 0 38 0;

239
puredata/radio_theatre_0.forest-of-unknown/pingpong.pd Normal file
View file

@ -0,0 +1,239 @@
#N canvas 1 89 450 300 12;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff14 10 float 3;
#A 0 20.1904 0 -0.238235 0.238026 0 0 14.5238 28.0955 23.0955 3.57126
;
#X coords 0 25 10 0 150 105 1 0 0;
#X restore 191 37 graph;
#X obj 51 201 tgl 20 0 empty empty empty 17 7 0 10 -262130 -1 -1 0
1;
#X obj 194 230 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 0
1;
#X obj 995 70 until;
#X msg 931 69 100;
#X obj 995 93 f;
#X obj 1028 93 + 1;
#X floatatom 995 140 5 0 0 0 - - -;
#X obj 941 237 tabwrite riff14;
#X obj 995 209 t b a;
#X floatatom 995 185 5 0 0 0 - - -;
#X obj 931 92 t a b;
#X msg 958 121 0;
#X obj 995 162 + 1;
#X msg 941 196 0;
#X obj 51 433 s NOTE;
#X obj 232 730 dac~ 1;
#X obj 214 586 mx~;
#X obj 292 465 >~ 0.01;
#X obj 293 407 phasor~ 2;
#X text 935 41 fill array with a number;
#X text 924 175 with '0';
#X text 1023 163 from 1 \, 100 times;
#X obj 292 552 scope~ 136 120 256 3 128 -1 1 0 0 1 0.2 0 0 0 223 223
223 255 255 255 0 empty;
#X obj 51 328 riff 1 3001;
#X msg 160 181 300 5000;
#X floatatom 316 379 5 0 0 0 - - -;
#X obj 307 299 * -1;
#X floatatom 307 322 5 0 0 0 - - -;
#X obj 51 226 retro 5000 15000;
#X obj 307 276 - 15000;
#X obj 316 356 * 0.0005;
#X obj 547 209 tgl 20 0 empty empty empty 17 7 0 10 -262130 -1 -1 0
1;
#X obj 677 237 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 0
1;
#X obj 547 368 s NOTE;
#X obj 547 268 riff 800 20200;
#N canvas 1 89 450 278 (subpatch) 0;
#X array tissue 50 float 3;
#A 0 -1.19209e-07 -0.00952399 -0.0952388 -0.114287 -0.104763 -0.0952388
-0.0571433 0.0190476 0.0761908 0.0857147 0.0761908 0.0571431 0.0190476
-0.0571433 -0.0952388 -0.0952388 -0.0761911 -0.00952399 0.0476192 0.0952386
0.114286 0.114286 0.0952386 0.066667 -0.0857149 -0.0952388 -0.0857149
-0.0666672 -0.0190479 0.0857147 0.0857147 0.066667 0.0285715 -0.0476195
-0.0666672 -0.0666672 -0.0380956 0.0190476 0.0571431 0.0857147 0.0952386
0.0761908 0.0190476 -0.0380956 -0.0761911 -0.0857149 -0.0761911 -0.0761911
-0.0571433 -0.0476195;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 534 37 graph;
#X msg 594 200 symbol tissue;
#X obj 739 336 unpack f f;
#X obj 739 359 s X1;
#X obj 796 359 s X2;
#X obj 547 234 metro 1000;
#X msg 739 314 \$1 1000;
#X msg 98 295 symbol ppong;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ppong 50 float 3;
#A 0 0.942858 0.914287 0.8381 0.78096 0.733343 0.704773 0.685726 0.685726
0.685726 0.685726 0.695249 0.75239 0.790483 0.800007 0.800007 0.80953
0.80953 0.819053 0.800007 0.771437 0.72382 0.685726 0.657156 0.638109
0.628586 0.619062 0.619062 0.619062 0.647632 0.666679 0.676203 0.666679
0.647632 0.628586 0.619062 0.590492 0.561922 0.552399 0.533352 0.533352
0.523828 0.523828 0.523828 0.571445 0.628586 0.628586 0.638109 0.638109
0.638109 0.647632;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 943 368 graph;
#X obj 849 500 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 1077 615 del;
#X obj 1077 636 spigot;
#X obj 849 430 tgl 15 0 empty empty empty 17 7 0 10 -4034 -1 -1 0 1
;
#X obj 849 470 t b f b;
#X msg 981 488 symbol ppong;
#X obj 769 577 f;
#X obj 769 600 == 0;
#X floatatom 709 613 5 0 0 0 - - -;
#X obj 709 675 sig~;
#X obj 594 733 dac~ 1;
#X obj 934 515 riff 5000 1031;
#X obj 849 528 t b b;
#X obj 846 587 del 30;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ppong3 50 float 3;
#A 0 0.257143 0.247619 0.238096 0.228573 0.219049 0.209526 0.200002
0.200002 0.190479 0.180956 0.171432 0.161909 0.152386 0.142862 0.142862
0.133339 0.123815 0.114292 0.114292 0.104769 0.104769 0.104769 0.104769
0.104769 0.104769 0.0952452 0.0952452 0.0952452 0.0857218 0.0761984
0.0761984 0.066675 0.066675 0.066675 0.0571516 0.0571516 0.0571516
0.0571516 0.0571516 0.0571516 0.0571516 0.0571516 0.0571516 0.0571516
0.0571516 0.0571516 0.0571516 0.0571516 0.0571516 0.0571516;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 1243 368 graph;
#X obj 1149 430 tgl 15 0 empty empty empty 17 7 0 10 -4034 -1 -1 0
1;
#X msg 1281 487 symbol ppong;
#X obj 846 616 del 130;
#X obj 846 645 del 230;
#X obj 614 589 mx~;
#X obj 709 635 * 0.1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ppong2 50 float 3;
#A 0 0.942858 0.6 0.590476 0.580952 0.561904 0.552381 0.533333 0.533333
0.514285 0.514285 0.504761 0.495237 0.495237 0.47619 0.47619 0.47619
0.47619 0.47619 0.485713 0.485713 0.504761 0.533333 0.552381 0.580952
0.6 0.638095 0.666667 0.685715 0.714286 0.733334 0.752382 0.761906
0.77143 0.780953 0.780953 0.790477 0.790477 0.790477 0.790477 0.790477
0.790477 0.790477 0.790477 0.780953 0.780953 0.780953 0.77143 0.77143
0.761906 0.733334;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 1093 248 graph;
#X msg 1001 468 symbol ppong2;
#X obj 906 646 del 100;
#X obj 906 675 del 20;
#X obj 906 617 del 160;
#X obj 906 706 del 200;
#X obj 906 736 del 70;
#X obj 966 746 del 70;
#X obj 718 493 random 3;
#X obj 718 516 sel 0 1 2;
#X obj 675 551 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 705 563 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 734 569 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 966 627 del 78;
#X obj 966 656 del 56;
#X obj 966 685 del 190;
#X obj 966 716 del 20;
#X obj 1149 450 metro 1000;
#X obj 1234 515 riff 3 1031;
#X floatatom 1266 705 5 0 0 0 - - -;
#X obj 1314 655 * 0.1;
#X connect 1 0 29 0;
#X connect 2 0 24 3;
#X connect 3 0 5 0;
#X connect 4 0 11 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 5 1;
#X connect 7 0 13 0;
#X connect 9 0 14 0;
#X connect 9 1 8 1;
#X connect 10 0 9 0;
#X connect 11 0 3 0;
#X connect 11 1 12 0;
#X connect 12 0 5 0;
#X connect 13 0 10 0;
#X connect 14 0 8 0;
#X connect 17 0 16 0;
#X connect 18 0 23 0;
#X connect 19 0 18 0;
#X connect 24 0 15 0;
#X connect 25 0 29 1;
#X connect 26 0 19 0;
#X connect 27 0 28 0;
#X connect 28 0 31 0;
#X connect 29 0 24 0;
#X connect 29 1 30 0;
#X connect 30 0 27 0;
#X connect 31 0 26 0;
#X connect 32 0 41 0;
#X connect 33 0 35 3;
#X connect 35 0 34 0;
#X connect 35 1 42 0;
#X connect 37 0 35 1;
#X connect 38 0 39 0;
#X connect 38 1 40 0;
#X connect 41 0 35 0;
#X connect 42 0 38 0;
#X connect 43 0 24 1;
#X connect 45 0 56 0;
#X connect 45 0 57 0;
#X connect 46 0 47 0;
#X connect 47 0 45 0;
#X connect 48 0 49 0;
#X connect 49 0 45 0;
#X connect 49 1 47 1;
#X connect 49 2 50 0;
#X connect 50 0 56 1;
#X connect 51 0 52 0;
#X connect 51 0 53 0;
#X connect 52 0 51 1;
#X connect 53 0 65 0;
#X connect 54 0 64 0;
#X connect 56 1 46 0;
#X connect 57 0 51 0;
#X connect 57 1 74 0;
#X connect 58 0 51 0;
#X connect 58 0 62 0;
#X connect 60 0 83 0;
#X connect 61 0 84 1;
#X connect 62 0 63 0;
#X connect 62 0 51 0;
#X connect 63 0 51 0;
#X connect 64 0 55 0;
#X connect 65 0 54 0;
#X connect 67 0 56 1;
#X connect 68 0 51 0;
#X connect 68 0 69 0;
#X connect 69 0 51 0;
#X connect 69 0 71 0;
#X connect 70 0 51 0;
#X connect 70 0 68 0;
#X connect 71 0 51 0;
#X connect 71 0 72 0;
#X connect 72 0 51 0;
#X connect 73 0 51 0;
#X connect 74 0 75 0;
#X connect 75 0 58 0;
#X connect 75 0 76 0;
#X connect 75 1 70 0;
#X connect 75 1 77 0;
#X connect 75 2 78 0;
#X connect 75 2 79 0;
#X connect 79 0 51 0;
#X connect 79 0 80 0;
#X connect 80 0 51 0;
#X connect 80 0 81 0;
#X connect 81 0 51 0;
#X connect 81 0 82 0;
#X connect 82 0 73 0;
#X connect 82 0 51 0;
#X connect 83 0 84 0;
#X connect 84 1 86 0;
#X connect 85 0 64 1;
#X connect 86 0 85 0;

25
puredata/radio_theatre_0.forest-of-unknown/poly.pd Normal file
View file

@ -0,0 +1,25 @@
#N canvas 803 89 525 569 10;
#X declare -path ofelia/abs;
#X obj 18 64 ofWindow;
#X obj 18 18 loadbang;
#X obj 358 18 declare -path ofelia/abs;
#X msg 18 41 setPosition 0 0 \, setSize 800 800 \, create;
#X obj 18 98 ofDraw;
#X floatatom 18 121 5 0 0 0 - - -;
#X obj 18 143 max 3;
#X obj 18 166 min 10;
#X obj 18 220 ofelia f \; ofNoFill() \; local n = a \; local angleChangePerPt
= OF_TWO_PI / n \; local radius = ofGetWidth()/2 - 10 \; local origx
= ofGetWidth()/2 \; local origy = ofGetHeight()/2 \; local angle =
-OF_TWO_PI / 4 \; ofSetHexColor(0xa16bca) \; ofBeginShape() \; for
i = 0 \, n do \; local x = origx + radius * math.cos(angle) \; local
y = origy + radius * math.sin(angle) \; ofVertex(x \, y) \; angle =
angle + angleChangePerPt \; end \; ofEndShape() \;;
#X floatatom 18 189 5 0 0 0 - - -;
#X connect 1 0 3 0;
#X connect 3 0 0 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 9 0;
#X connect 9 0 8 0;

344
puredata/radio_theatre_0.forest-of-unknown/polygonexample.lua Normal file
View file

@ -0,0 +1,344 @@
if type(window) ~= "userdata" then
window = ofWindow()
end
local clock = ofClock(this, "setup")
local DV = class()
function DV:__init(x, y)
self.x = x
self.y = y
self.bBeingDragged = false
self.bOver = false
self.radius = 4
end
local nCurveVertexes = 0
local curveVertices = {}
function M.new()
ofWindow.addListener("setup", this)
ofWindow.addListener("draw", this)
ofWindow.addListener("mouseMoved", this)
ofWindow.addListener("mouseDragged", this)
ofWindow.addListener("mousePressed", this)
ofWindow.addListener("mouseReleased", this)
window:setPosition(30, 100)
window:setSize(1024, 768)
if ofWindow.exists then
clock:delay(0)
else
window:create()
end
end
function M.free()
window:destroy()
ofWindow.removeListener("setup", this)
ofWindow.removeListener("draw", this)
ofWindow.removeListener("mouseMoved", this)
ofWindow.removeListener("mouseDragged", this)
ofWindow.removeListener("mousePressed", this)
ofWindow.removeListener("mouseReleased", this)
end
function M.setup()
ofSetWindowTitle("polygon example")
ofBackground(255, 255, 255, 255)
nCurveVertexes = 7
curveVertices = {DV(326, 209), DV(306, 279), DV(265, 331), DV(304, 383), DV(374, 383), DV(418, 209), DV(345, 279)}
end
function M.draw()
ofFill()
--[[---------------------------------------------------------------
draw a star
use poly winding odd, the default rule
--]]---------------------------------------------------------------
ofSetHexColor(0xe0be21)
ofSetPolyMode(OF_POLY_WINDING_ODD)
ofBeginShape()
ofVertex(200, 135)
ofVertex(15, 135)
ofVertex(165, 25)
ofVertex(105, 200)
ofVertex(50, 25)
ofEndShape()
--[[---------------------------------------------------------------
draw a star
use poly winding nonzero
--]]---------------------------------------------------------------
ofSetHexColor(0xb5de10)
ofSetPolyMode(OF_POLY_WINDING_NONZERO)
ofBeginShape()
ofVertex(400, 135)
ofVertex(215, 135)
ofVertex(365, 25)
ofVertex(305, 200)
ofVertex(250, 25)
ofEndShape()
--[[---------------------------------------------------------------
draw a star dynamically
use the mouse position as a pct
to calc nPoints and internal point radius
--]]---------------------------------------------------------------
local xPct = ofGetMouseX() / ofGetWidth()
local yPct = ofGetMouseY() / ofGetHeight()
local nTips = 5 + xPct * 60
local nStarPts = math.min(nTips * 2, 100)
local angleChangePerPt = OF_TWO_PI / nStarPts
local innerRadius = 0 + yPct * 80
local outerRadius = 80
local origx = 525
local origy = 100
local angle = 0
ofSetHexColor(0xa16bca)
ofBeginShape()
for i = 0, nStarPts do
if i % 2 == 0 then
local x = origx + innerRadius * math.cos(angle)
local y = origy + innerRadius * math.sin(angle)
ofVertex(x, y)
else
local x = origx + outerRadius * math.cos(angle)
local y = origy + outerRadius * math.sin(angle)
ofVertex(x, y)
end
angle = angle + angleChangePerPt
end
ofEndShape()
--[[---------------------------------------------------------------
poylgon of random points
lots of self intersection, 500 pts is a good stress test
--]]---------------------------------------------------------------
ofSetHexColor(0x0cb0b6)
ofSetPolyMode(OF_POLY_WINDING_ODD)
ofBeginShape()
for i = 1, 10 do
ofVertex(ofRandom(650, 850), ofRandom(20, 200))
end
ofEndShape()
--[[---------------------------------------------------------------
use sin cos and time to make some spirally shape
--]]---------------------------------------------------------------
ofPushMatrix()
ofTranslate(100, 300, 0)
ofSetHexColor(0xff2220)
ofFill()
ofSetPolyMode(OF_POLY_WINDING_ODD)
ofBeginShape()
local angleStep = OF_TWO_PI / (100 + math.sin(ofGetElapsedTimef() / 5) * 60)
local radiusAdder = 0.5
local radius = 0
for i = 1, 200 do
local anglef = (i) * angleStep
local x = radius * math.cos(anglef)
local y = radius * math.sin(anglef)
ofVertex(x, y)
radius = radius + radiusAdder
end
ofEndShape(OF_CLOSE)
ofPopMatrix()
--[[---------------------------------------------------------------
ofCurveVertex
because it uses catmul rom splines, we need to repeat the first and last
items so the curve actually goes through those points
--]]---------------------------------------------------------------
ofSetHexColor(0x2bdbe6)
ofBeginShape()
for i = 1, nCurveVertexes do
if i == 1 then
ofCurveVertex(curveVertices[1].x, curveVertices[1].y)
ofCurveVertex(curveVertices[1].x, curveVertices[1].y)
elseif i == nCurveVertexes then
ofCurveVertex(curveVertices[i].x, curveVertices[i].y)
ofCurveVertex(curveVertices[1].x, curveVertices[1].y)
ofCurveVertex(curveVertices[1].x, curveVertices[1].y)
else
ofCurveVertex(curveVertices[i].x, curveVertices[i].y)
end
end
ofEndShape()
ofEnableAlphaBlending()
ofNoFill()
ofSetColor(0, 0, 0, 40)
ofBeginShape()
for i = 1, nCurveVertexes do
ofVertex(curveVertices[i].x, curveVertices[i].y)
end
ofEndShape(true)
ofSetColor(0, 0, 0, 80)
for i = 1, nCurveVertexes do
if curveVertices[i].bOver == true then
ofFill()
else
ofNoFill()
end
ofDrawCircle(curveVertices[i].x, curveVertices[i].y, 4)
end
ofDisableAlphaBlending()
--[[---------------------------------------------------------------
ofBezierVertex
with ofBezierVertex we can draw a curve from the current vertex
through the the next three vertexes we pass in.
(two control points and the final bezier point)
--]]---------------------------------------------------------------
local x0 = 500
local y0 = 300
local x1 = 550 + 50 * math.cos(ofGetElapsedTimef() * 1.0)
local y1 = 300 + 100 * math.sin(ofGetElapsedTimef() / 3.5)
local x2 = 600 + 30 * math.cos(ofGetElapsedTimef() * 2.0)
local y2 = 300 + 100 * math.sin(ofGetElapsedTimef())
local x3 = 650
local y3 = 300
ofFill()
ofSetHexColor(0xFF9933)
ofBeginShape()
ofVertex(x0, y0)
ofBezierVertex(x1, y1, x2, y2, x3, y3)
ofEndShape()
ofEnableAlphaBlending()
ofFill()
ofSetColor(0, 0, 0, 40)
ofDrawCircle(x0, y0, 4)
ofDrawCircle(x1, y1, 4)
ofDrawCircle(x2, y2, 4)
ofDrawCircle(x3, y3, 4)
ofDisableAlphaBlending()
--[[---------------------------------------------------------------
holes / ofNextContour
with ofNextContour we can create multi-contour shapes
this allows us to draw holes, for example...
--]]---------------------------------------------------------------
ofFill()
ofSetHexColor(0xd3ffd3)
ofDrawRectangle(80, 480, 140, 70)
ofSetHexColor(0xff00ff)
ofBeginShape()
ofVertex(100, 500)
ofVertex(180, 550)
ofVertex(100, 600)
ofNextContour(true)
ofVertex(120, 520)
ofVertex(160, 550)
ofVertex(120, 580)
ofEndShape(true)
--[[---------------------------------------------------------------
CSG / ofNextContour
with different winding rules, you can even use ofNextContour to
perform constructive solid geometry
--]]---------------------------------------------------------------
ofNoFill()
ofPushMatrix()
ofSetPolyMode(OF_POLY_WINDING_ODD)
ofBeginShape()
ofVertex(300, 500)
ofVertex(380, 550)
ofVertex(300, 600)
ofNextContour(true)
for i = 1, 20 do
local anglef = (i / 19.0) * OF_TWO_PI
local x = 340 + 30 * math.cos(anglef)
local y = 550 + 30 * math.sin(anglef)
ofVertex(x, y)
radius = radius + radiusAdder
end
ofEndShape(true)
ofTranslate(100, 0, 0)
ofSetPolyMode(OF_POLY_WINDING_NONZERO)
ofBeginShape()
ofVertex(300, 500)
ofVertex(380, 550)
ofVertex(300, 600)
ofNextContour(true)
for i = 1, 20 do
local anglef = (i / 19.0) * OF_TWO_PI
local x = 340 + 30 * math.cos(anglef)
local y = 550 + 30 * math.sin(anglef)
ofVertex(x, y)
radius = radius + radiusAdder
end
ofEndShape(true)
ofTranslate(100, 0, 0)
ofSetPolyMode(OF_POLY_WINDING_ABS_GEQ_TWO)
ofBeginShape()
ofVertex(300, 500)
ofVertex(380, 550)
ofVertex(300, 600)
ofNextContour(true)
for i = 1, 20 do
local anglef = (i / 19.0) * OF_TWO_PI
local x = 340 + 30 * math.cos(anglef)
local y = 550 + 30 * math.sin(anglef)
ofVertex(x, y)
radius = radius + radiusAdder
end
ofEndShape(true)
ofPopMatrix()
ofSetHexColor(0x000000)
ofDrawBitmapString("(a) star"..string.char(10).."winding rule odd", 20, 210)
ofSetHexColor(0x000000)
ofDrawBitmapString("(b) star"..string.char(10).."winding rule nonzero", 220, 210)
ofSetHexColor(0x000000)
ofDrawBitmapString("(c) dynamically"..string.char(10).."created shape", 420, 210)
ofSetHexColor(0x000000)
ofDrawBitmapString("(d) random points"..string.char(10).."poly", 670, 210)
ofSetHexColor(0x000000)
ofDrawBitmapString("(e) fun with sin/cos", 20, 410)
ofSetHexColor(0x000000)
ofDrawBitmapString("(f) ofCurveVertex"..string.char(10).."uses catmull rom"..string.char(10).."to make curved shapes", 220, 410)
ofSetHexColor(0x000000)
ofDrawBitmapString("(g) ofBezierVertex"..string.char(10).."uses bezier to draw curves", 460, 410)
ofSetHexColor(0x000000)
ofDrawBitmapString("(h) ofNextContour"..string.char(10).."allows for holes", 20, 610)
ofSetHexColor(0x000000)
ofDrawBitmapString("(i) ofNextContour"..string.char(10).."can even be used for CSG operations"..string.char(10).."such as union and intersection", 260, 620)
end
function M.mouseMoved(e)
for i = 1, nCurveVertexes do
local diffx = e.x - curveVertices[i].x
local diffy = e.y - curveVertices[i].y
local dist = math.sqrt(diffx * diffx + diffy * diffy)
if dist < curveVertices[i].radius then
curveVertices[i].bOver = true
else
curveVertices[i].bOver = false
end
end
end
function M.mouseDragged(e)
for i = 1, nCurveVertexes do
if curveVertices[i].bBeingDragged == true then
curveVertices[i].x = e.x
curveVertices[i].y = e.y
end
end
end
function M.mousePressed(e)
for i = 1, nCurveVertexes do
local diffx = e.x - curveVertices[i].x
local diffy = e.y - curveVertices[i].y
local dist = math.sqrt(diffx * diffx + diffy * diffy)
if dist < curveVertices[i].radius then
curveVertices[i].bBeingDragged = true
else
curveVertices[i].bBeingDragged = false
end
end
end
function M.mouseReleased(e)
for i = 1, nCurveVertexes do
curveVertices[i].bBeingDragged = false
end
end

334
puredata/radio_theatre_0.forest-of-unknown/radio_alumi_A.pd Normal file
View file

@ -0,0 +1,334 @@
#N canvas 146 93 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 502 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 15 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 225 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 245 metro 50;
#X obj 373 202 loadbang;
#X obj 373 268 v \$0-STATE;
#X obj 373 291 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.54;
#X msg 285 439 0.37;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 676 23 708 510 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.52381 0.552381 0.561905 0.571429 0.495238 0.438095 0.438095
0.409524 0.390476 0.380953 0.771429 0.761905 0.742857 0.714286 0.695239
0.257143 0.238095 0.2 0.190477 0.476191 0.495238 0.533333 0.557142
0.580952 0.599999 0.361905 0.342857 0.32381 0.314286 0.32381 0.733333
0.733333 0.733333 0.714286 0.685715 0.657143 0.247619 0.219048 0.219048
0.2 0.495238 0.52381 0.533334 0.571429 0.571429 0.590476 0.4 0.409524
0.419048 0.419048;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 354 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA1 70 float 3;
#A 0 0.390476 0.438095 0.457142 0.47619 0.504761 0.504761 0.514285
0.533332 0.533332 0.533332 0.52381 0.514286 0.466667 0.438096 0.333335
0.247621 0.200002 0.180954 0.209525 0.304762 0.361905 0.4 0.4 0.409523
0.419047 0.390475 0.371428 0.342857 0.295238 0.247619 0.238095 0.295238
0.419047 0.45238 0.523809 0.55238 0.571427 0.571427 0.561904 0.495237
0.457142 0.257144 0.266668 0.333334 0.409524 0.447618 0.447618 0.447618
0.419047 0.257143 0.323809 0.342856 0.361904 0.361904 0.35238 0.295238
0.257143 0.17143 0.52381 0.561905 0.542857 0.52381 0.466667 0.409524
0.371428 0.399999 0.409523 0.380952 0.380952 0.304762;
#X coords 0 1 70 0 150 105 1 0 0;
#X restore 34 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA2 50 float 3;
#A 0 0.219048 0.247619 0.304764 0.304764 0.428572 0.514286 0.819048
0.066667 0.0857145 0.104762 0.142857 0.180952 0.2 0.228571 0.333335
0.400001 0.44762 0.514286 0.571429 0.819048 0.0190504 0.0285742 0.0476217
0.0571454 0.17143 0.238096 0.276191 0.323811 0.390477 0.485715 0.542857
0.87619 0.0476189 0.0380952 0.104764 0.114288 0.161907 0.238097 0.323811
0.409525 0.409525 0.495239 0.828571 0.0285714 0.0476189 0.0952401 0.228573
0.333334 0.380953 0.733333;
#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.647619 0.533334 0.41905 0.361907 0.304765 0.219051 0.142861
0.095242 0.0666708 0.00952375 0.00952375 0.00952381 0.00952381 0.00952381
0.638095 0.6 0.561905 0.476192 0.419049 0.37143 0.304764 0.257145 0.0952403
0.0190476 0.0190476 0.00952399 0.00952399 0.00952399 0.599997 0.533331
0.447617 0.390475 0.323808 0.257142 0.2 0.142857 2.98023e-07 0.00952405
0.00952405 0.571429 0.52381 0.466668 0.380954 0.304764 0.200001 0.161906
0.114287 0.0666685 0.0190476 -8.34465e-07;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 514 38 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array alumiA0 20 float 3;
#A 0 0.895236 0.799993 0.752371 0.657127 0.628554 0.638079 0.657127
0.752371 0.828566 0.819041 0.819041 0.819041 0.90476 0.857139 0.752371
0.780944 0.819041 0.828566 0.799993 0.733322;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 249 367 graph;
#X obj 74 349 t b b;
#X msg 101 370 0;
#X obj 74 329 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA7 25 float 3;
#A 0 0.590478 0.657145 0.361905 0.61905 0.707939 0.44762 0.550478 0.733333
0.361905 0.485716 0.695241 0.761908 0.485716 0.314286 0.904766 0.552383
0.57143 0.561907 0.438096 0.638098 0.409525 0.419049 0.428572 0.714288
0.514287;
#X coords 0 1 25 0 150 105 1 0 0;
#X restore 673 163 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA5 40 float 3;
#A 0 0.704762 0.695238 0.666666 0.647619 0.628571 0.609523 0.609523
0.590475 0.580952 0.571428 0.542856 0.533332 0.523808 0.495237 0.485713
0.476189 0.476189 0.466665 0.457141 0.447617 0.438094 0.42857 0.419046
0.399998 0.399998 0.361906 0.333334 0.323811 0.314287 0.295239 0.285715
0.276191 0.266667 0.257143 0.238096 0.228572 0.219048 0.2 0.190476
0.180952;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 353 163 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA6 10 float 3;
#A 0 0.828572 0.866667 0.609523 0.742857 0.590475 0.609524 0.695237
0.647618 0.714285 0.638094;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 513 170 graph;
#X obj 42 214 count 7;
#X obj 175 162 loadbang;
#X obj 175 204 s \$0-word-max;
#X obj 81 173 r \$0-word-max;
#X floatatom 81 194 5 0 0 0 - - -;
#X msg 175 183 7;
#X connect 0 0 19 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 13 0 1 0;
#X connect 13 1 14 0;
#X connect 14 0 7 0;
#X connect 15 0 13 0;
#X connect 19 0 2 0;
#X connect 19 0 3 0;
#X connect 20 0 24 0;
#X connect 22 0 23 0;
#X connect 23 0 19 1;
#X connect 24 0 21 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiA 50 float 3;
#A 0 0.647619 0.533334 0.41905 0.361907 0.304765 0.219051 0.142861
0.095242 0.0666708 0.00952375 0.00952375 0.00952381 0.00952381 0.00952381
0.638095 0.6 0.561905 0.476192 0.419049 0.37143 0.304764 0.257145 0.0952403
0.0190476 0.0190476 0.00952399 0.00952399 0.00952399 0.599997 0.533331
0.447617 0.390475 0.323808 0.257142 0.2 0.142857 2.98023e-07 0.00952405
0.00952405 0.571429 0.52381 0.466668 0.380954 0.304764 0.200001 0.161906
0.114287 0.0666685 0.0190476 -8.34465e-07;
#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 218 r ALUMI_A;
#X obj 167 269 s ALUMI_A;
#X obj 9 136 hradio 15 1 0 7 empty \$0-word empty 0 -8 0 10 -262144
-203904 -1 3;
#X obj 108 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -228856 -1
-1;
#X obj 108 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -228856
-1 -1 1 1;
#X msg 249 329 alumiA;
#X obj 231 452 s ALUMI_A_DONE;
#X obj 259 121 v \$0-STRESS;
#X obj 259 167 v \$0-STRESS;
#X obj 259 101 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 259 144 * 0.5;
#X obj 88 306 riff1 700 3202 500;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 92 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 7 256;
#X obj 134 98 r \$0-word-max;
#X obj 134 139 s \$0-word-max-set;
#X msg 134 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 29 0;
#X connect 1 0 23 0;
#X connect 2 0 5 0;
#X connect 2 0 24 0;
#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 29 0;
#X connect 13 0 12 0;
#X connect 14 0 13 1;
#X connect 15 0 14 0;
#X connect 16 0 23 0;
#X connect 17 0 7 0;
#X connect 18 0 10 0;
#X connect 21 0 4 0;
#X connect 23 0 29 1;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 13 0;
#X connect 29 3 2 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 120 150 2 5 5;

327
puredata/radio_theatre_0.forest-of-unknown/radio_alumi_B.pd Normal file
View file

@ -0,0 +1,327 @@
#N canvas 92 183 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 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 15 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 2 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.52;
#X msg 285 439 0.4;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 722 69 698 462 expressions 1;
#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 alumiB;
#N canvas 84 25 450 278 (subpatch) 0;
#X array alumiB0 20 float 3;
#A 0 0.266666 0.371433 0.409531 0.466677 0.742846 0.685714 0.628568
0.571422 0.561897 0.819041 0.638095 0.885711 0.809525 0.961915 0.90476
0.514285 0.895235 0.6 0.75237 0.771419;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 323 318 graph;
#X obj 68 368 t b b;
#X msg 95 389 0;
#X obj 68 348 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB3 50 float 3;
#A 0 0.561903 0.552382 0.504763 0.104761 0.161905 0.485716 0.657143
0.419047 0.514285 0.409524 0.314286 0.485716 0.514287 0.133333 0.114286
0.67619 0.104762 0.52381 0.342857 0.533334 0.647619 0.371429 0.37143
0.580953 0.590476 0.104762 0.133333 0.52381 0.628571 0.4 0.4 0.409524
0.628571 0.542858 0.104762 0.571429 0.104762 0.104762 0.485715 0.619048
0.390476 0.352381 0.590476 0.419049 0.142857 0.152381 0.466668 0.476191
0.628572 0.238095;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 354 47 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB2 50 float 3;
#A 0 0.266667 0.314285 0.333333 0.371428 0.390475 0.409523 0.438094
0.457142 0.476189 0.476189 0.42857 0.361905 0.304762 0.285715 0.238096
0.190477 0.133335 0.104764 0.180954 0.238096 0.266667 0.295239 0.342857
0.390476 0.438094 0.476189 0.495237 0.50476 0.476189 0.42857 0.390475
0.32381 0.285715 0.238096 0.17143 0.104763 0.142858 0.209525 0.276191
0.314286 0.342857 0.380952 0.428571 0.438093 0.42857 0.380951 0.35238
0.295237 0.219047 0.180952;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 194 44 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB1 50 float 3;
#A 0 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952
0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952
0.380952 0.380952 0.380952 0.380952 0.384127 0.387302 0.390476 0.4
0.409524 0.413333 0.417143 0.420952 0.424762 0.428571 0.428571 0.428571
0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571 0.428571
0.428571 0.428571 0.419047 0.419047 0.409524 0.4 0.4 0.395238 0.390476
0.390476 0.380952;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 36 45 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB4 70 float 3;
#A 0 0.380952 0.00952399 0.00952399 0.209524 0.00952399 0.00952399
0.00952399 0.466667 0.00952399 0.733333 0.00952399 0.00952399 0.466667
0.00952399 0.00952399 0.266667 0.00952399 0.00952399 0.571429 0.00952399
0.266667 0.00952399 0.00952399 0.00952399 0.571429 0.00952399 0.00952399
0.380952 0.00952399 0.00952399 0.00952399 0.333333 0.514286 0.00952399
0.00952399 0.638095 0.00952399 0.00952399 0.00952399 0.409524 0.00952399
0.6 0.00952399 0.00952399 0.771429 0.00952399 0.4 0.00952399 0.00952399
0.00952399 0.304762 0.00952399 0.590476 0.00952399 0.00952399 0.428571
0.00952399 0.00952399 0.00952399 0.514286 0.00952399 2.38419e-07 2.38419e-07
0.371429 2.38419e-07 -0.00476164 -0.00952351 0.466667 -0.00952351 0.371429
;
#X coords 0 1 70 0 150 105 1 0 0;
#X restore 514 44 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB5 30 float 3;
#A 0 0.666667 0.685715 0.695239 0.657143 0.628572 0.533333 0.380951
0.466666 0.657143 0.676191 0.714286 0.72381 0.704763 0.647619 0.552381
0.419047 0.571428 0.714286 0.752381 0.77143 0.761906 0.72381 0.666667
0.533333 0.447619 0.571428 0.638095 0.676191 0.695239 0.638095;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 357 170 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB6 40 float 3;
#A 0 0.676191 0.657143 0.638095 0.647619 0.647619 0.63492 0.622222
0.609523 0.590476 0.580952 0.561904 0.55238 0.533332 0.533332 0.514285
0.514285 0.50238 0.490475 0.47857 0.466665 0.45238 0.438094 0.423808
0.409522 0.409522 0.390474 0.371427 0.342855 0.326982 0.311109 0.285712
0.276191 0.266667 0.257143 0.238096 0.219048 0.2 0.180953 0.161905
0.142857;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 519 180 graph;
#X obj 42 214 count 6;
#X obj 175 162 loadbang;
#X msg 175 183 6;
#X obj 175 204 s \$0-word-max;
#X obj 81 173 r \$0-word-max;
#X floatatom 81 194 5 0 0 0 - - -;
#X connect 0 0 18 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 9 0 1 0;
#X connect 9 1 10 0;
#X connect 10 0 7 0;
#X connect 11 0 9 0;
#X connect 18 0 2 0;
#X connect 18 0 3 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 23 0 18 1;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array alumiB 30 float 3;
#A 0 0.666667 0.685715 0.695239 0.657143 0.628572 0.533333 0.380951
0.466666 0.657143 0.676191 0.714286 0.72381 0.704763 0.647619 0.552381
0.419047 0.571428 0.714286 0.752381 0.77143 0.761906 0.72381 0.666667
0.533333 0.447619 0.571428 0.638095 0.676191 0.695239 0.638095;
#X coords 0 1 30 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 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -262144
-203904 -1 4;
#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 218 r ALUMI_B;
#X obj 164 21 r ALUMI_B;
#X obj 167 269 s ALUMI_B;
#X msg 249 329 alumiB;
#X obj 231 452 s ALUMI_B_DONE;
#X obj 272 112 v \$0-STRESS;
#X obj 272 158 v \$0-STRESS;
#X obj 272 92 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 272 135 * 0.5;
#X obj 88 306 riff1 700 3205 500;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 6 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 29 0;
#X connect 1 0 23 0;
#X connect 2 0 5 0;
#X connect 2 0 24 0;
#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 29 0;
#X connect 13 0 12 0;
#X connect 14 0 13 1;
#X connect 15 0 14 0;
#X connect 16 0 23 0;
#X connect 18 0 4 0;
#X connect 20 0 10 0;
#X connect 21 0 7 0;
#X connect 23 0 29 1;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 13 0;
#X connect 29 3 2 0;
#X connect 32 0 34 0;
#X connect 34 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 36 0;
#X coords 0 -1 1 1 100 150 2 5 5;

369
puredata/radio_theatre_0.forest-of-unknown/radio_bongbong.pd Normal file
View file

@ -0,0 +1,369 @@
#N canvas 332 23 496 559 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 326 469 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 249 329 bongbong;
#X obj 164 21 r BONGBONG;
#N canvas 0 50 450 250 (subpatch) 0;
#X array bongbong 10 float 3;
#A 0 -0.771422 -0.390472 -0.390472 0.0761905 -0.399996 -0.504758 -0.476186
-0.457139 -0.438091 -0.48571;
#X coords 0 1 10 0 50 50 1 0 0;
#X restore 30 32 graph;
#X obj 88 8 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -1
-1;
#X obj 9 106 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -261682
-4034 -1 2;
#X text 35 318 stop!;
#X obj 88 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 obj 164 67 v \$0-STATE;
#N canvas 879 70 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#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 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 249 439 * 1;
#X floatatom 246 413 5 0 0 0 - - -;
#X msg 285 458 -0.05;
#X obj 285 416 sel 0;
#X msg 312 437 0.1;
#X obj 16 114 resample 100;
#X obj 16 210 < 0.77;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 52 0;
#X connect 1 0 5 0;
#X connect 1 1 35 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 26 0;
#X connect 8 0 16 0;
#X connect 9 0 36 0;
#X connect 11 0 16 1;
#X connect 12 0 20 0;
#X connect 13 0 12 0;
#X connect 13 1 33 0;
#X connect 14 0 30 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 19 0;
#X connect 17 0 53 0;
#X connect 18 0 15 0;
#X connect 18 1 32 0;
#X connect 20 0 11 0;
#X connect 20 0 34 0;
#X connect 26 0 8 0;
#X connect 28 0 14 0;
#X connect 30 0 18 0;
#X connect 32 0 50 0;
#X connect 33 0 12 1;
#X connect 35 0 4 0;
#X connect 35 0 25 0;
#X connect 37 0 38 0;
#X connect 38 0 40 0;
#X connect 39 0 37 0;
#X connect 40 0 41 0;
#X connect 42 0 45 0;
#X connect 45 0 0 0;
#X connect 46 0 45 1;
#X connect 47 0 15 0;
#X connect 48 0 47 1;
#X connect 49 0 15 0;
#X connect 50 0 49 0;
#X connect 50 1 51 0;
#X connect 51 0 47 0;
#X connect 52 0 17 0;
#X connect 53 0 1 0;
#X connect 54 0 55 0;
#X restore 167 226 pd world and me;
#N canvas 605 25 582 656 expressions 0;
#N canvas 0 50 450 250 (subpatch) 0;
#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;
#N canvas 84 25 450 278 (subpatch) 0;
#X array bongbong0 10 float 3;
#A 0 1.40953 1.28572 0.980954 0.84762 0.771429 0.990478 0.961906 0.619048
0.8 0.790477;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 332 495 graph;
#X obj 192 572 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 165 507 t b b;
#X msg 192 528 0;
#X obj 192 549 array_copier bongbong;
#X obj 165 447 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144
-1 -1;
#X obj 229 516 v \$0-STATE;
#X msg 229 493 1;
#X obj 165 477 t b b;
#X obj 161 187 loadbang;
#X obj 161 229 s \$0-word-max;
#X obj 67 198 r \$0-word-max;
#X floatatom 67 219 5 0 0 0 - - -;
#X msg 161 208 4;
#X connect 3 0 11 1;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#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 connect 29 0 23 0;
#X connect 29 1 30 0;
#X connect 30 0 31 0;
#X connect 31 0 28 0;
#X connect 32 0 35 0;
#X connect 34 0 33 0;
#X connect 35 0 29 0;
#X connect 35 1 34 0;
#X connect 36 0 40 0;
#X connect 38 0 39 0;
#X connect 39 0 24 1;
#X connect 40 0 37 0;
#X restore 48 226 pd expressions;
#X obj 326 519 s BONGBONG_DONE;
#X obj 88 429 s NOTE;
#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 317 129 v \$0-STRESS;
#X obj 317 175 v \$0-STRESS;
#X obj 231 426 v \$0-STATE;
#X obj 326 448 sel 1;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 231 447 - 1;
#X obj 231 489 v \$0-STATE;
#X obj 231 468 t b a;
#X msg 370 290 0;
#X obj 370 313 v \$0-STATE;
#X obj 138 191 bng 15 250 50 0 empty \$0-more-word r:0-more-word 17
7 0 10 -262144 -1 -1;
#X floatatom 175 526 5 0 0 0 - - -;
#X obj 364 492 bng 15 250 50 0 \$0-more-word empty s:0-more-word 17
7 0 10 -262144 -1 -1;
#X text 213 44 <--- how many words per sentence?;
#X msg 164 44 6;
#X obj 364 471 del 1000;
#X obj 317 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 317 152 * 0.5;
#X obj 326 427 <= 0;
#X msg 289 518 0;
#X obj 88 306 riff1 700 4100 400;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X floatatom 9 88 5 0 0 0 - #0-word -;
#X obj 73 99 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 148 set \$1;
#X obj 5 128 r \$0-SLEEP;
#X obj 5 169 s \$0-SLEEP-set;
#X connect 0 0 41 0;
#X connect 1 0 3 0;
#X connect 2 0 16 0;
#X connect 2 0 40 0;
#X connect 3 0 41 1;
#X connect 4 0 35 0;
#X connect 6 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 15 0;
#X connect 14 0 10 0;
#X connect 15 0 41 0;
#X connect 18 0 17 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 38 0;
#X connect 23 0 26 0;
#X connect 24 0 2 0;
#X connect 24 1 36 0;
#X connect 25 0 23 0;
#X connect 26 0 28 0;
#X connect 27 0 32 0;
#X connect 27 0 39 0;
#X connect 28 0 27 0;
#X connect 28 1 27 0;
#X connect 29 0 30 0;
#X connect 31 0 15 0;
#X connect 35 0 13 0;
#X connect 36 0 33 0;
#X connect 37 0 21 0;
#X connect 38 0 22 0;
#X connect 39 0 24 0;
#X connect 40 0 27 0;
#X connect 41 0 18 0;
#X connect 41 3 25 0;
#X connect 42 0 3 0;
#X connect 45 0 47 0;
#X connect 47 0 46 0;
#X connect 49 0 51 0;
#X connect 50 0 49 0;
#X coords 0 -1 1 1 100 120 2 5 5;

280
puredata/radio_theatre_0.forest-of-unknown/radio_callisto.pd Normal file
View file

@ -0,0 +1,280 @@
#N canvas 580 202 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 746 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X msg 285 439 0.002;
#X obj 16 29 r WORLD_ENERGY;
#X obj 49 56 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 0 1;
#X obj 158 21 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 158 41 s \$0-SLEEP;
#X obj 16 56 +;
#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 53 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 47 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 15 0;
#X connect 48 0 52 0;
#X connect 49 0 52 1;
#X connect 50 0 51 0;
#X connect 52 0 0 0;
#X connect 53 0 1 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 34 190 inlet;
#X obj 34 271 outlet;
#X obj 34 242 t b a;
#X obj 236 237 s \$0-word;
#X obj 144 328 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 144 260 + 1;
#X floatatom 144 283 5 0 0 0 - - -;
#X obj 34 219 count 4;
#X obj 144 305 array_copier callisto;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto1 50 float 3;
#A 0 0.0857146 0.228573 0.228573 0.219049 0.190477 0.133334 0.0857146
0.0476191 0.161906 0.24762 0.285716 0.219049 0.200001 0.0857146 0.190477
0.209525 0.209525 0.190477 0.171429 0.0952384 0.0476191 0.114286 0.209525
0.257144 0.24762 0.142858 0.0952384 0.0476191 0.190477 0.24762 0.24762
0.24762 0.238096 0.219049 0.133334 0.0857146 0.114286 0.219049 0.223811
0.228573 0.200001 0.152382 0.133334 0.12381 0.214287 0.238096 0.209525
0.161906 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 37 39 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.457144 0.523811 0.733334 0.790477 0.885716 0.980955 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952363 0.00952363 0.00952363 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.428574 0.523811 0.638096
0.80952 1.09524 0.0190476 0.00952381 0.00952381 0.00952381 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 197 39 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto3 50 float 3;
#A 0 1.00952 1.00952 1.00952 1.00952 1.00952 0.0285714 0.0285714 0.0285714
0.0285714 0.0285714 1.00952 1.00952 1.00952 1.00952 1.00952 0.0285714
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 1.00952 1.00952 1.00952
1.00952 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
1.00952 1.00952 1.00952 1.00952 0.0190476 0.0190476 0.0190476 0.0190476
0.0190476 0.047619 0.992857 0.990476 0.990476 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.990476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 357 39 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto4 50 float 3;
#A 0 0.180953 0.161905 0.438095 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.466666 0.438095 0.438095 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.342857 0.92381 0.428571 0.428571 0.323809 0.380952 0.342857 0.47619
0.47619 0.285714 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 517 39 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array callisto 50 float 3;
#A 0 0.0857146 0.228573 0.228573 0.219049 0.190477 0.133334 0.0857146
0.0476191 0.161906 0.24762 0.285716 0.219049 0.200001 0.0857146 0.190477
0.209525 0.209525 0.190477 0.171429 0.0952384 0.0476191 0.114286 0.209525
0.257144 0.24762 0.142858 0.0952384 0.0476191 0.190477 0.24762 0.24762
0.24762 0.238096 0.219049 0.133334 0.0857146 0.114286 0.219049 0.223811
0.228573 0.200001 0.152382 0.133334 0.12381 0.214287 0.238096 0.209525
0.161906 0.0190476 0.0190476;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -33289
-4032 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -33289 -4032
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -33289 -4032
-1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X msg 319 323 callisto;
#X obj 164 21 r CALLISTO;
#X obj 48 188 r CALLISTO;
#X obj 295 452 s CALLISTO_DONE;
#X obj 167 279 s CALLISTO;
#X obj 288 226 loadbang;
#X msg 288 247 1;
#X obj 233 129 v \$0-STRESS;
#X obj 233 175 v \$0-STRESS;
#X obj 233 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 233 152 * 0.5;
#X obj 88 306 riff1_random 50 4402 700 1000;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 148 set \$1;
#X obj 5 128 r \$0-SLEEP;
#X obj 5 169 s \$0-SLEEP-set;
#X connect 0 0 31 0;
#X connect 1 0 20 0;
#X connect 2 0 5 0;
#X connect 2 0 23 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 31 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 20 0;
#X connect 20 0 31 1;
#X connect 21 0 7 0;
#X connect 22 0 10 0;
#X connect 25 0 26 0;
#X connect 26 0 31 2;
#X connect 27 0 30 0;
#X connect 29 0 27 0;
#X connect 30 0 28 0;
#X connect 31 0 16 0;
#X connect 31 3 2 0;
#X connect 33 0 35 0;
#X connect 34 0 33 0;
#X coords 0 -1 1 1 100 100 2 5 5;

266
puredata/radio_theatre_0.forest-of-unknown/radio_ceres.pd Normal file
View file

@ -0,0 +1,266 @@
#N canvas 961 178 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#X obj 16 210 < 0.7;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 48 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 0 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 38 224 count 4;
#X obj 148 310 array_copier ceres;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres1 50 float 3;
#A 0 0.0666659 0.0952375 0.0761898 0.133333 0.133333 0.114285 0.295238
0.190476 0.190476 0.114286 0.12381 0.12381 0.12381 0.142857 0.12381
0.161905 0.180953 0.27619 0.209525 0.133334 0.147619 0.171429 0.161905
0.171429 0.171429 0.190477 0.200001 0.304762 0.171429 0.200001 0.333333
0.0476187 0.104762 0.133334 0.0952381 0.104762 0.12381 0.104762 0.0571426
0.0857142 0.0571426 0.12381 0.152381 0.304762 0.161905 0.161905 0.161905
0.180953 0.161905 0.0761904;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 30 34 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres2 50 float 3;
#A 0 -0.0190476 0.00952381 0.0285714 0.0666667 0.0952381 0.12381 0.209524
0.295238 0.371429 0.447619 0.514286 0.0190476 0.828571 0.980952 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952363 0.00952363 0.00952363 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.142857 0.2 0.295238 0.361905 0.447619 0.514286
0.695238 0.00952381 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 190 34 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres3 50 float 3;
#A 0 0.0190477 0.0190477 0.0190477 0.828571 0.0190477 0.0190477 0.0190477
0.0190477 0.838095 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477
0.790476 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477
0.0190477 0.0190477 0.8 0.0190477 0.0190477 0.0190477 0.0190477 0.0190477
0.771429 0.0190477 0.0190477 0.0190477 0.0190477 0.8 0.0190477 0.0190477
0.0190477 0.0190477 0.0190477 0.0190477 0.771429 0.0190477 0.0190477
0.0190477 0.0190477 0.790476 0.0190477 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 350 34 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres4 50 float 3;
#A 0 0.180953 0.161905 0.342859 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.323811 0.257145 0.371429 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.209526 0.21905 0.295239 0.333334 0.323809 0.380952 0.342857 0.285716
0.333334 0.371429 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 510 34 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ceres 50 float 3;
#A 0 0.180953 0.161905 0.342859 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.323811 0.257145 0.371429 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.209526 0.21905 0.295239 0.333334 0.323809 0.380952 0.342857 0.285716
0.333334 0.371429 0.180951;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -162280
-4032 -1 3;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -162280 -4032
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -162280
-4032 -1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X msg 319 323 ceres;
#X obj 164 21 r CERES;
#X obj 48 188 r CERES;
#X obj 295 452 s CERES_DONE;
#X obj 167 279 s CERES;
#X obj 88 306 riff1_random 600 3309 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 27 0;
#X connect 2 0 5 0;
#X connect 2 0 30 0;
#X connect 4 0 31 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 27 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 32 1;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

320
puredata/radio_theatre_0.forest-of-unknown/radio_copper.pd Normal file
View file

@ -0,0 +1,320 @@
#N canvas 232 131 461 502 10;
#X msg 37 337 0;
#X obj 349 303 loadbang;
#X obj 302 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 322 406 0;
#X obj 322 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 651 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.65;
#X msg 285 439 0.25;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 742 30 682 544 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 148 310 array_copier copper;
#N canvas 84 25 450 278 (subpatch) 0;
#X array copper0 10 float 3;
#A 0 0.352379 0.361903 0.371427 0.399998 0.409522 0.419046 0.438094
0.457142 0.476189 0.495237;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 327 397 graph;
#X obj 197 474 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 197 451 array_copier copper;
#X obj 170 409 t b b;
#X msg 197 430 0;
#X obj 170 389 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144
-1 -1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper1 30 float 3;
#A 0 0.238095 0.590476 0.314285 0.323809 0.247619 0.133333 0.228571
0.314285 0.342856 0.371428 0.638095 0.266666 0.219048 0.27619 0.0761905
0.285714 0.228571 0.161905 0.666667 0.304761 0.114286 0.333333 0.42857
0.571429 0.285714 0.228571 0.2 0.409524 0.219048 0.209524;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 15 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper4 50 float 3;
#A 0 0.0380951 0.67619 0.0380951 0.0380951 0.0380951 0.552381 0.0380951
0.0571429 0.0285714 0.0380951 0.790476 0.0380951 0.0380951 0.657143
0.0380951 0.0285714 0.0380951 0.0380951 0.838095 0.0380951 0.0380951
0.504762 0.0380951 0.0380951 0.0380951 0.0285714 0.0380951 0.695238
0.0380951 0.0380951 0.047619 0.0380951 0.609524 0.0380951 0.0380951
0.895238 0.0380951 0.0380951 0.552381 0.0380951 0.0380951 0.0380951
0.0380952 0.619048 0.0380951 0.0380951 0.790476 0.0380951 0.0380951
0.0380951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 496 36 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper3 50 float 3;
#A 0 0.828571 0.638096 0.52381 0.380954 0.295241 0.209527 0.142861
0.0952419 0.0666707 0.00952375 0.00952375 0.0285714 0.780952 0.590477
0.514287 0.44762 0.400002 0.304764 0.209527 0.123813 0.00952482 0.0190476
0.0190477 0.0190477 0.0190477 0.771428 0.571429 0.504763 0.409526 0.257146
0.171432 0.0476233 0.00952828 0.00952381 0.752381 0.561905 0.485715
0.361906 0.276192 0.21905 0.190479 0.0666698 0.0666698 0.00952816 0.742857
0.638093 0.561903 0.466665 0.333333 0.314285;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 338 36 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array copper2 50 float 3;
#A 0 0.333333 0.371428 0.409523 0.371428 0.373016 0.0666667 0.350476
0.447618 0.415873 0.384127 0.352381 0.320635 0.288889 0.12381 0.323808
0.257143 0.542856 0.4 0.384127 0.6 0.638095 0.512697 0.523808 0.238095
0.542856 0.533332 0.619046 0.62857 0.590476 0.447619 0.161905 0.447619
0.495237 0.495237 0.380952 0.371428 0.447618 0.638093 0.580952 0.209524
0.333333 0.438095 0.647619 0.323809 0.319047 0.428571 0.114286 0.390476
0.590474 0;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 178 36 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper5 50 float 3;
#A 0 0.180952 0.123809 0.123809 0.123809 0.12381 0.12381 0.12381 0.12381
0.133333 0.142856 0.142856 0.15238 0.161904 0.171427 0.171427 0.190475
0.190475 0.209522 0.219045 0.238093 0.25714 0.266664 0.276187 0.285711
0.295235 0.295235 0.304758 0.314282 0.323805 0.342853 0.342853 0.3619
0.371424 0.380947 0.390471 0.399994 0.428565 0.447613 0.46666 0.476183
0.495231 0.504754 0.504764 0.514288 0.533335 0.552382 0.57143 0.600001
0.628571 0.666667;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 497 167 graph;
#X obj 171 172 loadbang;
#X obj 171 214 s \$0-word-max;
#X obj 77 183 r \$0-word-max;
#X floatatom 77 204 5 0 0 0 - - -;
#X msg 171 193 5;
#X obj 38 224 count 5;
#X connect 0 0 24 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 4 0;
#X connect 10 0 9 0;
#X connect 11 0 1 0;
#X connect 11 1 12 0;
#X connect 12 0 10 0;
#X connect 13 0 11 0;
#X connect 19 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 24 1;
#X connect 23 0 20 0;
#X connect 24 0 2 0;
#X connect 24 0 3 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array copper 50 float 3;
#A 0 0.828571 0.638096 0.52381 0.380954 0.295241 0.209527 0.142861
0.0952419 0.0666707 0.00952375 0.00952375 0.0285714 0.780952 0.590477
0.514287 0.44762 0.400002 0.304764 0.209527 0.123813 0.00952482 0.0190476
0.0190477 0.0190477 0.0190477 0.771428 0.571429 0.504763 0.409526 0.257146
0.171432 0.0476233 0.00952828 0.00952381 0.752381 0.561905 0.485715
0.361906 0.276192 0.21905 0.190479 0.0666698 0.0666698 0.00952816 0.742857
0.638093 0.561903 0.466665 0.333333 0.314285;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 5 empty \$0-word empty 0 -8 0 10 -83269
-262144 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -83269 -262144
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -83269 -262144
-1 0 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 164 21 r COPPER;
#X obj 167 279 s COPPER;
#X obj 48 218 r COPPER;
#X obj 302 452 s COPPER_DONE;
#X msg 349 326 copper;
#X obj 369 349 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 317 129 v \$0-STRESS;
#X obj 317 175 v \$0-STRESS;
#X obj 317 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 317 152 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 5 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 88 306 riff1_random 900 3204 1000 1300;
#X connect 0 0 38 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 38 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 7 0;
#X connect 21 0 10 0;
#X connect 23 0 38 1;
#X connect 24 0 23 0;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 38 0 16 0;
#X connect 38 3 2 0;
#X coords 0 -1 1 1 100 150 2 5 5;

300
puredata/radio_theatre_0.forest-of-unknown/radio_drawer.pd Normal file
View file

@ -0,0 +1,300 @@
#N canvas 791 23 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-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 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.6;
#X msg 285 439 0.2;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 22 196 688 374 expressions 1;
#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;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer0 10 float 3;
#A 0 0.266667 0.285714 0.295238 0.32381 0.352381 0.371429 0.409525
0.2 0.228572 0.257143;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 350 255 graph;
#X obj 62 322 t b b;
#X msg 89 343 0;
#X obj 62 302 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer1 20 float 3;
#A 0 0.0285716 0.0666671 0.0857148 0.0857148 -0.0285716 -0.12381 -0.104763
-0.0476193 0 0.0380955 0.0952387 0.152382 0.133334 -0.00952387 -0.0476193
-0.12381 -0.12381 -0.0761909 -0.0285716 0.00952387;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 29 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer4 30 float 3;
#A 0 0.0380952 0.0380952 0.0380952 0.0380952 0.0285714 0.0285714 0.00952363
-0.0380955 -0.0380955 -0.0476194 -0.0476194 -0.0571433 -0.0476194 -0.0380955
-0.0380955 -0.0285717 0.0666666 0.0666666 0.0666666 0.0190473 0.0190473
0.0190473 0.0190473 -0.00952405 -0.0285718 -0.0476195 -0.0571434 -0.0476195
-0.0476195 -0.0571434;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 509 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer2 50 float 3;
#A 0 0.485714 0 0 0 0.628571 0 0 0 0 0.295238 0 0 0 0 0.457143 0 0
0 0.00952381 0 0.561905 0 0 0 0 0 0.333333 0 0 0 0 0 0.485714 0 0 0
0.333333 0 0 0 0.619048 0 0 0 0.333333 0 0 0 0 0.438095;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 185 36 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer3 30 float 3;
#A 0 -0.00952405 -0.00952405 0.0190472 0.0380949 0.0857143 0.0126983
0.0158729 0.0190476 0.0285714 0.0380953 0.0444445 0.0507938 0.057143
0.057143 0.0190476 0.0190476 0.0190476 0.0285715 0.0380954 0.0380954
0.0476192 0.0476192 0.0190476 0 0 0 0.00952387 0.0190477 0.0285716
0.0476193;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 349 31 graph;
#X obj 171 172 loadbang;
#X obj 171 214 s \$0-word-max;
#X obj 77 183 r \$0-word-max;
#X floatatom 77 204 5 0 0 0 - - -;
#X msg 171 193 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer5 30 float 3;
#A 0 0.0380953 0.0380953 0.0380953 0.0190476 -0.0476195 -0.0571434
0.0285714 0.0380953 0.0380953 0.0380953 0.0380953 0.0380953 -0.00952405
-0.00952405 -0.00952405 0.0380953 0.0761908 0.0761908 0.057143 0.0285714
-0.0380957 -0.0190479 0.0190476 0.0666669 0.057143 0.0285714 -0.0476195
-0.0285718 -0.0285718 -1.78814e-07;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 670 32 graph;
#X obj 38 224 count 5;
#X connect 0 0 22 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 9 0 1 0;
#X connect 9 1 10 0;
#X connect 10 0 7 0;
#X connect 11 0 9 0;
#X connect 16 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 22 1;
#X connect 20 0 17 0;
#X connect 22 0 2 0;
#X connect 22 0 3 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drawer 20 float 3;
#A 0 0.0285716 0.0666671 0.0857148 0.0857148 -0.0285716 -0.12381 -0.104763
-0.0476193 0 0.0380955 0.0952387 0.152382 0.133334 -0.00952387 -0.0476193
-0.12381 -0.12381 -0.0761909 -0.0285716 0.00952387;
#X coords 0 1 20 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 5 empty \$0-word empty 0 -8 0 10 -204800
-4160 -1 0;
#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 218 r DRAWER;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -4032 -1
-1 1 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 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 282 108 v \$0-STRESS;
#X obj 282 154 v \$0-STRESS;
#X obj 282 88 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 282 131 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 5 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 89 307 riff1_random 30 4403 700 1000;
#X connect 0 0 38 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 38 0;
#X connect 13 0 4 0;
#X connect 14 0 7 0;
#X connect 15 0 10 0;
#X connect 19 0 38 1;
#X connect 21 0 20 0;
#X connect 22 0 21 1;
#X connect 23 0 22 0;
#X connect 24 0 19 0;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 38 0 21 0;
#X connect 38 3 2 0;
#X coords 0 -1 1 1 100 150 2 5 5;

382
puredata/radio_theatre_0.forest-of-unknown/radio_drummer.pd Normal file
View file

@ -0,0 +1,382 @@
#N canvas 305 119 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 746 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.67;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 158 51 s \$0-SLEEP;
#X msg 285 439 0.1;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 53 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 46 1;
#X connect 51 0 52 0;
#X connect 53 0 15 0;
#X restore 275 25 pd world and me;
#N canvas 110 111 881 545 expressions 1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerA1 30 float 3;
#A 0 1.04762 1.04762 1.04762 1.04762 0 1.04762 1.04762 1.04762 1.04762
1.04762 0.00952381 1.0381 1.0381 1.0381 1.02857 1.02857 0.00952381
1.02857 1.02857 0.00952381 1.01905 1.01905 0.0285714 1.01905 1.01905
0.0190476 1.01905 0.0190476 1.00952 0.0190476;
#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.971429 1.05714 1.13333 1.2 0.00952381 0.00952381 0.00952381
0.847619 0.885715 0.971429 1.02857 0.0285714 0.0285714 0.0285714 0.00952363
0.885715 0.980953 1.16191 0 -0.00952387 -0.00952387 0.876191 0.97143
1.05714 -5.96046e-08 -0.00952393 0.914286 0.990477 1.08572 1.19048
;
#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 1.00952 1.00952 0.0190477 0.0190477 1.00952 1.00952 0.0190477
0.0285715 1 0.990476 0.0285715 0.0380954 0.990476 0.990476 0.0285715
0.0285715 0.980952 0.980952 0.0380954 0.0476193 0.971429 0.980952 0.980952
0.0476193 0.0476193 0.961905 0.0476193 0.0476193 0.980952 0.971429
;
#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 15 float 3;
#A 0 1.26667 1.21905 1.17143 1.12381 1.07619 1.0381 0.990476 0.952381
0.914285 0.847619 0.8 0.761904 0.714285 0.666666 0.638094;
#X coords 0 1 15 0 150 105 1 0 0;
#X restore 532 41 graph;
#X obj 55 322 inlet;
#X obj 55 403 outlet;
#X obj 55 374 t b a;
#X obj 257 369 s \$0-word;
#X obj 165 503 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 165 435 + 1;
#X floatatom 165 458 5 0 0 0 - - -;
#X obj 304 410 + 1;
#X floatatom 304 433 5 0 0 0 - - -;
#X obj 165 392 t a a;
#X obj 165 480 array_copier drummerA;
#X obj 304 455 array_copier drummerB;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerB1 18 float 3;
#A 0 0.133333 0.152381 0.180953 0.2 0.238096 0.285715 0.314287 0.37143
0.409526 0.457145 0.504764 0.590479 0.66667 0.752385 0.819048 0.857147
0.980953 0.00952381;
#X coords 0 1 18 0 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;
#N canvas 84 25 450 278 (subpatch) 0;
#X array drummerA0 10 float 3;
#A 0 0.447617 0.504757 0.476187 0.323812 0.342859 0.561897 0.761888
0.685701 0.723795 0.704748;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 378 322 graph;
#X obj 32 469 t b b;
#X msg 59 490 0;
#X obj 32 449 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 84 25 450 278 (subpatch) 0;
#X array drummerB0 10 float 3;
#A 0 0.714286 0.771429 0.847619 0.333333 0.485714 0.428571 0.304762
0.27619 0.742855 0.790472;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 538 322 graph;
#X obj 188 299 loadbang;
#X obj 188 341 s \$0-word-max;
#X obj 94 310 r \$0-word-max;
#X floatatom 94 331 5 0 0 0 - - -;
#X msg 188 320 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerA5 15 float 3;
#A 0 1.27619 1.22857 1.19048 1.14286 1.09524 1.05714 1.02857 1 0.961905
0.933334 0.895238 0.857143 0.828571 0.790476 0.761904;
#X coords 0 1 15 0 150 105 1 0 0;
#X restore 696 45 graph;
#X obj 55 351 count 5;
#X connect 4 0 31 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 21 0 5 0;
#X connect 21 1 22 0;
#X connect 22 0 14 0;
#X connect 22 0 15 0;
#X connect 23 0 21 0;
#X connect 25 0 29 0;
#X connect 27 0 28 0;
#X connect 28 0 31 1;
#X connect 29 0 26 0;
#X connect 31 0 6 0;
#X connect 31 0 7 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerA 20 float 3;
#A 0 1.26667 1.21905 1.17143 1.12381 1.07619 1.0381 0.990476 0.952381
0.914285 0.895238 0.87619 0.847618 0.819047 0.799999 0.761904 0.733332
0.695236 0.657141 0.638093 0.599998;
#X coords 0 1 20 0 25 25 1 0 0;
#X restore 29 40 graph;
#X obj 9 136 hradio 15 1 0 5 empty \$0-word empty 0 -8 0 10 -203904
-260097 -1 3;
#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 218 r DRUMMER;
#X obj 288 452 s DRUMMER_DONE;
#X obj 275 78 s DRUMMER;
#N canvas 0 23 450 278 (subpatch) 0;
#X array drummerB 30 float 3;
#A 0 1.78814e-07 1.78814e-07 0.628571 0.00952393 0.00952393 0.00952393
0.00952393 1.78814e-07 1.78814e-07 1.78814e-07 0.67619 0.00952375 0.00952375
0.00952375 0.00952375 0 0 0 0 0.638095 0 0 0 0 0 0.638095 -0.00952357
-0.00952357 -0.00952357 -0.00952357;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 29 82 graph;
#X msg 316 329 drummerA;
#X obj 164 21 r DRUMMER;
#X obj 339 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-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 msg 726 329 drummerB;
#X obj 88 466 s NOTE;
#X obj 221 428 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
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 631 405 > 1;
#X obj 498 306 riff1_random 90 1032 600 1000;
#X obj 473 137 v \$0-STRESS;
#X obj 473 183 v \$0-STRESS;
#X obj 473 117 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 473 160 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 88 306 riff1_random 30 1031 1000 2000;
#X obj 221 405 > 2;
#X connect 0 0 52 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 52 0;
#X connect 13 0 4 0;
#X connect 15 0 33 0;
#X connect 16 0 15 1;
#X connect 16 0 28 1;
#X connect 17 0 16 0;
#X connect 18 0 10 0;
#X connect 22 0 52 1;
#X connect 23 0 7 0;
#X connect 24 0 22 0;
#X connect 25 0 38 0;
#X connect 26 0 30 0;
#X connect 28 0 36 0;
#X connect 29 0 30 0;
#X connect 30 0 38 1;
#X connect 32 0 33 1;
#X connect 33 0 31 0;
#X connect 35 0 36 1;
#X connect 36 0 34 0;
#X connect 37 0 35 0;
#X connect 38 0 28 0;
#X connect 38 2 37 0;
#X connect 39 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 40 0;
#X connect 45 0 47 0;
#X connect 47 0 46 0;
#X connect 49 0 51 0;
#X connect 50 0 49 0;
#X connect 52 0 15 0;
#X connect 52 2 53 0;
#X connect 52 3 2 0;
#X connect 53 0 32 0;
#X coords 0 -1 1 1 100 150 2 5 5;

292
puredata/radio_theatre_0.forest-of-unknown/radio_earth.pd Normal file
View file

@ -0,0 +1,292 @@
#N canvas 466 23 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-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 611 88 533 644 world 0;
#X floatatom 16 93 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 90 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 20 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 210 < 0.8;
#X obj 16 39 r WORLD_ENERGY;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 158 51 s \$0-SLEEP;
#X obj 16 66 +;
#X msg 285 439 0.02;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 47 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 53 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 1 0;
#X connect 48 0 52 0;
#X connect 49 0 52 1;
#X connect 50 0 51 0;
#X connect 52 0 0 0;
#X connect 53 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 38 224 count 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth1 50 float 3;
#A 0 0.0761902 0.095238 0.133333 0.152381 0.180953 0.190477 0.200001
0.200001 0.200001 0.180953 0.161905 0.142857 0.171429 0.209524 0.228572
0.24762 0.266668 0.285715 0.285715 0.304763 0.304763 0.314287 0.304763
0.276191 0.257144 0.276191 0.295239 0.314287 0.323811 0.333335 0.352382
0.361906 0.37143 0.37143 0.361906 0.323811 0.209524 0.228572 0.238096
0.257144 0.266668 0.266668 0.285715 0.295239 0.295239 0.295239 0.295239
0.285715 0.257144 0.228572;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 40 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth2 50 float 3;
#A 0 0.0285741 0.123812 0.152383 0.190478 0.219049 0.24762 0.285715
0.32381 0.352382 0.4 0.447619 0.495238 0.485714 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 -0.00952101 0.00952649 0.028574
0.0857165 0.109526 0.133335 0.17143 0.200001 0.257144 0.304763 0.333334
0.4 0.419048 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 200 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth3 50 float 3;
#A 0 0.209524 0.209524 0.209524 0.209524 0.209524 0.0285714 0.0285714
0.0285714 0 0 0 0 0 0.0285714 0.0380952 0.0380952 0.209524 0.209524
0.209524 0.209524 0.0380952 0 0 0 0 0 0 0 0.0380952 0.0380952 0.219047
0.219047 0.219047 0.219047 0.219047 0.219047 0.219047 0.219047 0 0
0 0 0 0 0 0.219048 0.219048 0.219048 0.219048 0.228571;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 360 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth4 50 float 3;
#A 0 0.0571424 0.0761902 0.133332 0.209523 0.247619 0.304763 0.323811
0.276191 0.190477 0.152381 0.0761902 0.12381 0.161905 0.276191 0.342859
0.24762 0.180953 0.142858 0.0666666 0.114286 0.228572 0.304763 0.37143
0.380954 0.304763 0.238096 0.161905 0.12381 0.0761905 0.0857143 0.171429
0.24762 0.304763 0.361906 0.37143 0.342858 0.314287 0.266668 0.219048
0.152381 0.0761902 0.180953 0.219048 0.295239 0.380954 0.428573 0.380954
0.304763 0.171429 0.0666663;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 148 310 array_copier earth;
#X obj 171 172 loadbang;
#X obj 171 214 s \$0-word-max;
#X obj 77 183 r \$0-word-max;
#X floatatom 77 204 5 0 0 0 - - -;
#X msg 171 193 4;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 12 0 4 0;
#X connect 13 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 7 1;
#X connect 17 0 14 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth 50 float 3;
#A 0 0.0571424 0.0761902 0.133332 0.209523 0.247619 0.304763 0.323811
0.276191 0.190477 0.152381 0.0761902 0.12381 0.161905 0.276191 0.342859
0.24762 0.180953 0.142858 0.0666666 0.114286 0.228572 0.304763 0.37143
0.380954 0.304763 0.238096 0.161905 0.12381 0.0761905 0.0857143 0.171429
0.24762 0.304763 0.361906 0.37143 0.342858 0.314287 0.266668 0.219048
0.152381 0.0761902 0.180953 0.219048 0.295239 0.380954 0.428573 0.380954
0.304763 0.171429 0.0666663;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 9 106 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -204786
-4160 -1 3;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -4160
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
-4160 -1 0 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 164 21 r EARTH;
#X obj 48 188 r EARTH;
#X obj 295 452 s EARTH_DONE;
#X obj 167 279 s EARTH;
#X msg 319 323 earth;
#X floatatom 9 88 5 0 0 0 - #0-word -;
#X obj 73 99 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 148 set \$1;
#X obj 5 128 r \$0-SLEEP;
#X obj 5 169 s \$0-SLEEP-set;
#X obj 88 306 riff1_random 50 4401 700 1000;
#X obj 233 129 v \$0-STRESS;
#X obj 233 175 v \$0-STRESS;
#X obj 233 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 233 152 * 0.5;
#X connect 0 0 34 0;
#X connect 1 0 24 0;
#X connect 2 0 5 0;
#X connect 2 0 22 0;
#X connect 4 0 23 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 34 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 24 0;
#X connect 20 0 7 0;
#X connect 21 0 10 0;
#X connect 24 0 34 1;
#X connect 27 0 29 0;
#X connect 29 0 28 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 34 0 16 0;
#X connect 34 3 2 0;
#X connect 35 0 38 0;
#X connect 37 0 35 0;
#X connect 38 0 36 0;
#X coords 0 -1 1 1 100 120 2 5 5;

266
puredata/radio_theatre_0.forest-of-unknown/radio_europa.pd Normal file
View file

@ -0,0 +1,266 @@
#N canvas 318 89 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 47 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 49 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 1 0;
#X connect 48 0 0 0;
#X connect 49 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 38 224 count 4;
#X obj 148 310 array_copier europa;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa1 50 float 3;
#A 0 0.0761902 0.095238 0.133333 0.152381 0.180953 0.190477 0.200001
0.200001 0.200001 0.180953 0.161905 0.142857 0.171429 0.209524 0.228572
0.24762 0.266668 0.285715 0.285715 0.304763 0.304763 0.314287 0.304763
0.276191 0.257144 0.276191 0.295239 0.314287 0.323811 0.333335 0.352382
0.361906 0.37143 0.37143 0.361906 0.323811 0.209524 0.228572 0.238096
0.257144 0.266668 0.266668 0.285715 0.295239 0.295239 0.295239 0.295239
0.285715 0.257144 0.228572;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 34 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.504762 0.628571 0.695238 0.790476 0.92381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.447619 0.552381 0.657143
0.80952 0.885714 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 194 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa3 50 float 3;
#A 0 0.0380952 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0 0 0 0 0 0.0285714 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0 0 0 0 0 0 0 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0 0 0 0
0 0 0 0 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 354 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa4 50 float 3;
#A 0 0.0571424 0.0761902 0.133332 0.209523 0.247619 0.304763 0.323811
0.276191 0.190477 0.152381 0.0761902 0.12381 0.161905 0.276191 0.342859
0.24762 0.180953 0.142858 0.0666666 0.114286 0.228572 0.304763 0.37143
0.380954 0.304763 0.238096 0.161905 0.12381 0.0761905 0.0857143 0.171429
0.24762 0.304763 0.361906 0.37143 0.342858 0.314287 0.266668 0.219048
0.152381 0.0761902 0.180953 0.219048 0.295239 0.380954 0.428573 0.380954
0.304763 0.171429 0.0666663;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 514 31 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array europa 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.504762 0.628571 0.695238 0.790476 0.92381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.447619 0.552381 0.657143
0.80952 0.885714 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -262144
-128992 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -128992
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
-128992 -1 0 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X msg 319 323 europa;
#X obj 164 21 r EUROPA;
#X obj 48 188 r EUROPA;
#X obj 167 279 s EUROPA;
#X obj 295 452 s EUROPA_DONE;
#X obj 88 306 riff1_random 600 4205 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 27 0;
#X connect 2 0 5 0;
#X connect 2 0 31 0;
#X connect 4 0 30 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 27 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 32 1;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

426
puredata/radio_theatre_0.forest-of-unknown/radio_flasher.pd Normal file
View file

@ -0,0 +1,426 @@
#N canvas 62 176 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 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 2 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 461 -0.05;
#X msg 285 439 0.18;
#X obj 16 210 < 0.7;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 49 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 284 70 pd world and me;
#N canvas 450 100 685 519 expressions 1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherA3 40 float 3;
#A 0 0.133333 0.133333 0.142857 0.161905 0.190476 0.238095 0.285713
0.333332 0.380951 0.457141 0.552378 0.676187 0.780948 0.904757 0.980947
1.01904 0.0380951 0.0380951 0.990476 0.990476 1 1 0.980952 0.980952
0 0 0 0 0.980952 0.980952 0.980952 0.980952 0.980952 0.00952381 0.00952381
-5.96046e-08 0.980952 0.980952 0.971429 0.971429;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 347 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherA2 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.533331 0.0571452 0.228571 0.485714
0.0857143 0.238095 1 0.904762 0.904762 0.0380952 0.228571 0.419048
0.0571429 0.171429 0.32381 0.047619 0.142857 0.247619 0.114286 0.0571429
;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 183 28 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherA4 60 float 3;
#A 0 0.542857 0.542857 0.542857 0.552381 0.552381 0 0.00952375 0.561905
0.561905 0.561905 0.561905 0.561905 0.561905 0.0190476 0.0190476 0.561905
0.561905 0.561905 0.561905 0.561905 0.561905 0.00952381 0.00952381
0.561905 0.561905 0.561905 0.561905 0.561905 0.0190477 0.0190477 0.552381
0.552381 0.552381 0.542857 0.542857 0.542857 0.542857 0.00952387 0.00952387
0.542857 0.542857 0.542857 0.542857 0.542857 0.542857 0.542857 0.542857
0.0190476 0.0190476 0.552381 0.552381 0.552381 0.552381 0.552381 0.552381
0.0190476 0.552381 0.552381 0.552381 0.542857;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 504 28 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherA1 30 float 3;
#A 0 0.409525 0.409525 0.409525 0.0095253 0.0095253 0.304762 0.304762
0.0095253 0.0095253 0.466667 0.466667 2.92063e-06 2.92063e-06 0.361905
0.361905 2.92063e-06 2.92063e-06 0.0761909 0.0761909 0.0761909 0.0761909
0.0761909 0.0761909 -0.00952375 0.390476 0.390476 0 0.0952381 0.0952381
0.0952381;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 24 28 graph;
#X obj 28 299 inlet;
#X obj 28 380 outlet;
#X obj 28 351 t b a;
#X obj 230 346 s \$0-word;
#X obj 138 480 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 138 412 + 1;
#X floatatom 138 435 5 0 0 0 - - -;
#X obj 277 387 + 1;
#X floatatom 277 410 5 0 0 0 - - -;
#X obj 138 369 t a a;
#X obj 138 457 array_copier flasherA;
#X obj 277 432 array_copier flasherB;
#X obj 28 328 random 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherB2 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.0571429 0.180952 0.380952
0.0571429 0.142857 0.266667 0.0666666 0.114286 0.209524 0.133333 0.047619
;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 182 158 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherB3 40 float 3;
#A 0 0.133333 0.133333 0.142857 0.161905 0.190476 0.238095 0.285713
0.333332 0.380951 0.457141 0.552378 0.676187 0.780948 0.904757 0.980947
1.01904 0.0380951 0.0380951 0.0380951 0.0380951 0 0 1 0 0.990476 0.990476
0.990476 0.990476 0.00952375 0.00952375 0.00952375 0.980953 0.971429
0.971429 0.971429 0.971429 1.01905 -0.00952399 -0.00952399 0.0761908
;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 347 164 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherB4 60 float 3;
#A 0 0.561904 0.571428 0.571428 0.571428 -1.19209e-07 0.00952375 0.571428
0.571428 0.580952 0.580952 0.580952 0.580952 0.00952387 0 0.580952
0.580952 0.580952 0.580952 0.580952 0.590476 0.0285715 0.00952381 0.580952
0.580952 0.590476 0.590476 0.6 0.6 0.0190477 0.00952381 0 0.580952
0.580952 0.580952 0.580952 0.580952 0.580952 0.0190477 0.580952 0.580952
0.580952 0.57619 0.571429 0.571429 0 0 0 0.561905 0.561905 0.561905
0.561905 0.561905 0.561905 0.00952387 0.00952387 0.00952387 0 0.561905
0.561905 0.542857;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 503 162 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array flasherB1 30 float 3;
#A 0 0.0761905 0.0761905 0.0761905 0.0095253 0.0095253 0.0666667 0.0666667
0.0095253 0.0095253 0.0761905 0.0761905 2.92063e-06 2.92063e-06 0.0857143
0.0857143 2.92063e-06 2.92063e-06 0.380952 0.0761909 0.380952 0.0761909
0.371429 -4.76837e-07 -0.00952375 0.104762 0.104762 0.104762 0.266667
0.390476 0.266667;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 24 161 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array flasherA0 10 float 3;
#A 0 0.942858 0.97143 0.980954 0.84762 0.771429 0.923811 0.666679 0.704758
0.371439 0.504763;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 479 382 graph;
#X obj 382 360 t b b;
#X msg 409 381 0;
#X obj 382 340 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144
-1 -1;
#X obj 167 276 loadbang;
#X obj 167 318 s \$0-word-max;
#X obj 73 287 r \$0-word-max;
#X floatatom 73 308 5 0 0 0 - - -;
#X msg 167 297 4;
#X connect 4 0 16 0;
#X connect 6 0 5 0;
#X connect 6 1 13 0;
#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 connect 22 0 5 0;
#X connect 22 1 23 0;
#X connect 23 0 14 0;
#X connect 24 0 22 0;
#X connect 25 0 29 0;
#X connect 27 0 28 0;
#X connect 28 0 16 1;
#X connect 29 0 26 0;
#X restore 48 256 pd expressions;
#N canvas 490 171 966 616 (subpatch) 0;
#X array flasherA 30 float 3;
#A 0 0.409525 0.409525 0.409525 0.0095253 0.0095253 0.304762 0.304762
0.0095253 0.0095253 0.466667 0.466667 2.92063e-06 2.92063e-06 0.361905
0.361905 2.92063e-06 2.92063e-06 0.0761909 0.0761909 0.0761909 0.0761909
0.0761909 0.0761909 -0.00952375 0.390476 0.390476 0 0.0952381 0.0952381
0.0952381;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 27 44 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -66577
-257985 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -66577 -257985
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -66577 -257985
-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 30 float 3;
#A 0 0.0761905 0.0761905 0.0761905 0.0095253 0.0095253 0.0666667 0.0666667
0.0095253 0.0095253 0.0761905 0.0761905 2.92063e-06 2.92063e-06 0.0857143
0.0857143 2.92063e-06 2.92063e-06 0.380952 0.0761909 0.380952 0.0761909
0.371429 -4.76837e-07 -0.00952375 0.104762 0.104762 0.104762 0.266667
0.390476 0.266667;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 27 86 graph;
#X obj 48 217 r FLASHER;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-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 1
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 1
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 253 29 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X msg 459 44 1500 1001 0 \$1;
#X msg 437 67 1500 1002 0 \$1;
#X obj 459 23 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 437 45 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 397 166 v \$0-STRESS;
#X obj 397 212 v \$0-STRESS;
#X obj 397 146 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 397 189 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 19 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 48 0;
#X connect 4 0 36 0;
#X connect 7 0 0 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 12 0 13 0;
#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 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 1 0;
#X connect 53 0 9 0;
#X connect 54 0 9 0;
#X connect 55 0 53 0;
#X connect 56 0 54 0;
#X connect 57 0 60 0;
#X connect 59 0 57 0;
#X connect 60 0 58 0;
#X connect 63 0 65 0;
#X connect 65 0 64 0;
#X connect 67 0 69 0;
#X connect 68 0 67 0;
#X coords 0 -1 1 1 100 150 2 5 5;

289
puredata/radio_theatre_0.forest-of-unknown/radio_float.pd Normal file
View file

@ -0,0 +1,289 @@
#N canvas 655 23 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-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 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.6;
#X msg 285 439 0.2;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 58 203 688 374 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 38 224 count 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array float0 10 float 3;
#A 0 0.266667 0.285714 0.295238 0.32381 0.352381 0.371429 0.409525
0.2 0.228572 0.257143;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 350 255 graph;
#X obj 62 322 t b b;
#X msg 89 343 0;
#X obj 62 302 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array float1 20 float 3;
#A 0 0.723809 0.723809 0.657142 0.561904 0.514284 0.523808 0.55238
0.614285 0.67619 0.742857 0.695238 0.580951 0.485713 0.457141 0.457141
0.55238 0.561904 0.666666 0.67619 0.561904;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 29 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array float4 15 float 3;
#A 0 0.666667 0.666667 0.676191 0.685714 0.685714 0.685714 0.685714
0.685714 0.685714 0.685714 0.685714 0.68381 0.681905 0.68 0.678095
;
#X coords 0 1 15 0 150 105 1 0 0;
#X restore 509 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array float2 20 float 3;
#A 0 0.523809 0.523809 0.519048 0.514286 0.514286 0.511111 0.507937
0.495238 0.495238 0.504762 0.495238 0.485714 0.466666 0.457143 0.428571
0.438095 0.438095 0.438095 0.438095 0.438095;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 185 36 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array float3 30 float 3;
#A 0 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.0285714
0.0285714 0.0285714 0.571429 0.571429 0.571429 0.571429 0.571429 0.047619
0.047619 0.0285714 0.571429 0.561905 0.561905 0.561905 0.561905 0.0380951
0.047619 0.0380951 0.047619 0.0285714 0.561905 0.561905 0.561905;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 349 31 graph;
#X obj 171 172 loadbang;
#X obj 171 214 s \$0-word-max;
#X obj 77 183 r \$0-word-max;
#X floatatom 77 204 5 0 0 0 - - -;
#X msg 171 193 4;
#X obj 148 310 array_copier float;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 21 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 9 0 1 0;
#X connect 9 1 10 0;
#X connect 10 0 21 0;
#X connect 11 0 9 0;
#X connect 16 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 7 1;
#X connect 20 0 17 0;
#X connect 21 0 4 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array float 30 float 3;
#A 0 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.0285714
0.0285714 0.0285714 0.571429 0.571429 0.571429 0.571429 0.571429 0.047619
0.047619 0.0285714 0.571429 0.561905 0.561905 0.561905 0.561905 0.0380951
0.047619 0.0380951 0.047619 0.0285714 0.561905 0.561905 0.561905;
#X coords 0 1 30 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -13330
-4034 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -13381 -4034
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -13381 -4034
-1 0 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 282 108 v \$0-STRESS;
#X obj 282 154 v \$0-STRESS;
#X obj 282 88 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 282 131 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 164 21 r FLOAT;
#X obj 48 218 r FLOAT;
#X obj 167 279 s FLOAT;
#X obj 295 452 s FLOAT_DONE;
#X msg 319 323 symbol float;
#X obj 89 307 riff1_random 1000 3308 700 1000;
#X connect 0 0 38 0;
#X connect 1 0 37 0;
#X connect 2 0 5 0;
#X connect 2 0 36 0;
#X connect 4 0 35 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 38 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 37 0;
#X connect 20 0 23 0;
#X connect 22 0 20 0;
#X connect 23 0 21 0;
#X connect 26 0 28 0;
#X connect 28 0 27 0;
#X connect 30 0 32 0;
#X connect 31 0 30 0;
#X connect 33 0 7 0;
#X connect 34 0 10 0;
#X connect 37 0 38 1;
#X connect 38 0 16 0;
#X connect 38 3 2 0;
#X coords 0 -1 1 1 100 150 2 5 5;

301
puredata/radio_theatre_0.forest-of-unknown/radio_frog.pd Normal file
View file

@ -0,0 +1,301 @@
#N canvas 804 161 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 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 84 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 113 resample 100;
#X msg 285 439 0.2;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.68;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 48 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 250 164 688 488 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array frog1 25 float 3;
#A 0 0.095238 0.12381 0.171429 0.219048 0.295239 0.438097 0.514288
0.552384 0.552384 0.514288 0.457145 0.380954 0.295239 0.190477 0.133333
0.104762 0.0857141 0.0761902 0.0761902 0.0761902 0.00952369 0.0190476
0.00952357 0.00952357 0.00952357;
#X coords 0 1 25 0 150 105 1 0 0;
#X restore 24 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array frog2 30 float 3;
#A 0 0.199999 0.195237 0.457144 0.457144 0.414286 0.333333 0.380953
0.438096 0.428572 0.199999 0.247618 0.161904 0.142856 0.257142 0.219047
0.247618 0.323809 0.514287 0.619049 0.619049 0.142856 0.133332 0.123808
0.123808 0.142856 0.199999 0.323809 0.476191 0.438096 0.4;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 184 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array frog3 21 float 3;
#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.0571432 0.00952381 0.0666667 0.0666667 0.0666667 0.0666667
0.00952381 0.0666667 0.0666667 0.0666667 0.0666667 0.0190476 0.0666667
0.0666667 0.0761905 0.0285714 0.0761905 0.0761905 0.0285714 0.0761905
;
#X coords 0 1 21 0 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;
#N canvas 84 25 450 278 (subpatch) 0;
#X array frog0 10 float 3;
#A 0 0.561905 0.180952 0.428571 0.0666667 0.0952381 0.209524 0.552381
0.190476 0.390475 0.419047;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 238 331 graph;
#X obj 72 345 t b b;
#X msg 99 366 0;
#X obj 72 325 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 166 145 loadbang;
#X obj 166 187 s \$0-word-max;
#X obj 72 156 r \$0-word-max;
#X floatatom 72 177 5 0 0 0 - - -;
#X msg 166 166 4;
#X connect 4 0 12 0;
#X connect 6 0 5 0;
#X connect 6 1 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 8 0;
#X connect 12 0 6 0;
#X connect 12 0 7 0;
#X connect 14 0 5 0;
#X connect 14 1 15 0;
#X connect 15 0 11 0;
#X connect 16 0 14 0;
#X connect 17 0 21 0;
#X connect 19 0 20 0;
#X connect 20 0 12 1;
#X connect 21 0 18 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array frog 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 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -262144
-128992 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
-1 -1 0 1;
#X obj 88 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 217 r FROG;
#X obj 231 452 s FROG_DONE;
#X obj 164 21 r FROG;
#X msg 249 329 frog;
#X obj 167 269 s FROG;
#X obj 183 421 > 50;
#X obj 183 444 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
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 277 117 v \$0-STRESS;
#X obj 277 163 v \$0-STRESS;
#X obj 277 97 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 277 140 * 0.5;
#X obj 88 306 riff1 1000 1061 1500;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 33 0;
#X connect 1 0 22 0;
#X connect 2 0 5 0;
#X connect 2 0 20 0;
#X connect 4 0 23 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 33 0;
#X connect 13 0 4 0;
#X connect 16 0 26 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 10 0;
#X connect 21 0 7 0;
#X connect 22 0 33 1;
#X connect 24 0 25 0;
#X connect 25 0 26 1;
#X connect 26 0 15 0;
#X connect 27 0 33 0;
#X connect 28 0 22 0;
#X connect 29 0 32 0;
#X connect 31 0 29 0;
#X connect 32 0 30 0;
#X connect 33 0 16 0;
#X connect 33 2 24 0;
#X connect 33 3 2 0;
#X connect 36 0 38 0;
#X connect 38 0 37 0;
#X connect 40 0 42 0;
#X connect 41 0 40 0;
#X coords 0 -1 1 1 100 150 2 5 5;

272
puredata/radio_theatre_0.forest-of-unknown/radio_ganymede.pd Normal file
View file

@ -0,0 +1,272 @@
#N canvas 552 87 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 746 89 533 644 world 1;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X msg 285 439 0.002;
#X obj 16 29 r WORLD_ENERGY;
#X obj 49 56 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 0 1;
#X obj 158 21 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 158 41 s \$0-SLEEP;
#X obj 16 56 +;
#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 53 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 47 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 15 0;
#X connect 48 0 52 0;
#X connect 49 0 52 1;
#X connect 50 0 51 0;
#X connect 52 0 0 0;
#X connect 53 0 1 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 38 224 count 4;
#X obj 148 310 array_copier ganymede;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede1 50 float 3;
#A 0 0.2 0.2 0.266666 0.333332 0.390475 0.457141 0.533331 0.590473
0.666663 0.780948 0.80952 0.80952 0.752377 0.65714 0.561902 0.519045
0.476188 0.371427 0.257142 0.2 0.152381 0.12381 0.114286 0.0666667
0.0190476 0.0285714 0.0285714 0.0285714 0.0285714 0.0190476 0.0190476
0.0190476 0.609524 0.609524 0.609524 0.6 0.228571 0.238095 0.238095
0 0.12381 0.6 0.590476 0.580953 0.561905 0.552381 0.238095 0.238095
0.238095 0.238095;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 34 43 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede2 50 float 3;
#A 0 0.00952381 0.114286 0.17143 0.29524 0.400002 0.46667 0.580956
0.676195 0.819053 0.952387 0 0 0 0 0 0.304762 0.428573 0.523811 0.628574
0.714289 1.02857 1.17143 0 0 0 0 0 0 0.41905 0.523812 0.609527 0.752385
0.819052 1.14286 0 0 0 0 0 0 0.428573 0.476192 0.590478 0.838099 0.933338
1.06667 1.25715 1.30477 0 0;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 194 43 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede3 50 float 3;
#A 0 0.0761898 0.0952375 0.114285 0.133333 0.152381 0.295238 0.114285
0.0952375 0.0952375 0.0952375 0.0761904 0.0666665 0.0666665 0.0666665
0.0761904 0.0952381 0.114286 0.123809 0.142857 0.171428 0.295238 0.180953
0.142857 0.133333 0.114286 0.104762 0.085714 0.085714 0.085714 0.085714
0.0666663 0.0666663 0.0666663 0.0761902 0.0952378 0.104762 0.123809
0.238095 0.123809 0.0952376 0.0761898 0.0666659 0.0666659 0.0666659
0.0761898 0.0761898 0.0952376 0.27619 0.133333 0.0952377;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 354 43 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede4 50 float 3;
#A 0 0.180953 0.161905 0.504761 0.257143 0.180952 0.0857131 0.0761893
0.228569 0.466666 0.371427 0.314284 0.114286 0.0952379 0.114286 0.238096
0.295239 0.466666 0.819048 0.104759 0.257141 0.323808 0.495237 0.104762
0.104762 0.095238 0.104762 0.142857 0.190477 0.361906 0.161902 0.209521
0.857143 0.361903 0.238094 0.0952377 0.0857139 0.190475 0.238094 0.352381
0.342857 0.92381 0.142857 0.114285 0.114285 0.142857 0.238096 0.114285
0.104762 0.285714 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 514 43 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array ganymede 50 float 3;
#A 0 0.00952381 0.114286 0.17143 0.29524 0.400002 0.46667 0.580956
0.676195 0.819053 0.952387 0 0 0 0 0 0.304762 0.428573 0.523811 0.628574
0.714289 1.02857 1.17143 0 0 0 0 0 0 0.41905 0.523812 0.609527 0.752385
0.819052 1.14286 0 0 0 0 0 0 0.428573 0.476192 0.590478 0.838099 0.933338
1.06667 1.25715 1.30477 0 0;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -86853
-261682 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -86853 -261682
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -86853 -261682
-1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 164 21 r GANYMEDE;
#X obj 48 188 r GANYMEDE;
#X obj 167 279 s GANYMEDE;
#X obj 295 452 s GANYMEDE_DONE;
#X msg 319 323 ganymede;
#X obj 233 129 v \$0-STRESS;
#X obj 233 175 v \$0-STRESS;
#X obj 233 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 233 152 * 0.5;
#X obj 88 306 riff1_random 50 4402 700 1000;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 148 set \$1;
#X obj 5 128 r \$0-SLEEP;
#X obj 5 169 s \$0-SLEEP-set;
#X connect 0 0 29 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 29 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 24 0;
#X connect 20 0 7 0;
#X connect 21 0 10 0;
#X connect 24 0 29 1;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 29 0 16 0;
#X connect 29 3 2 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X coords 0 -1 1 1 100 100 2 5 5;

345
puredata/radio_theatre_0.forest-of-unknown/radio_grayhose.pd Normal file
View file

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

266
puredata/radio_theatre_0.forest-of-unknown/radio_jupiter.pd Normal file
View file

@ -0,0 +1,266 @@
#N canvas 561 89 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 47 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 49 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 1 0;
#X connect 48 0 0 0;
#X connect 49 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 675 374 expressions 0;
#X obj 20 167 inlet;
#X obj 20 248 outlet;
#X obj 20 219 t b a;
#X obj 222 214 s \$0-word;
#X obj 130 305 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 130 237 + 1;
#X floatatom 130 260 5 0 0 0 - - -;
#X obj 20 196 count 4;
#X obj 130 282 array_copier jupiter;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter1 50 float 3;
#A 0 0.0857146 0.228573 0.228573 0.219049 0.190477 0.133334 0.0857146
0.0476191 0.161906 0.24762 0.285716 0.219049 0.200001 0.0857146 0.190477
0.209525 0.209525 0.190477 0.171429 0.0952384 0.0476191 0.114286 0.209525
0.257144 0.24762 0.142858 0.0952384 0.0476191 0.190477 0.24762 0.24762
0.24762 0.238096 0.219049 0.133334 0.0857146 0.114286 0.219049 0.223811
0.228573 0.200001 0.152382 0.133334 0.12381 0.214287 0.238096 0.209525
0.161906 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 19 32 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter2 50 float 3;
#A 0 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.152381 0.295238
0.447619 0.580952 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.32381
0.409524 0.47619 0.580952 0.704762 0.00952363 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.361905 0.523811 0.638096
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 179 32 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter3 50 float 3;
#A 0 0.828571 0.00952381 0.00952381 0.00952381 0.857143 0.857143 0.857143
0.861904 0.866666 0.866666 0.0190476 0.00952381 0.00952381 0.00952381
0.866666 0.866666 0.866666 0.0190476 0.0190476 0.0190476 0.866666 0.866666
0.864285 0.861904 0.0190476 0.0190476 0.0190476 0.853333 0.849524 0.845714
0.0285714 0.0285714 0.0285714 0.825397 0.822222 0.819048 0.0190479
0.0190479 0.0190479 0.0190479 0.809524 0.809524 0.809524 0.00952387
0.00952387 0.0142857 0.0190476 0.809524 0.809524 0.0285711;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 339 32 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter4 50 float 3;
#A 0 0.180953 0.161905 0.438095 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.466666 0.438095 0.438095 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.342857 0.92381 0.428571 0.428571 0.323809 0.380952 0.342857 0.47619
0.47619 0.285714 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 499 32 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array jupiter 50 float 3;
#A 0 0.828571 0.00952381 0.00952381 0.00952381 0.857143 0.857143 0.857143
0.861904 0.866666 0.866666 0.0190476 0.00952381 0.00952381 0.00952381
0.866666 0.866666 0.866666 0.0190476 0.0190476 0.0190476 0.866666 0.866666
0.864285 0.861904 0.0190476 0.0190476 0.0190476 0.853333 0.849524 0.845714
0.0285714 0.0285714 0.0285714 0.825397 0.822222 0.819048 0.0190479
0.0190479 0.0190479 0.0190479 0.809524 0.809524 0.809524 0.00952387
0.00952387 0.0142857 0.0190476 0.809524 0.809524 0.0285711;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -86853
-260097 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -86853 -260097
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -86853 -260097
-1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X obj 88 306 riff1_random 600 3308 700 1000;
#X obj 164 21 r JUPITER;
#X obj 48 188 r JUPITER;
#X obj 167 279 s JUPITER;
#X obj 295 452 s JUPITER_DONE;
#X msg 319 323 jupiter;
#X connect 0 0 27 0;
#X connect 1 0 32 0;
#X connect 2 0 5 0;
#X connect 2 0 31 0;
#X connect 4 0 30 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 27 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 32 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 16 0;
#X connect 27 3 2 0;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 27 1;
#X coords 0 -1 1 1 100 100 2 5 5;

266
puredata/radio_theatre_0.forest-of-unknown/radio_pluto.pd Normal file
View file

@ -0,0 +1,266 @@
#N canvas 318 89 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X msg 285 439 0.05;
#X obj 16 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 48 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 47 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 15 0;
#X connect 48 0 1 0;
#X connect 49 0 0 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 38 224 count 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth1 50 float 3;
#A 0 0.0761902 0.095238 0.133333 0.152381 0.180953 0.190477 0.200001
0.200001 0.200001 0.180953 0.161905 0.142857 0.171429 0.209524 0.228572
0.24762 0.266668 0.285715 0.285715 0.304763 0.304763 0.314287 0.304763
0.276191 0.257144 0.276191 0.295239 0.314287 0.323811 0.333335 0.352382
0.361906 0.37143 0.37143 0.361906 0.323811 0.209524 0.228572 0.238096
0.257144 0.266668 0.266668 0.285715 0.295239 0.295239 0.295239 0.295239
0.285715 0.257144 0.228572;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 40 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.504762 0.628571 0.695238 0.790476 0.92381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.447619 0.552381 0.657143
0.80952 0.885714 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 200 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth3 50 float 3;
#A 0 0.0380952 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0 0 0 0 0 0.0285714 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0 0 0 0 0 0 0 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0 0 0 0
0 0 0 0 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 360 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth4 50 float 3;
#A 0 0.0571424 0.0761902 0.133332 0.209523 0.247619 0.304763 0.323811
0.276191 0.190477 0.152381 0.0761902 0.12381 0.161905 0.276191 0.342859
0.24762 0.180953 0.142858 0.0666666 0.114286 0.228572 0.304763 0.37143
0.380954 0.304763 0.238096 0.161905 0.12381 0.0761905 0.0857143 0.171429
0.24762 0.304763 0.361906 0.37143 0.342858 0.314287 0.266668 0.219048
0.152381 0.0761902 0.180953 0.219048 0.295239 0.380954 0.428573 0.380954
0.304763 0.171429 0.0666663;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 148 310 array_copier earth;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 12 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 12 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array earth 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.504762 0.628571 0.695238 0.790476 0.92381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.0190485 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.447619 0.552381 0.657143
0.80952 0.885714 0.00952381 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08 5.96046e-08
;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 76 graph;
#X obj 31 138 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -204786
-4160 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -4160
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
-4160 -1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X obj 88 306 riff1_random 600 4203 700 1000;
#X obj 164 21 r EARTH;
#X obj 48 188 r EARTH;
#X obj 295 452 s EARTH_DONE;
#X obj 167 279 s EARTH;
#X msg 319 323 earth;
#X connect 0 0 27 0;
#X connect 1 0 32 0;
#X connect 2 0 5 0;
#X connect 2 0 30 0;
#X connect 4 0 31 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 27 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 32 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 16 0;
#X connect 27 3 2 0;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 27 1;
#X coords 0 -1 1 1 100 150 2 5 5;

317
puredata/radio_theatre_0.forest-of-unknown/radio_postbox.pd Normal file
View file

@ -0,0 +1,317 @@
#N canvas 407 83 367 511 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.65;
#X msg 285 439 0.15;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 156 292 901 398 expressions 0;
#X obj 42 195 inlet;
#X obj 42 276 outlet;
#X obj 42 247 t b a;
#X obj 244 242 s \$0-word;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox1 80 float 3;
#A 0 0.257143 0.238095 0.228571 0.219047 0.304762 0.228571 0.047619
0.219048 0.228571 0.228572 0.228572 0.228572 0.047619 0.228572 0.228572
0.219048 0.209524 0.2 0.2 0.171429 0.161905 0.047619 0.152381 0.142857
0.120635 0.11746 0.114286 0.114286 0.109524 0.104762 0.0952379 0.0952379
0.090476 0.085714 0.090476 0.0952379 0.0952379 0.104762 0.114286 0.12381
0.152381 0.0666664 0.2 0.2 0.209524 0.209524 0.047619 0.209524 0.209524
0.209524 0.209524 0.209524 0.2 0.047619 0.190476 0.185715 0.180953
0.180953 0.0571429 0.161905 0.152381 0.142857 0.133333 0.123809 0.114286
0.0857142 0.0571429 0.0571429 0.0571429 0.0666667 0.0666667 0.0857145
0.0857145 0.0952383 0.104762 0.114286 0.114286 0.119048 0.12381 0.171429
;
#X coords 0 1 80 0 150 105 1 0 0;
#X restore 38 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox2 50 float 3;
#A 0 0.238095 0.252381 0.238095 0.238095 0.219048 0.0952381 0.0857142
0.0761904 0.171428 0.171428 0.161904 0.161904 0.257143 0.161904 0.0761905
0.0761905 0.0666667 0.161904 0.161904 0.257143 0.168254 0.171428 0.180952
0.184127 0.187301 0.190476 0.0571429 0.0857143 0.0952381 0.220952 0.224762
0.228571 0.238095 0.238095 0.238095 0.104762 0.161905 0.238095 0.238095
0.238095 0.238095 0.238095 0.238095 0.234921 0.123809 0.123809 0.123809
0.219048 0.209524 0.228571;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 198 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox3 30 float 3;
#A 0 0.133333 0.142857 0.152381 0.152381 0.161905 0.171429 0.171429
0.171429 0.171429 0.171429 0.171429 0.171429 0.171429 0.171429 0.171429
0.171429 0.171429 0.171429 0.180952 0.180952 0.180952 0.180952 0.180952
0.180952 0.190476 0.190476 0.2 0.209524 0.209524 0.219048;
#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 postbox5 40 float 3;
#A 0 0.0952381 0.104762 0.133334 0.157144 0.209525 0.238096 0.266668
0.285714 0.24762 0.0857142 0.0952382 0.142858 0.190477 0.219049 0.257144
0.304762 0.304763 0.104762 0.114286 0.133334 0.171429 0.190477 0.200001
0.209524 0.219048 0.228572 0.238096 0.27619 0.0857143 0.12381 0.161905
0.196826 0.231747 0.266667 0.304762 0.057143 0.104762 0.161906 0.266668
0.314286;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 685 43 graph;
#X obj 161 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 161 265 + 1;
#X floatatom 161 288 5 0 0 0 - - -;
#N canvas 84 25 450 278 (subpatch) 0;
#X array postbox0 10 float 3;
#A 0 0.361904 0.285713 0.323809 0.295237 0.323809 0.304761 0.304761
0.304761 0.276189 0.276189;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 473 252 graph;
#X obj 67 351 t b b;
#X msg 94 372 0;
#X obj 67 331 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 161 310 array_copier postbox;
#X obj 175 172 loadbang;
#X obj 175 214 s \$0-word-max;
#X obj 81 183 r \$0-word-max;
#X floatatom 81 204 5 0 0 0 - - -;
#X msg 175 193 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox4 60 float 3;
#A 0 0.0571418 0.142857 0.2 0.209524 0.2 0.180952 0.171428 0.0380943
0.0952381 0.0857142 0.0666665 0.0666665 0.104762 0.104762 0.114286
0.133333 0.142857 0.152381 0.142857 0.142857 0.200001 0.219049 0.228573
0.238096 0.190477 0.142858 0.133333 0.133333 0.114286 0.0857144 0.0285711
0.047619 0.047619 0.0571428 0.085714 0.114285 0.114285 0.114285 0.104762
0.0952378 0.0952378 0.0904759 0.085714 0.085714 0.0761903 0.0666665
0.0571428 0.0380953 0.0380953 0.0190478 0.0190478 0.0238097 0.0380953
0.047619 0.0571428 0.0666665 0.0666665 0.0666665 0.0666665 0.0666665
;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 520 38 graph;
#X obj 42 224 count 5;
#X connect 0 0 22 0;
#X connect 2 0 1 0;
#X connect 2 1 9 0;
#X connect 9 0 10 0;
#X connect 10 0 15 0;
#X connect 12 0 1 0;
#X connect 12 1 13 0;
#X connect 13 0 15 0;
#X connect 14 0 12 0;
#X connect 15 0 8 0;
#X connect 16 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 22 1;
#X connect 20 0 17 0;
#X connect 22 0 2 0;
#X connect 22 0 3 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array postbox 30 float 3;
#A 0 0.133333 0.142857 0.152381 0.152381 0.161905 0.171429 0.171429
0.171429 0.171429 0.171429 0.171429 0.171429 0.171429 0.171429 0.171429
0.171429 0.171429 0.171429 0.180952 0.180952 0.180952 0.180952 0.180952
0.180952 0.190476 0.190476 0.2 0.209524 0.209524 0.219048;
#X coords 0 1 30 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 5 empty \$0-word empty 0 -8 0 10 -262144
-128992 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
-1 -1 0 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 233 129 v \$0-STRESS;
#X obj 233 175 v \$0-STRESS;
#X obj 233 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 233 152 * 0.5;
#X obj 48 218 r POSTBOX;
#X obj 164 21 r POSTBOX;
#X obj 167 269 s POSTBOX;
#X obj 231 452 s POSTBOX_DONE;
#X msg 249 329 postbox;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 5 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 88 306 riff1 700 4206 1000;
#X connect 0 0 38 0;
#X connect 1 0 28 0;
#X connect 2 0 5 0;
#X connect 2 0 27 0;
#X connect 4 0 26 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 38 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 28 0;
#X connect 20 0 23 0;
#X connect 22 0 20 0;
#X connect 23 0 21 0;
#X connect 24 0 10 0;
#X connect 25 0 7 0;
#X connect 28 0 38 1;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 38 0 16 0;
#X connect 38 3 2 0;
#X coords 0 -1 1 1 100 150 2 5 5;

323
puredata/radio_theatre_0.forest-of-unknown/radio_rounder.pd Normal file
View file

@ -0,0 +1,323 @@
#N canvas 698 95 367 511 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 285 439 0.1;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.75;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 48 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 84 248 697 398 expressions 0;
#X obj 42 195 inlet;
#X obj 42 276 outlet;
#X obj 42 247 t b a;
#X obj 244 242 s \$0-word;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder1 40 float 3;
#A 0 0.0666656 -0.0095253 -0.028573 -0.0476208 -1.43175e-06 -0.0444462
0.133333 0.0571418 0.104761 0.104761 0.180952 0.171428 0.133333 0.15238
0.171428 -0.0190492 -0.0571446 -0.0714304 -0.0857162 0.0761895 0.161904
0.161904 0.161904 0.123809 0.15238 0.161904 0.136507 0.123809 -0.0666685
-0.0952401 -0.0380969 -0.0507954 0.0666656 0.15238 0.104761 -0.0571446
-0.0666685 -0.0761924 0.0285702 -0.0476208;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 38 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder2 50 float 3;
#A 0 0.180952 0.180952 0.180952 0.180952 0.180952 0.180952 0.180952
0.180952 0.180952 0.180952 0.180952 0.171428 0.171428 0.169047 0.166666
0.164285 0.161904 0.15873 0.155555 0.15238 0.149206 0.146031 0.142857
0.142857 0.142857 0.142857 0.133333 0.133333 0.123809 0.123809 0.120634
0.11746 0.114285 0.11111 0.107936 0.104761 0.104761 0.104761 0.104761
0.104761 0.104761 0.104761 0.114286 0.114286 0.114286 0.114286 0.114286
0.12381 0.133333 0.142857;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 198 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder3 40 float 3;
#A 0 0.285714 0.27619 0.0190476 -0.247621 -0.247621 -1.78814e-07 0.200001
0.209525 0.0285714 -0.438095 -0.428571 0.0190476 0.304762 0.304762
0.0285714 -0.352383 -0.371433 -0.352385 0.257144 0.0285714 0.0285714
-0.304764 -0.371431 0.304762 0.295238 -0.428571 0.314286 0.0190476
0.380953 0.371429 0.00952381 -0.390479 -0.400003 0 -0.409527 0.380955
0.266668 0.00952381 -0.209526 -0.200002;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 358 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder5 40 float 3;
#A 0 -0.552385 -0.533337 -0.533337 -0.533337 -0.533337 -0.533337 -0.533337
-0.533337 -0.533337 -0.533337 -0.533337 -0.533337 -0.533337 -0.533337
-0.530956 -0.528575 -0.526194 -0.523813 -0.523813 -0.523813 -0.523813
-0.514289 -0.504766 -0.504766 -0.504766 -0.504766 -0.504766 -0.504766
-0.504766 -0.504766 -0.504766 -0.504766 -0.517464 -0.520639 -0.523813
-0.528575 -0.533337 -0.533337 -0.538099 -0.542861;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 681 41 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 - - -;
#N canvas 84 25 450 278 (subpatch) 0;
#X array rounder0 10 float 3;
#A 0 0.942858 0.97143 0.980954 0.685714 0.771429 0.923811 0.666679
0.704758 0.371439 0.504763;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 473 252 graph;
#X obj 67 351 t b b;
#X msg 94 372 0;
#X obj 67 331 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 175 172 loadbang;
#X obj 175 214 s \$0-word-max;
#X obj 81 183 r \$0-word-max;
#X floatatom 81 204 5 0 0 0 - - -;
#X msg 175 193 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder4 30 float 3;
#A 0 0.152381 0.180952 0.247619 0.304763 0.199999 0.266666 0.380953
0.400001 0.15238 0.190476 0.247619 0.361905 0.228571 -0.0857149 -0.12381
-0.161906 -0.209525 -0.257145 -0.095239 -0.133335 -0.17143 -0.209525
-0.276193 -0.0952392 -0.0952392 -0.142859 -0.228573 -0.257145 -0.266669
0.171429;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 519 33 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder6 40 float 3;
#A 0 0.523809 0.509524 0.485714 0.457143 0.428572 0.400001 0.361906
0.338096 0.304763 0.276192 0.266668 0.240478 0.214288 0.188097 0.161907
0.123812 0.0984153 0.0730186 0.047622 0.0285745 3.21865e-06 -0.0380918
-0.0571393 -0.0761868 -0.104758 -0.123806 -0.152377 -0.180948 -0.228567
-0.266662 -0.292852 -0.319042 -0.345233 -0.371423 -0.404756 -0.438089
-0.476184 -0.523803 -0.54285 -0.590469;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 857 32 graph;
#X obj 42 224 count 6;
#X connect 0 0 23 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 13 0 1 0;
#X connect 13 1 14 0;
#X connect 14 0 10 0;
#X connect 15 0 13 0;
#X connect 16 0 20 0;
#X connect 18 0 19 0;
#X connect 19 0 23 1;
#X connect 20 0 17 0;
#X connect 23 0 2 0;
#X connect 23 0 3 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array rounder 40 float 3;
#A 0 0.0666656 -0.0095253 -0.028573 -0.0476208 -1.43175e-06 -0.0444462
0.133333 0.0571418 0.104761 0.104761 0.180952 0.171428 0.133333 0.15238
0.171428 -0.0190492 -0.0571446 -0.0714304 -0.0857162 0.0761895 0.161904
0.161904 0.161904 0.123809 0.15238 0.161904 0.136507 0.123809 -0.0666685
-0.0952401 -0.0380969 -0.0507954 0.0666656 0.15238 0.104761 -0.0571446
-0.0666685 -0.0761924 0.0285702 -0.0476208;
#X coords 0 1 40 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -262130
-128992 -1 0;
#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 0 1;
#X obj 164 21 r ROUNDER;
#X obj 48 218 r ROUNDER;
#X obj 167 269 s ROUNDER;
#X obj 231 452 s ROUNDER_DONE;
#X msg 249 329 rounder;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 233 129 v \$0-STRESS;
#X obj 233 175 v \$0-STRESS;
#X obj 233 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 233 152 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X msg 294 255 4002;
#X obj 88 306 riff1 900 4002 500;
#X connect 0 0 39 0;
#X connect 1 0 19 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 39 0;
#X connect 13 0 4 0;
#X connect 15 0 7 0;
#X connect 16 0 10 0;
#X connect 19 0 39 1;
#X connect 21 0 20 0;
#X connect 22 0 21 1;
#X connect 23 0 22 0;
#X connect 24 0 19 0;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 39 0 21 0;
#X connect 39 3 2 0;
#X coords 0 -1 1 1 100 150 2 5 5;

265
puredata/radio_theatre_0.forest-of-unknown/radio_saturn.pd Normal file
View file

@ -0,0 +1,265 @@
#N canvas 933 200 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 210 < 0.5;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 47 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 49 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 1 0;
#X connect 48 0 0 0;
#X connect 49 0 15 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 38 224 count 4;
#X obj 148 310 array_copier saturn;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn1 50 float 3;
#A 0 0.0857146 0.228573 0.228573 0.219049 0.190477 0.133334 0.0857146
0.0476191 0.161906 0.24762 0.285716 0.219049 0.200001 0.0857146 0.190477
0.209525 0.209525 0.190477 0.171429 0.0952384 0.0476191 0.114286 0.209525
0.257144 0.24762 0.142858 0.0952384 0.0476191 0.190477 0.24762 0.24762
0.24762 0.238096 0.219049 0.133334 0.0857146 0.114286 0.219049 0.223811
0.228573 0.200001 0.152382 0.133334 0.12381 0.214287 0.238096 0.209525
0.161906 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 20 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.285717 0.352383 0.400002
0.457144 0.523811 0.733334 0.790477 0.885716 0.980955 0.00952381 0.00952381
0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.00952363 0.00952363 0.00952363 0.0190485 0.0380998 0.0761948
0.104766 0.152385 0.180956 0.247622 0.333336 0.428574 0.523811 0.638096
0.80952 1.09524 0.0190476 0.00952381 0.00952381 0.00952381 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 180 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn3 50 float 3;
#A 0 1.00952 1.00952 0.0285713 0.0285713 0.0285713 0.0285713 0.0285713
0.0285713 0.0190474 0.00952369 1.00952 1.00952 1.00952 1.00952 1.00952
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476
1.00952 1.0119 1 1 1 0 0 0 0 0 0 0.990476 0.990476 0.990476 0.990476
0.990476 0.990476 -5.96046e-08 0.00952381 0.00952381 0.00952381 0.00952381
0.00952381 0.990476 0.990476 0.990476 0.990476 0.990476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 340 31 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn4 50 float 3;
#A 0 0.180953 0.161905 0.438095 0.438095 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.314284 0.247617 0.257141 0.314284 0.371427
0.42857 0.466666 0.438095 0.438095 0.438095 0.323808 0.495237 0.190474
0.209521 0.247617 0.288887 0.330157 0.399999 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.485715 0.190475 0.238094 0.352381
0.342857 0.92381 0.428571 0.428571 0.323809 0.380952 0.342857 0.47619
0.47619 0.285714 0.180951;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 500 31 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array saturn 50 float 3;
#A 0 0.0857146 0.228573 0.228573 0.219049 0.190477 0.133334 0.0857146
0.0476191 0.161906 0.24762 0.285716 0.219049 0.200001 0.0857146 0.190477
0.209525 0.209525 0.190477 0.171429 0.0952384 0.0476191 0.114286 0.209525
0.257144 0.24762 0.142858 0.0952384 0.0476191 0.190477 0.24762 0.24762
0.24762 0.238096 0.219049 0.133334 0.0857146 0.114286 0.219049 0.223811
0.228573 0.200001 0.152382 0.133334 0.12381 0.214287 0.238096 0.209525
0.161906 0.0190476 0.0190476;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -261682
-260097 -1 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -260097
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
-260097 -1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X obj 164 21 r SATURN;
#X obj 48 188 r SATURN;
#X obj 167 279 s SATURN;
#X obj 295 452 s SATURN_DONE;
#X msg 319 323 saturn;
#X obj 88 306 riff1_random 600 4206 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 31 0;
#X connect 2 0 5 0;
#X connect 2 0 30 0;
#X connect 4 0 29 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 31 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 7 0;
#X connect 27 0 13 0;
#X connect 28 0 10 0;
#X connect 31 0 32 1;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

581
puredata/radio_theatre_0.forest-of-unknown/radio_suitcase.pd Normal file
View file

@ -0,0 +1,581 @@
#N canvas 18 173 683 521 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 267 102 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X msg 114 44 1;
#X obj 114 67 v \$0-STATE;
#N canvas 701 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.63;
#X msg 285 436 0.2;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 267 79 pd world and me;
#N canvas 420 129 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 suitcaseB4 50 float 3;
#A 0 0.457143 0.485714 0.504762 0.514286 0.514286 0.514286 0.504762
0.447619 0.419047 0.0857145 0.047619 0.0285713 0.0285713 0.0285713
0.466667 0.485714 0.485714 0.485714 0.485714 0.47619 0.466667 0.428571
0.361905 0.171427 0.0571426 0.00952041 0.0190443 0.0190443 0.0190443
0.504762 0.542857 0.571429 0.571429 0.571429 0.561905 0.552381 0.533333
0.504762 0.276189 0.00952381 0.00952381 0.00952381 0.00952381 0.523809
0.552381 0.552381 0.552381 0.552381 0.542857 0.495238;
#X coords 0 1 50 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.44762 0.466667 0.476191 0.485714 0.485714 0.485714 0.438095
0.419047 0.361904 0.323809 0.276189 0.247618 0.209522 0.0190456 0.495238
0.52381 0.52381 0.52381 0.514286 0.504762 0.457142 0.438095 0.409523
0.390475 0.333332 0.323808 0.142855 0.0857119 0.0666642 0.0285687 0.00952095
0.495238 0.495238 0.495238 0.485714 0.47619 0.457143 0.438095 0.419047
0.399999 0.35238 0.333332 0.285713 0.104759 0.0761877 0.05714 0.00952065
-3.21865e-06 0.504762 0.495238 0.485714 0.485714 0.35238 0.295237 0.266665
0.238094 0.18095 0.142855 0.0952356 0.0761878 0.0285685 0.0190446 0.495238
0.47619 0.485714 0.495238 0.495238 0.35238 0.295237 0.266665 0.199998
0.180951 0.161903 0.142855 0.114283 0.485714 0.495238 0.495238 0.47619
0.380952 0.333333 0.314285 0.285713 0.266666 0.247618 0.247618 0 0
0 0.457143 0.428571 0.419047 0.380952 0.371428 0.342856 0.333332 0.295237
0.285713 0.22857 0.209522;
#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.409524 0.419047 0.419047 0.428571 0.433333 0.438095 0.442856
0.447618 0.447618 0.447618 0.438095 0.428571 0.419047 0.4 0.390477
0.380953 0.371429 0.342858 0.333335 0.323811 0.323811 0.314287 0.314287
0.314287 0.314287 0.333335 0.352382 0.4 0.428571 0.438095 0.457142
0.466666 0.471427 0.476189 0.480951 0.485713 0.485713 0.495236 0.495236
0.495236 0.495236 0.495236 0.495236 0.495236 0.495236 0.495236 0.485713
0.457142 0.438095 0.4 0.380953 0.361906 0.361906 0.371429 0.4 0.466666
0.495236 0.523807 0.523807 0.523807 0.523807 0.523807 0.514284 0.50476
0.476189 0.447618 0.419047 0.4 0.361906 0.342858 0.361906 0.476189
0.485713 0.495236 0.499998 0.50476 0.50476 0.50476 0.50476 0.50476
0.476189 0.463491 0.450793 0.428571 0.457142 0.457142 0.466666 0.466666
0.47619 0.47619 0.47619 0.47619 0.466666 0.466666 0.447619 0.438095
0.428571 0.333335 0.333335 0.29524;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 518 281 graph;
#N canvas 0 23 1115 625 (subpatch) 0;
#X array suitcaseA4 50 float 3;
#A 0 0.428571 0.438095 0.476191 0.476191 0.504762 0.514286 0.495238
0.485715 0.447619 0.409524 0.0285713 0.0285713 0.0285713 0.4 0.419048
0.466667 0.476191 0.504762 0.514286 0.514286 0.495238 0.466667 0.419048
0.0285714 0.0285714 0.0285714 0.0285714 0.0476189 0.419047 0.428571
0.466667 0.485714 0.495238 0.495238 0.466667 0.438095 0.447619 0.0285716
0.0380955 0.0476193 0.0476193 0.0380955 0.419048 0.457143 0.476191
0.485715 0.485715 0.485715 0.466667 0.447619;
#X coords 0 1 50 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.352381 0.352381 0.352381 0.361904 0.361904 0.361904 0.361904
0.361904 0.361904 0.361904 0.361904 0.361904 0.361904 0.361904 0.361904
0.361904 0.361904 0.361904 0.361904 0.361904 0.361904 0.361904 0.361904
0.361904 0.361904 0.361904 0.361904 0.366666 0.371428 0.371428 0.371428
0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952
0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952
0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952
0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952 0.380952
0.380952 0.390476 0.390476 0.390476 0.390476 0.390476 0.390476 0.393651
0.396825 0.4 0.4 0.4 0.4 0.4 0.4 0.4 0.4 0.4 0.4 0.4 0.4 0.4 0.390476
0.390476 0.390476 0.380952 0.380952 0.380952 0.380952 0.371428 0.371428
0.371428 0.371428 0.361904 0.361904 0.361904 0.323809;
#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 suitcaseA6 100 float 3;
#A 0 0.476189 0.447619 0.447619 0.447619 0.447619 0.452381 0.457143
0.461904 0.466666 0.471428 0.47619 0.47619 0.47619 0.47619 0.47619
0.485714 0.485714 0.485714 0.485714 0.488094 0.490475 0.492856 0.495237
0.495237 0.495237 0.495237 0.504761 0.507142 0.509523 0.511904 0.514284
0.516665 0.519046 0.52381 0.52381 0.52381 0.52381 0.514286 0.495239
0.485715 0.476191 0.457144 0.447621 0.41905 0.390479 0.371431 0.342861
0.328575 0.295242 0.295242 0.266672 0.266672 0.266672 0.266672 0.266672
0.323813 0.419049 0.438096 0.44762 0.44762 0.466667 0.466667 0.476191
0.485714 0.485714 0.504761 0.504761 0.499999 0.495237 0.485714 0.485714
0.485714 0.47619 0.473015 0.469841 0.466666 0.466666 0.466666 0.447619
0.447619 0.447619 0.442857 0.428572 0.428572 0.428572 0.428572 0.419048
0.415874 0.412699 0.409525 0.409525 0.409525 0.419047 0.403174 0.396825
0.390476 0.390476 0.371429 0.361905 0.352381;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 358 281 graph;
#X obj 138 600 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 138 532 + 1;
#X floatatom 138 555 5 0 0 0 - - -;
#X obj 138 577 array_copier suitcaseA;
#X obj 277 507 + 1;
#X floatatom 277 530 5 0 0 0 - - -;
#X obj 277 552 array_copier suitcaseB;
#X obj 138 489 t a a;
#X obj 49 568 t b b;
#X msg 76 589 0;
#X obj 49 548 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB0 10 float 3;
#A 0 0.4 0.495239 0.533334 0.600001 0.628573 0.647621 0.609525 0.561906
0.514286 0.457143;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 605 484 graph;
#N canvas 0 23 1115 625 (subpatch) 0;
#X array suitcaseA0 10 float 3;
#A 0 0.371429 0.409524 0.466667 0.52381 0.561906 0.561906 0.552382
0.52381 0.457143 0.361905;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 444 484 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB2 80 float 3;
#A 0 0.314285 0.409523 0.419047 0.428571 0.447619 0.457143 0.457143
0.466667 0.476191 0.476191 0.476191 0.476191 0.476191 0.476191 0.476191
0.476191 0.476191 0.476191 0.4 0.385714 0.380952 0.380952 0.342857
0.4 0.419048 0.428572 0.457143 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.447619 0.428572 0.4 0.4 0.380952 0.352381 0.361905
0.4 0.428572 0.485714 0.495238 0.495238 0.495238 0.495238 0.504762
0.504762 0.504762 0.495238 0.504762 0.485714 0.485714 0.447619 0.409524
0.4 0.380952 0.4 0.428572 0.438096 0.457143 0.466667 0.485715 0.485715
0.504763 0.504763 0.504763 0.504763 0.504763 0.504763 0.504763 0.504763
0.504763 0.504763 0.504763 0.504763 0.495239 0.495239 0.476191;
#X coords 0 1 80 0 150 105 1 0 0;
#X restore 199 158 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB3 120 float 3;
#A 0 0.361905 0.352381 0.361905 0.361905 0.438095 0.438095 0.438095
0.447619 0.452381 0.457143 0.466667 0.471429 0.476191 0.480953 0.485715
0.495238 0.504762 0.504762 0.52381 0.52381 0.533334 0.542858 0.561906
0.561906 0.319048 0.32381 0.295238 0.304762 0.333334 0.342857 0.352381
0.361905 0.4 0.4 0.428572 0.447619 0.457143 0.466667 0.485715 0.495239
0.504763 0.52381 0.542858 0.552382 0.561906 0.561906 0.590477 0.590477
0.361905 0.371429 0.371429 0.380953 0.438095 0.438095 0.447619 0.457143
0.476191 0.495238 0.504762 0.514286 0.533334 0.561906 0.580953 0.523811
0.514287 0.514287 0.295238 0.257143 0.266667 0.285714 0.371429 0.380952
0.4 0.409524 0.428572 0.438096 0.466667 0.476191 0.485715 0.495239
0.504763 0.514287 0.52381 0.533334 0.542858 0.54762 0.552382 0.57143
0.580954 0.590478 0.600001 0.342857 0.347619 0.409524 0.4 0.4 0.409524
0.419048 0.428572 0.438095 0.447619 0.447619 0.457143 0.466667 0.476191
0.476191 0.495239 0.495239 0.504762 0.514286 0.514286 0.52381 0.533334
0.542858 0.542858 0.552382 0.555556 0.558731 0.561906 0.57143;
#X coords 0 1 120 0 150 105 1 0 0;
#X restore 202 282 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseA2 80 float 3;
#A 0 0.447619 0.447619 0.447619 0.447619 0.447619 0.447619 0.438095
0.438095 0.342856 0.323809 0.399998 0.419045 0.466667 0.47619 0.485714
0.485714 0.485714 0.47619 0.47619 0.47619 0.47619 0.47619 0.438093
0.447616 0.45714 0.45714 0.438093 0.428569 0.399998 0.380951 0.361905
0.380952 0.409523 0.419047 0.466667 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.447619 0.447619 0.447619 0.399999 0.323809 0.380952
0.390476 0.390476 0.533333 0.542857 0.552381 0.552381 0.542857 0.542857
0.542857 0.542857 0.542857 0.542857 0.533333 0.361905 0.380952 0.399999
0.457143 0.457143 0.457143 0.466667 0.457143 0.457143 0.457143 0.457143
0.44762 0.457143 0.485714 0.419046 0.361905 0.276192 0.295239 0.32381
0.257145;
#X coords 0 1 80 0 150 105 1 0 0;
#X restore 42 159 graph;
#N canvas 84 25 1115 625 (subpatch) 0;
#X array suitcaseA1 160 float 3;
#A 0 0.457141 0.457141 0.485714 0.485714 0.47619 0.438094 0.42857 0.42857
0.422221 0.415872 0.409523 0.361904 0.361904 0.35238 0.35238 0.333333
0.323809 0.323809 0.304761 0.304761 0.295238 0.285714 0.247619 0.180953
0.152381 0.152381 0.0952388 0.161906 0.161906 0.161906 0.457143 0.438095
0.466666 0.466666 0.457143 0.447619 0.447619 0.4 0.4 0.4 0.380953 0.371429
0.361905 0.352381 0.333334 0.304763 0.295239 0.276191 0.257144 0.219049
0.209525 0.190478 0.17143 0.438095 0.442857 0.447619 0.447619 0.447619
0.447619 0.438095 0.428572 0.419048 0.409524 0.409524 0.4 0.371429
0.32381 0.285715 0.190478 0.17143 0.161907 0.133335 0.419048 0.447619
0.447619 0.457143 0.457143 0.457143 0.447619 0.447619 0.438095 0.428571
0.428571 0.419048 0.4 0.395238 0.390476 0.390476 0.380953 0.371429
0.352381 0.276191 0.228573 0.190478 0.152383 0.209525 0.200002 0.17143
0.152383 0.457143 0.447619 0.438095 0.428572 0.428572 0.419048 0.419048
0.409524 0.409524 0.409524 0.4 0.4 0.390477 0.371429 0.32381 0.266668
0.200002 0.180954 0.142859 0.114288 0.419048 0.428572 0.428572 0.419048
0.409524 0.390477 0.342858 0.32381 0.295239 0.190478 0.161907 0.133335
0.133335 0.133335 0.133335 0.104764 0.142859 0.238097 0.495238 0.495238
0.495238 0.495238 0.495238 0.485714 0.485714 0.47619 0.47619 0.466667
0.447619 0.438095 0.419048 0.395238 0.390477 0.371429 0.352382 0.32381
0.295239 0.266668 0.238097 0.123809 0.114286;
#X coords 0 1 160 0 150 105 1 0 0;
#X restore 38 32 graph;
#N canvas 0 23 1115 625 (subpatch) 0;
#X array suitcaseA3 120 float 3;
#A 0 0.390476 0.4 0.409524 0.419048 0.419048 0.428572 0.438096 0.438096
0.447619 0.447619 0.457143 0.466667 0.471429 0.476191 0.480953 0.485715
0.485715 0.495239 0.504763 0.514286 0.514286 0.52381 0.542858 0.542858
0.542858 0.35238 0.35238 0.361904 0.361904 0.361904 0.371428 0.371428
0.371428 0.380952 0.390476 0.390476 0.4 0.4 0.4 0.414285 0.419047 0.428571
0.428571 0.438095 0.438095 0.438095 0.447619 0.447619 0.447619 0.419047
0.209524 0.371429 0.371429 0.380952 0.390476 0.390476 0.4 0.419048
0.438096 0.444445 0.450794 0.457143 0.466667 0.476191 0.485715 0.504763
0.514287 0.514287 0.52381 0.533334 0.542858 0.552382 0.552382 0.558731
0.565081 0.57143 0.580954 0.304762 0.304762 0.32381 0.328572 0.333333
0.342857 0.361905 0.371429 0.380953 0.390477 0.409524 0.414286 0.419048
0.428572 0.457144 0.466668 0.285714 0.295238 0.295238 0.304762 0.304762
0.323809 0.333333 0.361905 0.371429 0.390476 0.4 0.409524 0.419048
0.44762 0.452382 0.457143 0.476191 0.495239 0.504763 0.514287 0.333333
0.333333 0.342857 0.352381 0.361905 0.380953 0.542858;
#X coords 0 1 120 0 150 105 1 0 0;
#X restore 39 282 graph;
#N canvas 84 25 1115 625 (subpatch) 0;
#X array suitcaseB1 160 float 3;
#A 0 0.495238 0.504762 0.504762 0.504762 0.504762 0.504762 0.514286
0.514286 0.514286 0.514286 0.504762 0.466666 0.457143 0.361904 0.342856
0.295237 0.295237 0.276189 0.257141 0.219046 0.209522 0.199998 0.18095
0.561905 0.542857 0.533333 0.523809 0.504762 0.504762 0.495238 0.485714
0.47619 0.447618 0.441269 0.43492 0.428571 0.409523 0.399999 0.390475
0.22857 0.171426 0.161902 0.161902 0.161902 0.161902 0.171426 0.542857
0.542857 0.542857 0.542857 0.542857 0.514286 0.514286 0.504762 0.504762
0.504762 0.485714 0.47619 0.438095 0.390476 0.35238 0.304761 0.295237
0.257141 0.257141 0.22857 0.190474 0.133331 0.52381 0.552381 0.552381
0.552381 0.495238 0.495238 0.485714 0.47619 0.466666 0.457142 0.438095
0.409523 0.399999 0.333332 0.276189 0.261903 0.257141 0.22857 0.209522
0.190474 0.161903 0.133331 0.123807 0.114283 0.514286 0.504762 0.504762
0.504762 0.504762 0.485714 0.47619 0.466666 0.447619 0.428571 0.409523
0.390476 0.361904 0.342856 0.266665 0.233332 0.22857 0.171427 0.440002
0.448002 0.465602 0.542857 0.542857 0.542857 0.542857 0.504764 0.504764
0.485716 0.485716 0.476193 0.457145 0.447621 0.442859 0.419049 0.409526
0.390478 0.37143 0.352382 0.333335 0.304763 0.285715 0.161905 0.161905
0.523812 0.514288 0.52381 0.52381 0.523809 0.49524 0.49524 0.466668
0.447621 0.438097 0.433335 0.428573 0.419049 0.390477 0.380953 0.352382
0.342858 0.32381 0.314286 0.285715 0.266667 0.247619 0.2 0.142857 0.238093
;
#X coords 0 1 160 0 150 105 1 0 0;
#X restore 199 31 graph;
#X obj 161 396 loadbang;
#X msg 161 417 6;
#X obj 161 438 s \$0-word-max;
#X obj 67 407 r \$0-word-max;
#X floatatom 67 428 5 0 0 0 - - -;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB7 100 float 3;
#A 0 0.580953 0.590477 0.600001 0.600001 0.604763 0.609525 0.612699
0.615874 0.619048 0.619048 0.619048 0.619048 0.619048 0.619048 0.619048
0.619048 0.619048 0.619048 0.619048 0.619048 0.619048 0.619048 0.619048
0.619048 0.619048 0.619048 0.619048 0.619048 0.619048 0.619048 0.619048
0.619048 0.619048 0.619048 0.619048 0.609524 0.485713 0.45238 0.30476
0.266665 0.238093 0.209521 0.18095 0.161902 0.13333 0.0984095 0.0634886
0.00952005 0.42857 0.571428 0.6 0.619048 0.619048 0.619048 0.619048
0.619048 0.619048 0.619048 0.619048 0.617583 0.616118 0.614653 0.613188
0.611722 0.610257 0.608792 0.607327 0.605862 0.604396 0.602931 0.601466
0.600001 0.598536 0.59707 0.595605 0.59414 0.592675 0.59121 0.589744
0.588279 0.586814 0.585349 0.583884 0.582418 0.580953 0.580953 0.580953
0.575511 0.570069 0.564626 0.559184 0.553742 0.5483 0.542858 0.533334
0.52381 0.514286 0.504762 0.495238 0.485714;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 839 280 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseA7 100 float 3;
#A 0 0.304762 0.307142 0.309523 0.311904 0.314285 0.314285 0.314285
0.314285 0.314285 0.314285 0.316666 0.319047 0.321428 0.323809 0.32619
0.328571 0.330952 0.333333 0.333333 0.333333 0.338095 0.342857 0.342857
0.342857 0.342857 0.342857 0.342857 0.342857 0.342857 0.344444 0.346032
0.347619 0.349206 0.350794 0.32381 0.32381 0.32381 0.314286 0.295238
0.282539 0.171428 0.142856 0.0952367 0.0730143 0.0507919 0.00952184
-2.02656e-06 0.00952184 0.0571412 0.0666651 0.0952367 0.123808 0.157142
0.190475 0.214285 0.314286 0.238095 0.266666 0.27619 0.290476 0.314286
0.333333 0.333333 0.333333 0.333333 0.333333 0.333333 0.342857 0.361905
0.361905 0.361905 0.361905 0.361905 0.361905 0.361905 0.361905 0.361905
0.361905 0.361905 0.361905 0.361905 0.361905 0.361905 0.361905 0.361905
0.361905 0.361905 0.361905 0.361905 0.361905 0.361905 0.361905 0.361905
0.371428 0.371428 0.371428 0.371428 0.371428 0.371428 0.371428;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 679 280 graph;
#X obj 28 448 count 7;
#X connect 0 0 36 0;
#X connect 2 0 1 0;
#X connect 2 1 17 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 10 0;
#X connect 14 0 15 0;
#X connect 15 0 16 0;
#X connect 17 0 11 0;
#X connect 17 1 14 0;
#X connect 18 0 1 0;
#X connect 18 1 19 0;
#X connect 19 0 13 0;
#X connect 19 0 16 0;
#X connect 20 0 18 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 32 0 33 0;
#X connect 33 0 36 1;
#X connect 36 0 2 0;
#X connect 36 0 3 0;
#X restore 48 256 pd expressions;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 350 473 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 350 450 loadbang;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseA 80 float 3;
#A 0 0.447619 0.447619 0.447619 0.447619 0.447619 0.447619 0.438095
0.438095 0.342856 0.323809 0.399998 0.419045 0.466667 0.47619 0.485714
0.485714 0.485714 0.47619 0.47619 0.47619 0.47619 0.47619 0.438093
0.447616 0.45714 0.45714 0.438093 0.428569 0.399998 0.380951 0.361905
0.380952 0.409523 0.419047 0.466667 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.447619 0.447619 0.447619 0.399999 0.323809 0.380952
0.390476 0.390476 0.533333 0.542857 0.552381 0.552381 0.542857 0.542857
0.542857 0.542857 0.542857 0.542857 0.533333 0.361905 0.380952 0.399999
0.457143 0.457143 0.457143 0.466667 0.457143 0.457143 0.457143 0.457143
0.44762 0.457143 0.485714 0.419046 0.361905 0.276192 0.295239 0.32381
0.257145;
#X coords 0 1 80 0 25 25 1 0 0;
#X restore 26 46 graph;
#X obj 9 136 hradio 15 1 0 7 empty \$0-word empty 0 -8 0 10 -204786
-13381 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -1
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array suitcaseB 80 float 3;
#A 0 0.314285 0.409523 0.419047 0.428571 0.447619 0.457143 0.457143
0.466667 0.476191 0.476191 0.476191 0.476191 0.476191 0.476191 0.476191
0.476191 0.476191 0.476191 0.4 0.385714 0.380952 0.380952 0.342857
0.4 0.419048 0.428572 0.457143 0.457143 0.457143 0.457143 0.457143
0.457143 0.457143 0.447619 0.428572 0.4 0.4 0.380952 0.352381 0.361905
0.4 0.428572 0.485714 0.495238 0.495238 0.495238 0.495238 0.504762
0.504762 0.504762 0.495238 0.504762 0.485714 0.485714 0.447619 0.409524
0.4 0.380952 0.4 0.428572 0.438096 0.457143 0.466667 0.485715 0.485715
0.504763 0.504763 0.504763 0.504763 0.504763 0.504763 0.504763 0.504763
0.504763 0.504763 0.504763 0.504763 0.495239 0.495239 0.476191;
#X coords 0 1 80 0 25 25 1 0 0;
#X restore 26 86 graph;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
-1 -1 0 1;
#X obj 114 21 r SUITCASE;
#X obj 48 218 r SUITCASE;
#X obj 267 122 s SUITCASE;
#X obj 231 451 s SUITCASE_DONE;
#X msg 249 329 suitcaseA;
#X msg 367 337 0;
#X obj 579 306 loadbang;
#X text 365 318 stop!;
#X obj 418 429 s NOTE;
#X obj 418 406 spigot;
#X msg 579 329 suitcaseB;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 599 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 457 36 r HELLO;
#X obj 457 59 route 3011;
#X obj 457 82 unpack f f f f;
#X floatatom 511 105 5 0 0 0 - - -;
#X floatatom 457 105 5 0 0 0 - - -;
#X obj 567 36 r HELLO;
#X obj 567 82 unpack f f f f;
#X floatatom 621 105 5 0 0 0 - - -;
#X floatatom 567 105 5 0 0 0 - - -;
#X obj 567 59 route 3012;
#X obj 531 127 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 641 127 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 369 185 v \$0-STRESS;
#X obj 369 231 v \$0-STRESS;
#X obj 369 165 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 369 208 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 3 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 232 187 loadbang;
#X msg 232 210 3;
#X obj 232 233 s \$0-word-max;
#X obj 88 306 riff1 800 3011 500;
#X obj 418 306 riff1 800 3012 500;
#X connect 0 0 61 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 61 0;
#X connect 10 0 62 0;
#X connect 12 0 11 0;
#X connect 13 0 12 1;
#X connect 13 0 29 1;
#X connect 14 0 13 0;
#X connect 17 0 4 0;
#X connect 20 0 7 0;
#X connect 21 0 10 0;
#X connect 24 0 61 1;
#X connect 25 0 62 0;
#X connect 26 0 30 0;
#X connect 29 0 28 0;
#X connect 30 0 62 1;
#X connect 31 0 24 0;
#X connect 32 0 30 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 35 0 37 0;
#X connect 35 2 36 0;
#X connect 36 0 43 0;
#X connect 38 0 42 0;
#X connect 39 0 41 0;
#X connect 39 2 40 0;
#X connect 40 0 44 0;
#X connect 42 0 39 0;
#X connect 45 0 48 0;
#X connect 47 0 45 0;
#X connect 48 0 46 0;
#X connect 51 0 53 0;
#X connect 53 0 52 0;
#X connect 55 0 57 0;
#X connect 56 0 55 0;
#X connect 58 0 59 0;
#X connect 59 0 60 0;
#X connect 61 0 12 0;
#X connect 61 3 2 0;
#X connect 62 0 29 0;
#X coords 0 -1 1 1 100 150 2 5 5;

395
puredata/radio_theatre_0.forest-of-unknown/radio_suitcase_01.pd Normal file
View file

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

314
puredata/radio_theatre_0.forest-of-unknown/radio_tanker_head.pd Normal file
View file

@ -0,0 +1,314 @@
#N canvas 186 94 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 746 95 533 644 world 1;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 2 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.5;
#X msg 285 439 0.55;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 466 110 683 529 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 tankerH1a 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 341 248 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH2a 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 501 248 graph;
#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;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH1 40 float 3;
#A 0 0.847618 0.809523 0.771428 0.733333 0.657143 0.552381 0.44762
0.457144 0.476191 0.704762 0.92381 0.828571 0.809524 0.771429 0.742857
0.72381 0.695239 0.647619 0.590476 0.485715 0.495238 0.495238 0.647619
0.723809 0.904762 0.885714 0.838095 0.761905 0.742858 0.733334 0.6
0.476191 0.428572 0.44762 0.457143 0.6 0.695237 0.733332 0.819046 0.866665
;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 21 28 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH2 40 float 3;
#A 0 -0.53333 -0.704757 -0.580949 -0.514282 -0.571425 -0.514282 -0.438092
-0.676186 -0.590472 -0.580949 -0.485711 -0.438092 -0.438092 -0.438092
-0.419044 -0.371426 -0.333331 -0.352378 -0.333331 -0.342854 0.371428
0.371428 0.409523 0.399999 0.42857 0.476189 0.419047 0.466667 0.495239
0.533334 0.58095 0.628569 0.676188 0.685712 0.65714 0.647617 0.619045
0.571427 0.523808 0.466665;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 181 28 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH4 20 float 3;
#A 0 0.971429 0.92381 0.895239 0.857144 0.828573 0.800001 0.780954
0.742859 0.723811 0.685716 0.657145 0.61905 0.580955 0.580954 0.57143
0.552382 0.523811 0.504764 0.49524 0.485716;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 501 28 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH3 15 float 3;
#A 0 -0.923803 -0.895231 -0.847613 -0.809518 -0.819041 -0.914279 -0.999993
-1.00952 -0.838089 -0.752375 -0.752375 -0.895231 -0.971421 -0.923803
-0.79047;
#X coords 0 1 15 0 150 105 1 0 0;
#X restore 341 28 graph;
#X obj 22 239 random 4;
#N canvas 84 25 450 278 (subpatch) 0;
#X array tankerH0 10 float 3;
#A 0 0.933333 0.961905 0.980954 0.84762 0.771429 0.438095 0.571429
0.704758 0.371439 0.0761905;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 173 400 graph;
#X obj 76 368 t b b;
#X msg 103 389 0;
#X obj 76 348 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 161 187 loadbang;
#X obj 161 229 s \$0-word-max;
#X obj 67 198 r \$0-word-max;
#X floatatom 67 219 5 0 0 0 - - -;
#X msg 161 208 4;
#X connect 0 0 14 0;
#X connect 2 0 1 0;
#X connect 2 1 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 9 0 6 0;
#X connect 14 0 2 0;
#X connect 14 0 3 0;
#X connect 16 0 1 0;
#X connect 16 1 17 0;
#X connect 17 0 9 0;
#X connect 18 0 16 0;
#X connect 19 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 14 1;
#X connect 23 0 20 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerH 40 float 3;
#A 0 0.847618 0.809523 0.771428 0.733333 0.657143 0.552381 0.44762
0.457144 0.476191 0.704762 0.92381 0.828571 0.809524 0.771429 0.742857
0.72381 0.695239 0.647619 0.590476 0.485715 0.495238 0.495238 0.647619
0.723809 0.904762 0.885714 0.838095 0.761905 0.742858 0.733334 0.6
0.476191 0.428572 0.44762 0.457143 0.6 0.695237 0.733332 0.819046 0.866665
;
#X coords 0 1 40 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -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 164 21 r TANKER_H;
#X obj 48 217 r TANKER_H;
#X obj 167 279 s TANKER_H;
#X obj 231 452 s TANKER_H_DONE;
#X msg 249 329 tankerH;
#X obj 269 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 265 104 v \$0-STRESS;
#X obj 265 150 v \$0-STRESS;
#X obj 265 84 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 265 127 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 88 305 riff1 100 4001 800;
#X connect 0 0 38 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 38 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 7 0;
#X connect 20 0 10 0;
#X connect 23 0 38 1;
#X connect 24 0 23 0;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 38 0 16 0;
#X connect 38 3 2 0;
#X coords 0 -1 1 1 100 150 2 5 5;

292
puredata/radio_theatre_0.forest-of-unknown/radio_tanker_side.pd Normal file
View file

@ -0,0 +1,292 @@
#N canvas 915 43 462 511 10;
#X msg 37 337 0;
#X obj 300 306 loadbang;
#X obj 288 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-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 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.56;
#X msg 285 438 0.35;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 167 226 pd world and me;
#N canvas 174 194 673 530 expressions 0;
#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 25 float 3;
#A 0 0.333333 0.0190478 0.0190478 0.00952405 0.571429 0.0285714 0.0190477
0.0190477 0.0190476 0.352381 0.647619 0.0285714 0.0285714 0.0190477
0.257143 0.0285714 0.571429 0.0190477 0.0190477 0.295238 0.0285714
0.580952 0.00952381 0.00952381 0.209524;
#X coords 0 1 25 0 150 105 1 0 0;
#X restore 333 38 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array tankerS2 30 float 3;
#A 0 0.0952383 0.104762 0.114286 0.133333 0.142857 0.142857 0.152381
0.161905 0.171428 0.190476 0.190476 0.219047 0.223809 0.228571 0.247618
0.257142 0.27619 0.285713 0.295237 0.304761 0.304761 0.314285 0.323808
0.333332 0.342856 0.35238 0.35238 0.361903 0.380951 0.380954;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 173 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerS1 20 float 3;
#A 0 0.0952384 0.00952381 0.257143 0.00952411 3.57628e-07 0.0952384
0.0190476 0.428571 0.104762 0.0190476 -0.00952268 -0.00952268 0.00952381
0.0761905 0.380952 0.0190476 0.114286 0.00952494 0.0190476 0.190477
;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 13 38 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerS4 30 float 3;
#A 0 0.0857143 0.00952381 0.00952387 0.133333 0.00952381 0.00952381
0.171429 0.0190476 0.0190476 0.219047 0.00952381 0.00952381 0.27619
0.00952381 0.00952381 0.317462 0.0190476 0.0190476 0.365081 0.00952381
0.419048 0 0 0 0 0.504762 0 0 0 0.6;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 493 38 graph;
#X obj 161 295 array_copier tankerS;
#X obj 22 209 count 4;
#N canvas 84 25 450 278 (subpatch) 0;
#X array tankerS0 10 float 3;
#A 0 0.942858 0.97143 0.980954 0.84762 0.771429 0.923811 0.666679 0.704758
0.371439 0.504763;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 173 400 graph;
#X obj 76 368 t b b;
#X msg 103 389 0;
#X obj 76 348 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 155 157 loadbang;
#X obj 155 199 s \$0-word-max;
#X obj 61 168 r \$0-word-max;
#X floatatom 61 189 5 0 0 0 - - -;
#X msg 155 178 4;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 11 0;
#X connect 11 0 4 0;
#X connect 12 0 2 0;
#X connect 12 0 3 0;
#X connect 14 0 1 0;
#X connect 14 1 15 0;
#X connect 15 0 11 0;
#X connect 16 0 14 0;
#X connect 17 0 21 0;
#X connect 19 0 20 0;
#X connect 20 0 12 1;
#X connect 21 0 18 0;
#X restore 48 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tankerS 25 float 3;
#A 0 0.333333 0.0190478 0.0190478 0.00952405 0.571429 0.0285714 0.0190477
0.0190477 0.0190476 0.352381 0.647619 0.0285714 0.0285714 0.0190477
0.295238 0.0285714 0.571429 0.0190477 0.0190477 0.295238 0.0285714
0.580952 0.00952381 0.00952381 0.209524;
#X coords 0 1 25 0 50 50 1 0 0;
#X restore 29 46 graph;
#X obj 9 136 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -204786
-159808 -1 2;
#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 217 r TANKER_S;
#X obj 167 269 s TANKER_S;
#X msg 300 329 tankerS;
#X obj 288 452 s TANKER_S_DONE;
#X obj 317 129 v \$0-STRESS;
#X obj 317 175 v \$0-STRESS;
#X obj 317 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 317 152 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 85 306 riff1_random 10 1041 500 900;
#X connect 0 0 38 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 38 0;
#X connect 13 0 4 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 23 0;
#X connect 20 0 7 0;
#X connect 21 0 10 0;
#X connect 23 0 38 1;
#X connect 25 0 28 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 38 0 16 0;
#X connect 38 3 2 0;
#X coords 0 -1 1 1 100 150 2 5 5;

427
puredata/radio_theatre_0.forest-of-unknown/radio_tissue.pd Normal file
View file

@ -0,0 +1,427 @@
#N canvas 542 87 737 597 10;
#X msg 37 337 0;
#X obj 299 306 loadbang;
#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 114 44 1;
#X obj 114 67 v \$0-STATE;
#N canvas 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 2 95 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 16 210 < 0.57;
#X msg 285 439 0.2;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 50 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X connect 50 0 15 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 267 79 pd world and me;
#N canvas 399 109 691 645 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;
#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 277 507 + 1;
#X floatatom 277 530 5 0 0 0 - - -;
#X obj 138 489 t a a;
#X obj 138 577 array_copier tissueA;
#X obj 277 552 array_copier tissueB;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA1 30 float 3;
#A 0 0.190475 0.380953 1.90475 3.04762 0.190444 0 0.0952377 1.2381
2.76189 0.190476 0.0952387 0.0952387 3.14285 4.7619 0.0952377 0.571428
2.38095 0.285714 0.190476 0.190476 0.761905 1.5238 2.09523 2.66666
0.285714 0.190475 0.0952358 1.42856 1.99999 4.47619;
#X coords 0 10 30 0 150 105 1 0 0;
#X restore 26 41 graph;
#N canvas 1 89 450 278 (subpatch) 0;
#X array tissueB1 50 float 3;
#A 0 -0.48571 -0.504758 -0.504758 -0.495234 -0.495234 -0.466663 -0.428568
-0.40952 -0.399996 -0.390473 -0.390473 -0.380949 -0.380949 -0.390473
-0.419044 -0.447615 -0.457139 -0.476186 -0.504758 -0.504758 -0.48571
-0.504758 -0.504758 -0.495234 -0.495234 -0.466663 -0.428568 -0.40952
-0.399996 -0.390473 -0.390473 -0.380949 -0.380949 -0.390473 -0.419044
-0.447615 -0.457139 -0.476186 -0.504758 -0.504758 -0.48571 -0.504758
-0.504758 -0.495234 -0.495234 -0.466663 -0.428568 -0.40952 -0.399996
-0.390473;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 26 181 graph;
#N canvas 1 89 450 278 (subpatch) 0;
#X array tissueB3 50 float 3;
#A 0 0.0952381 0.114286 0.200001 0.228572 0.228572 0.219048 0.209525
0.171429 0.0952381 0.0666667 0.0666667 0.0952381 0.12381 0.171429 0.200001
0.219048 0.219048 0.219048 0.114286 0.990476 0.0952381 0.114286 0.200001
0.228572 0.228572 0.219048 0.209525 0.171429 0.0952381 0.0666667 0.0666667
0.0952381 0.12381 0.171429 0.200001 0.219048 0.219048 0.219048 0.114286
0.0571427 0.0952381 0.114286 0.200001 0.228572 0.228572 0.219048 0.209525
0.171429 0.0952381 0.0666667;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 346 181 graph;
#N canvas 1 89 450 278 (subpatch) 0;
#X array tissueB4 60 float 3;
#A 0 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425 -0.171425
-0.171425 -0.171425 -0.171425 -0.171425;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 506 181 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA2 45 float 3;
#A 0 5.33333 5.33333 4.7619 4.09524 3.80952 0.0952377 0.0952377 0.0952377
0.0952377 0.0952377 0.0952377 0.0952377 4.85714 4.95238 4.09524 3.52381
0.0952377 0.0952377 0.0952377 0.0952377 0.0952377 0.0952377 -9.53674e-07
-9.53674e-07 4.85714 5.14286 4.19048 3.80952 -9.53674e-07 -0.0952396
-0.0952396 -0.0952396 -0.0952396 -0.0952396 -0.0952396 4.38095 4.85715
4.57143 4.09524 -0.190478 -0.190478 -0.190478 -0.190478 -0.190478 5.2381
;
#X coords 0 10 45 0 150 105 1 0 0;
#X restore 186 41 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA3 60 float 3;
#A 0 4.19048 4.4762 3.80952 1.0476 0.0952377 0.0952377 0.0952377 2.2857
2.85714 4.38096 4.00001 3.71429 5.7143 0 0 2.09523 1.71427 2.09523
3.33333 4.47619 5.33334 0.285716 0.190477 0 0 4.38096 3.80952 3.61905
4.47619 3.23809 0.190476 0.190476 0.0952377 0.0952377 0.0952377 3.33333
3.71428 4 4.23809 4.47619 0.0952377 -9.53674e-07 0.0952377 0.0952377
0.0952377 -9.53674e-07 -9.53674e-07 4.00001 3.90477 3.61905 0.0952387
0.0952387 0.0952387 0.0952387 0.0952387 0.0952387 2.66667 2.85714 3.14286
2.76191;
#X coords 0 10 60 0 150 105 1 0 0;
#X restore 346 41 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA4 20 float 3;
#A 0 1.90476 1.80952 0.0952377 1.71428 1.71428 0.190476 1.71428 1.71428
1.71428 -9.53674e-07 -9.53674e-07 1.61905 1.61905 1.61905 0 1.61905
1.71428 1.71428 -0.0952396 1.71428;
#X coords 0 10 20 0 150 105 1 0 0;
#X restore 506 41 graph;
#N canvas 1 89 450 278 (subpatch) 0;
#X array tissueB2 50 float 3;
#A 0 0.133333 0.104761 0.0476179 -0.0380969 -0.123812 -0.209527 -0.323813
-0.361908 -0.39048 -0.400004 -0.400004 -0.380956 -0.361908 -0.333337
-0.257146 -0.190479 -0.0857162 0.0285702 0.0761895 0.123809 0.133333
0.104761 0.0476179 -0.0380969 -0.123812 -0.209527 -0.323813 -0.361908
-0.39048 -0.400004 -0.400004 -0.380956 -0.361908 -0.333337 -0.257146
-0.190479 -0.0857162 0.0285702 0.0761895 0.123809 0.133333 0.104761
0.0476179 -0.0380969 -0.123812 -0.209527 -0.323813 -0.361908 -0.39048
-0.400004;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 186 181 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array tissueA0 10 float 3;
#A 0 0.942858 0.97143 0.980954 0.84762 0.771429 0.990478 0.961906 0.619048
0.8 0.790477;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 389 408 graph;
#X obj 48 561 t b b;
#X msg 75 582 0;
#X obj 48 541 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#X obj 161 396 loadbang;
#X obj 161 438 s \$0-word-max;
#X obj 67 407 r \$0-word-max;
#X floatatom 67 428 5 0 0 0 - - -;
#X msg 161 417 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA5 30 float 3;
#A 0 -1.66893e-05 -1.66893e-05 -1.66893e-05 -1.66893e-05 -1.66893e-05
-1.66893e-05 -1.66893e-05 -1.66893e-05 -1.66893e-05 0.095222 0.095222
0.095222 0.095222 0.095222 0.095222 0.095222 -1.66893e-05 -1.66893e-05
-1.66893e-05 -0.0952554 -0.0952554 -0.0952554 -0.0952554 -0.0952554
-0.0952554 -0.0952554 -0.0952554 -0.0952554 -0.0952554 -0.190494;
#X coords 0 10 30 0 150 105 1 0 0;
#X restore 663 44 graph;
#X obj 28 448 count 5;
#X connect 0 0 30 0;
#X connect 2 0 1 0;
#X connect 2 1 9 0;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 5 0;
#X connect 9 1 7 0;
#X connect 10 0 4 0;
#X connect 21 0 1 0;
#X connect 21 1 22 0;
#X connect 22 0 10 0;
#X connect 23 0 21 0;
#X connect 24 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 30 1;
#X connect 28 0 25 0;
#X connect 30 0 2 0;
#X connect 30 0 3 0;
#X restore 48 256 pd expressions;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 365 513 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 365 490 loadbang;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueA 60 float 3;
#A 0 4.19048 4.4762 3.80952 1.0476 0.0952377 0.0952377 0.0952377 2.2857
2.85714 4.38096 4.00001 3.71429 5.7143 0 0 2.09523 1.71427 2.09523
3.33333 4.47619 5.33334 0.285716 0.190477 0 0 4.38096 3.80952 3.61905
4.47619 3.23809 0.190476 0.190476 0.0952377 0.0952377 0.0952377 3.33333
3.71428 4 4.23809 4.47619 0.0952377 -9.53674e-07 0.0952377 0.0952377
0.0952377 -9.53674e-07 -9.53674e-07 4.00001 3.90477 3.61905 0.0952387
0.0952387 0.0952387 0.0952387 0.0952387 0.0952387 2.66667 2.85714 3.14286
2.76191;
#X coords 0 10 60 0 25 25 1 0 0;
#X restore 34 46 graph;
#X obj 9 136 hradio 15 1 0 5 empty \$0-word empty 0 -8 0 10 -191407
-159808 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -191407 -159808
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array tissueB 50 float 3;
#A 0 0.0952381 0.114286 0.200001 0.228572 0.228572 0.219048 0.209525
0.171429 0.0952381 0.0666667 0.0666667 0.0952381 0.12381 0.171429 0.200001
0.219048 0.219048 0.219048 0.114286 0.990476 0.0952381 0.114286 0.200001
0.228572 0.228572 0.219048 0.209525 0.171429 0.0952381 0.0666667 0.0666667
0.0952381 0.12381 0.171429 0.200001 0.219048 0.219048 0.219048 0.114286
0.0571427 0.0952381 0.114286 0.200001 0.228572 0.228572 0.219048 0.209525
0.171429 0.0952381 0.0666667;
#X coords 0 1 50 0 25 25 1 0 0;
#X restore 34 88 graph;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -191407
-159808 -1 0 1;
#X msg 417 337 0;
#X obj 629 306 loadbang;
#X text 415 318 stop!;
#X obj 468 479 s NOTE;
#X obj 468 406 spigot;
#X obj 319 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 649 352 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 114 21 r TISSUE;
#X obj 48 218 r TISSUE;
#X obj 267 122 s TISSUE;
#X msg 299 329 tissueA;
#X msg 629 329 tissueB;
#X obj 468 306 riff1 800 20200 1000;
#X obj 88 306 riff1_random 1 3001 600 1000;
#X obj 216 428 phasor~ 2;
#X floatatom 216 406 5 0 0 0 - - -;
#X obj 216 451 >~ 0.03;
#X obj 563 538 unpack f f;
#X obj 563 561 s X1;
#X obj 620 561 s X2;
#X msg 563 516 \$1 1000;
#X obj 281 429 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 216 490 *~;
#X msg 281 406 0;
#X msg 314 406 1;
#X text 468 441 motor stop!;
#X obj 355 401 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 375 401 0;
#X obj 375 424 v \$0-STATE;
#X obj 355 446 s TISSUE_DONE;
#X obj 216 549 dac~;
#X obj 433 140 v \$0-STRESS;
#X obj 433 186 v \$0-STRESS;
#X obj 433 120 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 433 163 * 0.5;
#X floatatom 320 449 5 0 0 0 - - -;
#X floatatom 265 509 5 0 0 0 - - -;
#X obj 281 449 * 0.2;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 4 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X connect 0 0 30 0;
#X connect 1 0 27 0;
#X connect 3 0 26 0;
#X connect 4 0 5 0;
#X connect 6 0 3 0;
#X connect 7 0 30 0;
#X connect 7 0 41 0;
#X connect 9 0 8 0;
#X connect 10 0 9 1;
#X connect 10 0 21 1;
#X connect 11 0 10 0;
#X connect 14 0 3 0;
#X connect 17 0 29 0;
#X connect 18 0 28 0;
#X connect 22 0 27 0;
#X connect 23 0 28 0;
#X connect 24 0 4 0;
#X connect 25 0 7 0;
#X connect 27 0 30 1;
#X connect 28 0 29 1;
#X connect 29 0 21 0;
#X connect 29 2 37 0;
#X connect 30 0 9 0;
#X connect 30 2 32 0;
#X connect 30 3 40 0;
#X connect 30 3 43 0;
#X connect 31 0 33 0;
#X connect 32 0 31 0;
#X connect 33 0 39 0;
#X connect 34 0 35 0;
#X connect 34 1 36 0;
#X connect 37 0 34 0;
#X connect 38 0 54 0;
#X connect 39 0 47 0;
#X connect 40 0 38 0;
#X connect 41 0 38 0;
#X connect 43 0 44 0;
#X connect 43 0 46 0;
#X connect 44 0 45 0;
#X connect 48 0 51 0;
#X connect 50 0 48 0;
#X connect 51 0 49 0;
#X connect 52 0 54 1;
#X connect 54 0 39 1;
#X connect 54 0 53 0;
#X connect 57 0 59 0;
#X connect 59 0 58 0;
#X connect 61 0 63 0;
#X connect 62 0 61 0;
#X coords 0 -1 1 1 100 150 2 5 5;

98
puredata/radio_theatre_0.forest-of-unknown/radio_toner.pd Normal file
View file

@ -0,0 +1,98 @@
#N canvas 1 95 634 667 12;
#X obj 132 309 tgl 15 0 empty empty melodica_long_long_breath 17 7
0 10 -262144 -1 -1 1 1;
#X msg 132 329 1999 0 0 \$1;
#X obj 132 353 s NOTE;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff13 30 float 3;
#A 0 0.323809 0.133332 -0.180956 0 -0.257145 0.295238 0.104762 -0.161906
-0.361908 0.266665 0 -0.00476003 0.295238 0.238095 -0.0904722 -0.328557
-0.00952172 0.252381 0.138095 -0.319033 0.238086 0.0142868 0.0142868
0.271417 -0.323794 0.0142868 0.228562 0.152376 -0.228561 -0.333318
;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 405 252 graph;
#X obj 405 574 s NOTE;
#X obj 321 393 loadbang;
#X obj 321 417 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 526 429 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 0
1;
#X msg 398 411 2000;
#X msg 399 386 1000;
#X msg 380 368 3000;
#X msg 472 402 symbol riff13;
#X obj 321 437 metro 1000;
#X obj 405 469 riff 900 4201;
#X obj 480 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 430 73 loadbang;
#X obj 480 104 delay 60000;
#X obj 480 154 delay 310000;
#X msg 430 149 1;
#X msg 440 174 0;
#X obj 210 179 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 160 179 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 160 123 loadbang;
#X msg 160 199 1;
#X msg 170 224 0;
#X obj 210 154 delay 120000;
#X obj 210 204 delay 300000;
#X obj 85 94 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 85 114 sel 1 0;
#X obj 85 139 t b b;
#X msg 85 164 stop;
#X obj 355 44 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 355 64 sel 1 0;
#X obj 355 89 t b b;
#X msg 355 114 stop;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 5 0 6 0;
#X connect 5 0 11 0;
#X connect 6 0 12 0;
#X connect 7 0 13 3;
#X connect 8 0 12 1;
#X connect 9 0 12 1;
#X connect 10 0 12 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 13 0 4 0;
#X connect 14 0 18 0;
#X connect 14 0 20 0;
#X connect 15 0 17 0;
#X connect 15 0 19 0;
#X connect 16 0 15 0;
#X connect 17 0 14 0;
#X connect 18 0 15 0;
#X connect 19 0 7 0;
#X connect 20 0 7 0;
#X connect 21 0 25 0;
#X connect 21 0 27 0;
#X connect 22 0 24 0;
#X connect 22 0 26 0;
#X connect 23 0 22 0;
#X connect 24 0 0 0;
#X connect 25 0 0 0;
#X connect 26 0 21 0;
#X connect 27 0 22 0;
#X connect 28 0 29 0;
#X connect 29 0 30 0;
#X connect 29 1 22 0;
#X connect 30 0 31 0;
#X connect 30 1 25 0;
#X connect 31 0 26 0;
#X connect 31 0 27 0;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 33 1 15 0;
#X connect 34 0 35 0;
#X connect 34 1 20 0;
#X connect 35 0 17 0;
#X connect 35 0 18 0;

264
puredata/radio_theatre_0.forest-of-unknown/radio_uranus.pd Normal file
View file

@ -0,0 +1,264 @@
#N canvas 534 209 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 1;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#X obj 16 210 < 0.7;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 48 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 0 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 38 224 count 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array uranus3 50 float 3;
#A 0 0.0380952 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0 0 0 0 0 0.0285714 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0 0 0 0 0 0 0 0.0380952 0.0380952 0.0380952
0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952 0 0 0 0
0 0 0 0 0.0380952 0.0380952 0.0380952 0.0380952 0.0380952;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 360 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array uranus4 50 float 3;
#A 0 0.0571424 0.0761902 0.133332 0.209523 0.247619 0.304763 0.323811
0.276191 0.190477 0.152381 0.0761902 0.12381 0.161905 0.276191 0.342859
0.24762 0.180953 0.142858 0.0666666 0.114286 0.228572 0.304763 0.37143
0.380954 0.304763 0.238096 0.161905 0.12381 0.0761905 0.0857143 0.171429
0.24762 0.304763 0.361906 0.37143 0.342858 0.314287 0.266668 0.219048
0.152381 0.0761902 0.180953 0.219048 0.295239 0.380954 0.428573 0.380954
0.304763 0.171429 0.0666663;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 520 40 graph;
#X obj 148 310 array_copier uranus;
#N canvas 0 23 450 278 (subpatch) 0;
#X array uranus1 50 float 3;
#A 0 0.00952387 0.00952387 0.0285715 0.0285715 0.0285715 0.0285715
0.0285715 0.0190476 0.0190476 0.0476193 0.0476193 0.0476193 0.0476193
0.0476193 0.0476193 0 0 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193
0.0476193 0 0 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.00952381
0.00952381 0.00952381 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193
0.0476193 0.0476193 0.0476193 0.00952369 0.00952369 0.00952369 0.00952369
0.0571432 0.0571432 0.0571432 0.0571432 0.0285712;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 40 40 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array uranus2 50 float 3;
#A 0 0.0190473 0.0285712 0.0380951 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.447616 0.495235 0.590474 0.666665 0.742856 0.799999 0.857142
0.933333 1.13334 0.0190474 0.0285713 0.0380952 0.0285713 0.0285715
0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193
0.0380954 0.0380954 0.0380954 0.485712 0.485714 0.514286 0.561905 0.600001
0.638096 0.695239 0.752383 0.800002 0.857145 0.952384 1.06667 0.0380953
0.0380953 0.0380953 0.0380953 0.0285714 0.0285714;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 200 40 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 10 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 10 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array uranus 50 float 3;
#A 0 0.0190473 0.0285712 0.0380951 0.0380952 0.0380952 0.0380952 0.0380952
0.0380952 0.447616 0.495235 0.590474 0.666665 0.742856 0.799999 0.857142
0.933333 1.13334 0.0190474 0.0285713 0.0380952 0.0285713 0.0285715
0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193 0.0476193
0.0380954 0.0380954 0.0380954 0.485712 0.485714 0.514286 0.561905 0.600001
0.638096 0.695239 0.752383 0.800002 0.857145 0.952384 1.06667 0.0380953
0.0380953 0.0380953 0.0380953 0.0285714 0.0285714;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -4032 -16662
-1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -4032 -16662
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -4032 -16662
-1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X msg 319 323 uranus;
#X obj 164 21 r URANUS;
#X obj 48 188 r URANUS;
#X obj 295 452 s URANUS_DONE;
#X obj 167 279 s URANUS;
#X obj 88 306 riff1_random 600 4204 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 27 0;
#X connect 2 0 5 0;
#X connect 2 0 30 0;
#X connect 4 0 31 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 27 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 32 1;
#X connect 28 0 7 0;
#X connect 28 0 13 0;
#X connect 29 0 10 0;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

266
puredata/radio_theatre_0.forest-of-unknown/radio_venus.pd Normal file
View file

@ -0,0 +1,266 @@
#N canvas 933 200 432 493 10;
#X msg 37 337 0;
#X obj 319 300 loadbang;
#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 35 318 stop!;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 315 406 0;
#X obj 315 429 v \$0-STATE;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 906 89 533 644 world 0;
#X floatatom 16 78 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 16 114 resample 1000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 77 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 3 100 0 200 50 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 1 89 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 100 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X msg 304 462 -0.005;
#X obj 16 39 r FOREST_ENERGY;
#X msg 285 439 0.002;
#X obj 16 210 < 0.6;
#X connect 0 0 21 0;
#X connect 1 0 5 0;
#X connect 1 1 37 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 28 0;
#X connect 8 0 16 0;
#X connect 9 0 38 0;
#X connect 11 0 16 1;
#X connect 12 0 22 0;
#X connect 13 0 12 0;
#X connect 13 1 35 0;
#X connect 14 0 32 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 49 0;
#X connect 18 0 15 0;
#X connect 18 1 34 0;
#X connect 19 0 48 0;
#X connect 19 1 46 0;
#X connect 21 0 17 0;
#X connect 22 0 11 0;
#X connect 22 0 36 0;
#X connect 28 0 8 0;
#X connect 30 0 14 0;
#X connect 32 0 18 0;
#X connect 34 0 19 0;
#X connect 35 0 12 1;
#X connect 37 0 4 0;
#X connect 37 0 27 0;
#X connect 39 0 40 0;
#X connect 40 0 42 0;
#X connect 41 0 39 0;
#X connect 42 0 43 0;
#X connect 46 0 15 0;
#X connect 47 0 0 0;
#X connect 48 0 15 0;
#X connect 49 0 1 0;
#X restore 167 226 pd world and me;
#N canvas 440 146 715 368 expressions 0;
#X obj 38 195 inlet;
#X obj 38 276 outlet;
#X obj 38 247 t b a;
#X obj 240 242 s \$0-word;
#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 148 265 + 1;
#X floatatom 148 288 5 0 0 0 - - -;
#X obj 38 224 count 4;
#X obj 148 310 array_copier venus;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus1 50 float 3;
#A 0 0.0571427 0.085714 0.123809 0.15238 0.161904 0.190475 0.190475
0.190475 0.190475 0.180952 0.142857 0.12381 0.0952379 0.114285 0.133333
0.142857 0.161904 0.171428 0.180952 0.180952 0.152381 0.0380952 0.0761905
0.123809 0.152381 0.180952 0.190476 0.199999 0.199999 0.190476 0.161905
0.0476193 0.0857143 0.142857 0.161904 0.171428 0.190476 0.190476 0.190476
0.171428 0.152381 0.047619 0.0857146 0.12381 0.180952 0.180952 0.190475
0.190475 0.190475 0.171428;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 38 77 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus2 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.30476 0.4 0.457143 0.533334
0.69524 0.895241 1.05715 1.16191 1.2762 1.25715 1.4762 -1.19209e-07
-1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07
-1.19209e-07 -1.19209e-07 -1.19209e-07 0.0190485 0.980952 0.0380998
0.0761948 0.171428 0.247619 0.32381 0.419049 0.514288 0.657146 0.800004
0.904766 1.00001 1.16191 1.20001 1.24763 0.00952381 0.00952381 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 198 77 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus3 50 float 3;
#A 0 0.447622 0.476193 0.533337 0.580956 0.609527 0.638099 0.657147
0.666671 0.638099 0.352383 0.304764 0.314288 0.333335 0.371431 0.400002
0.438098 0.466669 0.495241 0.523813 0.54286 0.571432 0.609527 0.628575
0.647623 0.238097 0.200001 0.180953 0.180953 0.200001 0.219049 0.24762
0.276192 0.304764 0.333335 0.371431 0.409526 0.447622 0.495241 0.54286
0.580956 0.152382 0.161906 0.180953 0.209525 0.238097 0.276192 0.304764
0.342859 0.361907 0.457146;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 358 77 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus4 50 float 3;
#A 0 0.180953 0.161905 0.504761 0.409523 0.704762 0.323808 0.295236
0.228569 0.466666 0.371427 0.114287 0.114287 0.133334 0.152381 0.371427
0.42857 0.466666 0.819048 0.104759 0.257141 0.323808 0.495237 0.190474
0.114287 0.114287 0.171429 0.123811 0.2 0.466666 0.161902 0.209521
0.380951 0.361903 0.238094 0.780952 0.87619 0.952379 1.05714 1.07619
1.07619 1.07619 1.07619 1.07619 1.07619 1.07619 1.07619 1.07619 1.07619
1.07619 1.19047;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 518 77 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 8 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X restore 48 226 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array venus 50 float 3;
#A 0 0.0285758 0.123813 0.180956 0.247622 0.30476 0.4 0.457143 0.533334
0.69524 0.895241 1.05715 1.16191 1.2762 1.25715 1.4762 -1.19209e-07
-1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07 -1.19209e-07
-1.19209e-07 -1.19209e-07 -1.19209e-07 0.0190485 0.980952 0.0380998
0.0761948 0.171428 0.247619 0.32381 0.419049 0.514288 0.657146 0.800004
0.904766 1.00001 1.16191 1.20001 1.24763 0.00952381 0.00952381 0.0190476
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476;
#X coords 0 1 50 0 50 50 1 0 0;
#X restore 29 26 graph;
#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -261682
-257985 -1 1;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -257985
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
-257985 -1 1 1;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#X obj 280 55 loadbang;
#X obj 280 98 metro 2000;
#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 280 144 *;
#X obj 355 126 r F_SEQ;
#X obj 280 121 v \$0-STRESS;
#X obj 280 167 v \$0-STRESS;
#X obj 164 21 r VENUS;
#X obj 48 188 r VENUS;
#X obj 167 279 s VENUS;
#X obj 295 452 s VENUS_DONE;
#X msg 319 323 venus;
#X obj 88 306 riff1_random 600 3789 700 1000;
#X connect 0 0 32 0;
#X connect 1 0 31 0;
#X connect 2 0 5 0;
#X connect 2 0 30 0;
#X connect 4 0 29 0;
#X connect 5 0 6 0;
#X connect 7 0 8 0;
#X connect 9 0 4 0;
#X connect 10 0 32 0;
#X connect 16 0 15 0;
#X connect 17 0 16 1;
#X connect 18 0 17 0;
#X connect 19 0 31 0;
#X connect 20 0 22 0;
#X connect 21 0 25 0;
#X connect 22 0 21 0;
#X connect 23 0 26 0;
#X connect 24 0 23 1;
#X connect 25 0 23 0;
#X connect 27 0 7 0;
#X connect 27 0 13 0;
#X connect 28 0 10 0;
#X connect 31 0 32 1;
#X connect 32 0 16 0;
#X connect 32 3 2 0;
#X coords 0 -1 1 1 100 100 2 5 5;

333
puredata/radio_theatre_0.forest-of-unknown/radio_whitehose.pd Normal file
View file

@ -0,0 +1,333 @@
#N canvas 709 116 570 496 10;
#X obj 283 80 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 64 307 1159 537 expressions 1;
#X obj 55 312 inlet;
#X obj 55 393 outlet;
#X obj 55 364 t b a;
#X obj 257 359 s \$0-word;
#X obj 165 493 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 165 400 + 1;
#X floatatom 165 423 5 0 0 0 - - -;
#X obj 55 341 count 6;
#X obj 32 459 t b b;
#X msg 59 480 0;
#X obj 32 439 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 84 25 450 278 (subpatch) 0;
#X array whoseB0 10 float 3;
#A 0 0.352381 0.047619 0.380953 0.390477 0.0380952 0.361905 0.352381
0.0190476 0.27619 0.257142;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 623 358 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB2 70 float 3;
#A 0 0.438095 0.438095 0.333333 0.447619 0.371429 0.399999 0.485714
0.314285 0.209524 0.338095 0.35 0.457143 0.447619 0.485714 0.514286
0.438095 0.371428 0.342856 0.323809 0.406349 0.361905 0.419048 0.47619
0.419048 0.47619 0.371428 0.238095 0.4 0.514286 0.285714 0.27619 0.495238
0.495238 0.419048 0.285714 0.428572 0.419048 0.533333 0.304762 0.542857
0.419048 0.380952 0.533333 0.447619 0.438095 0.438095 0.447619 0.219048
0.371429 0.209524 0.323809 0.466666 0.47619 0.495238 0.523809 0.466667
0.419048 0.428572 0.428572 0.495238 0.457143 0.438095 0.295238 0.314286
0.295238 0.457143 0.47619 0.47619 0.219048 0.409524;
#X coords 0 1 70 0 150 105 1 0 0;
#X restore 195 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB1 60 float 3;
#A 0 0.590476 0.542857 0.47619 0.42857 0.380951 0.333332 0.276188 0.276188
0.314284 0.342856 0.409523 0.466666 0.533333 0.590476 0.552381 0.485714
0.438094 0.371427 0.314284 0.285712 0.295236 0.371427 0.438094 0.485714
0.590476 0.571429 0.561905 0.438094 0.380951 0.314284 0.295236 0.380951
0.457142 0.523809 0.552381 0.619048 0.619048 0.495237 0.466666 0.409523
0.361903 0.314284 0.247617 0.247617 0.295236 0.352379 0.409523 0.457142
0.495237 0.619048 0.619048 0.590476 0.542857 0.504762 0.457142 0.428571
0.371427 0.35238 0.314284 0.285713;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 35 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB4 70 float 3;
#A 0 0.533333 0.533333 0.533333 0.514286 0.504762 0.533333 0.0190477
0 0 0 0 0 0 0 0.533333 0.533333 0.542857 0.52381 0.514286 0 0 0 0 0
0 0 0 0 0 0.52381 0.52381 0.485714 0 0 0 0 0 0 0 0 0.504762 0.504762
0.514286 0.504762 0.0190476 0 0 0 0 0 0 0 0.52381 0.514286 0.514286
0.52381 0.52381 0.52381 0.00952381 0 0 0 0 0.580952 0.533333 0.523809
0.523809 0.514286 0.495238 0.00952381;
#X coords 0 1 70 0 150 105 1 0 0;
#X restore 515 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB3 50 float 3;
#A 0 0.552381 0.552381 0.47619 0.466667 0.457143 0.428571 0.419047
0.399999 0.390476 0.380952 0.371428 0.361904 0.361904 0.342857 0.342857
0.342857 0.333333 0.333333 0.333333 0.333333 0.333333 0.333333 0.333333
0.333333 0.333333 0.333333 0.333333 0.333333 0.342857 0.342857 0.342857
0.342857 0.342857 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.342857 0.342857
0.342857 0.342857 0.342857;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 355 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB5 60 float 3;
#A 0 0.609524 0.6 0.590476 0.561904 0.514285 0.485713 0.438094 0.409523
0.371427 0.342857 0.333333 0.323809 0.314285 0.304762 0.295238 0.285714
0.27619 0.257142 0.257142 0.247618 0.247618 0.609524 0.6 0.590476 0.580952
0.523809 0.504761 0.47619 0.447618 0.390475 0.380951 0.371427 0.366665
0.361903 0.342855 0.333332 0.323808 0.30476 0.295236 0.285712 0.266665
0.266665 0.6 0.6 0.590476 0.552381 0.504761 0.438094 0.438094 0.409523
0.399999 0.380951 0.361903 0.342855 0.342855 0.323808 0.285715 0.285715
0.266667 0.238095;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 675 35 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB6 50 float 3;
#A 0 0.00952417 0.447619 0.0190476 0.447619 0.0190476 0.00952417 0.00952417
0.00952417 0.0285714 0.504762 0.00952417 0.409524 0.00952417 0.00952417
0.438095 0.00952417 0.438095 -0.00952333 -0.00952333 -0.00952333 -0.00952333
-0.00952333 0 0.52381 0.495238 -0.00952333 4.17233e-07 4.17233e-07
4.17233e-07 0 0.0190476 0.466667 4.17233e-07 0.438095 4.17233e-07 4.17233e-07
4.17233e-07 4.17233e-07 4.17233e-07 4.17233e-07 0.00952417 0.457143
0.00952417 0.457143 0.00952417 0.00952417 0.00952417 0.0190479 0.0190479
0.0190479;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 835 35 graph;
#X obj 165 445 array_copier whoseB;
#X obj 188 289 loadbang;
#X msg 188 310 6;
#X obj 188 331 s \$0-word-max;
#X obj 94 300 r \$0-word-max;
#X floatatom 94 321 5 0 0 0 - - -;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 5 0 6 0;
#X connect 6 0 18 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 1 0;
#X connect 8 1 9 0;
#X connect 9 0 18 0;
#X connect 10 0 8 0;
#X connect 18 0 4 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 22 0 23 0;
#X connect 23 0 7 1;
#X restore 48 256 pd expressions;
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -262144
-4034 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -4034
-1;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
-4034 -1 1 1;
#X obj 182 419 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 182 396 loadbang;
#X msg 43 325 0;
#X obj 322 294 loadbang;
#X text 41 306 stop!;
#X obj 94 417 s NOTE;
#X obj 94 394 spigot;
#X obj 345 340 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
-262144 -1 -1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array whoseB 50 float 3;
#A 0 0.552381 0.552381 0.47619 0.466667 0.457143 0.428571 0.419047
0.399999 0.390476 0.380952 0.371428 0.361904 0.361904 0.342857 0.342857
0.342857 0.333333 0.333333 0.333333 0.333333 0.333333 0.333333 0.333333
0.333333 0.333333 0.333333 0.333333 0.333333 0.342857 0.342857 0.342857
0.342857 0.342857 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.342857 0.342857
0.342857 0.342857 0.323809;
#X coords 0 1 50 0 25 25 1 0 0;
#X restore 35 65 graph;
#X obj 427 120 v \$0-STRESS;
#X obj 427 166 v \$0-STRESS;
#X obj 427 100 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 427 143 * 0.5;
#X obj 164 21 r WHOSE;
#X obj 48 217 r WHOSE;
#X msg 322 317 whoseB;
#X obj 283 110 s WHOSE;
#X obj 294 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 314 406 0;
#X obj 314 429 v \$0-STATE;
#X obj 294 452 s WHOSE_DONE;
#N canvas 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X msg 285 439 0.15;
#X obj 16 210 < 0.73;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 49 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 283 57 pd world and me;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 6 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 94 294 riff1_random 500 3309 600 900;
#X connect 0 0 23 0;
#X connect 1 0 2 0;
#X connect 3 0 38 0;
#X connect 5 0 0 0;
#X connect 7 0 13 1;
#X connect 8 0 7 0;
#X connect 9 0 38 0;
#X connect 10 0 22 0;
#X connect 13 0 12 0;
#X connect 14 0 22 0;
#X connect 16 0 19 0;
#X connect 18 0 16 0;
#X connect 19 0 17 0;
#X connect 20 0 1 0;
#X connect 21 0 3 0;
#X connect 22 0 38 1;
#X connect 24 0 25 0;
#X connect 24 0 27 0;
#X connect 25 0 26 0;
#X connect 28 0 0 0;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 35 0 37 0;
#X connect 36 0 35 0;
#X connect 38 0 13 0;
#X connect 38 3 24 0;
#X coords 0 -1 1 1 100 150 2 5 5;

413
puredata/radio_theatre_0.forest-of-unknown/radio_yellow.pd Normal file
View file

@ -0,0 +1,413 @@
#N canvas 599 53 701 521 10;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -257985
-1 -1 0 1;
#X obj 274 81 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X msg 164 44 1;
#X obj 164 67 v \$0-STATE;
#N canvas 172 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
1 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 210 < 0.8;
#X obj 16 66 +;
#X msg 285 439 0.1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 1 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 1 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 49 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 46 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 48 0;
#X connect 19 1 50 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 47 0;
#X connect 46 0 1 0;
#X connect 47 0 0 0;
#X connect 48 0 15 0;
#X connect 49 0 17 0;
#X connect 50 0 15 0;
#X connect 51 0 47 1;
#X connect 52 0 53 0;
#X restore 274 58 pd world and me;
#N canvas 642 25 443 747 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
#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.266667 0.285713 0.314284 0.342854 0.371424
0.390471 0.399994 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 30 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;
#X coords 0 1 30 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 30 float 3;
#A 0 0.819048 0.819048 0.819048 0.819048 0.819048 0.819048 0.819048
0.819048 0.819048 0.828571 0.828571 0.828571 0.838095 0.838095 0.847619
0.847619 0.857143 0.857143 0.857143 0.857143 0.866666 0.866666 0.866666
0.866666 0.866666 0.866666 0.857143 0.847619 0.838095 0.809524;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 195 34 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowA4 30 float 3;
#A 0 0.580952 0.580952 0.580952 0.571429 0.571429 0.571429 0.571429
0.571429 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905
0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905
0.561905 0.561905 0.561905 0.561905 0.561905 0.561905 0.561905;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 19 35 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array yellowA3 30 float 3;
#A 0 0.885716 0.800003 0.685719 0.619054 -0.0190476 -0.0190476 -0.0190476
0.92381 0.914286 0.857145 0.800003 0.733337 0.685719 -0.0285714 -0.0285714
-0.0285714 0.904762 0.866668 0.809526 0.771431 0.71429 0.666672 0.666672
-0.0285714 -0.0285714 -0.0285714 0.914287 0.866669 0.771432 0.733338
;
#X coords 0 1 30 0 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 129 729 array_copier yellowA;
#X obj 268 704 array_copier yellowB;
#X obj 37 708 t b b;
#X msg 64 729 0;
#X obj 37 688 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowA0 20 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;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 323 563 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowB0 20 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;
#X coords 0 1 20 0 150 105 1 0 0;
#X restore 483 563 graph;
#X obj 152 548 loadbang;
#X obj 152 590 s \$0-word-max;
#X obj 58 559 r \$0-word-max;
#X floatatom 58 580 5 0 0 0 - - -;
#X msg 152 569 4;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowB5 30 float 3;
#A 0 0.342857 0.387302 0.431746 0.476191 0.552381 0.4 0.431746 0.463492
0.495238 0.530159 0.565079 0.476191 0.476191 0.495238 0.52 0.544762
0.569524 0.594286 0.619048 0.409524 0.438095 0.476191 0.501587 0.526984
0.561905 0.580952 0.580952 0.638095 0.657143 0.666667;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 195 -91 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowA5 30 float 3;
#A 0 0.580952 0.333333 0.342857 0.4 0.428571 0.457143 0.52381 0.557143
0.590476 0.619048 0.47619 0.390476 0.428571 0.466667 0.485714 0.542857
0.561905 0.6 0.609524 0.390476 0.409524 0.428571 0.47619 0.485714 0.580952
0.590476 0.638095 0.685714 0.714286 0.590476;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 19 -90 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowB6 30 float 3;
#A 0 0.533334 0.600001 0.552382 0.52381 0.504762 0.0285713 0.0285714
0.0285714 0.571429 0.542857 0.6 0.580953 0.571429 0.0380952 0.0380952
0.571429 0.590477 0.619048 0.561905 0.580953 0.552381 0.552381 0.533333
0.0285714 0.0285714 0.0190475 0.542857 0.580952 0.590476 0.571429;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 197 -211 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowA6 30 float 3;
#A 0 0.590476 0.590476 0.580952 0.523809 0.504761 0.0380949 0.0380949
0.0571426 0.0380949 0.561905 0.64762 0.609524 0.6 0.571429 0.533333
0.0285712 0.0285712 0.0285712 0.0285712 0.514286 0.571429 0.64762 0.657144
0.533334 0.0190476 0.0190476 0.0190476 0.600001 0.609525 0.552381;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 21 -210 graph;
#X obj 19 600 count 6;
#X connect 8 0 34 0;
#X connect 10 0 9 0;
#X connect 10 1 17 0;
#X connect 13 0 14 0;
#X connect 14 0 18 0;
#X connect 15 0 16 0;
#X connect 16 0 19 0;
#X connect 17 0 13 0;
#X connect 17 1 15 0;
#X connect 18 0 12 0;
#X connect 20 0 9 0;
#X connect 20 1 21 0;
#X connect 21 0 18 0;
#X connect 21 0 19 0;
#X connect 22 0 20 0;
#X connect 25 0 29 0;
#X connect 27 0 28 0;
#X connect 28 0 34 1;
#X connect 29 0 26 0;
#X connect 34 0 10 0;
#X connect 34 0 11 0;
#X restore 60 249 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yellowA 30 float 3;
#A 0 0.885716 0.800003 0.685719 0.619054 -0.0190476 -0.0190476 -0.0190476
0.92381 0.914286 0.857145 0.800003 0.733337 0.685719 -0.0285714 -0.0285714
-0.0285714 0.904762 0.866668 0.809526 0.771431 0.71429 0.666672 0.666672
-0.0285714 -0.0285714 -0.0285714 0.914287 0.866669 0.771432 0.733338
;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 35 47 graph;
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -257985
-128992 -1 2;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -257985 -1
-1;
#X obj 164 21 r YELLOW;
#X obj 48 218 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 30 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;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 35 87 graph;
#X obj 454 139 v \$0-STRESS;
#X obj 454 185 v \$0-STRESS;
#X obj 454 119 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 454 162 * 0.5;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 5 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 1 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X text 15 293 small;
#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 8 0 1 0;
#X connect 9 0 2 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 38 0;
#X connect 37 0 35 0;
#X connect 38 0 36 0;
#X connect 41 0 43 0;
#X connect 43 0 42 0;
#X connect 45 0 47 0;
#X connect 46 0 45 0;
#X coords 0 -1 1 1 100 150 2 5 5;

450
puredata/radio_theatre_0.forest-of-unknown/radio_yellowhose.pd Normal file
View file

@ -0,0 +1,450 @@
#N canvas 31 303 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 747 95 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - -;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
1;
#X obj 16 451 abs;
#N canvas 0 50 450 250 (subpatch) 0;
#X array \$0-stress 100 float 2;
#X coords 0 100 100 0 200 150 1 0 0;
#X restore 295 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 metro 100;
#N canvas 84 95 319 212 (subpatch) 0;
#X obj 12 54 metro 100;
#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 12 100 t a b;
#X obj 117 77 f;
#X obj 144 77 + 1;
#X obj 117 100 mod 100;
#X obj 12 11 loadbang;
#X obj 12 77 v \$0-STRESS;
#X obj 12 123 tabwrite \$0-stress;
#X msg 78 11 0;
#X connect 0 0 7 0;
#X connect 1 0 0 0;
#X connect 2 0 8 0;
#X connect 2 1 3 0;
#X connect 3 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 2 0;
#X connect 9 0 7 0;
#X restore 473 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X msg 285 439 0.15;
#X obj 16 210 < 0.73;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 -262144 -1
-1 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
-1 -1 0 1;
#X obj 158 51 s \$0-SLEEP;
#X connect 0 0 47 0;
#X connect 1 0 5 0;
#X connect 1 1 36 0;
#X connect 2 0 7 0;
#X connect 3 0 2 1;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 7 0 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 50 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 49 0;
#X connect 19 1 48 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 17 0;
#X connect 48 0 15 0;
#X connect 49 0 15 0;
#X connect 50 0 1 0;
#X connect 51 0 46 1;
#X connect 52 0 53 0;
#X restore 283 57 pd world and me;
#N canvas 406 23 1159 537 expressions 0;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yhoseA5 50 float 3;
#A 0 0.685714 0.704762 0.723809 0.704762 0.685714 0.657143 0.628572
0.580953 0.52381 0.447619 0.428572 0.419048 0.409524 0.390477 0.390477
0.409524 0.619047 0.638095 0.647619 0.647619 0.647619 0.628571 0.533334
0.485715 0.457144 0.419049 0.409525 0.419049 0.361906 0.504762 0.628571
0.67619 0.685714 0.685714 0.695238 0.495238 0.485714 0.447619 0.438096
0.447619 0.361905 0.447619 0.695238 0.6 0.6 0.638095 0.647619 0.380952
0.47619 0.428572;
#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.685714
0.00952381 0.00952381 0.00952381 0.00952381 0.6 0.0190476 0.00952381
0.00952381 0.00952381 0.685714 0.00952363 0.00952363 0.00952363 0.00952363
0.666667 0.00952381 0.00952363 0.00952363 0.723809 -5.96046e-08 -5.96046e-08
-5.96046e-08 0.657143 0.0190476 0.00952381 0.714286 -5.96046e-08 0.00952381
0.00952381 0.0190477 0.0190477 0.771429 0.0285715 0.0380954 0.0380954
0.0380954 0.0380952 0.8 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.723809 0.733333 0.733333 0.733333 0.0190475 0.00952375 0 0.590476
0.590476 0.6 0.6 0.590476 0.00952369 0.733333 0.733333 0.733333 0.733333
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.67619 0.67619 0.67619
0.0190476 0.0190476 0.0190476 0.52381 0.52381 0.52381 0.0190476 0.0190476
0.685714 0.666667 0.00952369 0.00952369 0.00952369 0.00952369 0.67619
0.00952369 0.00952369 0.00952369 0.00952369 0.6 0.6 0.6 0.609524 0.609524
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.685714 0.685714 0.685714 0.685714 0.685714 0.67619 0.666667
0.657143 0.638095 0.619048 0.619048 0.619048 0.619048 0.619048 0.619048
0.628572 0.638095 0.638095 0.647619 0.657143 0.657143 0.657143 0.657143
0.657143 0.647619 0.638095 0.628572 0.619048 0.6 0.590476 0.580953
0.571429 0.571429 0.590476 0.609524 0.619048 0.619048 0.619048 0.6
0.571429 0.561905 0.552381 0.542858 0.542858 0.542858 0.542858 0.542858
0.542858 0.571429 0.571429;
#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.552381 0.542857 0.504762 0.52381 0.533333 0.552381 0.561905
0.580952 0.590476 0.609523 0.609523 0.619047 0.628571 0.638095 0.638095
0.647619 0.647619 0.657143 0.657143 0.638095 0.638095 0.619047 0.619047
0.571428 0.552381 0.533333 0.52381 0.514286 0.504762 0.438096 0.428572
0.428572 0.428572 0.428572 0.428572 0.438096 0.457143 0.466667 0.495238
0.504762 0.514286 0.523809 0.542857 0.571428 0.580952 0.6 0.609523
0.628571 0.638095 0.638095 0.638095 0.638095 0.638095 0.638095 0.638095
0.628571 0.628571 0.580952 0.619047 0.6 0.495238 0.466667 0.457143
0.457143 0.457143 0.457143 0.466667 0.485714 0.495238 0.504762 0.523809
0.533333 0.542857 0.561904 0.580952 0.590476 0.590476 0.609524 0.619047
0.619047 0.619047 0.609524 0.619047 0.619047 0.619047 0.619047 0.628571
0.619047 0.6 0.580952 0.571429 0.542857 0.533334 0.52381 0.52381 0.504762
0.504762 0.504762 0.514286 0.52381;
#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 50 float 3;
#A 0 0.0190476 0.0190476 0.0190476 0.371429 0.0190476 0.0142856 0.00952369
0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.342857 0.00952369
0.00952369 0.0190476 0.0238095 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0.0285714 0.0285714 0.361905 0.0380953 0.0380953 0.0380953
0.0380953 0.0380953 0.0380953 0.0380953 0.0380953 0.0380953 0.0380953
0.0380953 0.0380953 0.0380953 0.380952 0.0380953 0.0380953 0.0380953
0.0380953 0.0380953 0.0380953 0.0380953 0.352381 0.0380953 0.0380953
0.0380953;
#X coords 0 1 50 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.247619 0.285715 0.285715 0.295238 0.00952381 0.0190476 0.0190476
0.0190476 0.00952381 0.32381 0.32381 0.32381 0 0 0 0.00952381 0.00952381
0 0.32381 0.32381 0.32381 0.00952381 0.0190476 0.00952381 0.00952381
0.00952381 0.00952381 0.314286 0.314286 0.00952381 0.00952381 0.00952381
0.00952381 0.0190476 0 0.295238 0.295238 0 0 0 0 0 0.295238 0.295238
0.00952381 0 0 0 0.257143 0.247619;
#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.00952387 0 0.00952387 0.00952387 0.00952387 0.00952387 0.00952387
0.0190477 0.0190477 0.0190477 0.0190477 0.0285716 0.0285716 0.0285716
0.0285716 0.0285716 0.0285716 0.0285716 0.0285716 0.0285716 0.0285716
0.0285716 0.0285716 0.0285716 0.0285716 0.0285716 0.0285716 0.0285716
0.0285716 0.0285716 0.0285716 0.0285716 0.0285716 0.0285716 0.0285716
0.0285716 0.0285716 0.0285716 0.0285716 0.0380955 0.0380955 0.0380955
0.0380955 0.0380955 0.0380955 0.0380955 0.0380955 0.0380955 0.0285716
0.0285716;
#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 0.0190476 0.0190476 0.00952369 0.228572 0.285715 0.304763 0.380952
0.00952369 0.00952369 0.00952369 0.0142856 0.228571 0.228571 0.238095
0.361905 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.190476
0.428571 0.257143 0.257143 0.00952369 0.00952369 0.00952369 0.190476
0.2 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.390476
0.257143 0.257143 0.00952369 0.00952369 0.0142856 0.171429 0.2 0.0190476
0.0190476 0.0190476 0.0285714 0.0285714 0.228571 0.409524 0.247619
;
#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 50 float 3;
#A 0 0.304764 0.323811 0.333335 0.342859 0.342859 0.342859 0.342859
0.342859 0.333335 0.314287 0.304764 0.304764 0.29524 0.285716 0.276192
0.276192 0.27143 0.266668 0.257144 0.257144 0.252382 0.24762 0.242858
0.238097 0.233335 0.228573 0.228573 0.219049 0.215874 0.2127 0.209525
0.209525 0.209525 0.209525 0.219048 0.219048 0.228571 0.238095 0.257143
0.257143 0.266667 0.266667 0.266667 0.266667 0.266667 0.257143 0.247619
0.247619 0.247619 0.209524;
#X coords 0 1 50 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.0476192 0.0380953 0.0380953 0.0349207 0.031746 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 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.0380953 0.0380953 0.0412699 0.0444445 0.0476192
0.0476192 0.0476192 0.0476192 0.057143 0.057143 0.057143 0.057143 0.057143
0.057143 0.057143 0.057143 0.057143 0.0666669 0.0666669 0.0666669;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 842 182 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.37143 0.400001 0.428572 0.457144 0.485715 0.552381 0.561903
0.628569 0.676188 0.00952381 0.00952381 0.00952381 0.380952 0.447619
0.480952 0.514285 0.547618 0.599999 0.685714 0.72381 0.00952381 0.00952381
0.419048 0.438095 0.47619 0.514285 0.561904 0.592856 0.623808 0.695238
0.714286 0.733331 0.00952381 0.438095 0.495238 0.55238 0.580951 0.65238
0.723808 0.752379 0.00952381 0.00952381 0.00952381 0.4 0.457142 0.509523
0.571427 0.62857 0.685712 0.780952;
#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;
#N canvas 84 25 450 278 (subpatch) 0;
#X array yhoseA0 10 float 3;
#A 0 0.942858 0.857142 0.257142 0.209523 0.0952381 0.733333 0.247619
0.666667 0.27619 0.219048;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 459 357 graph;
#X obj 32 459 t b b;
#X msg 59 480 0;
#X obj 32 439 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144 -1
-1;
#N canvas 84 25 450 278 (subpatch) 0;
#X array yhoseB0 10 float 3;
#A 0 0.304762 0.457144 0.552381 0.466666 0.428571 0.67619 0.485713
0.371426 0.542857 0.619048;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 623 358 graph;
#X obj 188 289 loadbang;
#X msg 188 310 6;
#X obj 188 331 s \$0-word-max;
#X obj 94 300 r \$0-word-max;
#X floatatom 94 321 5 0 0 0 - - -;
#X connect 11 0 25 0;
#X connect 13 0 12 0;
#X connect 13 1 20 0;
#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 connect 27 0 12 0;
#X connect 27 1 28 0;
#X connect 28 0 21 0;
#X connect 28 0 22 0;
#X connect 29 0 27 0;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 34 0 35 0;
#X connect 35 0 25 1;
#X restore 62 253 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yhoseA 50 float 3;
#A 0 0.723809 0.733333 0.733333 0.733333 0.0190475 0.00952375 0 0.590476
0.590476 0.6 0.6 0.590476 0.00952369 0.733333 0.733333 0.733333 0.733333
0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.67619 0.67619 0.67619
0.0190476 0.0190476 0.0190476 0.52381 0.52381 0.52381 0.0190476 0.0190476
0.685714 0.666667 0.00952369 0.00952369 0.00952369 0.00952369 0.67619
0.00952369 0.00952369 0.00952369 0.00952369 0.6 0.6 0.6 0.609524 0.609524
0.00952369;
#X coords 0 1 50 0 25 25 1 0 0;
#X restore 35 45 graph;
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 -257985
-4034 -1 2;
#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 217 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;
#N canvas 0 23 450 278 (subpatch) 0;
#X array yhoseB 50 float 3;
#A 0 0.0190476 0.0190476 0.00952369 0.228572 0.285715 0.304763 0.380952
0.00952369 0.00952369 0.00952369 0.0142856 0.228571 0.228571 0.238095
0.361905 0.0190476 0.0190476 0.0190476 0.0190476 0.0190476 0.190476
0.428571 0.257143 0.257143 0.00952369 0.00952369 0.00952369 0.190476
0.2 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.390476
0.257143 0.257143 0.00952369 0.00952369 0.0142856 0.171429 0.2 0.0190476
0.0190476 0.0190476 0.0285714 0.0285714 0.228571 0.409524 0.247619
;
#X coords 0 1 50 0 25 25 1 0 0;
#X restore 35 87 graph;
#X obj 427 120 v \$0-STRESS;
#X obj 427 166 v \$0-STRESS;
#X obj 427 100 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 427 143 * 0.5;
#X obj 88 306 riff1_random 400 3207 600 900;
#X floatatom 9 118 5 0 0 0 - #0-word -;
#X obj 72 119 nbx 2 14 -1e+37 1e+37 0 0 \$0-word-max \$0-word-max-set
w 0 -8 0 10 -191407 -33289 -1 6 256;
#X obj 114 98 r \$0-word-max;
#X obj 114 139 s \$0-word-max-set;
#X msg 114 118 set \$1;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 -66577 -257985
-1 0 1;
#X msg 5 178 set \$1;
#X obj 5 158 r \$0-SLEEP;
#X obj 5 199 s \$0-SLEEP-set;
#X obj 498 306 riff1_random 400 3206 600 900;
#X text 5 288 cricket;
#X connect 0 0 11 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 37 0;
#X connect 4 0 47 0;
#X connect 7 0 0 0;
#X connect 9 0 1 0;
#X connect 10 0 4 0;
#X connect 12 0 37 0;
#X connect 13 0 30 0;
#X connect 14 0 16 0;
#X connect 14 0 29 0;
#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 47 0;
#X connect 24 0 31 0;
#X connect 27 0 26 0;
#X connect 28 0 31 0;
#X connect 30 0 37 1;
#X connect 31 0 47 1;
#X connect 33 0 36 0;
#X connect 35 0 33 0;
#X connect 36 0 34 0;
#X connect 37 0 19 0;
#X connect 37 3 14 0;
#X connect 40 0 42 0;
#X connect 42 0 41 0;
#X connect 44 0 46 0;
#X connect 45 0 44 0;
#X connect 47 0 27 0;
#X coords 0 -1 1 1 100 150 2 5 5;

16
puredata/radio_theatre_0.forest-of-unknown/retro-help.pd Normal file
View file

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

57
puredata/radio_theatre_0.forest-of-unknown/retro.pd Normal file
View file

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

67
puredata/radio_theatre_0.forest-of-unknown/riff-help.pd Normal file
View file

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

93
puredata/radio_theatre_0.forest-of-unknown/riff.pd Normal file
View file

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

120
puredata/radio_theatre_0.forest-of-unknown/riff1.pd Normal file
View file

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

120
puredata/radio_theatre_0.forest-of-unknown/riff1_random.pd Normal file
View file

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

56
puredata/radio_theatre_0.forest-of-unknown/rscan.pd Normal file
View file

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

314
puredata/radio_theatre_0.forest-of-unknown/safeguard-mixer-forest-all.pd Normal file
View file

@ -0,0 +1,314 @@
#N canvas 251 23 1189 769 10;
#X text 7 10 .anchor.;
#X text 1113 734 .anchor.;
#X obj 71 123 arduino;
#X msg 85 96 devices;
#X msg 21 69 close;
#X obj 71 151 route analog;
#X obj 21 41 loadbang;
#X obj 209 283 scope;
#X obj 71 431 sigcnd;
#X obj 95 365 loadbang;
#X floatatom 71 518 5 0 0 0 - - -;
#X obj 22 532 scope;
#X obj 71 638 *;
#X obj 71 660 +;
#X obj 71 580 min 1;
#X obj 71 602 max 0;
#X floatatom 104 624 5 0 0 1 range - -;
#X floatatom 104 646 5 0 0 1 start - -;
#X obj 116 558 loadbang;
#X floatatom 317 537 5 0 0 0 s:poy-avg - poy-avg;
#X obj 285 481 t a a;
#X floatatom 285 617 5 0 0 0 s:diff - diff;
#X obj 317 509 mavg 300;
#X obj 285 561 -;
#X obj 355 594 spigot;
#X obj 328 234 tgl 25 0 empty empty calibration_onoff 27 7 0 12 -262130
-1 -1 0 1;
#X msg 116 602 300;
#X msg 116 580 500;
#X obj 328 179 loadbang;
#X msg 328 207 1;
#X msg 240 220 0;
#X obj 240 192 bng 15 250 50 0 empty start r:start 17 7 0 10 -262144
-1 -1;
#X floatatom 71 688 5 0 0 0 - - -;
#X obj 218 679 * 8;
#X obj 683 498 *~;
#X floatatom 933 453 5 0 0 0 r:diff diff -;
#X obj 933 476 abs;
#X obj 933 610 *;
#X floatatom 933 638 5 0 0 0 - - -;
#X floatatom 998 596 5 0 0 0 - - -;
#X obj 862 157 noise~;
#X obj 863 279 hip~ 50;
#X obj 863 299 hip~ 50;
#X obj 863 319 hip~ 50;
#X obj 863 339 hip~ 50;
#X obj 494 365 *~;
#X floatatom 561 351 5 0 0 0 - - -;
#X obj 863 189 lop~ 250;
#X obj 863 209 lop~ 250;
#X obj 863 229 lop~ 250;
#X obj 863 249 lop~ 250;
#X floatatom 494 132 5 0 0 0 r:diff diff -;
#X obj 494 157 t b a;
#X obj 546 174 *;
#X floatatom 546 202 5 0 0 0 - - -;
#X obj 494 243 +;
#X floatatom 494 285 5 0 0 0 - - -;
#X msg 509 37 660;
#X obj 684 365 *~;
#X floatatom 751 351 5 0 0 0 - - -;
#X floatatom 684 132 5 0 0 0 r:diff diff -;
#X obj 684 157 t b a;
#X obj 736 174 *;
#X floatatom 736 202 5 0 0 0 - - -;
#X obj 684 243 +;
#X floatatom 684 285 5 0 0 0 - - -;
#X obj 494 320 osc~;
#X obj 684 320 osc~;
#X obj 863 369 *~;
#X msg 564 111 500;
#X msg 754 111 200;
#X floatatom 933 585 5 0 0 0 - - -;
#X obj 933 557 max 0;
#X floatatom 869 490 5 0 0 0 - - -;
#X obj 933 529 - 0.1;
#X obj 683 698 dac~;
#X obj 684 638 fdn~ 64 40000;
#X msg 711 555 4;
#X msg 782 555 1;
#X obj 784 247 loadbang;
#X msg 941 302 2;
#X msg 998 562 0.8;
#X obj 998 532 bng 15 250 50 0 empty start r:start 17 7 0 10 -262144
-1 -1;
#X msg 521 579 exponential 32 10 50000;
#X msg 561 323 0.1;
#X msg 751 323 0.08;
#X msg 347 91 \; pd dsp 1;
#X obj 339 46 bng 25 250 50 0 empty empty START(poy) 29 7 0 12 -128992
-1 -1;
#X obj 240 152 bng 15 250 50 0 start empty s:start 17 7 0 10 -262144
-1 -1;
#X obj 285 589 mavg 10;
#X obj 322 724 scope;
#X obj 869 512 scope;
#X msg 1006 448 0.01;
#X obj 1006 420 loadbang;
#X obj 71 713 puremapping/resample 3000;
#X msg 521 558 exponential 64 1000 10;
#X obj 71 179 route 0 1 2 3 4 5;
#X obj 71 204 vsl 10 64 0 1 0 0 empty empty empty 0 -9 0 10 -261234
-1 -1 2537 1;
#X floatatom 71 310 5 0 0 0 signal - -;
#X obj 87 204 vsl 10 64 0 1 0 0 empty empty empty 0 -9 0 10 -261682
-1 -1 1466 1;
#X obj 104 204 vsl 10 64 0 1 0 0 empty empty empty 0 -9 0 10 -262130
-1 -1 1022 1;
#X obj 120 204 vsl 10 64 0 1 0 0 empty empty empty 0 -9 0 10 -204786
-1 -1 1004 1;
#X obj 137 204 vsl 10 64 0 1 0 0 empty empty empty 0 -9 0 10 -204800
-1 -1 1681 1;
#X obj 153 204 vsl 10 64 0 1 0 0 empty empty empty 0 -9 0 10 -203904
-1 -1 973 1;
#X obj 219 303 scope;
#X obj 229 323 scope;
#X obj 239 343 scope;
#X obj 249 363 scope;
#X obj 259 383 scope;
#X msg 119 387 1;
#X msg 95 409 0;
#X text 61 492 (unused);
#X floatatom 1006 469 5 0 0 3 noise_level_(remove) - -;
#X text 602 405 2 sine-wave + 1 colored noise;
#X text 874 418 volume_controlled;
#X obj 564 148 nbx 5 14 -1e+37 1e+37 0 0 empty empty mod1 0 -8 0 10
-4034 -1 -1 874.016 256;
#X obj 754 148 nbx 5 14 -1e+37 1e+37 0 0 empty empty tone2 0 -8 0 10
-4034 -1 -1 874.016 256;
#X obj 941 357 nbx 5 14 -1e+37 1e+37 0 0 empty empty noise_level 0
-8 0 10 -4034 -1 -1 0 256;
#X obj 721 595 nbx 5 14 -1e+37 1e+37 0 0 empty empty feedback_1 0 -8
0 10 -4032 -1 -1 0 256;
#X obj 792 595 nbx 5 14 -1e+37 1e+37 0 0 empty empty feedback_2 0 -8
0 10 -4032 -1 -1 0 256;
#X obj 494 205 f;
#X obj 509 74 nbx 5 14 -1e+37 1e+37 0 0 empty empty base1 0 -8 0 10
-4034 -1 -1 1118.11 256;
#X msg 699 37 660;
#X obj 684 205 f;
#X obj 699 74 nbx 5 14 -1e+37 1e+37 0 0 empty empty base1 0 -8 0 10
-4034 -1 -1 0 256;
#X floatatom 755 35 5 0 0 0 - - -;
#X floatatom 961 253 5 0 0 0 - - -;
#X floatatom 786 94 5 0 0 0 - - -;
#X floatatom 965 197 5 0 0 0 - - -;
#X obj 961 232 * 5000;
#X obj 755 14 * 2000;
#X obj 786 73 * 1000;
#X obj 965 176 * 1000;
#X floatatom 1054 206 5 0 0 0 - - -;
#X obj 1054 185 * 10;
#X msg 71 69 devicename /dev/tty.HC-06-DevB;
#X obj 1005 14 inlet;
#X obj 1045 14 inlet;
#X obj 1085 14 inlet;
#X obj 1125 14 inlet;
#X obj 925 14 inlet;
#X obj 965 14 inlet;
#X obj 1109 349 nbx 5 14 -1e+37 1e+37 0 0 empty empty gain 0 -8 0 10
-4034 -1 -1 0 256;
#X obj 699 93 skip 500;
#X obj 509 93 skip 1500;
#X obj 1109 292 * 1.2;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 96 0;
#X connect 6 0 4 0;
#X connect 8 0 20 0;
#X connect 9 0 110 0;
#X connect 9 0 109 0;
#X connect 10 0 11 0;
#X connect 10 0 14 0;
#X connect 12 0 13 0;
#X connect 13 0 32 0;
#X connect 14 0 15 0;
#X connect 15 0 12 0;
#X connect 16 0 12 1;
#X connect 17 0 13 1;
#X connect 18 0 27 0;
#X connect 18 0 26 0;
#X connect 20 0 23 0;
#X connect 20 1 22 0;
#X connect 22 0 19 0;
#X connect 22 0 24 0;
#X connect 23 0 89 0;
#X connect 24 0 23 1;
#X connect 25 0 24 1;
#X connect 26 0 17 0;
#X connect 27 0 16 0;
#X connect 28 0 29 0;
#X connect 29 0 25 0;
#X connect 30 0 25 0;
#X connect 31 0 30 0;
#X connect 32 0 33 0;
#X connect 32 0 94 0;
#X connect 33 0 94 1;
#X connect 34 0 76 0;
#X connect 35 0 36 0;
#X connect 36 0 73 0;
#X connect 36 0 74 0;
#X connect 37 0 38 0;
#X connect 38 0 34 1;
#X connect 39 0 37 1;
#X connect 40 0 47 0;
#X connect 41 0 42 0;
#X connect 42 0 43 0;
#X connect 43 0 44 0;
#X connect 44 0 68 0;
#X connect 45 0 34 0;
#X connect 46 0 45 1;
#X connect 47 0 48 0;
#X connect 48 0 49 0;
#X connect 49 0 50 0;
#X connect 50 0 41 0;
#X connect 51 0 52 0;
#X connect 52 0 120 0;
#X connect 52 1 53 0;
#X connect 53 0 54 0;
#X connect 54 0 55 1;
#X connect 55 0 56 0;
#X connect 56 0 66 0;
#X connect 57 0 121 0;
#X connect 58 0 34 0;
#X connect 59 0 58 1;
#X connect 60 0 61 0;
#X connect 61 0 123 0;
#X connect 61 1 62 0;
#X connect 62 0 63 0;
#X connect 63 0 64 1;
#X connect 64 0 65 0;
#X connect 65 0 67 0;
#X connect 66 0 45 0;
#X connect 67 0 58 0;
#X connect 68 0 34 0;
#X connect 69 0 115 0;
#X connect 70 0 116 0;
#X connect 71 0 37 0;
#X connect 72 0 71 0;
#X connect 73 0 91 0;
#X connect 74 0 72 0;
#X connect 76 0 75 0;
#X connect 76 1 75 1;
#X connect 77 0 118 0;
#X connect 78 0 119 0;
#X connect 79 0 69 0;
#X connect 79 0 70 0;
#X connect 79 0 80 0;
#X connect 79 0 84 0;
#X connect 79 0 85 0;
#X connect 80 0 117 0;
#X connect 81 0 39 0;
#X connect 82 0 81 0;
#X connect 83 0 76 0;
#X connect 84 0 46 0;
#X connect 85 0 59 0;
#X connect 87 0 86 0;
#X connect 87 0 88 0;
#X connect 89 0 21 0;
#X connect 89 0 90 0;
#X connect 92 0 112 0;
#X connect 93 0 92 0;
#X connect 95 0 76 0;
#X connect 96 0 97 0;
#X connect 96 1 99 0;
#X connect 96 2 100 0;
#X connect 96 3 101 0;
#X connect 96 4 102 0;
#X connect 96 5 103 0;
#X connect 97 0 98 0;
#X connect 97 0 7 0;
#X connect 98 0 8 0;
#X connect 99 0 104 0;
#X connect 100 0 105 0;
#X connect 101 0 106 0;
#X connect 102 0 107 0;
#X connect 103 0 108 0;
#X connect 109 0 8 2;
#X connect 110 0 8 1;
#X connect 112 0 74 1;
#X connect 115 0 53 1;
#X connect 116 0 62 1;
#X connect 117 0 68 1;
#X connect 118 0 76 1;
#X connect 119 0 76 2;
#X connect 120 0 55 0;
#X connect 121 0 144 0;
#X connect 122 0 124 0;
#X connect 123 0 64 0;
#X connect 124 0 143 0;
#X connect 125 0 121 0;
#X connect 126 0 124 0;
#X connect 127 0 115 0;
#X connect 128 0 116 0;
#X connect 129 0 126 0;
#X connect 130 0 125 0;
#X connect 131 0 127 0;
#X connect 132 0 128 0;
#X connect 133 0 117 0;
#X connect 134 0 133 0;
#X connect 135 0 2 0;
#X connect 136 0 129 0;
#X connect 137 0 132 0;
#X connect 138 0 134 0;
#X connect 139 0 145 0;
#X connect 140 0 130 0;
#X connect 141 0 131 0;
#X connect 142 0 39 0;
#X connect 143 0 123 1;
#X connect 144 0 120 1;
#X connect 145 0 142 0;

20
puredata/radio_theatre_0.forest-of-unknown/scan-help.pd Normal file
View file

@ -0,0 +1,20 @@
#N canvas 630 384 450 300 12;
#X floatatom 120 194 5 0 0 0 - - -;
#X obj 120 224 print;
#X floatatom 120 73 5 0 0 1 scan_target - -;
#X msg 120 48 100;
#X floatatom 193 144 5 0 0 1 delay_amount_(ms) - -;
#X obj 120 163 scan 100;
#X msg 140 109 0;
#X text 174 109 if <= 0 \, stop immediately;
#X obj 173 198 bng 15 250 50 0 empty empty done! 17 7 0 10 -262144
-1 -1;
#X obj 173 224 print done;
#X connect 0 0 1 0;
#X connect 2 0 5 0;
#X connect 3 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 0 0;
#X connect 5 1 8 0;
#X connect 6 0 5 0;
#X connect 8 0 9 0;

58
puredata/radio_theatre_0.forest-of-unknown/scan.pd Normal file
View file

@ -0,0 +1,58 @@
#N canvas 136 328 385 426 12;
#X obj 120 295 f;
#X obj 84 295 + 1;
#X obj 218 270 sel 1;
#X msg 138 270 0;
#X obj 218 245 ==;
#X obj 236 195 - 1;
#X obj 39 71 inlet;
#X msg 179 215 0;
#X msg 106 214 1;
#X obj 106 245 metro \$1;
#X obj 106 155 t b b a;
#X msg 39 215 0;
#X obj 236 220 max 0;
#X text 5 4 <<<;
#X text 345 4 >>>;
#X text 5 394 <<<;
#X text 345 394 >>>;
#X text 39 22 generate numbers from 0 to given (inlet-1);
#X text 39 38 argument: delay amount (ms) between counts;
#X text 84 72 1-command:;
#X text 124 88 - number-> target value;
#X obj 169 134 inlet;
#X text 211 134 2-delay amount (ms);
#X text 124 102 - if <= 0 \, stop immediately;
#X obj 39 125 moses 1;
#X obj 278 315 outlet;
#X text 278 294 2#end bng;
#X msg 39 240 bang;
#X obj 120 320 t a a;
#X floatatom 152 345 5 0 0 0 - - -;
#X obj 152 369 outlet;
#X text 202 369 1#values;
#X connect 0 0 1 0;
#X connect 0 0 28 0;
#X connect 1 0 0 1;
#X connect 2 0 7 0;
#X connect 2 0 25 0;
#X connect 3 0 0 1;
#X connect 4 0 2 0;
#X connect 5 0 12 0;
#X connect 6 0 24 0;
#X connect 7 0 9 0;
#X connect 8 0 9 0;
#X connect 9 0 0 0;
#X connect 10 0 8 0;
#X connect 10 1 3 0;
#X connect 10 2 5 0;
#X connect 11 0 9 0;
#X connect 11 0 27 0;
#X connect 12 0 4 1;
#X connect 21 0 9 1;
#X connect 24 0 11 0;
#X connect 24 1 10 0;
#X connect 27 0 25 0;
#X connect 28 0 4 0;
#X connect 28 1 29 0;
#X connect 29 0 30 0;

24
puredata/radio_theatre_0.forest-of-unknown/sigcnd.pd Normal file
View file

@ -0,0 +1,24 @@
#N canvas 505 114 428 406 10;
#X obj 68 239 expr ($f1-$f2)/($f3-$f2);
#X obj 68 261 min 1;
#X obj 68 283 max 0;
#X obj 68 191 inlet;
#X obj 150 191 inlet;
#X obj 233 191 inlet;
#X obj 68 331 outlet;
#X text 7 7 .;
#X text 396 364 .;
#X text 58 26 << signal conditioner >>;
#X text 43 65 zoom & fit region of interest. [X \, Y) --> [0 \, 1)
;
#X floatatom 104 115 5 0 0 1 H - -, f 5;
#X floatatom 104 130 5 0 0 1 L - -, f 5;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 4 0 12 0;
#X connect 5 0 11 0;
#X connect 11 0 0 2;
#X connect 12 0 0 1;
#X coords 0 -1 1 1 55 50 1 100 100;

368
puredata/radio_theatre_0.forest-of-unknown/signal_jeju.pd Normal file
View file

@ -0,0 +1,368 @@
#N canvas 0 95 1440 586 12;
#N canvas 123 195 1133 379 roundly 0;
#X msg 364 140 \$1 5000;
#X obj 364 163 unpack f f;
#X obj 364 186 s X1;
#X obj 421 186 s X2;
#X obj 54 209 r HELLO;
#X obj 54 255 unpack f f f f;
#X floatatom 85 284 12 0 0 0 - - -;
#X obj 107 312 hsl 1000 15 -500000 500000 0 0 empty empty empty -2
-8 0 10 -260097 -262144 -1 0 1;
#X obj 107 332 hsl 1000 15 -500000 500000 0 0 empty empty empty -2
-8 0 10 -13381 -262144 -1 0 1;
#X obj 164 255 unpack f f f f;
#X floatatom 195 284 12 0 0 0 - - -;
#X floatatom 263 100 12 0 0 0 target_pos - -;
#X obj 107 31 hsl 1000 15 -500000 500000 0 0 empty empty empty -2 -8
0 10 -260097 -262144 -1 0 1;
#X obj 107 51 hsl 1000 15 -500000 500000 0 0 empty empty empty -2 -8
0 10 -13381 -262144 -1 40459 1;
#X obj 263 122 t b a;
#X msg 714 140 \$1 5000;
#X obj 714 163 unpack f f;
#X obj 714 186 s X1;
#X obj 771 186 s X2;
#X floatatom 613 100 12 0 0 0 target_pos - -;
#X obj 613 122 t b a;
#X obj 16 26 loadbang;
#X obj 104 81 skip 500;
#X obj 358 81 skip 500;
#X obj 263 210 s NOTE;
#X obj 613 210 s NOTE;
#X msg 832 98 1.2e+06;
#X msg 613 151 20200 0 0 1;
#X msg 915 113 0;
#X msg 263 151 20100 0 0 1;
#X obj 54 232 route 20100 20200;
#X text 761 5 orange: pingpong --> +++ / return to 0;
#X text 771 66 green: shark --> +++ / stop at last loc.;
#X obj 1046 143 bng 15 250 50 0 empty empty stop_now! 17 7 0 10 -262144
-1 -1;
#X floatatom 974 158 5 0 0 0 - - -;
#X msg 974 134 set \$1;
#X obj 107 142 bng 15 250 50 0 empty empty stop_now! 17 7 0 10 -262144
-1 -1;
#X floatatom 35 157 5 0 0 0 - - -;
#X msg 35 133 set \$1;
#X msg 16 49 -95000;
#X msg 150 4 -50000;
#X msg 86 4 142000;
#X msg 29 81 950000;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 4 0 30 0;
#X connect 5 1 6 0;
#X connect 5 1 38 0;
#X connect 6 0 7 0;
#X connect 9 1 10 0;
#X connect 9 1 35 0;
#X connect 10 0 8 0;
#X connect 11 0 14 0;
#X connect 12 0 22 0;
#X connect 13 0 23 0;
#X connect 14 0 29 0;
#X connect 14 1 0 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 18 0;
#X connect 19 0 20 0;
#X connect 20 0 27 0;
#X connect 20 1 15 0;
#X connect 21 0 39 0;
#X connect 22 0 11 0;
#X connect 23 0 19 0;
#X connect 26 0 19 0;
#X connect 27 0 25 0;
#X connect 28 0 19 0;
#X connect 29 0 24 0;
#X connect 30 0 5 0;
#X connect 30 1 9 0;
#X connect 33 0 34 0;
#X connect 34 0 19 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 37 0 11 0;
#X connect 38 0 37 0;
#X connect 39 0 13 0;
#X connect 40 0 12 0;
#X connect 41 0 12 0;
#X connect 42 0 13 0;
#X restore 744 17 pd roundly;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff11 50 float 3;
#A 0 0.485714 0.52381 0.514286 0.27619 0.285714 0.361905 0.361905 0.285714
0.485714 0.466667 0.533333 0.361905 0.342857 0.47619 0.352381 0.219048
0.190476 0.52381 0.371428 0.371428 0.409524 0.219048 0.238095 0.171429
0.514286 0.409524 0.390476 0.533333 0.0190476 0.514286 0.266667 0.542857
0.00952387 0 0.27619 0.361905 0.380953 0.52381 0.32381 0.333333 0.304762
0.0190476 0.380952 0.571429 0.304762 0.285714 0.0285714 0.485714 0.471428
0.371428;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 242 81 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff10 50 float 3;
#A 0 0.809524 0.809524 0.819048 0.819048 0.819048 0.809524 0.7 0.695239
0.695239 0.857143 0.695239 0.438095 0.695239 0.690477 0.685715 0.447619
0.828571 0.680952 0.680952 0.680952 0.680952 0.82381 0.82381 0.666666
0.666666 0.671429 0.671429 0.814286 0.814286 0.819048 0.657142 0.657142
0.819048 0.623807 0.623807 0.623807 0.809524 0.361905 0.809524 0.361905
0.714285 0.714285 0.723809 0.761905 0.761905 0.771429 0.771429 0.771429
0.771429 0.800001;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 42 81 graph;
#X obj 185 403 tgl 20 0 empty empty 3001 17 7 0 10 -257985 -1 -1 0
1;
#X obj 42 408 metro 2000;
#X obj 385 403 tgl 20 0 empty empty 3001 17 7 0 10 -257985 -1 -1 0
1;
#X obj 42 547 s NOTE;
#X obj 242 547 s NOTE;
#X msg 89 323 symbol riff10;
#X msg 307 347 symbol riff11;
#N canvas 175 26 725 620 (subpatch) 0;
#X array riff12 40 float 3;
#A 0 -0.30476 -0.30476 0.00952381 0.00952381 0.142857 0.142857 0.142857
0.209524 -0.290474 -0.285712 0.019048 0.019048 0.00952423 0.00952423
0.0190476 0.238096 0.266667 0.266667 0.285714 -0.266665 -0.266665 0
0 1.78814e-07 1.78814e-07 0.0190476 0.0190476 0.228571 0.228571 -0.323807
-0.333331 -0.333331 0.209524 0.209524 -0.352379 -0.352379 0.209524
0.190476 0.0190476 0.0190476;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 725 79 graph;
#X obj 867 285 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1 1
1;
#X obj 724 429 s NOTE;
#X msg 791 257 symbol riff12;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff22 30 float 3;
#A 0 0.590476 0.6 -0.447622 -0.447622 0.6 0.6 0.00952381 -0.447622
-0.457146 0.647619 0.647619 -0.457146 -0.457146 0.6 -0.46667 0.590476
-0.46667 0.571432 0.580952 -0.46667 0.0285714 0.0285714 0.0285714 0.0285714
0.0285714 0.0285714 0.0285714 0.0285714 0.00952369 0.00952369;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 913 73 graph;
#X obj 1048 288 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1
1 1;
#X obj 915 429 s NOTE;
#X msg 972 257 symbol riff22;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff3122 100 float 3;
#A 0 0.847619 0.685717 0.676194 0.647623 0.628576 0.438095 0.419048
0.409524 0.285714 0.285714 0.285714 0.380953 0.37143 0.37143 0.361906
0.542856 0.523809 0.514285 0.514285 0.580952 0.561904 0.55238 0.542856
0.542856 0.542856 0.542856 0.542856 0.809525 0.228571 0.209524 0.204762
0.180953 0.790476 0.723811 0.733335 0.69524 0.704764 0.723811 0.771429
0.771429 0.628571 0.55238 0.542856 0.504761 0.790477 0.761905 0.733334
0.714286 0.714286 0.42857 0.438093 0.438093 0.466664 0.476188 0.405713
0.403808 0.401903 0.399999 0.285714 0.266667 0.333333 0.25714 0.25714
0.657143 0.666667 0.695238 0.707143 0.719048 0.730953 0.742858 0.752382
0.761905 0.304762 0.304762 0.333333 0.295238 0.295238 0.533333 0.523809
0.514285 0.509523 0.504761 0.666667 0.647619 0.64381 0.64 0.63619 0.632381
0.628571 0.619047 0.614285 0.609524 0.604762 0.6 0.590476 0.580952
0.561904 0.666667 0.800001 0.780953;
#X coords 0 1 100 0 150 105 1 0 0;
#X restore 242 213 graph;
#X msg 317 371 symbol riff3122;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff121 30 float 3;
#A 0 0.32381 0.428572 0.390477 0.314286 0.257142 0.342855 0.266667
0.352381 0.533333 0.114282 0 0.380952 0 0 0.409523 0.419048 0.471428
0.428571 0 0 0 0 0.371429 0.304762 0.314286 0.295238 0.323809 0.638095
0 0.247619;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 1114 110 graph;
#X obj 1247 279 tgl 20 0 empty empty 3001 17 7 0 10 -257985 -1 -1 0
1;
#X obj 1114 281 metro 2000;
#X obj 1114 420 s NOTE;
#X msg 1189 244 symbol riff121;
#X obj 748 665 dac~;
#X obj 748 586 osc~;
#X obj 748 635 *~;
#X obj 748 556 unpack f f;
#X msg 748 501 0 0;
#X msg 828 509 10 1.5;
#X msg 888 513 15 1.2;
#X msg 948 517 20 0.35;
#X obj 482 369 tgl 15 0 empty empty melodica_long_long_breath 17 7
0 10 -262144 -1 -1 0 1;
#X msg 482 389 1999 0 0 \$1;
#X obj 482 413 s NOTE;
#X obj 42 442 riff 170 3120;
#X msg 815 586 \$1 1000;
#X obj 815 616 line~;
#X msg 788 505 5 2;
#X obj 482 541 tgl 15 0 empty empty fluorescent_light 17 7 0 10 -262144
-1 -1 0 1;
#X obj 482 585 s NOTE;
#X obj 482 500 s NOTE;
#X msg 482 561 1701 1001 0 \$1;
#X msg 482 476 1701 1000 0 \$1;
#X obj 482 456 tgl 15 0 empty empty harmonica 17 7 0 10 -262144 -1
-1 0 1;
#X text 723 470 thunder player;
#X text 95 31 plane;
#X text 287 29 bottles;
#X text 487 31 cable cars;
#X text 841 48 wind chimes;
#X text 1143 43 metal plane;
#X msg 430 83 1;
#X msg 472 83 0;
#X msg 432 120 20100 1 0 \$1;
#X obj 432 144 s NOTE;
#X floatatom 556 181 8 0 0 0 s:X1 - X1;
#X msg 433 184 1;
#X msg 472 183 0;
#X obj 432 244 s NOTE;
#X msg 432 220 20200 1 0 \$1;
#X obj 582 216 r HELLO;
#X obj 582 240 route 20100 20200;
#X floatatom 613 288 5 0 0 0 - - -;
#X obj 582 264 unpack f f f f;
#X msg 556 127 200000;
#X msg 566 151 -200000;
#X floatatom 613 338 5 0 0 0 - - -;
#X obj 582 314 unpack f f f f;
#X obj 42 364 loadbang;
#X obj 42 388 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 242 364 loadbang;
#X obj 242 388 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 724 246 loadbang;
#X obj 724 270 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 915 246 loadbang;
#X obj 915 270 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 1114 236 loadbang;
#X obj 1114 260 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1313 67 radio_earth;
#X text 1291 39 buoy fly - earth;
#X text 510 83 start 2000;
#X text 517 100 2nd -2000;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff13 30 float 3;
#A 0 0.323809 0.133332 -0.180956 0 -0.257145 0.295238 0.104762 -0.161906
-0.361908 0.266665 0 -0.00476003 0.295238 0.238095 -0.0904722 -0.328557
-0.00952172 0.252381 0.138095 -0.319033 0.238086 0.0142868 0.0142868
0.271417 -0.323794 0.0142868 0.228562 0.152376 -0.228561 -0.333318
;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 1275 322 graph;
#X obj 1275 644 s NOTE;
#X obj 1191 463 loadbang;
#X obj 1191 487 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1
1 1;
#X obj 1396 499 tgl 20 0 empty empty empty 17 7 0 10 -257985 -1 -1
0 1;
#X msg 1268 481 2000;
#X msg 1269 456 1000;
#X msg 1250 438 3000;
#X msg 1342 472 symbol riff13;
#X obj 1191 507 metro 1000;
#X obj 1114 315 riff 500 3121;
#X text 496 242 start 2000;
#X text 494 259 2nd -2000;
#X obj 242 442 riff 500 3122;
#X msg 138 391 1000;
#X msg 137 413 2000;
#N canvas 0 23 450 278 (subpatch) 0;
#X array riff9 50 float 3;
#A 0 0.92381 0.914286 0.866666 0.857143 0.838095 0.838095 0.866666
0.857143 0.961905 1 1.04762 1.05714 1.0381 1 0.790476 0.752381 0.742857
0.685714 0.666666 0.690476 0.780951 0.799999 0.895238 0.942857 0.971429
0.990476 1.00952 1.00952 1.00952 0.990476 0.971429 0.904762 0.866666
0.771429 0.752381 0.685714 0.685714 0.704762 0.714286 0.771429 0.933333
0.980953 1 1.00952 1.02857 1.01905 1.00952 0.990477 0.8 0.733333;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 42 209 graph;
#X msg 109 353 symbol riff9;
#X obj 1275 539 riff 900 4201;
#X obj 242 408 metro 1500;
#X obj 915 290 metro 2000;
#X obj 724 290 metro 1000;
#X obj 915 324 riff 400 4205;
#X obj 724 324 riff 300 4207;
#X connect 3 0 36 3;
#X connect 4 0 36 0;
#X connect 5 0 96 3;
#X connect 8 0 36 1;
#X connect 9 0 96 1;
#X connect 11 0 106 3;
#X connect 13 0 106 1;
#X connect 15 0 105 3;
#X connect 17 0 105 1;
#X connect 19 0 96 1;
#X connect 21 0 93 3;
#X connect 22 0 93 0;
#X connect 24 0 93 1;
#X connect 26 0 27 0;
#X connect 27 0 25 0;
#X connect 28 0 26 0;
#X connect 28 1 37 0;
#X connect 29 0 28 0;
#X connect 30 0 28 0;
#X connect 31 0 28 0;
#X connect 32 0 28 0;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 36 0 6 0;
#X connect 37 0 38 0;
#X connect 38 0 27 1;
#X connect 39 0 28 0;
#X connect 40 0 43 0;
#X connect 43 0 41 0;
#X connect 44 0 42 0;
#X connect 45 0 44 0;
#X connect 52 0 54 0;
#X connect 53 0 54 0;
#X connect 54 0 55 0;
#X connect 57 0 60 0;
#X connect 58 0 60 0;
#X connect 60 0 59 0;
#X connect 61 0 62 0;
#X connect 62 0 64 0;
#X connect 62 1 68 0;
#X connect 64 1 63 0;
#X connect 65 0 56 0;
#X connect 66 0 56 0;
#X connect 68 1 67 0;
#X connect 69 0 70 0;
#X connect 69 0 8 0;
#X connect 70 0 4 0;
#X connect 71 0 72 0;
#X connect 71 0 9 0;
#X connect 72 0 102 0;
#X connect 73 0 74 0;
#X connect 73 0 13 0;
#X connect 74 0 104 0;
#X connect 75 0 76 0;
#X connect 75 0 17 0;
#X connect 76 0 103 0;
#X connect 77 0 78 0;
#X connect 77 0 24 0;
#X connect 78 0 22 0;
#X connect 85 0 86 0;
#X connect 85 0 91 0;
#X connect 86 0 92 0;
#X connect 87 0 101 3;
#X connect 88 0 92 1;
#X connect 89 0 92 1;
#X connect 90 0 92 1;
#X connect 91 0 101 1;
#X connect 92 0 101 0;
#X connect 93 0 23 0;
#X connect 96 0 7 0;
#X connect 97 0 4 1;
#X connect 98 0 4 1;
#X connect 100 0 36 1;
#X connect 101 0 84 0;
#X connect 102 0 96 0;
#X connect 103 0 105 0;
#X connect 104 0 106 0;
#X connect 105 0 16 0;
#X connect 106 0 12 0;

72
puredata/radio_theatre_0.forest-of-unknown/star.lua Normal file
View file

@ -0,0 +1,72 @@
if type(window) ~= "userdata" then
window = ofWindow()
end
local clock = ofClock(this, "setup")
local DV = class()
function DV:__init(x, y)
self.x = x
self.y = y
self.bBeingDragged = false
self.bOver = false
self.radius = 4
end
local nCurveVertexes = 0
local curveVertices = {}
function M.new()
ofWindow.addListener("setup", this)
ofWindow.addListener("draw", this)
ofWindow.addListener("mouseMoved", this)
ofWindow.addListener("mouseDragged", this)
ofWindow.addListener("mousePressed", this)
ofWindow.addListener("mouseReleased", this)
window:setPosition(30, 100)
window:setSize(1024, 768)
if ofWindow.exists then
clock:delay(0)
else
window:create()
end
end
function M.free()
window:destroy()
ofWindow.removeListener("setup", this)
ofWindow.removeListener("draw", this)
ofWindow.removeListener("mouseMoved", this)
ofWindow.removeListener("mouseDragged", this)
ofWindow.removeListener("mousePressed", this)
ofWindow.removeListener("mouseReleased", this)
end
function M.setup()
ofSetWindowTitle("polygon example")
ofBackground(255, 255, 255, 255)
nCurveVertexes = 7
curveVertices = {DV(326, 209), DV(306, 279), DV(265, 331), DV(304, 383), DV(374, 383), DV(418, 209), DV(345, 279)}
end
function M.draw()
ofFill()
--[[---------------------------------------------------------------
draw a star dynamically
use the mouse position as a pct
to calc nPoints and internal point radius
--]]---------------------------------------------------------------
local angleChangePerPt = OF_TWO_PI / 3
local radius = 80
local origx = 525
local origy = 100
local angle = 0
ofSetHexColor(0xa16bca)
ofBeginShape()
for i = 0, 3 do
local x = origx + radius * math.cos(angle)
local y = origy + radius * math.sin(angle)
ofVertex(x, y)
angle = angle + angleChangePerPt
end
ofEndShape()
end

15
puredata/radio_theatre_0.forest-of-unknown/values_stress.lst Normal file
View file

@ -0,0 +1,15 @@
yellowA/B - 0.8 /// yellowA/B - 0.1
bongbong - 0.77 /// bongbong - 0.1
rounder - 0.75 /// rounder - 0.1
yhoseA/B - 0.73 /// yhoseA/B - 0.15
flasherA/B - 0.7 /// flasherA/B - 0.18
frog - 0.68 /// frog - 0.2
drummerA/B - 0.67 /// drummerA/B - 0.15
copper - 0.65 /// copper - 0.25
suitcaseA/B - 0.63 /// suitcaseA/B - 0.2
drawer - 0.6 /// drawer - 0.2
tissueA/B - 0.57 /// tissueA/B - 0.2
tankerS - 0.56 /// tankerS - 0.35
alumiA - 0.54 /// alumiA - 0.37
alumiB - 0.52 /// alumiB - 0.4
tankerH - 0.5 /// tankerH - 0.45

15
puredata/radio_theatre_0.forest-of-unknown/values_we_triggering.lst Normal file
View file

@ -0,0 +1,15 @@
bongbong - 0.7
alumiA - 0.5
alumiB - 0.49
frog - 0.6
tankerH - 0.418
tankerS - 0.425
flasherA/B - 0.5
yhoseA/B - 0.6
drummerA/B - 0.5
copper - 0.512
drawer - 0.523
yellowA/B - 0.8
rounder - 0.7
suitcaseA/B - 0.431
tissueA/B - 0.4