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

5 files changed, 97 insertions, 42 deletions

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;