doohoyi/radio_spell
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

init

Browse source
This commit is contained in:
Dooho Yi 2024-09-12 10:31:36 +09:00
commit a7301146a6
13 changed files with 2719 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
.DS_Store vendored Normal file
View file

Binary file not shown.

36
o.io.slipserial.pd Normal file
View file

@ -0,0 +1,36 @@
#N canvas 530 426 374 320 10;
#X obj 50 18 inlet;
#X obj 50 280 outlet;
#X obj 166 18 inlet;
#X obj 50 41 slipenc 65536;
#X obj 50 253 slipdec 65536;
#X msg 219 137 info;
#X obj 107 192 route open;
#X obj 166 41 t a a;
#X obj 219 93 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 170 266 outlet;
#X obj 50 104 spigot;
#X obj 154 120 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 166 64 route open devicename close;
#X obj 219 114 del 200;
#X obj 50 169 comport 99;
#X obj 226 266 outlet;
#X connect 0 0 3 0;
#X connect 2 0 7 0;
#X connect 3 0 10 0;
#X connect 4 0 1 0;
#X connect 5 0 14 0;
#X connect 6 0 9 0;
#X connect 6 0 11 0;
#X connect 6 1 15 0;
#X connect 7 0 12 0;
#X connect 7 1 14 0;
#X connect 8 0 13 0;
#X connect 10 0 14 0;
#X connect 11 0 10 1;
#X connect 12 0 8 0;
#X connect 12 1 8 0;
#X connect 12 2 8 0;
#X connect 13 0 5 0;
#X connect 14 0 4 0;
#X connect 14 1 6 0;

588
radio_chant.pd Normal file
View file

@ -0,0 +1,588 @@
#N canvas 0 427 395 451 10;
#X obj 10 32 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #c6ffc7 #000000 #000000 0 1;
#X obj 115 283 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #faff00 #000000 #000000;
#X msg 282 360 1;
#X obj 282 413 v \$0-STATE;
#N canvas 417 29 533 796 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 147 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 119 37 r \$0-group;
#X obj 86 14 loadbang;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 283 101 v;
#X obj 386 37 r \$0-group;
#X obj 353 14 loadbang;
#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 283 124 change;
#X connect 0 0 19 0;
#X connect 0 0 54 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 57 0;
#X connect 18 1 58 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 46 0;
#X connect 44 0 63 1;
#X connect 45 0 51 0;
#X connect 45 0 63 0;
#X connect 46 0 40 0;
#X connect 47 0 67 0;
#X connect 48 0 64 1;
#X connect 49 0 50 0;
#X connect 49 0 64 0;
#X connect 50 0 47 0;
#X connect 51 0 43 0;
#X connect 52 0 51 0;
#X connect 53 0 50 0;
#X connect 54 0 1 0;
#X connect 55 0 56 0;
#X connect 56 0 54 1;
#X connect 57 0 15 0;
#X connect 58 0 15 0;
#X connect 59 0 60 0;
#X connect 60 0 57 0;
#X connect 61 0 58 0;
#X connect 62 0 61 0;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 47 1;
#X connect 66 0 43 1;
#X connect 67 0 42 0;
#X restore 115 239 pd world and me;
#X obj 132 60 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 10 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #c6ffc7 #9c00ff #000000;
#X obj 64 61 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 34 60 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00 #000000 0 1;
#N canvas 70 273 585 334 statesave 0;
#X obj 60 72 savestate;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#N canvas 0 0 394 201 save-name 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 54 43 r \$0-name;
#X obj 21 21 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 268 192 pd save-name;
#N canvas 0 0 386 217 loaded 0;
#X obj 16 15 inlet;
#X obj 222 111 list store;
#X obj 222 59 r \$0-loaded;
#X obj 222 82 route clear;
#X obj 16 54 t a b;
#X obj 16 146 s \$0-loaded;
#X msg 43 77 clear;
#X obj 16 100 list prepend append;
#X obj 16 123 list trim;
#X text 60 42 'set';
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 3 1 1 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X restore 111 169 pd loaded;
#N canvas 22 33 382 405 load-name 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 223 97 symbol \$0-load-name;
#X obj 52 24 r \$0-load-name;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 80 217 s \$0-name-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 16 0;
#X connect 11 0 12 1;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 17 0;
#X connect 13 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 16 2 15 0;
#X restore 60 238 pd load-name;
#X obj 415 114 list store;
#X obj 415 163 print;
#X obj 385 99 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 415 75 t a b;
#X obj 415 29 list prepend append;
#X obj 415 52 list trim;
#N canvas 0 0 394 201 save-group 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 21 21 inlet;
#X obj 54 43 r \$0-group;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X restore 252 215 pd save-group;
#N canvas 22 33 382 405 load-group 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-group;
#X obj 52 24 r \$0-load-group;
#X obj 80 217 s \$0-group-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 10 1;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 10 1 17 0;
#X connect 11 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 14 1 11 0;
#X connect 14 2 13 0;
#X connect 15 0 3 0;
#X connect 16 0 14 0;
#X restore 77 215 pd load-group;
#N canvas 417 223 349 308 save-world 0;
#X obj 21 189 list prepend append;
#X obj 21 212 list trim;
#X obj 21 235 s \$0-save;
#X obj 21 21 inlet;
#X obj 36 44 r \$0-cond;
#X obj 21 67 f;
#X obj 21 166 pack f f f f;
#X obj 44 90 r \$0-level;
#X obj 90 136 r \$0-relax;
#X obj 67 113 r \$0-stress;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 6 1;
#X connect 8 0 6 3;
#X connect 9 0 6 2;
#X restore 236 238 pd save-world;
#N canvas 84 297 417 482 load-world 0;
#X obj 223 28 inlet;
#X obj 52 337 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 429 s \$0-loaded;
#X msg 79 360 clear;
#X obj 52 383 list prepend append;
#X obj 52 406 list trim;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-world;
#X obj 52 24 r \$0-load-world;
#X obj 80 310 s \$0-cond-set;
#X obj 80 218 unpack f f f f;
#X obj 161 241 s \$0-relax-set;
#X obj 134 264 s \$0-stress-set;
#X obj 107 287 s \$0-level-set;
#X obj 109 165 - 4;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 9 1 17 0;
#X connect 10 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 13 2 12 0;
#X connect 14 0 3 0;
#X connect 15 0 13 0;
#X connect 17 0 16 0;
#X connect 17 1 20 0;
#X connect 17 2 19 0;
#X connect 17 3 18 0;
#X connect 21 0 9 1;
#X connect 21 0 10 0;
#X restore 94 192 pd load-world;
#X obj 221 90 t b b b b b;
#X obj 60 111 t b b b a;
#X connect 0 0 10 0;
#X connect 0 0 17 0;
#X connect 0 1 16 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 6 0 7 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 9 1 6 1;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 16 0 1 0;
#X connect 16 1 14 0;
#X connect 16 2 12 0;
#X connect 16 3 3 0;
#X connect 16 4 1 1;
#X connect 17 0 5 0;
#X connect 17 1 13 0;
#X connect 17 2 15 0;
#X connect 17 3 4 0;
#X restore 301 8 pd statesave;
#X obj 292 388 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 203 61 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6 #606060 #000000 0 256;
#X obj 301 35 loadbang;
#X obj 301 81 v \$0-STRESS;
#X obj 301 58 metro 100;
#X obj 301 104 int;
#X obj 98 61 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 147 30 15 0 0 0 @ \$0-name-set \$0-name 0;
#X symbolatom 41 30 15 0 0 0 & \$0-group-set \$0-group 0;
#X obj 10 216 v \$0-STATE;
#X obj 77 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-cond \$0-cond-set condi -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 69 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-stress \$0-stress-set stress -38 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 177 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-relax \$0-relax-set relax -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 185 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-level \$0-level-set level -33 7 0 10 #ffffff #000000 #000000 0 256;
#N canvas 440 284 715 215 some 0;
#X obj 579 44 v \$0-STRESS;
#X obj 579 90 v \$0-STRESS;
#X obj 579 24 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 579 67 * 0.5;
#X obj 409 24 r \$0-word-max;
#X obj 409 70 s \$0-word-max-set;
#X msg 409 47 set \$1;
#X msg 259 47 set \$1;
#X obj 259 24 r \$0-SLEEP;
#X obj 259 70 s \$0-SLEEP-set;
#X obj 25 81 pack s f;
#X obj 25 35 t b f;
#X obj 25 15 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 25 127 s FEED;
#X obj 25 104 list trim;
#X obj 103 24 r \$0-name;
#X obj 25 58 symbol;
#X text 16 169 if you want to listen to FEED [r FEED]-[print FEED], f 29;
#X text 239 103 toggle 's' button to let 'the chant' sleep individually from UI. the 'world' can also trigger 'sleep' for all registered 'chant', f 23;
#X text 501 133 some un-usual request to make STRESS half. for not to wait too long to wait., f 33;
#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 restore 275 237 pd some switches;
#N canvas 405 23 428 517 group 0;
#X obj 21 207 send;
#X obj 21 65 bng 15 250 50 0 empty empty register\ me\ :) 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 42 115 loadbang;
#X text 214 93 on 'connect';
#X obj 162 418 pack f f;
#X obj 69 354 loadbang;
#X obj 162 344 snapshot~;
#X msg 162 290 start;
#X msg 212 290 stop;
#X obj 69 377 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 162 369 5 0 0 0 - - - 0;
#X obj 69 397 metro 50;
#X obj 162 319 ear~ 2000 10000;
#X obj 162 259 sel 1 0;
#X obj 271 408 r \$0-group;
#X obj 217 477 send;
#X obj 238 385 loadbang;
#X obj 162 233 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 162 441 spigot;
#X obj 115 459 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 21 441 1;
#X obj 21 230 r \$0-onconnect-listen;
#X obj 21 85 symbol \$0-onconnect-listen;
#X text 272 16 * group interactions;
#X obj 21 26 loadbang;
#X obj 21 253 t b a;
#X obj 162 393 *;
#X obj 281 329 r \$0-level;
#X floatatom 281 352 5 0 0 0 - - - 0;
#X text 276 285 feedback to 'world';
#X obj 327 136 loadbang;
#X msg 327 161 \; pd dsp 1;
#X obj 75 138 r \$0-group;
#X obj 42 161 v;
#X obj 42 184 makefilename world_onconnect%d;
#X obj 238 431 v;
#X obj 238 454 makefilename world_status%d;
#X obj 48 322 print \$0-myplace;
#X obj 76 276 r \$0-name;
#X obj 48 299 pack f s s;
#X obj 76 253 r \$0-group;
#X text 294 196 'dsp on' needed because world event is actually an audio signal (envelope), f 19;
#X connect 1 0 22 0;
#X connect 2 0 33 0;
#X connect 4 0 18 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 11 0;
#X connect 10 0 26 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 13 0 7 0;
#X connect 13 1 8 0;
#X connect 14 0 35 1;
#X connect 16 0 35 0;
#X connect 17 0 13 0;
#X connect 18 0 15 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 25 0;
#X connect 22 0 0 0;
#X connect 24 0 1 0;
#X connect 25 0 20 0;
#X connect 25 1 4 1;
#X connect 25 1 39 0;
#X connect 26 0 4 0;
#X connect 27 0 28 0;
#X connect 28 0 26 1;
#X connect 30 0 31 0;
#X connect 32 0 33 1;
#X connect 33 0 34 0;
#X connect 34 0 0 1;
#X connect 35 0 36 0;
#X connect 36 0 15 1;
#X connect 38 0 39 1;
#X connect 39 0 37 0;
#X connect 40 0 39 2;
#X restore 251 216 pd group participate;
#X obj 12 332 cnv 16 106 64 empty empty empty 20 12 0 10 #c6ffc7 #404040 0;
#N canvas 396 426 450 451 guts 0;
#X obj 19 20 inlet;
#X obj 19 61 bng 16 250 50 0 empty empty stop!\ (requested\ from\ UI) 10 -8 0 10 #ffc7c6 #000000 #000000;
#X obj 203 20 inlet;
#X obj 203 61 bng 16 250 50 0 empty empty motivated! 10 -8 0 10 #faff00 #000000 #000000;
#X obj 387 415 s NOTE;
#X msg 203 213 1777 12 20 0;
#X obj 19 358 bng 15 250 50 0 empty empty done 17 7 0 10 #c7c6ff #000000 #000000;
#X msg 33 392 0;
#X obj 33 415 v \$0-STATE;
#X obj 85 379 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X text 43 296 NOTE: so there is nothing to do \, except just changing STATE., f 17;
#X text 310 204 NOTE: this is an example for a momentary event. so \, just send a msg. and that's it!, f 19;
#X obj 378 23 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 310 24 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 344 24 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X text 306 48 NOTE: send \$0-word and \$0-word-max-set to change numbers on the UI. 'word' is related to have different behaviours. a behaviour == a 'word' of this entity., f 22;
#X obj 59 117 del 10000;
#X text 71 140 NOTE: how long this 'chant' happens? (in milliseconds), f 19;
#N canvas 698 126 450 300 NOTE 0;
#X msg 24 102 1777 12 20 0;
#X text 22 63 /id /pin# /ontime /onoff;
#X text 24 24 == what is 'taak' chant? ==;
#X text 22 141 if /ontime == 0 \, use /onoff to turn 'taak' pin# on & off;
#X text 22 174 if /ontime != 0 \, 'taak' pin# will be on for /ontime x 2 milliseconds. the /onoff will be ignored.;
#X restore 206 415 pd NOTE on 'taak';
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 0 16 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 16 0 6 0;
#X restore 41 355 pd guts;
#X obj 27 186 cnv 16 350 20 empty empty empty 20 12 0 10 #ffe3c6 #404040 0;
#X text 33 188 !!CHECK!! - 'stress' must be a (+) \, 'relax' to be a (-);
#X obj 10 239 sel 1 0;
#X text 12 402 NOTE: open [pd guts] to build up behaviours!, f 20;
#X text 33 132 'condi' - threshold level that 'chant' get motivated;
#X text 33 144 'level' - impact of 'chant' to the world;
#X text 33 156 'stress' - stress increment when 'chant' is active;
#X text 33 168 'relax' - relax decrement when 'chant' is not active;
#X text 240 271 NOTE: a 'chant' can get motivated by 2 ways: from UI (manual control) or from the 'world & me' mechanism, f 24;
#X text 199 282 <====;
#X connect 1 0 2 0;
#X connect 1 0 27 1;
#X connect 2 0 3 0;
#X connect 2 0 10 0;
#X connect 4 0 1 0;
#X connect 6 0 19 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 11 0;
#X connect 19 0 30 0;
#X connect 30 0 27 0;
#X connect 30 1 1 0;
#X coords 0 -1 1 1 240 112 1 5 5;

