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/load.pd | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100755 compactidac/load.pd (limited to 'compactidac/load.pd') diff --git a/compactidac/load.pd b/compactidac/load.pd new file mode 100755 index 0000000..444b316 --- /dev/null +++ b/compactidac/load.pd @@ -0,0 +1,48 @@ +#N canvas 20 86 1004 682 12; +#N canvas 37 15 546 300 load 1; +#X obj 71 65 outlet; +#X obj 71 41 struct \$0-load float x float y float border; +#X obj 111 156 filledpolygon 999 border 1 0 0 20 0 20 20 0 20; +#X obj 111 96 filledpolygon 0 0 1 5 9 10 4 15 9; +#X obj 111 126 filledpolygon 0 0 1 5 12 5 15 15 15 15 12; +#X connect 1 0 0 0; +#X restore 107 41 pd load; +#X obj 401 176 pointer; +#X obj 107 71 route click; +#X obj 43 201 outlet; +#X obj 364 98 t b b; +#X obj 364 70 r \$1-init; +#X obj 401 126 list prepend pd- \$1 -gop; +#X msg 401 151 traverse \$1\$2\$3 \, bang; +#X obj 260 176 pack \$2 \$3 999; +#X obj 107 96 unpack p; +#X obj 142 151 == 0; +#X obj 107 151 f 1; +#X obj 107 176 sel 0 1; +#X obj 47 72 inlet; +#X msg 107 201 999; +#X msg 133 229 0; +#X obj 107 121 t a a; +#X obj 260 212 append \$0-load x y border; +#X obj 107 256 set \$0-load border; +#X connect 0 0 2 0; +#X connect 1 0 17 3; +#X connect 2 0 9 0; +#X connect 4 0 8 0; +#X connect 4 1 6 0; +#X connect 5 0 4 0; +#X connect 6 0 7 0; +#X connect 7 0 1 0; +#X connect 8 0 17 0; +#X connect 9 0 16 0; +#X connect 10 0 11 1; +#X connect 11 0 10 0; +#X connect 11 0 12 0; +#X connect 11 0 3 0; +#X connect 12 0 14 0; +#X connect 12 1 15 0; +#X connect 13 0 11 0; +#X connect 14 0 18 0; +#X connect 15 0 18 0; +#X connect 16 0 11 0; +#X connect 16 1 18 1; -- cgit v1.2.1