From c0dc3476a8baa832e6874b229470decfd522e3cd Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Thu, 21 May 2009 05:10:26 +0000
Subject: more work on the delegate/dispatch design pattern switched time-
 series to delegate/dispatch and added more beat-sync objects
 midi-stream2notes turns a continuous stream of midi notes into static lists
 of notes and durations - great for building sequencers but still has a bug.
 list-extract to "split" a list into a sublist and the remainder ds-criteria
 to get a pointer to the first item with a specific variable value

svn path=/trunk/abstractions/sfruit/; revision=11471
---
 ds-abs/ds-criteria.pd | 34 ++++++++++++++++++++++++++++++++++
 ds-abs/ds-first.pd    |  2 +-
 2 files changed, 35 insertions(+), 1 deletion(-)
 create mode 100644 ds-abs/ds-criteria.pd

(limited to 'ds-abs')

diff --git a/ds-abs/ds-criteria.pd b/ds-abs/ds-criteria.pd
new file mode 100644
index 0000000..3e697b1
--- /dev/null
+++ b/ds-abs/ds-criteria.pd
@@ -0,0 +1,34 @@
+#N canvas 590 49 677 434 10;
+#X obj 212 185 until;
+#X msg 212 206 next;
+#X obj 86 140 list append \$1;
+#X obj 86 163 prepent traverse;
+#X obj 86 103 loadbang;
+#X obj 212 72 inlet;
+#X obj 212 392 outlet;
+#X obj 396 392 outlet;
+#X obj 212 229 pointer \$2;
+#X obj 212 102 t b b;
+#X obj 327 100 t b b;
+#X obj 212 307 get \$2 \$3;
+#X obj 212 358 pointer;
+#X obj 212 329 sel \$4;
+#X obj 212 280 t a a;
+#X text 24 11 [ds-criteria data-canvas template attribute value];
+#X connect 0 0 1 0;
+#X connect 1 0 8 0;
+#X connect 2 0 3 0;
+#X connect 3 0 8 0;
+#X connect 4 0 2 0;
+#X connect 5 0 9 0;
+#X connect 8 0 14 0;
+#X connect 8 2 10 0;
+#X connect 9 0 0 0;
+#X connect 9 1 2 0;
+#X connect 10 0 7 0;
+#X connect 10 1 0 1;
+#X connect 11 0 13 0;
+#X connect 12 0 6 0;
+#X connect 13 0 12 0;
+#X connect 14 0 11 0;
+#X connect 14 1 12 1;
diff --git a/ds-abs/ds-first.pd b/ds-abs/ds-first.pd
index ed37847..43ff5d7 100644
--- a/ds-abs/ds-first.pd
+++ b/ds-abs/ds-first.pd
@@ -1,5 +1,4 @@
 #N canvas 540 376 450 300 10;
-
 #X obj 182 135 until;
 #X msg 182 156 next;
 #X obj 56 90 list append \$1;
@@ -13,6 +12,7 @@
 #X obj 182 52 t b b;
 #X obj 297 50 t b b;
 #X obj 289 17 import-disabled list-abs;
+#X text 8 4 [ds-first data-canvas template];
 #X connect 0 0 1 0;
 #X connect 1 0 8 0;
 #X connect 2 0 3 0;
-- 
cgit v1.2.1