640
radio_chant_roller.pd Normal file
View file

@ -0,0 +1,640 @@
#N canvas 4 23 395 451 10;
#X obj 10 32 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #c6ffc7 #000000 #000000 0 1;
#X obj 115 283 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #faff00 #000000 #000000;
#X msg 282 360 1;
#X obj 282 413 v \$0-STATE;
#N canvas 417 29 533 796 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 147 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 119 37 r \$0-group;
#X obj 86 14 loadbang;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 283 101 v;
#X obj 386 37 r \$0-group;
#X obj 353 14 loadbang;
#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 283 124 change;
#X connect 0 0 19 0;
#X connect 0 0 54 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 57 0;
#X connect 18 1 58 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 46 0;
#X connect 44 0 63 1;
#X connect 45 0 51 0;
#X connect 45 0 63 0;
#X connect 46 0 40 0;
#X connect 47 0 67 0;
#X connect 48 0 64 1;
#X connect 49 0 50 0;
#X connect 49 0 64 0;
#X connect 50 0 47 0;
#X connect 51 0 43 0;
#X connect 52 0 51 0;
#X connect 53 0 50 0;
#X connect 54 0 1 0;
#X connect 55 0 56 0;
#X connect 56 0 54 1;
#X connect 57 0 15 0;
#X connect 58 0 15 0;
#X connect 59 0 60 0;
#X connect 60 0 57 0;
#X connect 61 0 58 0;
#X connect 62 0 61 0;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 47 1;
#X connect 66 0 43 1;
#X connect 67 0 42 0;
#X restore 115 239 pd world and me;
#X obj 132 60 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 10 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #c6ffc7 #9c00ff #000000;
#X obj 64 61 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 34 60 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00 #000000 0 1;
#N canvas 70 273 585 334 statesave 0;
#X obj 60 72 savestate;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#N canvas 0 0 394 201 save-name 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 54 43 r \$0-name;
#X obj 21 21 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 268 192 pd save-name;
#N canvas 0 0 386 217 loaded 0;
#X obj 16 15 inlet;
#X obj 222 111 list store;
#X obj 222 59 r \$0-loaded;
#X obj 222 82 route clear;
#X obj 16 54 t a b;
#X obj 16 146 s \$0-loaded;
#X msg 43 77 clear;
#X obj 16 100 list prepend append;
#X obj 16 123 list trim;
#X text 60 42 'set';
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 3 1 1 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X restore 111 169 pd loaded;
#N canvas 22 33 382 405 load-name 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 223 97 symbol \$0-load-name;
#X obj 52 24 r \$0-load-name;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 80 217 s \$0-name-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 16 0;
#X connect 11 0 12 1;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 17 0;
#X connect 13 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 16 2 15 0;
#X restore 60 238 pd load-name;
#X obj 415 114 list store;
#X obj 415 163 print;
#X obj 385 99 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 415 75 t a b;
#X obj 415 29 list prepend append;
#X obj 415 52 list trim;
#N canvas 0 0 394 201 save-group 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 21 21 inlet;
#X obj 54 43 r \$0-group;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X restore 252 215 pd save-group;
#N canvas 22 33 382 405 load-group 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-group;
#X obj 52 24 r \$0-load-group;
#X obj 80 217 s \$0-group-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 10 1;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 10 1 17 0;
#X connect 11 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 14 1 11 0;
#X connect 14 2 13 0;
#X connect 15 0 3 0;
#X connect 16 0 14 0;
#X restore 77 215 pd load-group;
#N canvas 417 223 349 308 save-world 0;
#X obj 21 189 list prepend append;
#X obj 21 212 list trim;
#X obj 21 235 s \$0-save;
#X obj 21 21 inlet;
#X obj 36 44 r \$0-cond;
#X obj 21 67 f;
#X obj 21 166 pack f f f f;
#X obj 44 90 r \$0-level;
#X obj 90 136 r \$0-relax;
#X obj 67 113 r \$0-stress;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 6 1;
#X connect 8 0 6 3;
#X connect 9 0 6 2;
#X restore 236 238 pd save-world;
#N canvas 84 297 417 482 load-world 0;
#X obj 223 28 inlet;
#X obj 52 337 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 429 s \$0-loaded;
#X msg 79 360 clear;
#X obj 52 383 list prepend append;
#X obj 52 406 list trim;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-world;
#X obj 52 24 r \$0-load-world;
#X obj 80 310 s \$0-cond-set;
#X obj 80 218 unpack f f f f;
#X obj 161 241 s \$0-relax-set;
#X obj 134 264 s \$0-stress-set;
#X obj 107 287 s \$0-level-set;
#X obj 109 165 - 4;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 9 1 17 0;
#X connect 10 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 13 2 12 0;
#X connect 14 0 3 0;
#X connect 15 0 13 0;
#X connect 17 0 16 0;
#X connect 17 1 20 0;
#X connect 17 2 19 0;
#X connect 17 3 18 0;
#X connect 21 0 9 1;
#X connect 21 0 10 0;
#X restore 94 192 pd load-world;
#X obj 221 90 t b b b b b;
#X obj 60 111 t b b b a;
#X connect 0 0 10 0;
#X connect 0 0 17 0;
#X connect 0 1 16 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 6 0 7 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 9 1 6 1;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 16 0 1 0;
#X connect 16 1 14 0;
#X connect 16 2 12 0;
#X connect 16 3 3 0;
#X connect 16 4 1 1;
#X connect 17 0 5 0;
#X connect 17 1 13 0;
#X connect 17 2 15 0;
#X connect 17 3 4 0;
#X restore 301 8 pd statesave;
#X obj 292 388 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 203 61 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6 #606060 #000000 0 256;
#X obj 301 35 loadbang;
#X obj 301 81 v \$0-STRESS;
#X obj 301 58 metro 100;
#X obj 301 104 int;
#X obj 98 61 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 147 30 15 0 0 0 @ \$0-name-set \$0-name 0;
#X symbolatom 41 30 15 0 0 0 & \$0-group-set \$0-group 0;
#X obj 10 216 v \$0-STATE;
#X obj 77 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-cond \$0-cond-set condi -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 69 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-stress \$0-stress-set stress -38 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 177 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-relax \$0-relax-set relax -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 185 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-level \$0-level-set level -33 7 0 10 #ffffff #000000 #000000 0 256;
#N canvas 440 284 715 215 some 0;
#X obj 579 44 v \$0-STRESS;
#X obj 579 90 v \$0-STRESS;
#X obj 579 24 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 579 67 * 0.5;
#X obj 409 24 r \$0-word-max;
#X obj 409 70 s \$0-word-max-set;
#X msg 409 47 set \$1;
#X msg 259 47 set \$1;
#X obj 259 24 r \$0-SLEEP;
#X obj 259 70 s \$0-SLEEP-set;
#X obj 25 81 pack s f;
#X obj 25 35 t b f;
#X obj 25 15 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 25 127 s FEED;
#X obj 25 104 list trim;
#X obj 103 24 r \$0-name;
#X obj 25 58 symbol;
#X text 16 169 if you want to listen to FEED [r FEED]-[print FEED], f 29;
#X text 239 103 toggle 's' button to let 'the chant' sleep individually from UI. the 'world' can also trigger 'sleep' for all registered 'chant', f 23;
#X text 501 133 some un-usual request to make STRESS half. for not to wait too long to wait., f 33;
#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 restore 275 237 pd some switches;
#N canvas 405 23 428 517 group 0;
#X obj 21 207 send;
#X obj 21 65 bng 15 250 50 0 empty empty register\ me\ :) 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 42 115 loadbang;
#X text 214 93 on 'connect';
#X obj 162 418 pack f f;
#X obj 69 354 loadbang;
#X obj 162 344 snapshot~;
#X msg 162 290 start;
#X msg 212 290 stop;
#X obj 69 377 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 162 369 5 0 0 0 - - - 0;
#X obj 69 397 metro 50;
#X obj 162 319 ear~ 2000 10000;
#X obj 162 259 sel 1 0;
#X obj 271 408 r \$0-group;
#X obj 217 477 send;
#X obj 238 385 loadbang;
#X obj 162 233 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 162 441 spigot;
#X obj 115 459 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 21 441 1;
#X obj 21 230 r \$0-onconnect-listen;
#X obj 21 85 symbol \$0-onconnect-listen;
#X text 272 16 * group interactions;
#X obj 21 26 loadbang;
#X obj 21 253 t b a;
#X obj 162 393 *;
#X obj 281 329 r \$0-level;
#X floatatom 281 352 5 0 0 0 - - - 0;
#X text 276 285 feedback to 'world';
#X obj 327 136 loadbang;
#X msg 327 161 \; pd dsp 1;
#X obj 75 138 r \$0-group;
#X obj 42 161 v;
#X obj 42 184 makefilename world_onconnect%d;
#X obj 238 431 v;
#X obj 238 454 makefilename world_status%d;
#X obj 48 322 print \$0-myplace;
#X obj 76 276 r \$0-name;
#X obj 48 299 pack f s s;
#X obj 76 253 r \$0-group;
#X text 294 196 'dsp on' needed because world event is actually an audio signal (envelope), f 19;
#X connect 1 0 22 0;
#X connect 2 0 33 0;
#X connect 4 0 18 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 11 0;
#X connect 10 0 26 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 13 0 7 0;
#X connect 13 1 8 0;
#X connect 14 0 35 1;
#X connect 16 0 35 0;
#X connect 17 0 13 0;
#X connect 18 0 15 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 25 0;
#X connect 22 0 0 0;
#X connect 24 0 1 0;
#X connect 25 0 20 0;
#X connect 25 1 4 1;
#X connect 25 1 39 0;
#X connect 26 0 4 0;
#X connect 27 0 28 0;
#X connect 28 0 26 1;
#X connect 30 0 31 0;
#X connect 32 0 33 1;
#X connect 33 0 34 0;
#X connect 34 0 0 1;
#X connect 35 0 36 0;
#X connect 36 0 15 1;
#X connect 38 0 39 1;
#X connect 39 0 37 0;
#X connect 40 0 39 2;
#X restore 251 216 pd group participate;
#X obj 12 332 cnv 16 106 64 empty empty empty 20 12 0 10 #c6ffc7 #404040 0;
#N canvas 396 29 1048 737 guts 0;
#X obj 19 20 inlet;
#X obj 19 61 bng 16 250 50 0 empty empty stop!\ (requested\ from\ UI) 10 -8 0 10 #ffc7c6 #000000 #000000;
#X obj 203 20 inlet;
#X obj 203 61 bng 16 250 50 0 empty empty motivated! 10 -8 0 10 #faff00 #000000 #000000;
#X obj 141 425 s NOTE;
#X obj 19 638 bng 15 250 50 0 empty empty done 17 7 0 10 #c7c6ff #000000 #000000;
#X msg 33 672 0;
#X obj 33 695 v \$0-STATE;
#X obj 85 659 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X text 904 527 NOTE: this is an example for a momentary event. so \, just send a msg. and that's it!, f 19;
#X obj 958 23 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 890 24 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 924 24 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X text 886 48 NOTE: send \$0-word and \$0-word-max-set to change numbers on the UI. 'word' is related to have different behaviours. a behaviour == a 'word' of this entity., f 22;
#N canvas 698 126 450 439 NOTE 0;
#X text 24 24 == what is 'roller' chant? ==;
#X text 22 63 /id /motor# /speed /gostop;
#X msg 24 102 4001 0 500 1;
#X text 22 174 the /speed is rotation speed of the motor \, this is bi-directional it can be (+) or (-), f 66;
#X text 22 141 'roller' chant is using L9110 H-bridge which can drive 2 motors at the same time. /motor# can be 0 or 1 to choose between them., f 66;
#X obj 14 215 cnv 16 390 58 empty empty empty 20 12 0 10 #ffe3c6 #404040 0;
#X text 22 220 NOTE: if there is no fresh message for 3 seconds \, the motor will automatically stop. (for safety) so \, even though the speed value doesn't change \, the 'chant' need to send it repeatedly \, for example \, using [metro 1000] etc., f 62;
#X text 22 284 /gostop is about turn on/off the motors. 1 for go \, 0 for stop., f 66;
#X text 21 324 there is a hidden mode with /gostop == 2 this will schedule a 'pulse'-like activation. in this case \, it will automatically on and stay on for a duration of time(X1) \, and automatically goes off. send a number to [s X1] and then trigger [s NOTE] after then it will be packed and sent., f 65;
#X restore 546 695 pd NOTE on 'roller';
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-roller 100 float 3;
#A 0 0 0 0 0.142858 0.185716 0.214288 0.271432 0.300004 0.335719 0.371434 0.400007 0.428579 0.442865 0.442865 0.428579 0.414293 0.357148 0.300004 0.233336 0.166668 0.0999997 0.0571415 0.0142834 -0.0285747 -0.0714328 -0.114291 -0.157149 -0.200007 -0.242865 -0.285723 -0.328582 -0.367868 -0.407155 -0.446441 -0.485728 -0.507157 -0.528586 -0.535729 -0.542872 -0.542872 -0.542872 -0.542872 -0.542872 -0.542872 -0.521443 -0.500014 -0.44287 -0.414298 -0.385726 -0.342868 -0.300009 -0.242865 -0.185721 -0.128577 -0.0928619 -0.0571468 -0.0214317 0.0142834 0.0357125 0.0571415 0.0999997 0.128572 0.0857136 0.0571415 0.0071404 -0.0428607 -0.0642898 -0.0857189 -0.119053 -0.152387 -0.185721 -0.214293 -0.228579 -0.242865 -0.257151 -0.264294 -0.271437 -0.266675 -0.261913 -0.257151 -0.242865 -0.228579 -0.214293 -0.192864 -0.171435 -0.142863 -0.121434 -0.100005 -0.0785758 -0.0571468 -0.0285747 -2.6226e-06 0.0285695 0.0428555 0.0285695 -2.6226e-06 -0.0214317 -0.0428607 -0.0500038 -0.0571468;
#X coords 0 1 100 -1 200 140 1;
#X restore 827 198 graph;
#X obj 141 318 riff2_random;
#X text 370 320 <== make this with [riff2_random];
#X msg 334 282 4001 0 100 100 200;
#X text 370 360 <== right-click & 'help' to understand how to use this!;
#X obj 334 261 loadbang;
#X text 395 260 <== put a loadbang to 'autoload' following msg.;
#X obj 320 127 loadbang;
#X obj 320 169 f \$0;
#X msg 320 190 \$1-roller;
#X obj 320 148 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X msg 66 256 0;
#X text 72 205 a number 0 will stop, f 8;
#X text 126 585 NOTE: the 'riff' player will spit out anyway 'done' bang. simply use it., f 27;
#N canvas 0 22 450 278 (subpatch) 0;
#X array \$0-roller1 100 float 3;
#A 0 0 0.328571 0.328571 0.306494 0.284416 0.262338 0.240261 0.218183 0.196105 0.174028 0.15195 0.129872 0.107795 0.0857168 0.0636391 0.0415615 0.0194838 -0.00259392 -0.0246716 -0.0467493 -0.068827 -0.0909047 -0.112982 -0.13506 -0.157138 -0.179586 0.342857 0.285715 0.228573 0.189287 0.150002 0.110717 0.0714314 0.0321461 -0.00713921 -0.0464245 -0.0857098 -0.124995 -0.16428 -0.203566 -0.242851 -0.271422 -0.299993 -0.328564 -0.35535 -0.382135 -0.408921 0.414286 0.371429 0.328572 0.285716 0.242859 0.200002 0.157146 0.114289 0.0714322 0.0285755 -0.0142812 -0.0571379 -0.0999945 -0.137749 -0.175504 -0.213259 -0.251013 -0.288768 -0.326523 -0.364277 -0.402032 0.314286 0.257143 0.200001 0.142859 0.0857167 0.0285744 -0.0142823 -0.057139 -0.0999957 -0.142852 -0.185709 -0.228566 -0.271422 -0.314279 -0.357136 -0.442849 0 0.257143 0.157144 0.0571449 -0.042854 -0.151016 -0.259178 -0.36734 -0.475503 -0.583665 -0.691827 -0.799989 -0.857131 0 0 0;
#X coords 0 1 100 -1 200 140 1;
#X restore 827 364 graph;
#X obj 438 656 s NOTE;
#X obj 438 549 riff2_random;
#X obj 631 492 loadbang;
#X obj 534 455 loadbang;
#X obj 534 497 f \$0;
#X obj 534 476 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X msg 534 518 \$1-roller1;
#X msg 631 513 4001 1 100 100 200;
#X msg 82 487 0;
#X obj 631 649 bng 16 250 50 0 empty empty empty 0 -8 0 10 #c7c6ff #000000 #000000;
#X text 653 649 <== you can choose which one will send out the 'done' bang \, since randomizing delay \, their bang timing will differ., f 43;
#X text 661 549 please note the second parameter 'key' is 1 instead of 0 \, which will change /motor# accordingly. so 1 means a second motor!, f 33;
#X connect 0 0 1 0;
#X connect 1 0 26 0;
#X connect 1 0 38 0;
#X connect 2 0 3 0;
#X connect 3 0 16 0;
#X connect 3 0 31 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 16 0 4 0;
#X connect 16 3 5 0;
#X connect 18 0 16 2;
#X connect 20 0 18 0;
#X connect 22 0 25 0;
#X connect 23 0 24 0;
#X connect 24 0 16 1;
#X connect 25 0 23 0;
#X connect 26 0 16 0;
#X connect 31 0 30 0;
#X connect 31 3 39 0;
#X connect 32 0 37 0;
#X connect 33 0 35 0;
#X connect 34 0 36 0;
#X connect 35 0 34 0;
#X connect 36 0 31 1;
#X connect 37 0 31 2;
#X connect 38 0 31 0;
#X restore 41 355 pd guts;
#X obj 27 186 cnv 16 350 20 empty empty empty 20 12 0 10 #ffe3c6 #404040 0;
#X text 33 188 !!CHECK!! - 'stress' must be a (+) \, 'relax' to be a (-);
#X obj 10 239 sel 1 0;
#X text 12 402 NOTE: open [pd guts] to build up behaviours!, f 20;
#X text 33 132 'condi' - threshold level that 'chant' get motivated;
#X text 33 144 'level' - impact of 'chant' to the world;
#X text 33 156 'stress' - stress increment when 'chant' is active;
#X text 33 168 'relax' - relax decrement when 'chant' is not active;
#X text 240 271 NOTE: a 'chant' can get motivated by 2 ways: from UI (manual control) or from the 'world & me' mechanism, f 24;
#X text 199 282 <====;
#X connect 1 0 2 0;
#X connect 1 0 27 1;
#X connect 2 0 3 0;
#X connect 2 0 10 0;
#X connect 4 0 1 0;
#X connect 6 0 19 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 11 0;
#X connect 19 0 30 0;
#X connect 30 0 27 0;
#X connect 30 1 1 0;
#X coords 0 -1 1 1 240 112 1 5 5;

