From f2d477e14d21180016ec022f1edf7a2dbec34a1c Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
Date: Fri, 3 Apr 2009 10:49:10 +0000
Subject: sketching out some pointer-passing objects

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

(limited to 'ds-abs/ds-create.pd')

diff --git a/ds-abs/ds-create.pd b/ds-abs/ds-create.pd
new file mode 100644
index 0000000..11d1d75
--- /dev/null
+++ b/ds-abs/ds-create.pd
@@ -0,0 +1,44 @@
+#N canvas 774 452 450 300 10;
+#X obj 98 229 outlet;
+#X obj 98 56 inlet;
+#X obj 98 112 t a b;
+#X obj 98 167 append \$2 x y;
+#N canvas 0 22 251 214 ds-begin 0;
+#X obj 48 65 list append traverse \$1;
+#X obj 48 88 list trim;
+#X obj 21 13 inlet;
+#X obj 21 36 t b b;
+#X obj 21 156 outlet;
+#X obj 21 120 pointer;
+#X connect 0 0 1 0;
+#X connect 1 0 5 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 3 1 0 0;
+#X connect 5 0 4 0;
+#X restore 172 133 pd ds-begin;
+#X obj 98 83 pack 0 0;
+#X text 155 83 gives us default 0 0;
+#X obj 98 195 t a a;
+#X obj 165 235 s \$2-pointer;
+#X obj 256 183 r \$2-get-pointer;
+#X obj 164 205 pointer;
+#X obj 256 206 b;
+#X obj 310 75 loadbang;
+#X obj 310 96 ds-first \$1 \$2;
+#X obj 321 126 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X connect 1 0 5 0;
+#X connect 2 0 3 0;
+#X connect 2 1 4 0;
+#X connect 3 0 7 0;
+#X connect 4 0 3 2;
+#X connect 5 0 2 0;
+#X connect 7 0 0 0;
+#X connect 7 1 10 0;
+#X connect 9 0 11 0;
+#X connect 10 0 8 0;
+#X connect 11 0 10 0;
+#X connect 12 0 13 0;
+#X connect 13 0 10 0;
+#X connect 14 0 13 0;
-- 
cgit v1.2.1