From 77bf9d9edd54328ac41e1807c7cea2fb0bcbe3bf Mon Sep 17 00:00:00 2001 From: Luke Iannini 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-first-help.pd | 84 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 84 insertions(+) create mode 100644 ds-abs/ds-first-help.pd (limited to 'ds-abs/ds-first-help.pd') diff --git a/ds-abs/ds-first-help.pd b/ds-abs/ds-first-help.pd new file mode 100644 index 0000000..a372af1 --- /dev/null +++ b/ds-abs/ds-first-help.pd @@ -0,0 +1,84 @@ +#N struct datatemplatered float x float y; +#N struct datatemplateblue float x float y; +#N canvas 0 22 450 300 10; +#X obj 360 250 ds-first; +#X obj 55 86 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1 +-1; +#X text 11 30 Right outlet bangs at end of data.; +#N canvas 963 339 134 109 \$0data 1; +#X scalar datatemplatered 30 10 \;; +#X scalar datatemplatered 40 20 \;; +#X scalar datatemplatered 50 30 \;; +#X scalar datatemplatered 60 40 \;; +#X scalar datatemplateblue 10 10 \;; +#X scalar datatemplateblue 20 20 \;; +#X scalar datatemplateblue 30 30 \;; +#X scalar datatemplateblue 40 40 \;; +#X restore 321 56 pd \$0data; +#X obj 55 110 t a b; +#X obj 55 200 list-extend; +#X obj 55 224 prepent set; +#X text 269 260 2008 Luke Iannini; +#X text 272 274 proyekto.net; +#X obj 298 142 bng 15 250 50 0 empty empty end 17 7 0 10 -262144 -1 +-1; +#X msg 55 251 30; +#N canvas 10 355 450 300 datatemplateblue 0; +#X msg 190 198 traverse pd-\$1data \, bang; +#X obj 190 224 pointer; +#X obj 163 128 loadbang; +#X msg 17 208 10 10 \, 20 20 \, 30 30 \, 40 40; +#X obj 144 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 190 175 \$0; +#X msg 229 153 clear; +#X obj 229 176 s pd-\$0data; +#X obj 48 18 struct datatemplateblue float x float y; +#X obj 79 279 append datatemplateblue x y; +#X obj 48 41 drawpolygon 9 3 0 0 0 10 10 10 10 0 0 0; +#X obj 163 153 t b b b b; +#X obj 89 153 s \$0makeRed; +#X connect 0 0 1 0; +#X connect 1 0 9 2; +#X connect 2 0 11 0; +#X connect 3 0 9 0; +#X connect 4 0 11 0; +#X connect 5 0 0 0; +#X connect 6 0 7 0; +#X connect 11 0 12 0; +#X connect 11 1 3 0; +#X connect 11 2 5 0; +#X connect 11 3 6 0; +#X restore 322 81 pd datatemplateblue; +#N canvas 10 355 450 300 datatemplatered 0; +#X msg 190 198 traverse pd-\$1data \, bang; +#X obj 190 224 pointer; +#X obj 144 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 +-1 -1; +#X obj 190 175 \$0; +#X obj 79 279 append datatemplatered x y; +#X obj 48 18 struct datatemplatered float x float y; +#X obj 48 41 drawpolygon 900 3 0 0 0 10 10 10 10 0 0 0; +#X msg 17 208 30 10 \, 40 20 \, 50 30 \, 60 40; +#X obj 163 152 t b b; +#X obj 163 128 r \$0makeRed; +#X connect 0 0 1 0; +#X connect 1 0 4 2; +#X connect 2 0 8 0; +#X connect 3 0 0 0; +#X connect 7 0 4 0; +#X connect 8 0 7 0; +#X connect 8 1 3 0; +#X connect 9 0 8 0; +#X restore 322 101 pd datatemplatered; +#X obj 55 174 get datatemplatered x; +#X text 12 13 Outputs first encountered pointer of a template.; +#X obj 55 141 ds-first pd-\$0data datatemplatered; +#X connect 1 0 4 0; +#X connect 4 0 15 0; +#X connect 4 1 5 1; +#X connect 5 0 6 0; +#X connect 6 0 10 0; +#X connect 13 0 5 0; +#X connect 15 0 13 0; +#X connect 15 1 9 0; -- cgit v1.2.1