588
radio_chant_taak.pd Normal file
View file

@ -0,0 +1,588 @@
#N canvas 2 427 395 451 10;
#X obj 10 32 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #c6ffc7 #000000 #000000 0 1;
#X obj 115 283 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #faff00 #000000 #000000;
#X msg 282 360 1;
#X obj 282 413 v \$0-STATE;
#N canvas 417 29 533 796 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 147 s \$0-SLEEP;
#X obj 16 101 v;
#X obj 119 37 r \$0-group;
#X obj 86 14 loadbang;
#X floatatom 16 124 5 0 0 0 - - - 0;
#X obj 283 101 v;
#X obj 386 37 r \$0-group;
#X obj 353 14 loadbang;
#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 283 124 change;
#X connect 0 0 19 0;
#X connect 0 0 54 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 57 0;
#X connect 18 1 58 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 46 0;
#X connect 44 0 63 1;
#X connect 45 0 51 0;
#X connect 45 0 63 0;
#X connect 46 0 40 0;
#X connect 47 0 67 0;
#X connect 48 0 64 1;
#X connect 49 0 50 0;
#X connect 49 0 64 0;
#X connect 50 0 47 0;
#X connect 51 0 43 0;
#X connect 52 0 51 0;
#X connect 53 0 50 0;
#X connect 54 0 1 0;
#X connect 55 0 56 0;
#X connect 56 0 54 1;
#X connect 57 0 15 0;
#X connect 58 0 15 0;
#X connect 59 0 60 0;
#X connect 60 0 57 0;
#X connect 61 0 58 0;
#X connect 62 0 61 0;
#X connect 63 0 66 0;
#X connect 64 0 65 0;
#X connect 65 0 47 1;
#X connect 66 0 43 1;
#X connect 67 0 42 0;
#X restore 115 239 pd world and me;
#X obj 132 60 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 10 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #c6ffc7 #9c00ff #000000;
#X obj 64 61 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 34 60 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00 #000000 0 1;
#N canvas 70 273 585 334 statesave 0;
#X obj 60 72 savestate;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#N canvas 0 0 394 201 save-name 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 54 43 r \$0-name;
#X obj 21 21 inlet;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X restore 268 192 pd save-name;
#N canvas 0 0 386 217 loaded 0;
#X obj 16 15 inlet;
#X obj 222 111 list store;
#X obj 222 59 r \$0-loaded;
#X obj 222 82 route clear;
#X obj 16 54 t a b;
#X obj 16 146 s \$0-loaded;
#X msg 43 77 clear;
#X obj 16 100 list prepend append;
#X obj 16 123 list trim;
#X text 60 42 'set';
#X connect 0 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 1 1;
#X connect 3 1 1 0;
#X connect 4 0 7 0;
#X connect 4 1 6 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X restore 111 169 pd loaded;
#N canvas 22 33 382 405 load-name 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 223 97 symbol \$0-load-name;
#X obj 52 24 r \$0-load-name;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 80 217 s \$0-name-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 9 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 3 0;
#X connect 10 0 16 0;
#X connect 11 0 12 1;
#X connect 11 0 13 0;
#X connect 12 0 1 0;
#X connect 12 1 17 0;
#X connect 13 0 11 0;
#X connect 15 0 14 0;
#X connect 16 0 12 0;
#X connect 16 1 13 0;
#X connect 16 2 15 0;
#X restore 60 238 pd load-name;
#X obj 415 114 list store;
#X obj 415 163 print;
#X obj 385 99 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 415 75 t a b;
#X obj 415 29 list prepend append;
#X obj 415 52 list trim;
#N canvas 0 0 394 201 save-group 0;
#X obj 21 89 list prepend append;
#X obj 21 112 list trim;
#X obj 21 135 s \$0-save;
#X obj 21 66 symbol;
#X obj 21 21 inlet;
#X obj 54 43 r \$0-group;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X restore 252 215 pd save-group;
#N canvas 22 33 382 405 load-group 0;
#X obj 223 28 inlet;
#X obj 52 257 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 349 s \$0-loaded;
#X msg 79 280 clear;
#X obj 52 303 list prepend append;
#X obj 52 326 list trim;
#X obj 109 165 - 1;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-group;
#X obj 52 24 r \$0-load-group;
#X obj 80 217 s \$0-group-set;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 10 1;
#X connect 9 0 11 0;
#X connect 10 0 1 0;
#X connect 10 1 17 0;
#X connect 11 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 14 1 11 0;
#X connect 14 2 13 0;
#X connect 15 0 3 0;
#X connect 16 0 14 0;
#X restore 77 215 pd load-group;
#N canvas 417 223 349 308 save-world 0;
#X obj 21 189 list prepend append;
#X obj 21 212 list trim;
#X obj 21 235 s \$0-save;
#X obj 21 21 inlet;
#X obj 36 44 r \$0-cond;
#X obj 21 67 f;
#X obj 21 166 pack f f f f;
#X obj 44 90 r \$0-level;
#X obj 90 136 r \$0-relax;
#X obj 67 113 r \$0-stress;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 5 1;
#X connect 5 0 6 0;
#X connect 6 0 0 0;
#X connect 7 0 6 1;
#X connect 8 0 6 3;
#X connect 9 0 6 2;
#X restore 236 238 pd save-world;
#N canvas 84 297 417 482 load-world 0;
#X obj 223 28 inlet;
#X obj 52 337 t a b;
#X obj 223 143 s \$0-loaded;
#X msg 223 120 send \$1;
#X obj 223 77 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 52 429 s \$0-loaded;
#X msg 79 360 clear;
#X obj 52 383 list prepend append;
#X obj 52 406 list trim;
#X obj 52 188 list split;
#X obj 71 122 v \$0-split-idx;
#X obj 91 93 v \$0-split-idx;
#X obj 91 70 list length;
#X obj 52 47 t a b a;
#X obj 223 97 symbol \$0-load-world;
#X obj 52 24 r \$0-load-world;
#X obj 80 310 s \$0-cond-set;
#X obj 80 218 unpack f f f f;
#X obj 161 241 s \$0-relax-set;
#X obj 134 264 s \$0-stress-set;
#X obj 107 287 s \$0-level-set;
#X obj 109 165 - 4;
#X connect 0 0 4 0;
#X connect 1 0 7 0;
#X connect 1 1 6 0;
#X connect 3 0 2 0;
#X connect 4 0 14 0;
#X connect 6 0 5 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 9 0 1 0;
#X connect 9 1 17 0;
#X connect 10 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 9 0;
#X connect 13 1 10 0;
#X connect 13 2 12 0;
#X connect 14 0 3 0;
#X connect 15 0 13 0;
#X connect 17 0 16 0;
#X connect 17 1 20 0;
#X connect 17 2 19 0;
#X connect 17 3 18 0;
#X connect 21 0 9 1;
#X connect 21 0 10 0;
#X restore 94 192 pd load-world;
#X obj 221 90 t b b b b b;
#X obj 60 111 t b b b a;
#X connect 0 0 10 0;
#X connect 0 0 17 0;
#X connect 0 1 16 0;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 6 0 7 0;
#X connect 8 0 6 0;
#X connect 9 0 6 0;
#X connect 9 1 6 1;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X connect 16 0 1 0;
#X connect 16 1 14 0;
#X connect 16 2 12 0;
#X connect 16 3 3 0;
#X connect 16 4 1 1;
#X connect 17 0 5 0;
#X connect 17 1 13 0;
#X connect 17 2 15 0;
#X connect 17 3 4 0;
#X restore 301 8 pd statesave;
#X obj 292 388 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 203 61 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6 #606060 #000000 0 256;
#X obj 301 35 loadbang;
#X obj 301 81 v \$0-STRESS;
#X obj 301 58 metro 100;
#X obj 301 104 int;
#X obj 98 61 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 147 30 15 0 0 0 @ \$0-name-set \$0-name 0;
#X symbolatom 41 30 15 0 0 0 & \$0-group-set \$0-group 0;
#X obj 10 216 v \$0-STATE;
#X obj 77 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-cond \$0-cond-set condi -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 69 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-stress \$0-stress-set stress -38 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 177 99 nbx 6 14 -1e+37 1e+37 0 0 \$0-relax \$0-relax-set relax -33 7 0 10 #ffffff #000000 #000000 0 256;
#X obj 185 81 nbx 5 14 -1e+37 1e+37 0 0 \$0-level \$0-level-set level -33 7 0 10 #ffffff #000000 #000000 0 256;
#N canvas 440 284 715 215 some 0;
#X obj 579 44 v \$0-STRESS;
#X obj 579 90 v \$0-STRESS;
#X obj 579 24 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 579 67 * 0.5;
#X obj 409 24 r \$0-word-max;
#X obj 409 70 s \$0-word-max-set;
#X msg 409 47 set \$1;
#X msg 259 47 set \$1;
#X obj 259 24 r \$0-SLEEP;
#X obj 259 70 s \$0-SLEEP-set;
#X obj 25 81 pack s f;
#X obj 25 35 t b f;
#X obj 25 15 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 25 127 s FEED;
#X obj 25 104 list trim;
#X obj 103 24 r \$0-name;
#X obj 25 58 symbol;
#X text 16 169 if you want to listen to FEED [r FEED]-[print FEED], f 29;
#X text 239 103 toggle 's' button to let 'the chant' sleep individually from UI. the 'world' can also trigger 'sleep' for all registered 'chant', f 23;
#X text 501 133 some un-usual request to make STRESS half. for not to wait too long to wait., f 33;
#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 restore 275 237 pd some switches;
#N canvas 405 23 428 517 group 0;
#X obj 21 207 send;
#X obj 21 65 bng 15 250 50 0 empty empty register\ me\ :) 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 42 115 loadbang;
#X text 214 93 on 'connect';
#X obj 162 418 pack f f;
#X obj 69 354 loadbang;
#X obj 162 344 snapshot~;
#X msg 162 290 start;
#X msg 212 290 stop;
#X obj 69 377 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 162 369 5 0 0 0 - - - 0;
#X obj 69 397 metro 50;
#X obj 162 319 ear~ 2000 10000;
#X obj 162 259 sel 1 0;
#X obj 271 408 r \$0-group;
#X obj 217 477 send;
#X obj 238 385 loadbang;
#X obj 162 233 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 162 441 spigot;
#X obj 115 459 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 21 441 1;
#X obj 21 230 r \$0-onconnect-listen;
#X obj 21 85 symbol \$0-onconnect-listen;
#X text 272 16 * group interactions;
#X obj 21 26 loadbang;
#X obj 21 253 t b a;
#X obj 162 393 *;
#X obj 281 329 r \$0-level;
#X floatatom 281 352 5 0 0 0 - - - 0;
#X text 276 285 feedback to 'world';
#X obj 327 136 loadbang;
#X msg 327 161 \; pd dsp 1;
#X obj 75 138 r \$0-group;
#X obj 42 161 v;
#X obj 42 184 makefilename world_onconnect%d;
#X obj 238 431 v;
#X obj 238 454 makefilename world_status%d;
#X obj 48 322 print \$0-myplace;
#X obj 76 276 r \$0-name;
#X obj 48 299 pack f s s;
#X obj 76 253 r \$0-group;
#X text 294 196 'dsp on' needed because world event is actually an audio signal (envelope), f 19;
#X connect 1 0 22 0;
#X connect 2 0 33 0;
#X connect 4 0 18 0;
#X connect 5 0 9 0;
#X connect 6 0 10 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 11 0;
#X connect 10 0 26 0;
#X connect 11 0 6 0;
#X connect 12 0 6 0;
#X connect 13 0 7 0;
#X connect 13 1 8 0;
#X connect 14 0 35 1;
#X connect 16 0 35 0;
#X connect 17 0 13 0;
#X connect 18 0 15 0;
#X connect 19 0 18 1;
#X connect 20 0 19 0;
#X connect 21 0 25 0;
#X connect 22 0 0 0;
#X connect 24 0 1 0;
#X connect 25 0 20 0;
#X connect 25 1 4 1;
#X connect 25 1 39 0;
#X connect 26 0 4 0;
#X connect 27 0 28 0;
#X connect 28 0 26 1;
#X connect 30 0 31 0;
#X connect 32 0 33 1;
#X connect 33 0 34 0;
#X connect 34 0 0 1;
#X connect 35 0 36 0;
#X connect 36 0 15 1;
#X connect 38 0 39 1;
#X connect 39 0 37 0;
#X connect 40 0 39 2;
#X restore 251 216 pd group participate;
#X obj 12 332 cnv 16 106 64 empty empty empty 20 12 0 10 #c6ffc7 #404040 0;
#N canvas 396 426 450 451 guts 0;
#X obj 19 20 inlet;
#X obj 19 61 bng 16 250 50 0 empty empty stop!\ (requested\ from\ UI) 10 -8 0 10 #ffc7c6 #000000 #000000;
#X obj 203 20 inlet;
#X obj 203 61 bng 16 250 50 0 empty empty motivated! 10 -8 0 10 #faff00 #000000 #000000;
#X obj 387 415 s NOTE;
#X msg 203 213 1777 12 20 0;
#X obj 19 358 bng 15 250 50 0 empty empty done 17 7 0 10 #c7c6ff #000000 #000000;
#X msg 33 392 0;
#X obj 33 415 v \$0-STATE;
#X obj 85 379 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X text 43 296 NOTE: so there is nothing to do \, except just changing STATE., f 17;
#X text 310 204 NOTE: this is an example for a momentary event. so \, just send a msg. and that's it!, f 19;
#X obj 378 23 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7 #9c00ff #000000 0;
#X obj 310 24 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 344 24 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word w! 0 -8 0 10 #ffffff #000000 #000000 0 256;
#X text 306 48 NOTE: send \$0-word and \$0-word-max-set to change numbers on the UI. 'word' is related to have different behaviours. a behaviour == a 'word' of this entity., f 22;
#X obj 59 117 del 10000;
#X text 71 140 NOTE: how long this 'chant' happens? (in milliseconds), f 19;
#N canvas 229 55 450 300 NOTE 0;
#X msg 24 102 1777 12 20 0;
#X text 22 63 /id /pin# /ontime /onoff;
#X text 24 24 == what is 'taak' chant? ==;
#X text 22 141 if /ontime == 0 \, use /onoff to turn 'taak' pin# on & off;
#X text 22 174 if /ontime != 0 \, 'taak' pin# will be on for /ontime x 2 milliseconds. the /onoff will be ignored.;
#X restore 206 415 pd NOTE on 'taak';
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 3 0 16 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 7 0 9 0;
#X connect 16 0 6 0;
#X restore 41 355 pd guts;
#X obj 27 186 cnv 16 350 20 empty empty empty 20 12 0 10 #ffe3c6 #404040 0;
#X text 33 188 !!CHECK!! - 'stress' must be a (+) \, 'relax' to be a (-);
#X obj 10 239 sel 1 0;
#X text 12 402 NOTE: open [pd guts] to build up behaviours!, f 20;
#X text 33 132 'condi' - threshold level that 'chant' get motivated;
#X text 33 144 'level' - impact of 'chant' to the world;
#X text 33 156 'stress' - stress increment when 'chant' is active;
#X text 33 168 'relax' - relax decrement when 'chant' is not active;
#X text 240 271 NOTE: a 'chant' can get motivated by 2 ways: from UI (manual control) or from the 'world & me' mechanism, f 24;
#X text 199 282 <====;
#X connect 1 0 2 0;
#X connect 1 0 27 1;
#X connect 2 0 3 0;
#X connect 2 0 10 0;
#X connect 4 0 1 0;
#X connect 6 0 19 0;
#X connect 12 0 14 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 15 0 11 0;
#X connect 19 0 30 0;
#X connect 30 0 27 0;
#X connect 30 1 1 0;
#X coords 0 -1 1 1 240 112 1 5 5;

