doohoyi/forest-all-around
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
forest-all-around/puredata/radio_theatre_1.dots-dots.unstable/backup/radio_mote2.pd

500 lines
13 KiB
Text
Raw Blame History

#N canvas 342 55 721 493 10;
#X obj 8 32 tgl 15 0 empty \$0-status-now empty 17 7 0 10 #c6ffc7 #000000
#000000 0 1;
#X obj 88 151 bng 15 250 50 0 empty empty motivated! 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 187 184 1;
#X obj 187 237 v \$0-STATE;
#N canvas 760 33 533 644 world 0;
#X floatatom 16 94 5 0 0 0 - - - 0;
#X obj 16 293 t a b;
#X obj 16 372 spigot;
#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 67 334 == 0;
#X obj 16 316 sel 1;
#X text 41 402 think;
#X obj 16 428 gauss 1 0;
#X floatatom 16 474 5 0 0 0 - - - 0;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 110 504 5 0 0 0 stress - - 0;
#X obj 238 555 +;
#X obj 238 502 t a b;
#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X floatatom 238 480 8 0 0 0 - - - 0;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - - 0;
#X obj 238 375 t b b;
#X obj 285 416 sel 1 0;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 #b8b8b8
#f8fc00 #000000;
#X obj 238 578 max 0;
#X text 109 114 listening speed;
#X text 56 93 speed of happenings;
#X text 69 210 world is quiet?;
#X text 90 285 status of me;
#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 16 451 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 45 graph;
#X obj 238 303 loadbang;
#X text 78 227 condition of state change;
#X obj 238 346 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 200 pd;
#X obj 285 393 v \$0-STATE;
#X obj 265 525 v \$0-STRESS;
#X obj 238 601 v \$0-STRESS;
#X obj 67 311 v \$0-STATE;
#X obj 16 597 outlet;
#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 373 255 metro 50;
#X obj 373 212 loadbang;
#X obj 373 278 v \$0-STATE;
#X obj 373 301 s \$0-status-now;
#X obj 16 39 r WORLD_ENERGY;
#X text 378 440 working stress;
#X text 378 460 resting relax;
#X obj 16 66 +;
#X msg 285 439 0.1;
#X obj 16 114 resample 100;
#X msg 304 462 -0.05;
#X obj 49 66 tgl 15 0 empty \$0-SLEEP r:0-SLEEP 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 158 31 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 #fcfcfc
#000000 #000000 0 1;
#X obj 158 51 s \$0-SLEEP;
#X obj 16 210 < 0.7;
#X connect 0 0 48 0;
#X connect 1 0 5 0;
#X connect 1 1 36 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 27 0;
#X connect 8 0 16 0;
#X connect 9 0 37 0;
#X connect 11 0 16 1;
#X connect 12 0 21 0;
#X connect 13 0 12 0;
#X connect 13 1 34 0;
#X connect 14 0 31 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 20 0;
#X connect 17 0 53 0;
#X connect 18 0 15 0;
#X connect 18 1 33 0;
#X connect 19 0 47 0;
#X connect 19 1 49 0;
#X connect 21 0 11 0;
#X connect 21 0 35 0;
#X connect 27 0 8 0;
#X connect 29 0 14 0;
#X connect 31 0 18 0;
#X connect 33 0 19 0;
#X connect 34 0 12 1;
#X connect 36 0 4 0;
#X connect 36 0 26 0;
#X connect 38 0 39 0;
#X connect 39 0 41 0;
#X connect 40 0 38 0;
#X connect 41 0 42 0;
#X connect 43 0 46 0;
#X connect 46 0 0 0;
#X connect 47 0 15 0;
#X connect 48 0 17 0;
#X connect 49 0 15 0;
#X connect 50 0 46 1;
#X connect 51 0 52 0;
#X connect 53 0 1 0;
#X restore 105 109 pd world and me;
#N canvas 70 224 717 437 expressions 0;
#X obj 24 211 inlet;
#X obj 24 292 outlet;
#X obj 24 263 t b a;
#X obj 226 258 s \$0-word;
#X obj 134 392 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
#fcfcfc #000000 #000000;
#X floatatom 134 347 5 0 0 0 - - - 0;
#X obj 134 281 t a a;
#X obj 24 240 count 4;
#X obj 157 188 loadbang;
#X obj 157 230 s \$0-word-max;
#X obj 63 199 r \$0-word-max;
#X floatatom 63 220 5 0 0 0 - - - 0;
#X msg 157 209 4;
#X obj 134 369 array_copier \$0-sign;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign1 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 196 45 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign3 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 536 45 graph;
#N canvas 84 25 450 278 (subpatch) 0;
#X array \$0-sign2 40 float 2;
#X coords 0 1 40 0 150 105 1 0 0;
#X restore 366 45 graph;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign0 60 float 2;
#X coords 0 1 60 0 150 105 1 0 0;
#X restore 26 45 graph;
#X connect 0 0 7 0;
#X connect 2 0 1 0;
#X connect 2 1 6 0;
#X connect 5 0 13 0;
#X connect 6 0 5 0;
#X connect 7 0 2 0;
#X connect 7 0 3 0;
#X connect 8 0 12 0;
#X connect 10 0 11 0;
#X connect 11 0 7 1;
#X connect 12 0 9 0;
#X connect 13 0 4 0;
#X restore 88 267 pd expressions;
#N canvas 0 23 450 278 (subpatch) 0;
#X array \$0-sign 60 float 3;
#A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 60 0 25 25 1 0 0;
#X restore 26 42 graph;
#X obj 112 52 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 #c6ffc7
#9c00ff #000000 0;
#X obj 8 50 bng 15 250 50 0 empty empty empty 17 7 0 10 #c6ffc7 #9c00ff
#000000;
#X msg 37 339 0;
#X obj 249 306 loadbang;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X text 35 320 stop!;
#X msg 251 406 0;
#X obj 251 429 v \$0-STATE;
#X obj 88 429 s NOTE;
#X obj 288 329 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
#fcfcfc #000000 #000000;
#X obj 594 308 v \$0-STRESS;
#X obj 594 354 v \$0-STRESS;
#X obj 594 288 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 #fcfcfc #000000 #000000;
#X obj 594 331 * 0.5;
#X obj 72 53 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 461 342 r \$0-word-max;
#X obj 461 388 s \$0-word-max-set;
#X msg 461 365 set \$1;
#X obj 54 52 tgl 15 0 \$0-SLEEP \$0-SLEEP-set s 3 -7 0 10 #404040 #f8fc00
#000000 0 1;
#X msg 461 285 set \$1;
#X obj 461 262 r \$0-SLEEP;
#X obj 461 308 s \$0-SLEEP-set;
#X obj 249 329 f \$0;
#X obj 249 352 makefilename %d-sign;
#N canvas 192 357 513 304 statesave 1;
#X obj 60 72 savestate;
#X obj 382 135 makefilename %s%%d;
#X msg 382 158 set \$1;
#X obj 382 112 symbol \$0-sign;
#X obj 382 181 s \$0-signname_set;
#X obj 60 48 list store;
#X obj 60 25 r \$0-save;
#X obj 382 92 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 60 95 t a b;
#X obj 382 69 loadbang;
#N canvas 0 0 426 370 save-sign 0;
#X obj 58 168 makefilename;
#X obj 27 73 until;
#X obj 27 96 f, f 8;
#X obj 90 106 + 1;
#X obj 27 50 t a b, f 8;
#X msg 72 73 0;
#X obj 36 220 array get;
#X obj 58 191 t b a b a;
#X obj 105 220 array size;
#X obj 77 279 list prepend append;
#X obj 77 302 list trim;
#X obj 58 145 r \$0-signname_set;
#X obj 77 325 s \$0-save;
#X obj 27 27 inlet;
#X connect 0 0 7 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 4 1 5 0;
#X connect 5 0 2 1;
#X connect 6 0 9 0;
#X connect 7 0 6 0;
#X connect 7 1 6 2;
#X connect 7 2 8 0;
#X connect 7 3 8 1;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 0 0;
#X connect 13 0 4 0;
#X restore 248 176 pd save-sign;
#X msg 248 153 4;
#N canvas 788 498 459 415 load-sign 1;
#X obj 200 246 array size;
#X obj 301 174 makefilename;
#X obj 301 151 r \$0-signname_set;
#X obj 234 122 + 1;
#X obj 267 122 v \$0-signname_idx;
#X obj 140 382 array set;
#X obj 73 142 + 1;
#X obj 18 257 +;
#X obj 267 86 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 51 68 t b b b b;
#X obj 51 33 until;
#X obj 51 10 inlet;
#X obj 330 70 v \$0-signname_idx;
#X msg 330 47 0;
#X obj 330 24 loadbang;
#X obj 106 142 v \$0-loaded-idx;
#X obj 51 257 v \$0-loaded-idx;
#X obj 106 188 s \$0-get-loaded;
#X obj 106 211 r \$0-loaded;
#X msg 106 165 get \$1;
#X obj 51 280 pack f f;
#X obj 51 326 s \$0-get-loaded;
#X obj 51 349 r \$0-loaded;
#X msg 51 303 get \$1 \$2;
#X connect 1 0 5 2;
#X connect 1 0 0 1;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 3 0;
#X connect 4 0 1 0;
#X connect 6 0 15 0;
#X connect 7 0 16 0;
#X connect 8 0 4 0;
#X connect 9 0 16 0;
#X connect 9 1 15 0;
#X connect 9 3 8 0;
#X connect 10 0 9 0;
#X connect 11 0 10 0;
#X connect 13 0 12 0;
#X connect 14 0 13 0;
#X connect 15 0 6 0;
#X connect 15 0 19 0;
#X connect 16 0 7 0;
#X connect 16 0 20 0;
#X connect 18 0 0 0;
#X connect 18 0 7 1;
#X connect 18 0 20 1;
#X connect 19 0 17 0;
#X connect 20 0 23 0;
#X connect 22 0 5 0;
#X connect 23 0 21 0;
#X restore 94 220 pd load-sign;
#X msg 94 197 4;
#X obj 201 120 t b b b b b;
#N canvas 0 0 357 236 save-riff 0;
#X obj 75 23 r \$0-riff-para;
#X obj 75 115 list store;
#X obj 75 69 list prepend append;
#X obj 75 92 list trim;
#X obj 75 46 t a b;
#X obj 75 138 list prepend append;
#X obj 75 161 list trim;
#X obj 75 184 s \$0-save;
#X obj 22 72 inlet;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 4 0 2 0;
#X connect 4 1 1 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 8 0 1 0;
#X restore 232 199 pd save-riff;
#N canvas 0 0 376 189 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 216 222 pd save-name;
#N canvas 464 621 379 210 loaded 0;
#X obj 22 21 inlet;
#X msg 250 108 0;
#X obj 250 85 loadbang;
#X obj 250 131 v \$0-loaded-idx;
#X obj 22 134 list store;
#X obj 22 88 list prepend append;
#X obj 22 65 t a b;
#X obj 22 111 list trim;
#X obj 22 157 s \$0-loaded;
#X obj 78 47 r \$0-loaded-write;
#X obj 84 18 r \$0-get-loaded;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 4 0 8 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 6 1 4 1;
#X connect 7 0 4 0;
#X connect 10 0 4 0;
#X restore 111 171 pd loaded;
#X obj 60 138 t b b b a;
#N canvas 0 0 450 300 load-riff 0;
#X obj 44 21 inlet;
#X restore 77 243 pd load-riff;
#N canvas 0 0 450 300 load-name 0;
#X obj 44 21 inlet;
#X restore 60 266 pd load-name;
#X connect 0 0 8 0;
#X connect 0 1 14 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 1 0;
#X connect 5 0 0 0;
#X connect 6 0 5 0;
#X connect 7 0 3 0;
#X connect 8 0 18 0;
#X connect 8 1 7 0;
#X connect 9 0 7 0;
#X connect 11 0 10 0;
#X connect 13 0 12 0;
#X connect 14 0 5 0;
#X connect 14 1 16 0;
#X connect 14 2 15 0;
#X connect 14 3 11 0;
#X connect 14 4 5 1;
#X connect 18 0 20 0;
#X connect 18 1 19 0;
#X connect 18 2 13 0;
#X connect 18 3 17 0;
#X restore 378 454 pd statesave;
#X obj 248 92 pack s f;
#X obj 248 46 t b f;
#X obj 248 26 tgl 15 0 empty \$0-feed r:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 248 138 s FEED;
#X obj 197 212 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 303 393 tgl 15 0 \$0-feed empty s:0-feed 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 248 115 list trim;
#X obj 166 31 nbx 3 14 -1e+37 1e+37 0 0 empty empty ! -8 7 0 10 #feffc6
#606060 #000000 0 256;
#X obj 7 155 loadbang;
#X obj 7 201 v \$0-STRESS;
#X obj 7 178 metro 100;
#X obj 7 224 int;
#X obj 112 36 nbx 2 14 -1e+37 1e+37 0 0 empty \$0-word empty -8 7 0
10 #ffffff #000000 #000000 0 256;
#X obj 88 306 riff2 \$2 \$1 \$3;
#X obj 24 72 nbx 4 14 -1e+37 1e+37 0 0 \$0-id \$0-id-set id -14 7 0
10 #ffffff #000000 #000000 0 256;
#X obj 81 72 nbx 4 14 -1e+37 1e+37 0 0 \$0-range \$0-range-set r -8
7 0 10 #ffffff #000000 #000000 0 256;
#X obj 144 72 nbx 4 14 -1e+37 1e+37 0 0 \$0-sdelay \$0-sdelay-set sd
-14 7 0 10 #ffffff #000000 #000000 0 256;
#X symbolatom 110 10 15 0 0 0 @ \$0-name-set \$0-name 0;
#X obj 333 233 pack f f f f;
#X obj 462 156 r \$0-sdelay;
#X obj 417 33 r \$0-name;
#X obj 200 72 nbx 1 14 -1e+37 1e+37 0 0 \$0-key \$0-key-set k -7 7
0 10 #ffffff #000000 #000000 0 256;
#X obj 384 110 r \$0-key;
#X obj 462 179 t b a;
#X obj 423 156 t b a;
#X obj 384 133 t b a;
#X obj 333 133 r \$0-id;
#X obj 423 133 r \$0-range;
#X obj 248 69 symbol;
#X obj 333 256 s \$0-riff-para;
#X connect 1 0 5 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 2 0 36 0;
#X connect 4 0 1 0;
#X connect 5 0 45 0;
#X connect 8 0 1 0;
#X connect 9 0 45 0;
#X connect 10 0 29 0;
#X connect 11 0 13 0;
#X connect 13 0 14 0;
#X connect 13 0 37 0;
#X connect 16 0 29 0;
#X connect 17 0 20 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 22 0 24 0;
#X connect 24 0 23 0;
#X connect 26 0 28 0;
#X connect 27 0 26 0;
#X connect 29 0 30 0;
#X connect 30 0 45 1;
#X connect 32 0 38 0;
#X connect 33 0 60 0;
#X connect 33 1 32 1;
#X connect 34 0 33 0;
#X connect 38 0 35 0;
#X connect 40 0 42 0;
#X connect 41 0 43 0;
#X connect 42 0 41 0;
#X connect 43 0 39 0;
#X connect 45 0 15 0;
#X connect 45 3 11 0;
#X connect 50 0 45 2;
#X connect 50 0 61 0;
#X connect 51 0 55 0;
#X connect 52 0 60 1;
#X connect 54 0 57 0;
#X connect 55 0 50 0;
#X connect 55 1 50 3;
#X connect 56 0 50 0;
#X connect 56 1 50 2;
#X connect 57 0 50 0;
#X connect 57 1 50 1;
#X connect 58 0 50 0;
#X connect 59 0 56 0;
#X connect 60 0 32 0;
#X coords 0 -1 1 1 220 85 2 5 5;
Reference in a new issue View git blame Copy permalink