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

589 lines
18 KiB
Text
Raw Permalink Blame History

#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 1;
#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 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 msg 203 213 1778 12 20 0;
#X connect 0 0 1 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 18 0;
#X connect 3 0 15 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 0 8 0;
#X connect 15 0 5 0;
#X connect 18 0 4 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;
Reference in a new issue View git blame Copy permalink