178
radio_roller.pd Normal file
View file

@ -0,0 +1,178 @@
#N canvas 250 164 818 587 10;
#N canvas 294 82 697 282 radio 0;
#X obj 333 222 spigot;
#X obj 382 207 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 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 413 226 pd buildOSC for all;
#X obj 112 150 o.io.slipserial;
#X msg 319 157 devices;
#X msg 319 178 close;
#X obj 112 129 packOSC;
#X obj 112 84 r OSC;
#X obj 112 171 unpackOSC;
#X obj 112 226 routeOSC /hello;
#X obj 112 249 s HELLO;
#X obj 19 111 print OSC;
#X obj 19 84 spigot;
#X obj 68 69 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 413 249 s OSC;
#X obj 413 195 r NOTE;
#X obj 333 249 print NOTE;
#X text 414 174 /id /pitch /velocity /onoff;
#X floatatom 636 194 5 0 0 0 - - - 0;
#X obj 636 216 s PS;
#X obj 629 109 tgl 16 0 empty empty hello 20 8 0 10 #9c00fc #f8fc00 #9c00fc 0 1;
#X obj 629 61 loadbang;
#X msg 629 82 1;
#X obj 629 136 sel 1;
#X obj 19 222 spigot;
#X obj 68 207 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 19 249 print HELLO;
#X text 165 63 * a wireless "field synth" - based on 'esp now' protocol, f 14;
#X msg 629 157 2000;
#X obj 215 202 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 279 64 devicename /dev/tty.SLAB_USBtoUART \, baud 57600 \, pollintervall 1 \, verbose 1;
#X floatatom 279 106 3 0 0 1 device\ id - - 0;
#X msg 279 126 open \$1 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X obj 216 166 print info(\$0), f 8;
#X obj 226 243 outlet;
#X obj 325 10 inlet;
#X obj 325 31 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#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 29 0;
#X connect 3 2 33 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 28 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 18 0;
#X connect 29 0 34 0;
#X connect 30 0 3 1;
#X connect 31 0 32 0;
#X connect 32 0 3 1;
#X connect 35 0 36 0;
#X connect 36 0 30 0;
#X restore 11 32 pd radio;
#X obj 11 53 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 11 10 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X obj 321 168 s NOTE;
#X obj 321 114 tgl 16 0 empty empty start/stop 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X text 222 21 for example \, to send motor speed message to 'faa_roller';
#X msg 321 141 4001 0 500 \$1;
#X obj 461 168 s NOTE;
#X floatatom 461 115 5 -1000 1000 2 set\ speed - - 0;
#X msg 461 141 4001 0 \$1 1;
#X obj 606 346 s NOTE;
#X floatatom 651 238 5 -1000 1000 2 set\ speed - - 0;
#X obj 606 292 pack f f;
#X obj 606 215 tgl 16 0 empty empty start/stop 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 606 319 4001 0 \$2 \$1;
#X obj 651 258 t a b;
#X text 621 170 speed & on/off together;
#N canvas 0 22 450 278 (subpatch) 0;
#X array motion 100 float 3;
#A 0 0 -14.2857 14.2856 71.4282 99.9995 128.571 157.142 199.999 264.284 328.57 399.998 457.141 514.283 557.14 542.854 485.712 414.284 314.284 249.999 185.713 128.571 71.4282 28.5712 -14.2857 -57.1426 -90.4758 -123.809 -157.142 -228.57 -249.999 -271.427 -285.713 -299.999 -299.999 -314.284 -307.141 -299.999 -285.713 -271.427 -257.142 -242.856 -171.428 -138.095 -104.761 -71.4283 28.5712 99.9995 171.428 233.332 295.237 357.141 428.569 385.712 299.998 185.713 121.428 57.1425 -42.857 -78.5711 -114.285 -157.142 -171.428 -185.713 -185.713 -185.713 -178.571 -171.428 -157.142 -128.571 -121.428 -114.285 -99.9996 -85.7139 -64.2855 -42.857 -35.7142 -28.5714 -28.5714 -28.5714 -28.5714 -42.8571 -57.1427 -99.9996 -171.428 -214.285 -228.57 -242.856 -242.856 -242.856 -228.57 -228.57 -214.285 -199.999 -171.428 -157.142 -142.857 -128.571 -114.285 -99.9996 -85.714;
#X coords 0 1000 100 -1000 200 140 1 0 0;
#X restore 59 281 graph;
#X text 541 102 -(minus) value means reverse direction;
#X text 120 225 driving with a table is fun.;
#X obj 298 446 tabread motion;
#X obj 298 366 f;
#X obj 338 366 + 1;
#X obj 328 279 tgl 16 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 328 306 metro 300;
#X obj 328 327 bng 16 250 50 0 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000;
#X floatatom 298 424 5 0 0 0 - - - 0;
#X floatatom 298 467 5 0 0 0 - - - 0;
#X obj 298 387 mod 100;
#X obj 444 387 s NOTE;
#X floatatom 444 334 5 -1000 1000 2 set\ speed - - 0;
#X msg 444 360 4001 0 \$1 1;
#X text 48 163 /device_id /motor_id /speed /onoff;
#X msg 49 141 4001 0 500 \$1;
#X connect 0 0 1 0;
#X connect 2 0 0 0;
#X connect 4 0 6 0;
#X connect 6 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 11 0 15 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 10 0;
#X connect 15 0 12 1;
#X connect 15 1 12 0;
#X connect 20 0 27 0;
#X connect 21 0 22 0;
#X connect 21 0 28 0;
#X connect 22 0 21 1;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 25 0 21 0;
#X connect 26 0 20 0;
#X connect 27 0 30 0;
#X connect 28 0 26 0;
#X connect 30 0 31 0;
#X connect 31 0 29 0;

