From 13aad8460777c1897b5ddadb616df6b794a0ddf4 Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Wed, 24 Jun 2009 02:08:07 +0000 Subject: created a home for meta-abs (will merge in the contributions from the list next~), going to keep works-in-progress (which is all that exists right now) in experimental/. added a version of ds-array that oversamples for a more detailed waveform view (similar to the vanilla [table]). added a couple note-abs for simply changing octave and for randomly remapping notes to each other. added a flashing color-canvas tempo display to time-abs. switch-delay waits for a 'release' phase of a voice to finish before switching off. svn path=/trunk/abstractions/meta-abs/; revision=11815 --- experimental/meta-connect-help.pd | 22 ++++++++++++++++++++ experimental/meta-connect.pd | 42 +++++++++++++++++++++++++++++++++++++++ 2 files changed, 64 insertions(+) create mode 100644 experimental/meta-connect-help.pd create mode 100644 experimental/meta-connect.pd (limited to 'experimental') diff --git a/experimental/meta-connect-help.pd b/experimental/meta-connect-help.pd new file mode 100644 index 0000000..b2032d9 --- /dev/null +++ b/experimental/meta-connect-help.pd @@ -0,0 +1,22 @@ +#N canvas 0 22 450 300 10; +#X obj 48 108 meta-connect; +#X obj 338 150 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 211 143 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 297 142 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 262 137 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 188 229 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 310 232 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 381 243 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 242 249 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X text 10 17 [meta-connect] alpha 0.1 - select any number of the bangs +above and press [ \, then select any number of the bangs below and +press ]. The first group will automatically connect themselves to the +second group.; diff --git a/experimental/meta-connect.pd b/experimental/meta-connect.pd new file mode 100644 index 0000000..cd8f023 --- /dev/null +++ b/experimental/meta-connect.pd @@ -0,0 +1,42 @@ +#N canvas 529 32 667 661 10; +#X obj 169 274 route connect to; +#X msg 138 104 connect; +#X msg 193 138 to; +#X msg 146 489 connect \$1 0 \$2 0; +#X obj 148 326 list; +#X obj 215 327 t b a; +#X obj 148 351 list-drip; +#X obj 221 393 list; +#X obj 169 251 list trim; +#X obj 146 464 list prepend; +#X obj 148 394 t b a; +#X obj 146 439 list-drip; +#X text 255 360 i am exhausted making this \, probably a much more +efficient way exists; +#X obj 138 68 keynamedown [; +#X obj 193 88 keynamedown ]; +#X obj 146 519 sendcanvas 1; +#X obj 232 205 canvasselect 1; +#X obj 169 173 t a b; +#X obj 169 228 list append; +#X connect 0 0 4 1; +#X connect 0 1 5 0; +#X connect 1 0 17 0; +#X connect 2 0 17 0; +#X connect 3 0 15 0; +#X connect 4 0 6 0; +#X connect 5 0 4 0; +#X connect 5 1 7 1; +#X connect 6 0 10 0; +#X connect 7 0 11 0; +#X connect 8 0 0 0; +#X connect 9 0 3 0; +#X connect 10 0 7 0; +#X connect 10 1 9 1; +#X connect 11 0 9 0; +#X connect 13 0 1 0; +#X connect 14 0 2 0; +#X connect 16 0 18 1; +#X connect 17 0 18 0; +#X connect 17 1 16 0; +#X connect 18 0 8 0; -- cgit v1.2.1