sketching out some pointer-passing objects

svn path=/trunk/abstractions/sfruit/; revision=10954

4 files changed, 101 insertions, 0 deletions

diff --git a/ds-abs/ds-create-help.pd b/ds-abs/ds-create-help.pd
new file mode 100644
index 0000000..0c2a441
--- /dev/null
+++ b/ds-abs/ds-create-help.pd
@@ -0,0 +1,25 @@
+#N canvas 727 43 450 300 10;
+#N canvas 207 710 450 300 \$0-thing 0;
+#X obj 63 114 struct \$0-thing float x float y symbol name;
+#X obj 62 182 drawpolygon -x 515 5 0 0 50 50;
+#X obj 61 224 drawsymbol name 10 0 151 this=;
+#X restore 316 179 pd \$0-thing;
+#X obj 92 170 ds-create pd-\$0-data \$0-thing;
+#X obj 92 263 set -symbol \$0-thing name;
+#X obj 92 209 t b a;
+#N canvas 0 22 450 300 \$0-data 1;
+#X restore 316 156 pd \$0-data;
+#X msg 92 123 25 80;
+#X text 51 23 [ds-create] creates an instance of a template with default
+x and y float parameters (in the inlet);
+#X obj 62 97 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X text 93 282 use [set] to set any other parameters;
+#X msg 92 235 symbol a-great-thing;
+#X text 79 97 or just bang for [0 0( (or last coords);
+#X connect 1 0 3 0;
+#X connect 3 0 9 0;
+#X connect 3 1 2 1;
+#X connect 5 0 1 0;
+#X connect 7 0 1 0;
+#X connect 9 0 2 0;
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;
diff --git a/ds-abs/ds-rset.pd b/ds-abs/ds-rset.pd
new file mode 100644
index 0000000..d17f19a
--- /dev/null
+++ b/ds-abs/ds-rset.pd
@@ -0,0 +1,16 @@
+#N canvas 987 44 385 232 10;
+#X obj 80 154 set \$1 \$2;
+#X obj 80 99 inlet;
+#X obj 158 25 loadbang;
+#X obj 185 158 iem_receive;
+#X msg 185 133 set \$1;
+#X obj 185 109 list-onearg \$3 \$1-pointer;
+#X obj 158 51 t b b;
+#X obj 158 76 s \$1-get-pointer;
+#X connect 1 0 0 0;
+#X connect 2 0 6 0;
+#X connect 3 0 0 1;
+#X connect 4 0 3 0;
+#X connect 5 0 4 0;
+#X connect 6 0 7 0;
+#X connect 6 1 5 0;
diff --git a/ds-abs/ds-rsetsize.pd b/ds-abs/ds-rsetsize.pd
new file mode 100644
index 0000000..80c128b
--- /dev/null
+++ b/ds-abs/ds-rsetsize.pd
@@ -0,0 +1,16 @@
+#N canvas 149 310 450 300 10;
+#X obj 80 99 inlet;
+#X obj 158 25 loadbang;
+#X obj 185 158 iem_receive;
+#X msg 185 133 set \$1;
+#X obj 185 109 list-onearg \$3 \$1-pointer;
+#X obj 80 154 setsize \$1 \$2;
+#X obj 158 51 t b b;
+#X obj 158 76 s \$1-get-pointer;
+#X connect 0 0 5 0;
+#X connect 1 0 6 0;
+#X connect 2 0 5 1;
+#X connect 3 0 2 0;
+#X connect 4 0 3 0;
+#X connect 6 0 7 0;
+#X connect 6 1 4 0;