From 77bf9d9edd54328ac41e1807c7cea2fb0bcbe3bf Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Sun, 26 Oct 2008 08:23:30 +0000
Subject: created ds-abs to house a growing collection of data structure
 manipulation objects

svn path=/trunk/abstractions/sfruit/; revision=10350
---
 ds-abs/ds-get-list.pd | 70 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 70 insertions(+)
 create mode 100644 ds-abs/ds-get-list.pd

(limited to 'ds-abs/ds-get-list.pd')

diff --git a/ds-abs/ds-get-list.pd b/ds-abs/ds-get-list.pd
new file mode 100644
index 0000000..b1d4a0e
--- /dev/null
+++ b/ds-abs/ds-get-list.pd
@@ -0,0 +1,70 @@
+#N canvas 539 101 566 566 10;
+#X declare -lib list-abs;
+#X declare -lib iemlib -lib list-abs;
+#N canvas 936 317 494 366 builder 1;
+#X obj 182 56 dollarg;
+#X obj 182 30 initbang;
+#X obj 209 277 s \$0self;
+#N canvas 381 63 155 275 makepack 0;
+#X obj 11 26 inlet;
+#X obj 32 99 until;
+#X obj 32 155 list-extend;
+#X msg 95 100 pack;
+#X msg 32 127 f;
+#X obj 11 182 list;
+#X obj 11 73 t b a b;
+#X obj 11 208 list prepend obj 10 200;
+#X obj 11 238 list trim;
+#X obj 11 269 outlet;
+#X connect 0 0 6 0;
+#X connect 1 0 4 0;
+#X connect 2 0 5 1;
+#X connect 3 0 2 1;
+#X connect 4 0 2 0;
+#X connect 5 0 7 0;
+#X connect 6 0 5 0;
+#X connect 6 1 1 0;
+#X connect 6 2 3 0;
+#X connect 7 0 8 0;
+#X connect 8 0 9 0;
+#X restore 131 164 pd makepack;
+#X msg 221 114 obj 10 10 inlet;
+#X msg 111 185 obj 10 300 outlet;
+#X obj 126 104 - 1;
+#X text 304 73 first arg is template;
+#X obj 126 82 f;
+#X obj 92 141 t a b a;
+#X obj 182 82 t b a b;
+#X msg -10 168 connect 2 0 3 0;
+#X obj 34 200 list-range;
+#X obj 34 221 list-drip;
+#X msg 34 252 connect 3 \$1 4 \$1;
+#X msg -6 282 connect 4 0 5 0;
+#X obj 202 158 list trim;
+#X obj 202 135 list prepend obj 10 100 get;
+#X obj 310 29 import iemlib list-abs;
+#X connect 0 0 10 0;
+#X connect 0 1 8 1;
+#X connect 1 0 0 0;
+#X connect 3 0 2 0;
+#X connect 4 0 2 0;
+#X connect 5 0 2 0;
+#X connect 6 0 9 0;
+#X connect 8 0 6 0;
+#X connect 9 0 12 0;
+#X connect 9 0 11 0;
+#X connect 9 0 15 0;
+#X connect 9 1 5 0;
+#X connect 9 2 3 0;
+#X connect 10 0 8 0;
+#X connect 10 1 17 0;
+#X connect 10 2 4 0;
+#X connect 11 0 2 0;
+#X connect 12 0 13 0;
+#X connect 13 0 14 0;
+#X connect 14 0 2 0;
+#X connect 15 0 2 0;
+#X connect 16 0 2 0;
+#X connect 17 0 16 0;
+#X restore 311 39 pd builder;
+#X obj 310 16 namecanvas \$0self;
-- 
cgit v1.2.1