131
radio_spell_scratch.pd Normal file
View file

@ -0,0 +1,131 @@
#N canvas 813 23 626 779 10;
#N canvas 264 376 692 351 radio 0;
#X obj 333 282 spigot;
#X obj 382 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 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 413 286 pd buildOSC for all;
#X obj 112 210 o.io.slipserial;
#X msg 138 98 devices;
#X msg 209 98 close;
#X obj 112 189 packOSC;
#X obj 112 144 r OSC;
#X obj 112 231 unpackOSC;
#X obj 112 286 routeOSC /hello;
#X obj 112 309 s HELLO;
#X obj 19 171 print OSC;
#X obj 19 144 spigot;
#X obj 68 129 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 413 309 s OSC;
#X obj 413 255 r NOTE;
#X obj 333 309 print NOTE;
#X text 414 234 /id /pitch /velocity /onoff;
#X floatatom 636 254 5 0 0 0 - - - 0;
#X obj 636 276 s PS;
#X obj 629 169 tgl 16 0 empty empty hello 20 8 0 10 #9c00fc #f8fc00 #9c00fc 0 1;
#X obj 629 121 loadbang;
#X msg 629 142 1;
#X obj 629 196 sel 1;
#X obj 19 282 spigot;
#X obj 68 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 19 309 print HELLO;
#X text 14 12 * a wireless "field synth" - based on 'esp now' protocol, f 14;
#X msg 629 217 2000;
#X obj 215 262 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 258 98 devicename /dev/tty.SLAB_USBtoUART \, baud 57600 \, pollintervall 1 \, verbose 1;
#X floatatom 299 144 3 0 0 1 device\ id - - 0;
#X msg 299 164 open \$1 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X obj 216 226 print info(\$0), f 8;
#X obj 226 303 outlet;
#X obj 209 15 inlet;
#X obj 209 36 tgl 16 0 empty empty empty 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 209 57 sel 0 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 29 0;
#X connect 3 2 33 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 28 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 18 0;
#X connect 29 0 34 0;
#X connect 30 0 3 1;
#X connect 31 0 32 0;
#X connect 32 0 3 1;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 5 0;
#X connect 37 1 30 0;
#X restore 11 52 pd radio;
#X obj 11 73 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 11 31 tgl 16 0 empty empty connect/disconnect 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X text 418 248 input chants;
#X text 197 265 many different objects;
#X obj 409 7 world universe;
#X obj 103 399 radio_chant_taak;
#A saved whistler universe 0.3 0.5 0.6 -0.4;
#X obj 261 571 radio_chant_roller;
#A saved dandelion universe 0.4 0.6 0.5 -0.4;
#X connect 0 0 1 0;
#X connect 2 0 0 0;

