forest-all-around/puredata/radio_bongbong.pd
2021-04-08 11:15:52 +09:00

336 lines
9.5 KiB
Text

#N canvas 85 213 496 559 10;
#X msg 37 337 0;
#X obj 249 306 loadbang;
#X obj 326 469 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 249 329 bongbong;
#X obj 164 21 r BONGBONG;
#N canvas 0 50 450 250 (subpatch) 0;
#X array bongbong 10 float 3;
#A 0 -0.771422 -0.390472 -0.390472 0.0761905 -0.399996 -0.504758 -0.476186
-0.457139 -0.438091 -0.48571;
#X coords 0 1 10 0 50 50 1 0 0;
#X restore 30 32 graph;
#X obj 88 8 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -1
-1;
#X obj 25 85 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -261682
-4034 -1 2;
#X text 35 318 stop!;
#X obj 88 306 riff1 800 4100 400;
#X obj 88 25 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
-1 -1 0 1;
#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
-1 -1;
#X obj 167 279 s BONGBONG;
#X obj 48 188 r BONGBONG;
#X obj 164 67 v \$0-STATE;
#N canvas 582 25 533 644 world 0;
#X floatatom 16 94 5 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 -262144 -1 -1
1 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 - - -;
#X obj 16 544 sel 1;
#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X floatatom 110 504 5 0 0 0 stress - -;
#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 -262144 -1 -1 1
1;
#X floatatom 238 480 8 0 0 0 - - -;
#X obj 16 521 >;
#X floatatom 16 137 5 0 0 0 - - -;
#X obj 238 375 t b b;
#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
-257985 -1;
#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 -262144 -1 -1 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 -262144 -1 -1 1 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 -262144 -1 -1 1
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 obj 49 66 tgl 15 0 empty ONOFF r:ONOFF 17 7 0 10 -262144 -1 -1 0
1;
#X obj 249 439 * 1;
#X floatatom 246 413 5 0 0 0 - - -;
#X msg 285 458 -0.05;
#X obj 285 416 sel 0;
#X msg 312 437 0.1;
#X obj 16 114 resample 100;
#X obj 16 210 < 0.77;
#X connect 0 0 52 0;
#X connect 1 0 5 0;
#X connect 1 1 35 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 26 0;
#X connect 8 0 16 0;
#X connect 9 0 36 0;
#X connect 11 0 16 1;
#X connect 12 0 20 0;
#X connect 13 0 12 0;
#X connect 13 1 33 0;
#X connect 14 0 30 0;
#X connect 15 0 13 0;
#X connect 16 0 9 0;
#X connect 16 0 10 0;
#X connect 17 0 19 0;
#X connect 17 0 53 0;
#X connect 18 0 15 0;
#X connect 18 1 32 0;
#X connect 20 0 11 0;
#X connect 20 0 34 0;
#X connect 26 0 8 0;
#X connect 28 0 14 0;
#X connect 30 0 18 0;
#X connect 32 0 50 0;
#X connect 33 0 12 1;
#X connect 35 0 4 0;
#X connect 35 0 25 0;
#X connect 37 0 38 0;
#X connect 38 0 40 0;
#X connect 39 0 37 0;
#X connect 40 0 41 0;
#X connect 42 0 45 0;
#X connect 45 0 0 0;
#X connect 46 0 45 1;
#X connect 47 0 15 0;
#X connect 48 0 47 1;
#X connect 49 0 15 0;
#X connect 50 0 49 0;
#X connect 50 1 51 0;
#X connect 51 0 47 0;
#X connect 52 0 17 0;
#X connect 53 0 1 0;
#X restore 167 226 pd world and me;
#N canvas 605 25 582 656 expressions 0;
#N canvas 0 50 450 250 (subpatch) 0;
#X array bongbong1 50 float 3;
#A 0 1.01905 1.03809 1.05714 0.990476 0.952381 0.933334 0.904762 0.819048
0.838095 0.857143 0.87619 0.87619 0.87619 0.866666 0.923809 0.895238
0.87619 0.87619 0.87619 0.87619 0.87619 0.809524 0.914286 0.961904
1.01905 1.04762 0.999999 0.980952 0.990476 0.914285 0.933332 0.971427
0.95238 0.923809 0.885714 0.866666 0.866666 0.87619 1.02857 1.05714
1.07619 1.09524 1.10476 1.10476 1.10476 1.10476 1.10476 1.10476 1.09524
1.07619;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 49 36 graph;
#N canvas 0 50 450 250 (subpatch) 0;
#X array bongbong2 50 float 3;
#A 0 1.15238 0.828571 1.15238 0.828571 1.15238 0.761905 1.14286 0.828571
0.8 1.08571 0.961905 1.06667 0.92381 0.885714 1.05714 1.05714 1.05714
0.933333 1.06667 0.933333 1.10476 1.11428 0.885714 1.10476 1.10476
1.12381 1.14286 1.1619 0.971429 1.13333 0.904762 0.952381 1.13333 0.92381
1.13333 0.838095 0.961905 1.13333 0.942857 1.12381 0.933333 1.09524
0.87619 1.06667 0.904762 0.933333 1.05714 0.904762 0.885714 1.02857
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 219 36 graph;
#N canvas 0 50 450 250 (subpatch) 0;
#X array bongbong3 50 float 3;
#A 0 -0.771422 -0.390472 -0.390472 0.0761905 -0.399996 -0.504758 -0.476186
-0.457139 -0.438091 -0.48571 -0.48571 -0.466663 -0.457139 -0.447615
-0.447615 -0.48571 -0.533328 -0.5619 -0.495234 -0.457139 -0.419044
-0.40952 -0.40952 -0.40952 -0.419044 -0.399996 0.152381 0.161905 -0.590472
-0.552377 -0.523806 -0.514282 -0.514282 -0.523806 -0.523806 0.0761904
0.0761905 0.0761905 0.0761905 -0.628567 -0.599996 -0.561901 -0.542853
-0.523806 -0.514282 -0.580948 -0.552377 -0.533329 -0.523806 -0.276188
;
#X coords 0 1 50 0 150 105 1 0 0;
#X restore 389 36 graph;
#X obj 443 271 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 380 296 bang;
#X obj 380 273 scan;
#X obj 380 319 random 1000;
#X obj 380 342 / 1000;
#X floatatom 380 365 5 0 0 0 - - -;
#X obj 380 253 t a b;
#X msg 380 230 3;
#X obj 380 403 asum bongbong;
#X obj 80 403 asum bongbong;
#X msg 80 380 1 \, 0 \, 0;
#X obj 80 280 sel 0 1 2 3;
#X obj 80 357 t b b;
#X obj 180 403 asum bongbong;
#X obj 180 357 t b b;
#X obj 280 403 asum bongbong;
#X obj 280 357 t b b;
#X msg 180 380 0 \, 1 \, 0;
#X msg 280 380 0 \, 0 \, 1;
#X obj 22 210 inlet;
#X obj 22 291 outlet;
#X obj 22 239 random 4;
#X obj 22 262 t b a;
#X obj 224 257 s \$0-word;
#N canvas 84 25 450 278 (subpatch) 0;
#X array bongbong0 10 float 3;
#A 0 1.40953 1.28572 0.980954 0.84762 0.771429 0.990478 0.961906 0.619048
0.8 0.790477;
#X coords 0 1 10 0 150 105 1 0 0;
#X restore 332 495 graph;
#X obj 192 572 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
-262144 -1 -1;
#X obj 165 507 t b b;
#X msg 192 528 0;
#X obj 192 549 array_copier bongbong;
#X obj 165 447 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144
-1 -1;
#X obj 229 516 v \$0-STATE;
#X msg 229 493 1;
#X obj 165 477 t b b;
#X connect 3 0 11 1;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 9 0 5 0;
#X connect 9 1 3 0;
#X connect 10 0 9 0;
#X connect 13 0 12 0;
#X connect 14 0 15 0;
#X connect 14 1 17 0;
#X connect 14 2 19 0;
#X connect 14 3 10 0;
#X connect 15 0 13 0;
#X connect 15 1 12 1;
#X connect 17 0 20 0;
#X connect 17 1 16 1;
#X connect 19 0 21 0;
#X connect 19 1 18 1;
#X connect 20 0 16 0;
#X connect 21 0 18 0;
#X connect 22 0 24 0;
#X connect 24 0 25 0;
#X connect 24 0 26 0;
#X connect 25 0 23 0;
#X connect 25 1 14 0;
#X connect 29 0 23 0;
#X connect 29 1 30 0;
#X connect 30 0 31 0;
#X connect 31 0 28 0;
#X connect 32 0 35 0;
#X connect 34 0 33 0;
#X connect 35 0 29 0;
#X connect 35 1 34 0;
#X restore 48 226 pd expressions;
#X obj 326 519 s BONGBONG_DONE;
#X obj 88 429 s NOTE;
#X obj 88 406 spigot;
#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X obj 7 397 loadbang;
#X obj 317 129 v \$0-STRESS;
#X obj 317 175 v \$0-STRESS;
#X obj 231 426 v \$0-STATE;
#X obj 326 427 == 0;
#X obj 326 448 sel 1;
#X obj 231 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 231 447 - 1;
#X obj 231 489 v \$0-STATE;
#X obj 231 468 t b a;
#X msg 370 290 0;
#X obj 370 313 v \$0-STATE;
#X obj 138 191 bng 15 250 50 0 empty \$0-more-word r:0-more-word 17
7 0 10 -262144 -1 -1;
#X floatatom 175 526 5 0 0 0 - - -;
#X obj 364 492 bng 15 250 50 0 \$0-more-word empty s:0-more-word 17
7 0 10 -262144 -1 -1;
#X text 213 44 <--- how many words per sentence?;
#X msg 164 44 6;
#X obj 364 471 del 1000;
#X obj 317 109 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
17 7 0 10 -262144 -1 -1;
#X obj 317 152 * 0.5;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 17 0;
#X connect 3 0 9 1;
#X connect 4 0 6 0;
#X connect 4 0 37 0;
#X connect 9 0 19 0;
#X connect 9 3 27 0;
#X connect 11 0 12 0;
#X connect 13 0 16 0;
#X connect 15 0 11 0;
#X connect 16 0 9 0;
#X connect 19 0 18 0;
#X connect 20 0 19 1;
#X connect 21 0 20 0;
#X connect 22 0 40 0;
#X connect 24 0 28 0;
#X connect 25 0 26 0;
#X connect 26 0 2 0;
#X connect 26 1 38 0;
#X connect 27 0 24 0;
#X connect 28 0 30 0;
#X connect 29 0 25 0;
#X connect 29 0 34 0;
#X connect 30 0 29 0;
#X connect 30 1 29 0;
#X connect 31 0 32 0;
#X connect 33 0 16 0;
#X connect 37 0 14 0;
#X connect 38 0 35 0;
#X connect 39 0 22 0;
#X connect 40 0 23 0;
#X coords 0 -1 1 1 100 100 2 5 5;