upd

2021-04-08 11:15:52 +09:00 · 2021-04-08 11:15:52 +09:00 · 7ac2936ad2
commit 7ac2936ad2
parent 09f042ba04
3 changed files with 89 additions and 58 deletions
--- a/puredata/piano_access_radio_roomB.pd
+++ b/puredata/piano_access_radio_roomB.pd
@ -300,14 +300,14 @@
 #N canvas 479 25 801 747 crickets 1;
 #X obj 45 28 cnv 15 700 700 empty empty empty 20 12 0 14 -233017 -66577
 0;
-#N canvas 84 25 1196 747 (subpatch) 1;
+#N canvas 84 470 1196 747 (subpatch) 0;
 #X obj 74 266 r BONGBONG_DONE;
 #X obj 24 243 r BONGBONG;
 #N canvas 0 50 450 250 (subpatch) 0;
 #X array world_energy 20 float 3;
-#A 0 4.79672e-09 0.100207 6.61801e-21 0.299886 5.67365e-07 4.01701e-34
-6.6049e-05 7.95898e-16 0 0 1.69711e-09 2.59569e-18 6.47671e-32 3.15304e-21
-9.83504e-15 0 0 0 0 0;
+#A 0 0 0.0013835 0.249905 0.00207525 0.00242112 0.349867 0.000691749
+0.199924 2.61207e-07 1.33918e-07 0.0218682 0.000969789 5.20489e-09
+6.10381e-06 0.000732741 0 0 0 0 0;
 #X coords 0 1 20 0 200 50 1 0 0;
 #X restore 15 36 graph;
 #X msg 24 452 \; world_energy \$2 \$1;
@ -553,7 +553,7 @@
 #X obj 1065 188 s E_SEQ;
 #X msg 1167 66 \; we_sequence const 1;
 #X obj 764 136 hradio 10 1 0 20 empty empty empty 0 -8 0 10 -257985
-4160 -1 6;
+-4160 -1 4;
 #X obj 204 406 * 0.2;
 #X obj 384 406 * 0.25;
 #X obj 1104 406 * 0.1;
@ -573,8 +573,8 @@
 #X restore 195 141 graph;
 #X restore 137 152 pd backup sequences;
 #X obj 448 204 +;
-#X obj 270 189 tgl 15 0 empty WORLD_SLEEP set_to_stop_the_world 17
-7 0 10 -262144 -1 -1 0 1;
+#X obj 270 189 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
+-1 -1 0 1;
 #X obj 1114 676 * 0.2;
 #X obj 754 676 * 0.25;
 #X obj 574 676 * 0.1;
@ -605,10 +605,36 @@
 #X obj 700 213 s E_SEQ_line;
 #X obj 937 210 bng 15 250 50 0 WORLD_evt_half empty s:WORLD_evt_half
 17 7 0 10 -262144 -1 -1;
-#X obj 778 178 bng 25 250 50 0 ACT0 empty ACT0 27 7 0 15 -4034 -4160
-1;
 #X obj 937 189 sel 12 19;
-#X obj 863 200 sel 5;
+#X obj 829 177 sel 5;
+#X text 247 211 set 1 to stop the world;
+#N canvas 85 472 450 300 ACT0 0;
+#X obj 8 27 bng 25 250 50 0 ACT0 empty ACT0 27 7 0 15 -4034 -4160 -1
+;
+#X obj 151 89 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
+-1 -1 0 1;
+#X obj 151 109 == 0;
+#X obj 151 130 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 259 93 loadbang;
+#X msg 259 114 1;
+#X obj 118 48 inlet;
+#X obj 118 156 spigot;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 7 1;
+#X connect 4 0 5 0;
+#X connect 5 0 3 0;
+#X connect 6 0 7 0;
+#X connect 7 0 0 0;
+#X coords 0 -1 1 1 50 50 1 5 5;
+#X restore 829 198 pd ACT0;
+#X obj 362 29 tgl 15 0 empty WORLD_SLEEP r:WORLD_SLEEP 17 7 0 10 -262144
+-1 -1 0 1;
+#X obj 362 49 == 0;
+#X obj 362 70 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X msg 351 95 \; pd dsp \$1;
 #X connect 0 0 17 0;
 #X connect 1 0 16 0;
 #X connect 4 0 3 0;
@ -822,8 +848,8 @@
 #X connect 213 0 214 0;
 #X connect 214 0 215 0;
 #X connect 214 0 224 0;
+#X connect 214 0 260 0;
 #X connect 214 0 261 0;
-#X connect 214 0 262 0;
 #X connect 215 0 217 0;
 #X connect 216 0 211 0;
 #X connect 217 0 222 0;
