From cc3062618f3e4ab08b3a3847a3993a8b567240ef Mon Sep 17 00:00:00 2001 From: Luke Iannini Date: Sun, 22 Mar 2009 01:41:27 +0000 Subject: more work on ds-choice-list, added ds-array for visualizing arrays more flexibly, and added a few more of jwilkes' prototypes from the list svn path=/trunk/abstractions/ds-gui/; revision=10887 --- compactidac/expand.pd | 52 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 52 insertions(+) create mode 100755 compactidac/expand.pd (limited to 'compactidac/expand.pd') diff --git a/compactidac/expand.pd b/compactidac/expand.pd new file mode 100755 index 0000000..f0f5815 --- /dev/null +++ b/compactidac/expand.pd @@ -0,0 +1,52 @@ +#N canvas 0 56 1004 682 12; +#N canvas 344 86 653 382 expand 0; +#X obj 86 106 outlet; +#X obj 119 305 filledpolygon 999 999 1 -1 -1 12 -1 12 14 -1 14; +#X obj 125 172 drawpolygon max-shadow 1 2 11 12 11 12 3 2 3 2 11; +#X obj 125 142 drawpolygon max 1 1 2 11 2 11 3 1 3 11 3 11 11 1 11 +1 2; +#X obj 124 244 drawpolygon 666 1 2 12 10 12 2 12; +#X obj 124 219 drawpolygon 333 1 1 11 9 11 1 11; +#X obj 86 56 struct \$0-expand float x float y float max float max-shadow +; +#X connect 6 0 0 0; +#X restore 23 50 pd expand; +#X obj 475 189 pointer; +#X obj 438 52 t b b; +#X obj 23 75 route click; +#X obj 23 100 unpack p; +#X obj 23 220 outlet; +#X obj 198 78 f \$2; +#X obj 198 217 append \$0-expand x y max max-shadow; +#X obj 198 103 t a a; +#X obj 198 153 pack f f \$3; +#X msg 198 181 \$1 \$3 999 999 \, \$2 \$3 333 666; +#X obj 23 125 get \$0-expand max; +#X obj 23 150 sel 999; +#X msg 23 175 0; +#X msg 76 175 1; +#X obj 235 126 + 12; +#X obj 438 26 r \$1-init; +#X msg 475 164 traverse \$1\$2\$3 \, bang; +#X obj 475 139 list prepend pd- \$1 -gop; +#X connect 0 0 3 0; +#X connect 1 0 7 4; +#X connect 2 0 6 0; +#X connect 2 1 18 0; +#X connect 3 0 4 0; +#X connect 4 0 11 0; +#X connect 6 0 8 0; +#X connect 8 0 9 0; +#X connect 8 1 15 0; +#X connect 9 0 10 0; +#X connect 10 0 7 0; +#X connect 11 0 12 0; +#X connect 12 0 13 0; +#X connect 12 1 14 0; +#X connect 13 0 5 0; +#X connect 14 0 5 0; +#X connect 15 0 9 1; +#X connect 16 0 2 0; +#X connect 17 0 1 0; +#X connect 18 0 17 0; +#X coords 0 0 1 1 26 15 0; -- cgit v1.2.1