forest-all-around/puredata/radio_theatre_0.atm2022/radio_grayhose.pd

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