sound-from-earth/sound-from-earth-workshop/world.pd
2024-12-03 17:57:14 +01:00

122 lines
3.5 KiB
Text

#N canvas 34 33 1247 563 12;
#N canvas 0 50 450 250 (subpatch) 0;
#X array world_energy\$0 1 float 2;
#X coords 0 1 1 0 200 50 1 0 0;
#X restore 54 101 graph;
#X obj 345 145 + 1;
#X obj 378 116 t b a;
#X obj 640 417 array sum;
#X obj 640 382 metro 100;
#X obj 640 442 max 0.001;
#X obj 640 468 *;
#X obj 640 265 loadbang;
#N canvas 0 50 450 250 (subpatch) 0;
#X array world_energy_sequence\$0 20 float 3;
#A 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1;
#X coords 0 2 20 0 200 100 1 0 0;
#X restore 995 198 graph;
#X obj 900 258 f;
#X obj 933 258 + 1;
#X obj 900 283 mod 20;
#X floatatom 900 308 5 0 0 0 - - - 0;
#X obj 885 228 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X floatatom 900 363 5 0 0 0 - - - 0;
#X obj 885 203 metro 60000;
#X obj 885 183 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 885 158 loadbang;
#X obj 995 298 hradio 10 1 0 20 empty empty empty 0 -8 0 10 #f8fc00 #0400fc #000000 0;
#X obj 900 420 line;
#X floatatom 900 449 5 0 0 0 - - - 0;
#X msg 900 391 \$1 10000;
#X floatatom 640 493 5 0 0 0 - - - 0;
#X obj 53 162 tgl 15 0 empty empty sleep 17 7 0 10 #ff0400 #ffffff #000000 0 1;
#X obj 378 174 send;
#X text 386 34 hi \, welcome!;
#X text 748 35 everyone-energy;
#X obj 640 290 t b b b;
#X floatatom 218 159 5 0 0 0 member\ count - - 0;
#X floatatom 218 179 5 0 0 0 e_seq - - 0;
#X floatatom 135 179 5 0 0 0 energy\ all - - 0;
#X obj 17 44 tgl 15 0 empty WORLD_SLEEP\$0 r:WORLD_SLEEP\$0 17 7 0 10 #fc0400 #fcfcfc #fc0400 0 1;
#X obj 723 278 f \$0;
#X obj 27 219 v world_sleep\$0;
#X obj 378 87 r world_onconnect\$0;
#X obj 378 145 v world_member_count\$0;
#X obj 640 102 r world_status\$0;
#X obj 640 517 v world_energy_sum\$0;
#X msg 723 303 \; world_energy\$1 const 0;
#X msg 724 389 symbol world_energy\$1;
#X obj 724 364 f \$0;
#X msg 995 88 \; world_energy_sequence\$1 const 1;
#X obj 995 63 f \$0;
#X obj 995 38 bng 20 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 640 177 pack f f f;
#X obj 707 152 f \$0;
#X obj 707 127 loadbang;
#X obj 398 257 f \$0;
#X obj 398 232 loadbang;
#X msg 640 202 \; world_energy\$3 \$2 \$1;
#X obj 345 282 pack f f;
#X msg 345 307 \; world_energy\$2 resize \$1;
#X obj 900 334 tabread world_energy_sequence\$0;
#X obj 61 375 loadbang;
#X obj 61 400 f \$0;
#X symbolatom 182 81 10 0 0 0 - - - 0;
#X obj 61 451 v \$1;
#X obj 182 56 symbol \$1;
#X obj 182 31 loadbang;
#X text 107 450 declare group presence (name:id);
#X connect 1 0 28 0;
#X connect 1 0 35 0;
#X connect 1 0 50 0;
#X connect 2 0 35 0;
#X connect 2 1 24 1;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 5 0 6 0;
#X connect 6 0 22 0;
#X connect 7 0 27 0;
#X connect 9 0 10 0;
#X connect 9 0 11 0;
#X connect 10 0 9 1;
#X connect 11 0 12 0;
#X connect 12 0 18 0;
#X connect 12 0 52 0;
#X connect 13 0 9 0;
#X connect 14 0 21 0;
#X connect 15 0 13 0;
#X connect 16 0 15 0;
#X connect 17 0 16 0;
#X connect 19 0 20 0;
#X connect 20 0 6 1;
#X connect 20 0 29 0;
#X connect 21 0 19 0;
#X connect 22 0 30 0;
#X connect 22 0 37 0;
#X connect 23 0 33 0;
#X connect 27 0 4 0;
#X connect 27 1 40 0;
#X connect 27 2 32 0;
#X connect 31 0 23 0;
#X connect 32 0 38 0;
#X connect 34 0 2 0;
#X connect 35 0 1 0;
#X connect 35 0 24 0;
#X connect 36 0 44 0;
#X connect 39 0 3 2;
#X connect 40 0 39 0;
#X connect 42 0 41 0;
#X connect 43 0 42 0;
#X connect 44 0 49 0;
#X connect 45 0 44 2;
#X connect 46 0 45 0;
#X connect 47 0 50 1;
#X connect 48 0 47 0;
#X connect 50 0 51 0;
#X connect 52 0 14 0;
#X connect 53 0 54 0;
#X connect 54 0 56 0;
#X connect 57 0 55 0;
#X connect 58 0 57 0;
#X coords 0 -1 1 1 207 120 2 50 80;