From 053df5be8199eea85a463fb12f18947d043f85b3 Mon Sep 17 00:00:00 2001 From: Bailey Stevens Date: Thu, 5 Oct 2023 22:43:14 -0400 Subject: [PATCH] Can send notes over net. Get sends all params. --- pd/0.main.pd | 51 +++++++++++++++++++++++++++++---------------------- 1 file changed, 29 insertions(+), 22 deletions(-) diff --git a/pd/0.main.pd b/pd/0.main.pd index 6a4cfbb..c48ae64 100644 --- a/pd/0.main.pd +++ b/pd/0.main.pd @@ -53,11 +53,11 @@ #X obj 49 540 mod 1; #X obj 49 506 + 1; #X obj 96 580 spigot; -#X obj 1450 554 ctlin; +#X obj 1508 622 ctlin; #X obj 1264 205 route 1 2 3 4 5 6 7 8; #X obj 1398 235 s mode_toggle; #X obj 103 432 loadbang; -#X obj 452 507 bng 15 250 50 0 seqc empty empty 17 7 0 10 -262144 -1 +#X obj 452 507 bng 15 250 50 0 seqc empty seqc 17 7 0 10 -262144 -1 -1; #X floatatom 699 73 6 20 2000 2 fltco fltco -; #X obj 814 666 r~ scope; @@ -92,18 +92,18 @@ #X floatatom 1237 813 5 0 127 0 - - -; #X floatatom 1303 794 5 0 0 0 - - -; #X floatatom 1175 754 5 0 127 0 volume - volume; -#X obj 1475 586 - 1; +#X obj 1525 654 - 1; #X msg 1173 609 0 0; #X obj 1297 631 s refresh; #X obj 1373 420 list prepend scope; #X text 1184 125 MIDI Control (PGM events); -#X text 1394 527 MIDI Control (CC); +#X text 1530 721 MIDI Control (CC); #X obj 873 448 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 -1; #X obj 802 839 r setpar; -#X obj 1239 601 s getpar; -#X obj 1414 649 s setpar; -#X obj 1420 619 pack f f; +#X obj 1222 634 s getpar; +#X obj 1464 717 s setpar; +#X obj 1470 687 pack f f; #X obj 855 909 t b f; #X obj 852 942 float; #X obj 847 876 unpack 0 0; @@ -112,7 +112,7 @@ #X obj 739 517 metro 50; #X obj 1152 166 r pgmevt; #X obj 1162 538 r mute; -#X obj 1329 652 s pgmevt; +#X obj 1366 651 s pgmevt; #X obj 163 705 mtof; #X obj 853 195 +~; #X obj 857 242 snapshot~; @@ -162,7 +162,7 @@ #X msg 408 805 0 \$1; #X msg 487 799 1 \$1; #X msg 543 796 2 \$1; -#X floatatom 1236 870 5 0 0 0 delt - delt; +#X floatatom 1251 873 5 0 0 0 delt - delt; #X floatatom 1305 993 5 0 0 0 delr - delr; #X obj 683 579 spigot; #X obj 723 557 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 @@ -206,11 +206,14 @@ #X obj 1642 483 list prepend seqi; #X obj 1773 529 list prepend seq; #X obj 1775 482 array get sequence; -#X obj 1193 561 route mute set get scope pgmevt seq; -#X obj 1370 597 s seqc; +#X obj 1391 600 s seqc; #X obj 982 861 expr $i1 * 5 \; max(100 \, 60000 / max($i1 * 5 \, 1)) ; #X obj 1829 431 r size; +#X msg 1237 605 0 \, 1 \, 2 \, 3 \, 4 \, 5 \, 6 \, 7; +#X obj 368 444 r note; +#X obj 1207 561 route mute setp getp scope pgmevt seq note; +#X obj 1453 596 s note; #X connect 0 0 26 0; #X connect 1 0 118 0; #X connect 1 0 8 1; @@ -282,12 +285,12 @@ #X connect 62 0 66 0; #X connect 64 0 65 0; #X connect 65 0 80 0; -#X connect 66 0 185 0; +#X connect 66 0 190 0; #X connect 66 1 63 0; #X connect 67 0 68 0; #X connect 68 0 66 0; #X connect 69 0 64 0; -#X connect 71 0 187 0; +#X connect 71 0 186 0; #X connect 72 0 148 0; #X connect 73 0 155 0; #X connect 74 0 150 0; @@ -398,12 +401,16 @@ #X connect 183 0 67 0; #X connect 183 0 173 0; #X connect 184 0 183 0; -#X connect 185 0 78 0; -#X connect 185 1 131 0; -#X connect 185 2 85 0; -#X connect 185 3 79 0; -#X connect 185 4 96 0; -#X connect 185 5 186 0; -#X connect 187 0 129 0; -#X connect 187 1 130 0; -#X connect 188 0 184 1; +#X connect 186 0 129 0; +#X connect 186 1 130 0; +#X connect 187 0 184 1; +#X connect 188 0 85 0; +#X connect 189 0 17 1; +#X connect 189 0 47 0; +#X connect 190 0 78 0; +#X connect 190 1 131 0; +#X connect 190 2 188 0; +#X connect 190 3 79 0; +#X connect 190 4 96 0; +#X connect 190 5 185 0; +#X connect 190 6 191 0;