#N canvas 4 44 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 44 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 0 0;
#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 5;
#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 99 -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;