From c8b3be9dd3ec952ebbf3b5667072882217e56792 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/sfruit/; revision=11815 --- sfruit/canvasselect.pd | 42 ------------------------------------------ sfruit/note-octave.pd | 14 ++++++++++++++ sfruit/note-remap.pd | 34 ++++++++++++++++++++++++++++++++++ sfruit/switch-delay.pd | 20 ++++++++++++++++++++ sfruit/time-tempoflash.pd | 29 +++++++++++++++++++++++++++++ 5 files changed, 97 insertions(+), 42 deletions(-) delete mode 100644 sfruit/canvasselect.pd create mode 100644 sfruit/note-octave.pd create mode 100644 sfruit/note-remap.pd create mode 100644 sfruit/switch-delay.pd create mode 100644 sfruit/time-tempoflash.pd diff --git a/sfruit/canvasselect.pd b/sfruit/canvasselect.pd deleted file mode 100644 index ab00f41..0000000 --- a/sfruit/canvasselect.pd +++ /dev/null @@ -1,42 +0,0 @@ -#N canvas 0 22 450 300 10; - -#X obj 9 14 import-disabled iemguts list-abs; -#X obj 203 154 list-map; -#X obj 176 174 list-map; -#X obj 176 132 t a a; -#X obj 258 154 - 1; -#X obj 231 174 + 1; -#X msg 203 198 mouse \$1 \$2 0 0; -#X msg 236 105 vis 1 \, editmode 1; -#X msg 176 219 mouseup \$1 \$2 0; -#X obj 176 38 inlet; -#N canvas 35 286 450 300 canvasposition 0; -#X obj 172 58 inlet; -#X obj 172 103 outlet; -#X obj 172 81 canvasposition \$1; -#X text 84 8 subpatch'd so its argument lines up with sendcanvas's -(sendcanvas defaults to its immediate parent \, canvas position defaults -to its grandparent); -#X connect 0 0 2 0; -#X connect 2 0 1 0; -#X restore 176 82 pd canvasposition; -#X obj 176 61 t b; -#X obj 236 125 sendcanvas \$1; -#X obj 176 246 sendcanvas \$1; -#X obj 176 105 t a b; -#X connect 1 0 6 0; -#X connect 1 1 4 0; -#X connect 2 0 8 0; -#X connect 2 1 5 0; -#X connect 3 0 2 0; -#X connect 3 1 1 0; -#X connect 4 0 1 1; -#X connect 5 0 2 1; -#X connect 6 0 13 0; -#X connect 7 0 12 0; -#X connect 8 0 13 0; -#X connect 9 0 11 0; -#X connect 10 0 14 0; -#X connect 11 0 10 0; -#X connect 14 0 3 0; -#X connect 14 1 7 0; diff --git a/sfruit/note-octave.pd b/sfruit/note-octave.pd new file mode 100644 index 0000000..e7775a4 --- /dev/null +++ b/sfruit/note-octave.pd @@ -0,0 +1,14 @@ +#N canvas 0 22 450 300 10; +#X obj 71 50 inlet; +#X obj 71 117 +; +#X obj 71 161 outlet; +#X obj 146 73 f \$1; +#X obj 146 52 loadbang; +#X obj 146 117 * 12; +#X obj 206 52 inlet; +#X connect 0 0 1 0; +#X connect 1 0 2 0; +#X connect 3 0 5 0; +#X connect 4 0 3 0; +#X connect 5 0 1 1; +#X connect 6 0 5 0; diff --git a/sfruit/note-remap.pd b/sfruit/note-remap.pd new file mode 100644 index 0000000..614f1a5 --- /dev/null +++ b/sfruit/note-remap.pd @@ -0,0 +1,34 @@ +#N canvas 838 140 449 566 10; +#X obj 74 128 list-unique; +#X obj 74 104 list prepend; +#X obj 98 272 list-shuffle; +#X obj 47 310 list-find; +#X obj 47 413 list-idx; +#X obj 47 371 t b a; +#X obj 98 248 list-value \$0-note_bag; +#X obj 47 392 list-value \$0-note_bag; +#X text 49 326 incoming note; +#X obj 74 151 list-value \$0-note_bag; +#X obj 47 81 t a a; +#X obj 47 434 note-octave -1; +#X obj 47 43 inlet; +#X obj 47 467 outlet; +#X obj 254 47 inlet; +#X obj 254 82 t b; +#X text 268 64 new sequence; +#X connect 0 0 1 1; +#X connect 0 0 9 0; +#X connect 1 0 0 0; +#X connect 2 0 3 1; +#X connect 3 0 5 0; +#X connect 4 0 11 0; +#X connect 5 0 7 0; +#X connect 5 1 4 1; +#X connect 6 0 2 0; +#X connect 7 0 4 0; +#X connect 10 0 3 0; +#X connect 10 1 1 0; +#X connect 11 0 13 0; +#X connect 12 0 10 0; +#X connect 14 0 15 0; +#X connect 15 0 6 0; diff --git a/sfruit/switch-delay.pd b/sfruit/switch-delay.pd new file mode 100644 index 0000000..af93533 --- /dev/null +++ b/sfruit/switch-delay.pd @@ -0,0 +1,20 @@ +#N canvas 726 300 268 325 10; +#X obj 77 77 inlet; +#X obj 77 254 outlet; +#X obj 77 102 t a b; +#X msg 104 127 stop; +#X obj 77 187 del; +#X msg 77 216 0; +#X obj 77 155 sel 0; +#X msg 104 215 1; +#X obj 138 153 inlet; +#X connect 0 0 2 0; +#X connect 2 0 6 0; +#X connect 2 1 3 0; +#X connect 3 0 4 0; +#X connect 4 0 5 0; +#X connect 5 0 1 0; +#X connect 6 0 4 0; +#X connect 6 1 7 0; +#X connect 7 0 1 0; +#X connect 8 0 4 1; diff --git a/sfruit/time-tempoflash.pd b/sfruit/time-tempoflash.pd new file mode 100644 index 0000000..15fbba3 --- /dev/null +++ b/sfruit/time-tempoflash.pd @@ -0,0 +1,29 @@ +#N canvas 0 22 553 465 10; +#X obj 286 16 get_delegate time-clock beat; +#X obj 286 242 s \$0-tempo-canvas; +#X msg 285 155 color \$1; +#X msg 304 221 color -1; +#X obj 304 177 t b; +#X obj 304 200 del 120; +#X msg 286 104 15; +#X obj 0 0 cnv 15 250 400 empty \$0-tempo-canvas empty 20 12 0 14 -1 +-262144 0; +#X obj 286 47 sel 0 1 2 3; +#X msg 301 82 3; +#X msg 341 88 13; +#X msg 399 80 23; +#X connect 0 0 8 0; +#X connect 2 0 1 0; +#X connect 2 0 4 0; +#X connect 3 0 1 0; +#X connect 4 0 5 0; +#X connect 5 0 3 0; +#X connect 6 0 2 0; +#X connect 8 0 6 0; +#X connect 8 1 9 0; +#X connect 8 2 10 0; +#X connect 8 3 11 0; +#X connect 9 0 2 0; +#X connect 10 0 2 0; +#X connect 11 0 2 0; +#X coords 0 -1 1 1 250 400 2 0 0; -- cgit v1.2.1