From cc3062618f3e4ab08b3a3847a3993a8b567240ef Mon Sep 17 00:00:00 2001
From: Luke Iannini <lukeiannini@users.sourceforge.net>
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/volume.pd | 138 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 138 insertions(+)
 create mode 100755 compactidac/volume.pd

(limited to 'compactidac/volume.pd')

diff --git a/compactidac/volume.pd b/compactidac/volume.pd
new file mode 100755
index 0000000..d53e2f4
--- /dev/null
+++ b/compactidac/volume.pd
@@ -0,0 +1,138 @@
+#N canvas 0 11 1004 682 12;
+#N canvas 306 292 580 300 slider 1;
+#X obj 28 68 outlet;
+#X obj 28 43 struct \$0-slider float x float y float x0 float vis;
+#X text 9 255 hide gop;
+#X obj 95 256 filledpolygon -v vis 999 999 1 0 -19 64 -19 64 14 0 14
+;
+#X obj 91 174 filledpolygon -v vis 999 999 1 0 0 64 0 64 14 0 14;
+#X obj 89 98 filledpolygon -v vis 999 0 1 2 7 x0(0:100)(2:52) 7 x0(0:100)(2:52)
+2 x0(0:100)(12:62) 2 x0(0:100)(12:62) 7 62 7 x0(0:100)(12:62) 7 x0(0:100)(12:62)
+12 x0(0:100)(2:52) 12 x0(0:100)(2:52) 7 2 7;
+#X obj 92 216 drawnumber -v vis x0 7 -18 322 Vol:;
+#X connect 1 0 0 0;
+#X restore 285 28 pd slider;
+#X obj 505 321 pointer;
+#N canvas 3 357 450 300 clickpoint 0;
+#X obj 54 59 outlet;
+#X obj 54 34 struct \$0-clickpoint float x float y float vis;
+#X obj 92 125 filledpolygon -v vis 999 999 1 0 0 10 0 10 12 0 12;
+#X connect 1 0 0 0;
+#X restore 88 28 pd clickpoint;
+#X obj 88 53 route click;
+#X obj 88 78 unpack p;
+#X obj 285 53 route change;
+#X obj 285 78 unpack p;
+#X msg 314 312 0;
+#X obj 88 218 * 2;
+#X obj 106 342 outlet;
+#X obj 88 103 get \$0-clickpoint x;
+#X obj 285 103 get \$0-slider x0;
+#X obj 462 614 append \$0-clickpoint x y;
+#X obj 88 411 set \$0-slider x0;
+#X obj 3 29 inlet;
+#X obj 3 218 route set;
+#X obj 462 559 + 2;
+#X obj 462 377 t b b;
+#X obj 506 503 f \$3;
+#X obj 506 559 + 1;
+#X obj 462 427 until;
+#X msg 462 402 6;
+#X obj 462 452 f;
+#X msg 516 426 0;
+#X obj 462 477 t a b;
+#X obj 500 451 + 1;
+#X obj 462 589 pack;
+#X obj 167 140 loadbang;
+#X obj 167 165 \$2;
+#X obj 167 190 max 1;
+#X obj 462 528 + \$2;
+#X obj 462 503 * 10;
+#X obj 737 36 inlet;
+#X obj 372 351 append \$0-slider x y vis;
+#X obj 372 320 pack \$2 \$3 1;
+#X msg 676 405 next;
+#X obj 737 244 t b a;
+#X obj 737 359 t b b a;
+#X obj 763 437 f;
+#X obj 844 474 f;
+#X obj 818 359 t b b a;
+#X obj 737 334 pointer \$0-clickpoint \$0-slider;
+#X obj 663 499 set \$0-clickpoint vis;
+#X obj 844 499 set \$0-slider vis;
+#X obj 88 160 - \$2;
+#X obj 88 128 - 2;
+#X obj 505 271 list prepend pd- \$1 -gop;
+#X msg 505 296 traverse \$1\$2\$3 \, bang;
+#X obj 420 143 r \$1-init;
+#X msg 542 224 1;
+#X obj 737 283 list prepend pd- \$1 -gop;
+#X msg 737 309 traverse \$1\$2\$3 \, bang;
+#X obj 420 170 t b b b b b;
+#X connect 0 0 5 0;
+#X connect 1 0 12 2;
+#X connect 1 0 33 3;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 4 0 10 0;
+#X connect 5 0 6 0;
+#X connect 6 0 11 0;
+#X connect 7 0 13 0;
+#X connect 8 0 9 0;
+#X connect 8 0 13 0;
+#X connect 10 0 45 0;
+#X connect 11 0 9 0;
+#X connect 14 0 15 0;
+#X connect 15 0 13 0;
+#X connect 15 1 13 0;
+#X connect 15 1 9 0;
+#X connect 16 0 26 0;
+#X connect 17 0 21 0;
+#X connect 17 1 23 0;
+#X connect 18 0 19 0;
+#X connect 19 0 26 1;
+#X connect 20 0 22 0;
+#X connect 21 0 20 0;
+#X connect 22 0 24 0;
+#X connect 22 0 25 0;
+#X connect 23 0 22 1;
+#X connect 24 0 31 0;
+#X connect 24 1 18 0;
+#X connect 25 0 22 1;
+#X connect 26 0 12 0;
+#X connect 27 0 28 0;
+#X connect 28 0 29 0;
+#X connect 30 0 16 0;
+#X connect 31 0 30 0;
+#X connect 32 0 36 0;
+#X connect 33 0 13 1;
+#X connect 34 0 33 0;
+#X connect 35 0 41 0;
+#X connect 36 0 50 0;
+#X connect 36 1 38 1;
+#X connect 36 1 39 1;
+#X connect 37 0 35 0;
+#X connect 37 1 38 0;
+#X connect 37 2 42 1;
+#X connect 38 0 42 0;
+#X connect 39 0 43 0;
+#X connect 40 0 35 0;
+#X connect 40 1 39 0;
+#X connect 40 2 43 1;
+#X connect 41 0 37 0;
+#X connect 41 1 40 0;
+#X connect 41 2 35 0;
+#X connect 44 0 8 0;
+#X connect 45 0 44 0;
+#X connect 46 0 47 0;
+#X connect 47 0 1 0;
+#X connect 48 0 52 0;
+#X connect 49 0 36 0;
+#X connect 50 0 51 0;
+#X connect 51 0 41 0;
+#X connect 52 0 7 0;
+#X connect 52 1 49 0;
+#X connect 52 2 17 0;
+#X connect 52 3 34 0;
+#X connect 52 4 46 0;
+#X coords 0 0 1 1 66 16 0;
-- 
cgit v1.2.1