@ -865,8 +891,11 @@
 #X connect 255 0 258 0;
 #X connect 256 0 254 0;
 #X connect 257 0 68 0;
-#X connect 261 0 259 0;
-#X connect 262 0 260 0;
+#X connect 260 0 259 0;
+#X connect 261 0 263 0;
+#X connect 264 0 265 0;
+#X connect 265 0 266 0;
+#X connect 266 0 267 0;
 #X coords 0 -1 1 1 220 100 1 5 5;
 #X restore 7 7 pd;
 #X text 68 658 change stress rate...;
@ -1240,7 +1269,7 @@ down.;
 #X msg 210 58 devicename /dev/tty.usbmodem32177401 \, baud 57600 \,
 pollintervall 1 \, verbose 1;
 #X obj 491 25 loadbang;
-#X obj 221 401 tgl 25 0 WORLD_SLEEP empty WORLD_SLEEP 27 7 0 14 -258113
+#X obj 221 399 tgl 25 0 WORLD_SLEEP empty WORLD_SLEEP 27 7 0 14 -258113
 -262144 -258113 0 1;
 #X floatatom 221 380 5 0 0 1 WORLD_ENERGY WORLD_ENERGY -;
 #X obj 381 401 bng 25 250 50 0 ACT0 empty ACT0 27 7 0 15 -4034 -4160
--- a/puredata/radio_bongbong.pd
+++ b/puredata/radio_bongbong.pd
@ -1,4 +1,4 @@
-#N canvas 194 95 496 559 10;
+#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
@ -7,14 +7,14 @@
 #X obj 164 21 r BONGBONG;
 #N canvas 0 50 450 250 (subpatch) 0;
 #X array bongbong 10 float 3;
-#A 0 1.77873 1.51677 1.81633 1.49051 1.73577 1.37524 1.68919 1.3473
-1.33718 1.60217;
+#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 3;
+-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
@ -24,7 +24,7 @@
 #X obj 167 279 s BONGBONG;
 #X obj 48 188 r BONGBONG;
 #X obj 164 67 v \$0-STATE;
-#N canvas 241 128 533 644 world 0;
+#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;
@ -36,7 +36,7 @@
 #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 0
+#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 +;
@ -230,8 +230,11 @@
 #X obj 165 507 t b b;
 #X msg 192 528 0;
 #X obj 192 549 array_copier bongbong;
-#X obj 165 487 bng 15 250 50 0 empty ACT0 r:ACT0 17 7 0 10 -262144
+#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;
@ -263,7 +266,10 @@
 #X connect 29 1 30 0;
 #X connect 30 0 31 0;
 #X connect 31 0 28 0;
-#X connect 32 0 29 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;
--- a/puredata/radio_yellowhose.pd
+++ b/puredata/radio_yellowhose.pd
@ -1,9 +1,9 @@
-#N canvas 451 95 829 496 10;
+#N canvas 451 94 829 496 10;
 #X obj 283 80 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
 -1 -1;
 #X msg 164 44 1;
 #X obj 164 67 v \$0-STATE;
-#N canvas 747 95 533 644 world 0;
+#N canvas 747 95 533 644 world 1;
 #X floatatom 16 94 5 0 0 0 - - -;
 #X obj 16 293 t a b;
 #X obj 16 372 spigot;
@ -15,7 +15,7 @@
 #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
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
 #X floatatom 110 504 5 0 0 0 stress - -;
 #X obj 238 555 +;
@ -134,7 +134,7 @@
 #X connect 50 0 15 0;
 #X connect 51 0 1 0;
 #X restore 283 57 pd world and me;
-#N canvas 84 145 1159 537 expressions 0;
+#N canvas 85 391 1159 537 expressions 0;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array yhoseA5 50 float 3;
 #A 0 0.47619 0.495238 0.514286 0.504762 0.495238 0.304762 0.27619 0.257142
@ -345,17 +345,18 @@
 #X restore 48 226 pd expressions;
 #N canvas 0 23 450 278 (subpatch) 0;
 #X array yhoseA 50 float 3;