125
radio_spell_start.pd Normal file
View file

@ -0,0 +1,125 @@
#N canvas 584 23 626 779 10;
#N canvas 264 376 692 351 radio 0;
#X obj 333 282 spigot;
#X obj 382 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 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 413 286 pd buildOSC for all;
#X obj 112 210 o.io.slipserial;
#X msg 138 98 devices;
#X msg 209 98 close;
#X obj 112 189 packOSC;
#X obj 112 144 r OSC;
#X obj 112 231 unpackOSC;
#X obj 112 286 routeOSC /hello;
#X obj 112 309 s HELLO;
#X obj 19 171 print OSC;
#X obj 19 144 spigot;
#X obj 68 129 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 413 309 s OSC;
#X obj 413 255 r NOTE;
#X obj 333 309 print NOTE;
#X text 414 234 /id /pitch /velocity /onoff;
#X floatatom 636 254 5 0 0 0 - - - 0;
#X obj 636 276 s PS;
#X obj 629 169 tgl 16 0 empty empty hello 20 8 0 10 #9c00fc #f8fc00 #9c00fc 0 1;
#X obj 629 121 loadbang;
#X msg 629 142 1;
#X obj 629 196 sel 1;
#X obj 19 282 spigot;
#X obj 68 267 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 19 309 print HELLO;
#X text 14 12 * a wireless "field synth" - based on 'esp now' protocol, f 14;
#X msg 629 217 2000;
#X obj 215 262 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 258 98 devicename /dev/tty.SLAB_USBtoUART \, baud 57600 \, pollintervall 1 \, verbose 1;
#X floatatom 299 144 3 0 0 1 device\ id - - 0;
#X msg 299 164 open \$1 \, baud 57600 \, pollintervall 1 \, verbose 1;
#X obj 216 226 print info(\$0), f 8;
#X obj 226 303 outlet;
#X obj 209 15 inlet;
#X obj 209 36 tgl 16 0 empty empty empty 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 209 57 sel 0 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 29 0;
#X connect 3 2 33 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 28 0;
#X connect 23 1 18 0;
#X connect 24 0 26 0;
#X connect 25 0 24 1;
#X connect 28 0 18 0;
#X connect 29 0 34 0;
#X connect 30 0 3 1;
#X connect 31 0 32 0;
#X connect 32 0 3 1;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 5 0;
#X connect 37 1 30 0;
#X restore 11 52 pd radio;
#X obj 11 73 tgl 15 0 empty empty connected? 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 11 31 tgl 16 0 empty empty connect/disconnect 0 -8 0 10 #c6feff #000000 #000000 0 1;
#X obj 409 7 world universe;
#X connect 0 0 1 0;
#X connect 2 0 0 0;

