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/mute.pd | 78 +++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 78 insertions(+) create mode 100755 compactidac/mute.pd (limited to 'compactidac/mute.pd') diff --git a/compactidac/mute.pd b/compactidac/mute.pd new file mode 100755 index 0000000..0f8f271 --- /dev/null +++ b/compactidac/mute.pd @@ -0,0 +1,78 @@ +#N canvas 173 240 804 453 12; +#X obj 74 90 route click; +#X obj 111 194 == 0; +#X obj 150 239 s \$0-x; +#X msg 74 270 555; +#N canvas 258 229 741 372 \$0-mute 0; +#X obj 70 59 outlet; +#X text 26 326 rect to hide gop box; +#X obj 70 34 struct \$0-mute float x float y float c; +#X obj 193 326 filledpolygon 999 999 1 -1 -1 23 -1 23 16 -1 16; +#X text 120 209 drybrush; +#X text 147 140 horn; +#X obj 193 139 filledpolygon 459 c 1 1 6 5 6 10 1 11 1 11 15 10 15 +5 10 1 10; +#X text 173 109 x; +#X obj 193 79 r \$0-x; +#X obj 193 109 drawpolygon 911 2 2 2 14 14 8 8 2 14 14 2 8 8; +#X obj 193 180 drawpolygon c 1 14 6 15 7 15 9 14 10 15 9; +#X obj 193 210 drawpolygon c 1 16 4 17 5 18 6 18 10 17 11 16 12 17 +11; +#X obj 193 240 drawpolygon c 1 19 2 20 3 20 4 21 5 21 11 20 12 20 13 +19 14 18 15; +#X connect 2 0 0 0; +#X connect 8 0 9 0; +#X restore 74 65 pd \$0-mute; +#X obj 74 296 set \$0-mute c; +#X obj 262 75 inlet; +#X obj 188 296 outlet; +#X obj 262 100 route set; +#X obj 74 194 f; +#X obj 74 245 sel 1; +#X obj 262 127 == 0; +#X obj 74 115 b; +#N canvas 0 0 450 509 init 0; +#X obj 12 15 inlet; +#X obj 12 246 outlet; +#X obj 169 157 pointer; +#X obj 12 46 t b b; +#X obj 12 185 pack 0 \$2 \$3; +#X msg 12 150 0; +#X obj 12 217 append \$0-mute c x y; +#X obj 49 73 list prepend pd- \$1 -gop; +#X msg 169 132 traverse \$1\$2\$3 \, bang; +#X connect 0 0 3 0; +#X connect 2 0 6 3; +#X connect 3 0 5 0; +#X connect 3 1 7 0; +#X connect 4 0 6 0; +#X connect 5 0 4 0; +#X connect 6 0 1 0; +#X connect 7 0 8 0; +#X connect 8 0 2 0; +#X restore 377 104 pd init; +#X obj 150 120 loadbang; +#X msg 150 145 0; +#X obj 377 76 r \$1-init; +#X connect 0 0 12 0; +#X connect 1 0 9 1; +#X connect 3 0 5 0; +#X connect 4 0 0 0; +#X connect 6 0 8 0; +#X connect 8 0 11 0; +#X connect 8 0 10 0; +#X connect 8 0 2 0; +#X connect 8 1 9 0; +#X connect 9 0 1 0; +#X connect 9 0 10 0; +#X connect 9 0 2 0; +#X connect 9 0 7 0; +#X connect 10 0 3 0; +#X connect 10 1 5 0; +#X connect 11 0 9 1; +#X connect 12 0 9 0; +#X connect 13 0 5 1; +#X connect 14 0 15 0; +#X connect 15 0 2 0; +#X connect 16 0 13 0; +#X coords 0 0 1 1 22 16 0; -- cgit v1.2.1