-#A 0 0.47619 0.495238 0.514286 0.504762 0.495238 0.304762 0.27619 0.257142
-0.238095 0.219047 0.199999 0.190475 0.180951 0.180951 0.190475 0.542857
-0.542857 0.552381 0.561905 0.533333 0.533333 0.35238 0.314284 0.285713
-0.266665 0.247617 0.247617 0.257141 0.30476 0.504762 0.504762 0.533334
-0.542858 0.542858 0.495238 0.285712 0.238093 0.238093 0.238093 0.247617
-0.323809 0.447619 0.466667 0.476191 0.4 0.209523 0.161903 0.152379
-0.142855 0.142855;
+#A 0 0.00952369 0.657143 0.00952369 0.00952369 0.00952369 0.590476
+0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369
+0.542857 0.542857 0.00952369 0.00952369 0.0190476 0.0190476 0.0190476
+0.0190476 0.0190476 0.0190476 0.704762 0.704762 0.0190476 0.0190476
+0.0190476 0.0190476 0.619048 0.619048 0.0190476 0.0190476 0.52381 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.67619 0.00952369 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.733333 0.00952381 0.00952369
+0.00952369;
 #X coords 0 1 50 0 25 25 1 0 0;
 #X restore 35 45 graph;
 #X obj 23 138 hradio 15 1 0 4 empty \$0-word empty 0 -8 0 10 -257985
-4034 -1 4;
+-4034 -1 2;
 #X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -257985 -4034
 -1;
 #X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -257985
@ -389,38 +390,33 @@
 #X msg 726 329 yhoseB;
 #X obj 498 306 riff1_random 600 3206 600 900;
 #N canvas 0 23 450 278 (subpatch) 0;
-#X array yhoseB 100 float 3;
-#A 0 0.00952381 0.00476211 0.00476211 0.514286 0.4 0.371429 0.347619
-0.00952297 2.38419e-07 2.38419e-07 0.00476193 0.00476193 0.00476193
-0.00476193 0.00476193 0.276191 0.347619 0.27619 0.0190475 0.0190475
-0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475 0.0190475
-0.0190475 0.304762 0.32381 0.400001 0.471429 0.771429 0.00952339 0.00952339
-0.00952339 0.00952339 0.00952339 0.00952339 0.00952339 0.595238 0.266667
-0.3 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.00952369
-0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.0285714 0.0285714
-0.0285714 0.0285714 0.0285714 0.52381 0.280952 0.271429 0.285714 0.309523
-0.290476 0.0285714 0.0285714 0.0285714 0.0285714 0.0285714 0.00952405
-0.00952405 0.3 0.338095 0.319048 0.390476 0.476189 0.00952381 0.00952381
-0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.00952381 0.0285714
-0.0285714 0.0285714 0.395222 0.419031 0.419031 0.428554 0.490456 0.461886
-0 0 0 0 0 0;
-#X coords 0 1 100 0 25 25 1 0 0;
+#X array yhoseB 50 float 3;
+#A 0 -1.78814e-07 0.27619 -1.78814e-07 -1.78814e-07 -1.78814e-07 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.457143 0.00952369
+0.00952369 0.00952369 0.00952369 0.00952369 0.00952369 0.285714 -1.78814e-07
+-1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07
+-1.78814e-07 -1.78814e-07 0.4 -1.78814e-07 -1.78814e-07 -1.78814e-07
+-1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07
+0.32381 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07
+-1.78814e-07 0.27619 -1.78814e-07 -1.78814e-07 -1.78814e-07 -1.78814e-07
+;
+#X coords 0 1 50 0 25 25 1 0 0;
 #X restore 35 95 graph;
-#X obj 88 305 riff1_random 700 3207 600 900;
 #X obj 427 120 v \$0-STRESS;
 #X obj 427 166 v \$0-STRESS;
 #X obj 427 100 bng 15 250 50 0 empty WORLD_evt_half r:WORLD_evt_half
 17 7 0 10 -262144 -1 -1;
 #X obj 427 143 * 0.5;
+#X obj 88 306 riff1_random 400 3207 600 900;
 #X connect 0 0 11 0;
 #X connect 1 0 2 0;
 #X connect 3 0 0 0;
 #X connect 4 0 32 0;
-#X connect 4 0 34 0;
+#X connect 4 0 38 0;
 #X connect 9 0 1 0;
 #X connect 9 0 7 0;
 #X connect 10 0 4 0;
-#X connect 12 0 34 0;
+#X connect 12 0 38 0;
 #X connect 13 0 30 0;
 #X connect 14 0 16 0;
 #X connect 14 0 29 0;
@ -434,12 +430,12 @@
 #X connect 24 0 31 0;
 #X connect 27 0 26 0;
 #X connect 28 0 31 0;
-#X connect 30 0 34 1;
+#X connect 30 0 38 1;
 #X connect 31 0 32 1;
 #X connect 32 0 27 0;
-#X connect 34 0 19 0;
-#X connect 34 3 14 0;
-#X connect 35 0 38 0;
+#X connect 34 0 37 0;
+#X connect 36 0 34 0;
 #X connect 37 0 35 0;
-#X connect 38 0 36 0;
+#X connect 38 0 19 0;
+#X connect 38 3 14 0;
 #X coords 0 -1 1 1 100 150 2 5 5;