78
retro2.pd Normal file
View file

@ -0,0 +1,78 @@
#N canvas 371 300 364 384 12;
#X obj 43 181 del;
#X obj 43 231 spigot;
#X obj 139 72 tgl 15 0 empty empty empty 17 7 0 10 #0400fc #f8fc00
#000000 0 1;
#X obj 145 186 random;
#X obj 82 205 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 50 47 inlet;
#X obj 43 256 outlet;
#X obj 30 114 t b f;
#X obj 113 161 t b b;
#X obj 158 72 bng 10 250 50 0 empty empty empty 17 7 0 10 #f8fc00 #0400fc
#000000;
#X text 2 7 <<<;
#X text 322 7 >>>;
#X text 2 347 <<<;
#X text 322 347 >>>;
#X obj 118 255 inlet;
#X obj 118 305 unpack f f;
#X obj 150 330 expr $f2-$f1;
#X floatatom 234 167 5 0 0 0 range - - 0;
#X floatatom 289 193 5 0 0 0 start - - 0;
#X obj 145 212 +;
#X floatatom 171 69 5 0 0 1 r - - 0;
#X obj 288 248 outlet;
#X obj 118 280 t a a;
#X obj 86 124 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 30 139 spigot;
#N canvas 809 272 450 300 safety 0;
#X obj 95 26 inlet;
#X obj 165 31 inlet;
#X obj 33 151 outlet;
#X obj 165 56 != 0;
#X obj 95 51 != 0;
#X obj 95 76 ||;
#X obj 95 101 sel 0;
#X obj 95 151 print [retro];
#X msg 95 126 inlet blocked (start=0 & range=0);
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 3 0 5 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 0 2 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X restore 195 125 pd safety;
#X text 88 355 delay 200ms -> dirty hack;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 1 0 9 0;
#X connect 2 0 7 0;
#X connect 3 0 19 0;
#X connect 4 0 1 1;
#X connect 5 0 2 0;
#X connect 7 0 24 0;
#X connect 7 1 4 0;
#X connect 8 0 0 0;
#X connect 8 1 3 0;
#X connect 9 0 8 0;
#X connect 14 0 22 0;
#X connect 15 0 18 0;
#X connect 16 0 17 0;
#X connect 17 0 3 1;
#X connect 17 0 25 0;
#X connect 18 0 19 1;
#X connect 18 0 25 1;
#X connect 19 0 0 1;
#X connect 19 0 20 0;
#X connect 19 0 21 0;
#X connect 22 0 15 0;
#X connect 22 1 16 0;
#X connect 23 0 24 1;
#X connect 24 0 9 0;
#X connect 25 0 23 0;
#X coords 0 -1 1 1 85 40 1 135 50;

