doohoyi/sound-from-earth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
sound-from-earth/radio_theatre_soundfromearth/radio_harmoC.pd
Dooho Yi 9b4efabe24 init
2024-12-03 17:57:14 +01:00

505 lines
14 KiB
Text
Raw Permalink Blame History

#N canvas 466 33 974 474 10;
#N canvas 215 33 392 534 expressions 0;
#X obj 55 312 inlet;
#X obj 55 393 outlet;
#X obj 55 364 t b a;
#X obj 243 400 s \$0-word;
#X obj 165 493 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 165 425 + 1;
#X floatatom 165 448 5 0 0 0 - - - 0;
#X obj 165 382 t a a;
#X obj 188 289 loadbang;
#X obj 188 331 s \$0-word-max;
#X obj 94 300 r \$0-word-max;
#X floatatom 94 321 5 0 0 0 - - - 0;
#X obj 55 341 count 1;
#X msg 188 310 1;
#N canvas 0 50 450 250 (subpatch) 0;
#X array harmoC1 30 float 3;
#A 0 0.471429 0.521429 0.378571 0.364285 0.414286 0.428573 0.535714 0.335712 0.678571 0.707143 0.514286 0.321429 0.561905 0.533334 0.528572 0.52381 0.504762 0.495239 0.495239 0.495239 0.485715 0.485715 0.480953 0.476191 0.476191 0.476191 0.471429 0.466667 0.533334 0.52381;
#X coords 0 1 30 0 150 105 1 0 0;
#X restore 45 52 graph;
#X obj 165 470 array_copier harmoC;
#X connect 0 0 12 0;
#X connect 2 0 1 0;
#X connect 2 1 7 0;
#X connect 5 0 6 0;
#X connect 6 0 15 0;
#X connect 7 0 5 0;
#X connect 7 1 3 0;
#X connect 8 0 13 0;
#X connect 10 0 11 0;
#X connect 11 0 12 1;
#X connect 12 0 2 0;
#X connect 13 0 9 0;
#X connect 15 0 4 0;
#X restore 198 256 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array harmoC 30 float 3;
#A 0 0.471429 0.521429 0.378571 0.364285 0.414286 0.428573 0.535714 0.335712 0.678571 0.707143 0.514286 0.321429 0.561905 0.533334 0.528572 0.52381 0.504762 0.495239 0.495239 0.495239 0.485715 0.485715 0.480953 0.476191 0.476191 0.476191 0.471429 0.466667 0.533334 0.52381;
#X coords 0 1 30 0 25 25 1 0 0;
#X restore 38 58 graph;
#X obj 9 136 hradio 15 1 0 6 empty \$0-word empty 0 -8 0 10 #00ff04 #0400ff #000000 0;
#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 #00ff04 #0400ff #000000;
#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #00ff04 #0400ff #000000 0 1;
#X msg 37 341 0;
#X obj 376 310 loadbang;
#X obj 352 410 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X text 35 322 stop!;
#X msg 372 410 0;
#X obj 372 433 v \$0-STATE;
#X obj 399 356 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10 #fcfcfc #000000 #000000;
#X floatatom 9 118 5 0 0 0 - \$0-word - 0;
#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 #b8b8b8 #202020 #000000 0 256;
#X obj 9 66 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00 #000000 0 1;
#X msg 316 287 1801;
#X obj 316 264 loadbang;
#X msg 376 333 harmoC;
#X obj 88 310 riff1_random 7700 1500 7700 11000;
#X obj 198 117 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #fcfcfc #000000 #000000;
#X msg 297 150 1;
#X obj 297 203 v \$0-STATE;
#N canvas 370 33 779 790 world 0;
#X floatatom 16 194 5 0 0 0 - - - 0;
#X obj 16 443 t a b;
#X obj 16 522 spigot;
#X obj 67 507 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 67 484 == 0;
#X obj 16 466 sel 1;
#X text 41 552 think;
#X obj 16 578 gauss 1 0;
#X floatatom 16 624 5 0 0 0 - - - 0;
#X obj 16 694 sel 1;
#X obj 65 712 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 110 654 5 0 0 0 stress - - 0;
#X obj 278 705 +;
#X obj 278 652 t a b;
#X obj 278 476 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 278 630 8 0 0 0 - - - 0;
#X obj 16 671 >;
#X obj 278 525 t b b;
#X obj 325 566 sel 1 0;
#X obj 34 224 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8 #f8fc00 #000000;
#X obj 278 728 max 0;
#X text 69 360 world is quiet?;
#X text 90 435 status of me;
#X obj 147 479 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 16 601 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 195 graph;
#X obj 278 453 loadbang;
#X text 78 377 condition of state change;
#X obj 278 496 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 #fcfcfc #000000 #000000 0 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 350 pd;
#X obj 325 543 v \$0-STATE;
#X obj 305 675 v \$0-STRESS;
#X obj 278 751 v \$0-STRESS;
#X obj 67 461 v \$0-STATE;
#X obj 16 747 outlet;
#X obj 373 385 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 373 405 metro 50;
#X obj 373 362 loadbang;
#X obj 373 428 v \$0-STATE;
#X obj 373 451 s \$0-status-now;
#X obj 16 166 +;
#X obj 49 166 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 283 144 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 119 37 r \$0-group;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 283 101 v;
#X obj 386 37 r \$0-group;
#X obj 283 60 metro 200;
#X obj 16 60 metro 100;
#X obj 16 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 283 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 16 360 <;
#X obj 31 311 r \$0-cond;
#X floatatom 31 334 5 0 0 0 - - - 0;
#X floatatom 325 590 5 0 0 1 working\ stress - - 0;
#X floatatom 344 613 5 0 0 1 resting\ relax - - 0;
#X obj 146 549 r \$0-stress;
#X msg 146 572 set \$1;
#X msg 199 595 set \$1;
#X obj 199 572 r \$0-relax;
#X obj 86 60 v;
#X obj 353 60 v;
#X obj 353 83 makefilename world_sleep%d;
#X obj 86 83 makefilename world_energy_sum%d;
#X obj 86 14 r regbang\$0;
#X obj 353 14 r regbang\$0;
#X obj 283 122 change;
#X obj 609 609 r \$0-group;
#X obj 576 586 loadbang;
#X obj 576 632 v;
#X obj 576 655 makefilename world_stamp%d;
#X obj 555 678 v;
#X obj 523 618 t b b;
#X obj 523 451 gauss 1 0;
#X obj 523 472 abs;
#X floatatom 523 493 5 0 0 0 - - - 0;
#X obj 523 544 sel 1;
#X obj 523 101 v;
#X obj 626 37 r \$0-group;
#X obj 523 14 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 593 60 v;
#X obj 593 83 makefilename world_stamp%d;
#X floatatom 533 123 5 0 0 0 - - - 0;
#X obj 523 571 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 523 60 metro 1000;
#X obj 523 255 t a b;
#X obj 523 334 spigot;
#X obj 574 319 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 574 296 == 0;
#X obj 523 278 sel 1;
#X text 597 247 status of me;
#X obj 654 291 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 574 273 v \$0-STATE;
#X obj 593 14 r regbang\$0;
#X obj 523 148 > 1;
#X obj 515 705 - 1;
#X obj 515 726 max 0;
#X obj 523 523 > 2;
#X connect 0 0 19 0;
#X connect 0 0 52 0;
#X connect 1 0 5 0;
#X connect 1 1 33 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 24 0;
#X connect 8 0 16 0;
#X connect 9 0 34 0;
#X connect 11 0 16 1;
#X connect 12 0 20 0;
#X connect 13 0 12 0;
#X connect 13 1 31 0;
#X connect 14 0 28 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 15 0;
#X connect 17 1 30 0;
#X connect 18 0 55 0;
#X connect 18 1 56 0;
#X connect 20 0 11 0;
#X connect 20 0 32 0;
#X connect 24 0 8 0;
#X connect 26 0 14 0;
#X connect 28 0 17 0;
#X connect 30 0 18 0;
#X connect 31 0 12 1;
#X connect 33 0 4 0;
#X connect 33 0 23 0;
#X connect 35 0 36 0;
#X connect 36 0 38 0;
#X connect 37 0 35 0;
#X connect 38 0 39 0;
#X connect 40 0 0 0;
#X connect 41 0 40 1;
#X connect 43 0 45 0;
#X connect 44 0 61 1;
#X connect 45 0 40 0;
#X connect 46 0 67 0;
#X connect 47 0 62 1;
#X connect 48 0 46 0;
#X connect 49 0 43 0;
#X connect 50 0 49 0;
#X connect 51 0 48 0;
#X connect 52 0 1 0;
#X connect 53 0 54 0;
#X connect 54 0 52 1;
#X connect 55 0 15 0;
#X connect 56 0 15 0;
#X connect 57 0 58 0;
#X connect 58 0 55 0;
#X connect 59 0 56 0;
#X connect 60 0 59 0;
#X connect 61 0 64 0;
#X connect 62 0 63 0;
#X connect 63 0 46 1;
#X connect 64 0 43 1;
#X connect 65 0 49 0;
#X connect 65 0 61 0;
#X connect 66 0 48 0;
#X connect 66 0 62 0;
#X connect 67 0 42 0;
#X connect 68 0 70 1;
#X connect 69 0 70 0;
#X connect 70 0 71 0;
#X connect 71 0 72 1;
#X connect 72 0 96 0;
#X connect 73 0 34 0;
#X connect 73 1 72 0;
#X connect 74 0 75 0;
#X connect 75 0 76 0;
#X connect 76 0 98 0;
#X connect 77 0 84 0;
#X connect 78 0 83 0;
#X connect 78 0 95 0;
#X connect 79 0 81 1;
#X connect 80 0 85 0;
#X connect 81 0 82 0;
#X connect 82 0 78 1;
#X connect 84 0 73 0;
#X connect 85 0 78 0;
#X connect 86 0 90 0;
#X connect 86 1 93 0;
#X connect 87 0 74 0;
#X connect 88 0 87 1;
#X connect 89 0 88 0;
#X connect 90 0 87 0;
#X connect 93 0 89 0;
#X connect 93 0 92 0;
#X connect 94 0 81 0;
#X connect 94 0 85 0;
#X connect 95 0 86 0;
#X connect 96 0 97 0;
#X connect 97 0 72 0;
#X connect 98 0 77 0;
#X restore 215 75 pd world and me;
#X obj 307 178 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 412 410 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 49 7 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6 #606060 #000000 0 256;
#X obj 117 121 loadbang;
#X obj 117 167 v \$0-STRESS;
#X obj 117 144 metro 100;
#X obj 117 190 int;
#X obj 118 62 v \$0-STATE;
#X obj 118 85 sel 1 0;
#X text 534 22 * group interactions;
#X obj 360 49 loadbang;
#X msg 360 74 \; pd dsp 1;
#X obj 456 217 s \$0-group;
#X obj 477 240 s \$0-name;
#X obj 396 207 t b a;
#X obj 590 161 s \$0-relax;
#X obj 563 208 s \$0-stress;
#X obj 536 185 s \$0-level;
#X obj 509 162 s \$0-cond;
#X obj 396 240 s regbang\$0;
#X obj 456 194 unpack s s;
#X obj 509 139 unpack f f f f;
#X obj 509 116 inlet;
#X obj 447 33 loadbang;
#N canvas 105 93 761 505 world 0;
#X obj 160 93 v \$0-STRESS;
#X obj 160 139 v \$0-STRESS;
#X obj 160 73 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 160 116 * 0.5;
#X obj 20 178 r \$0-word-max;
#X obj 20 224 s \$0-word-max-set;
#X msg 20 201 set \$1;
#X msg 160 201 set \$1;
#X obj 160 178 r \$0-SLEEP;
#X obj 160 224 s \$0-SLEEP-set;
#X obj 66 84 pack s f;
#X obj 66 38 t b f;
#X obj 66 18 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 66 130 s FEED;
#X obj 66 107 list trim;
#X obj 144 27 r \$0-name;
#X obj 66 61 symbol;
#X obj 339 196 send;
#X obj 339 38 bng 15 250 50 0 empty empty register\ me\ :) 17 7 0 10 #fcfcfc #000000 #000000;
#X text 467 54 on 'connect';
#X obj 480 407 pack f f;
#X obj 387 343 loadbang;
#X obj 480 333 snapshot~;
#X msg 480 279 start;
#X msg 530 279 stop;
#X obj 387 366 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 480 358 5 0 0 0 - - - 0;
#X obj 387 386 metro 50;
#X obj 480 308 ear~ 2000 10000;
#X obj 480 248 sel 1 0;
#X obj 589 397 r \$0-group;
#X obj 535 466 send;
#X obj 480 222 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 480 430 spigot;
#X obj 433 448 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 339 430 1;
#X obj 339 219 r \$0-onconnect-listen;
#X obj 339 84 symbol \$0-onconnect-listen;
#X obj 339 242 t b a;
#X obj 480 382 *;
#X obj 599 318 r \$0-level;
#X floatatom 599 341 5 0 0 0 - - - 0;
#X text 594 274 feedback to 'world';
#X obj 399 127 r \$0-group;
#X obj 366 150 v;
#X obj 366 173 makefilename world_onconnect%d;
#X obj 556 420 v;
#X obj 556 443 makefilename world_status%d;
#X obj 556 374 r regbang\$0;
#X obj 339 15 r regbang\$0;
#X obj 339 60 t b b;
#X obj 366 317 print \$0-myplace;
#X obj 394 271 r \$0-name;
#X obj 366 294 pack f s s;
#X obj 394 248 r \$0-group;
#X connect 0 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 10 0 14 0;
#X connect 11 0 16 0;
#X connect 11 1 10 1;
#X connect 12 0 11 0;
#X connect 14 0 13 0;
#X connect 15 0 16 1;
#X connect 16 0 10 0;
#X connect 18 0 50 0;
#X connect 20 0 33 0;
#X connect 21 0 25 0;
#X connect 22 0 26 0;
#X connect 23 0 28 0;
#X connect 24 0 28 0;
#X connect 25 0 27 0;
#X connect 26 0 39 0;
#X connect 27 0 22 0;
#X connect 28 0 22 0;
#X connect 29 0 23 0;
#X connect 29 1 24 0;
#X connect 30 0 46 1;
#X connect 32 0 29 0;
#X connect 33 0 31 0;
#X connect 34 0 33 1;
#X connect 35 0 34 0;
#X connect 36 0 38 0;
#X connect 37 0 17 0;
#X connect 38 0 35 0;
#X connect 38 1 20 1;
#X connect 38 1 53 0;
#X connect 39 0 20 0;
#X connect 40 0 41 0;
#X connect 41 0 39 1;
#X connect 43 0 44 1;
#X connect 44 0 45 0;
#X connect 45 0 17 1;
#X connect 46 0 47 0;
#X connect 47 0 31 1;
#X connect 48 0 46 0;
#X connect 49 0 18 0;
#X connect 50 0 37 0;
#X connect 50 1 44 0;
#X connect 52 0 53 1;
#X connect 53 0 51 0;
#X connect 54 0 53 2;
#X restore 324 19 pd world;
#X msg 488 85 0.73 0.2 0.15 -0.05;
#X obj 240 410 s val\$0;
#X msg 447 56 universe harmoC;
#X obj 758 427 s NOTE;
#X obj 758 189 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 758 244 f;
#X obj 791 244 + 1;
#X obj 758 267 mod 2;
#X floatatom 758 290 5 0 0 0 - - - 0;
#X obj 758 221 metro 500;
#X floatatom 809 199 5 0 0 0 - - - 0;
#X text 812 297 breath in/out pattern;
#X text 852 210 breathing speed;
#X obj 691 115 v \$0-STATE;
#X obj 691 92 metro 50;
#X obj 691 69 tgl 18 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 691 46 loadbang;
#X obj 691 184 sel 0;
#X msg 691 207 0;
#X obj 691 161 t a a;
#X obj 691 138 change;
#X obj 809 176 r val\$0;
#X obj 691 230 t a a;
#X obj 691 253 pipe 4000;
#X msg 758 398 1501 0 0 \$1;
#X connect 0 0 18 0;
#X connect 3 0 30 0;
#X connect 5 0 18 0;
#X connect 6 0 17 0;
#X connect 7 0 9 0;
#X connect 9 0 10 0;
#X connect 9 0 24 0;
#X connect 11 0 17 0;
#X connect 15 0 18 2;
#X connect 16 0 15 0;
#X connect 17 0 18 1;
#X connect 18 2 49 0;
#X connect 18 3 7 0;
#X connect 19 0 20 0;
#X connect 19 0 0 0;
#X connect 20 0 21 0;
#X connect 20 0 23 0;
#X connect 22 0 19 0;
#X connect 26 0 28 0;
#X connect 27 0 29 0;
#X connect 28 0 27 0;
#X connect 29 0 25 0;
#X connect 30 0 31 0;
#X connect 31 0 5 0;
#X connect 31 1 19 0;
#X connect 33 0 34 0;
#X connect 37 0 42 0;
#X connect 37 1 43 0;
#X connect 43 0 35 0;
#X connect 43 1 36 0;
#X connect 44 0 41 0;
#X connect 44 1 40 0;
#X connect 44 2 39 0;
#X connect 44 3 38 0;
#X connect 45 0 44 0;
#X connect 46 0 50 0;
#X connect 46 0 48 0;
#X connect 48 0 44 0;
#X connect 50 0 37 0;
#X connect 52 0 57 0;
#X connect 53 0 54 0;
#X connect 53 0 55 0;
#X connect 54 0 53 1;
#X connect 55 0 56 0;
#X connect 56 0 72 0;
#X connect 57 0 53 0;
#X connect 58 0 57 1;
#X connect 61 0 68 0;
#X connect 62 0 61 0;
#X connect 63 0 62 0;
#X connect 64 0 63 0;
#X connect 65 0 66 0;
#X connect 66 0 70 0;
#X connect 67 0 65 0;
#X connect 67 1 52 0;
#X connect 68 0 67 0;
#X connect 69 0 58 0;
#X connect 70 0 71 0;
#X connect 70 1 56 0;
#X connect 71 0 56 0;
#X connect 72 0 51 0;
#X coords 0 -1 1 1 100 150 2 5 5;
Reference in a new issue View git blame Copy permalink