38
riff2_random-help.pd Normal file
View file

@ -0,0 +1,38 @@
#N canvas 446 132 755 545 10;
#X obj 242 229 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 74 261 bng 15 250 50 0 empty empty go- 17 7 0 10 #fcfcfc #000000 #000000;
#X msg 74 330 0;
#X obj 193 441 print;
#X obj 339 406 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X obj 339 260 loadbang;
#X obj 339 426 print done;
#N canvas 0 50 450 250 (subpatch) 0;
#X array abc 10 float 3;
#A 0 0.885708 0.785709 0.471426 0.0428596 -0.299994 -0.642848 -0.357136 0.514283 0.185715 -0.0571394;
#X coords 0 1 10 -1 100 100 1 0 0;
#X restore 19 25 graph;
#X obj 242 206 loadbang;
#X text 72 311 stop!;
#X obj 146 306 riff2_random;
#X msg 339 283 4501 0 900 500 1000;
#X text 195 46 riff2_random;
#X msg 242 252 abc;
#X text 311 206 second of all \, setup an arrayname to play this can be changed at any time.;
#X text 20 175 third of all \, press bang to play delay between values will be a random amount in between delayMin ~ delayMax (milliseconds), f 31;
#X text 20 360 send [0 ( message to stop, f 18;
#X text 256 458 outputs are 1) cooked NOTE message \, 2) raw index \, 3) raw values \, 4) a bang that triggers when playback is done., f 47;
#X text 386 306 first of all \, setup with a list of parameters /id /motor# /range /delayMin /delayMax;
#X obj 376 342 cnv 16 335 62 empty empty empty 20 12 0 10 #c6ffc7 #404040 0;
#X text 386 347 /range is a multiplier to control the intensity of motions. it is useful if you are already satisfied with your pattern \, but only want to change intensity. so leave array un-touched \, try to update /range., f 53;
#X connect 0 0 13 0;
#X connect 1 0 10 0;
#X connect 2 0 10 0;
#X connect 4 0 6 0;
#X connect 5 0 11 0;
#X connect 8 0 0 0;
#X connect 10 0 3 0;
#X connect 10 1 3 0;
#X connect 10 2 3 0;
#X connect 10 3 4 0;
#X connect 11 0 10 2;
#X connect 13 0 10 1;

138
riff2_random.pd Normal file
View file

@ -0,0 +1,138 @@
#N canvas 0 33 891 478 12;
#X floatatom 313 230 5 0 0 0 - - - 0;
#X floatatom 313 289 5 0 0 0 - - - 0;
#X floatatom 313 338 5 0 0 0 - - - 0;
#X obj 28 68 hsl 110 20 0 10 0 0 empty \$0-val empty -2 -8 0 10 #fcfcc4
#000000 #000000 0 1;
#X obj 313 18 inlet;
#X obj 107 204 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 25 46 bng 14 250 50 0 empty empty empty 17 7 0 10 #00fc04 #fcc4c4
#000000;
#X floatatom 142 46 3 0 0 0 i \$0-i - 0;
#X floatatom 50 91 7 0 0 0 val \$0-val - 0;
#X floatatom 529 124 5 0 0 0 - - - 0;
#X obj 484 307 pack f f f f;
#X floatatom 129 91 5 0 0 0 key \$0-key - 0;
#X obj 506 18 inlet;
#X obj 313 264 tabread;
#X obj 529 99 array size;
#X msg 506 154 set \$1;
#X obj 506 68 t a b a;
#X obj 345 387 s \$0-val;
#X text 552 18 2-array name;
#X obj 145 68 tgl 20 0 empty \$0-onoff empty 17 7 0 8 #f8fc00 #000000
#000000 0 1;
#X obj 651 288 s \$0-onoff;
#X symbolatom 42 46 12 0 0 0 - - - 0;
#X msg 42 264 symbol no-array;
#X obj 42 239 loadbang;
#X obj 108 149 s \$0-i;
#X obj 313 362 t a a;
#X obj 506 43 list split 1;
#X obj 313 180 f;
#X text 321 38 1-cmd for scan;
#X obj 313 65 route bang;
#X obj 380 90 route 0;
#X msg 380 115 0;
#X obj 313 92 t b b;
#X msg 586 217 1;
#X obj 377 244 t b b;
#X msg 586 242 0;
#X msg 25 378 range 0 \$1;
#X obj 70 4 r \$0-an;
#X obj 25 353 r \$0-range;
#X floatatom 42 24 4 0 0 0 id \$0-id - 0;
#X floatatom 85 24 4 0 0 0 r \$0-range - 0;
#X floatatom 136 24 4 0 0 0 d1 \$0-sdelay-rstart - 0;
#X floatatom 186 24 4 0 0 0 d2 \$0-sdelay-rend - 0;
#X obj 646 71 inlet;
#X obj 646 121 s \$0-id;
#X text 692 71 3-parameters;
#X obj 653 146 s \$0-key;
#X obj 700 121 s \$0-range;
#X obj 646 96 unpack f f f f f;
#X obj 755 171 s \$0-sdelay-rend;
#X obj 727 146 s \$0-sdelay-rstart;
#X obj 663 171 pack f f;
#X obj 313 313 *;
#X obj 444 30 s \$0-an;
#X obj 377 269 del;
#X obj 359 180 r \$0-sdelay-rstart;
#X obj 504 407 outlet;
#X obj 484 357 outlet;
#X obj 439 407 r \$0-val;
#X text 533 356 1#msg;
#X msg 484 332 \$4 \$2 \$1 \$3;
#X obj 494 382 outlet;
#X obj 443 382 r \$0-i;
#X text 553 408 3#val;
#X text 543 382 2#idx;
#X obj 514 432 outlet;
#X text 563 433 4#done;
#X obj 586 287 r \$0-id;
#X obj 487 213 r \$0-key;
#X obj 259 262 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 313 205 rscan2;
#X connect 0 0 13 0;
#X connect 0 0 24 0;
#X connect 0 0 5 0;
#X connect 1 0 52 0;
#X connect 2 0 25 0;
#X connect 4 0 29 0;
#X connect 5 0 6 0;
#X connect 9 0 27 1;
#X connect 10 0 60 0;
#X connect 12 0 26 0;
#X connect 13 0 1 0;
#X connect 14 0 9 0;
#X connect 15 0 13 0;
#X connect 16 0 15 0;
#X connect 16 1 14 0;
#X connect 16 2 14 1;
#X connect 22 0 21 0;
#X connect 23 0 22 0;
#X connect 25 0 10 0;
#X connect 25 1 17 0;
#X connect 26 0 16 0;
#X connect 26 0 53 0;
#X connect 27 0 70 0;
#X connect 29 0 32 0;
#X connect 29 1 30 0;
#X connect 30 0 31 0;
#X connect 31 0 70 0;
#X connect 32 0 27 0;
#X connect 32 1 33 0;
#X connect 33 0 10 2;
#X connect 33 0 20 0;
#X connect 34 0 54 0;
#X connect 34 1 35 0;
#X connect 35 0 10 2;
#X connect 35 0 20 0;
#X connect 36 0 3 0;
#X connect 37 0 21 0;
#X connect 38 0 36 0;
#X connect 38 0 52 1;
#X connect 43 0 48 0;
#X connect 48 0 44 0;
#X connect 48 1 46 0;
#X connect 48 2 47 0;
#X connect 48 3 50 0;
#X connect 48 3 51 0;
#X connect 48 4 49 0;
#X connect 48 4 51 1;
#X connect 51 0 70 1;
#X connect 52 0 2 0;
#X connect 54 0 10 0;
#X connect 54 0 65 0;
#X connect 55 0 54 1;
#X connect 58 0 56 0;
#X connect 60 0 57 0;
#X connect 62 0 61 0;
#X connect 67 0 10 3;
#X connect 68 0 10 1;
#X connect 70 0 0 0;
#X connect 70 1 34 0;
#X connect 70 1 69 0;
#X coords 0 -1 1 1 200 95 2 20 20;

58
rscan2.pd Normal file
View file

@ -0,0 +1,58 @@
#N canvas 605 33 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 - - - 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 274 160 inlet;
#X obj 91 271 retro2 \$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 30 0;
#X connect 8 0 30 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 30 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 30 1;
#X connect 30 0 0 0;

121
world.pd Normal file
View file

@ -0,0 +1,121 @@
#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;