1 files changed, 68 insertions, 0 deletions
diff --git a/compactidac/filetype.pd b/compactidac/filetype.pd
new file mode 100755
index 0000000..cf3d6dc
--- /dev/null
+++ b/compactidac/filetype.pd
@@ -0,0 +1,68 @@
+#N canvas 154 140 730 457 12;
+#X obj 578 162 pointer;
+#X obj 73 37 route click;
+#X obj 541 84 t b b;
+#X obj 541 56 r \$1-init;
+#X obj 578 112 list prepend pd- \$1 -gop;
+#X msg 578 137 traverse \$1\$2\$3 \, bang;
+#X obj 13 38 inlet;
+#X obj 73 87 t b a;
+#X obj 267 38 inlet;
+#X obj 437 198 append \$0-filetype x y vis;
+#X obj 437 252 t b a;
+#X obj 267 222 set \$0-filetype vis;
+#X obj 73 115 f;
+#X obj 106 115 + 1;
+#X obj 73 140 mod 3;
+#X obj 73 170 sel 0 1 2;
+#X obj 73 387 outlet;
+#X obj 437 162 pack \$2 \$3 1;
+#N canvas 502 92 490 255 filetype 1;
+#X obj 7 36 outlet;
+#X obj 7 11 struct \$0-filetype float x float y float vis symbol ext
+;
+#X obj 110 145 drawpolygon -v vis 999 1 -1 16 26 16;
+#X text 34 138 hide gop;
+#X text 39 158 border;
+#X obj 109 93 drawsymbol -v vis ext 0 0 322;
+#X connect 1 0 0 0;
+#X restore 73 10 pd filetype;
+#X obj 437 329 set -symbol \$0-filetype ext;
+#X obj 73 271 set -symbol \$0-filetype ext;
+#X obj 73 62 unpack p f;
+#X msg 73 195 symbol aiff;
+#X msg 96 220 symbol snd;
+#X msg 119 245 symbol wav;
+#X obj 437 302 symbol;
+#X msg 437 277 wav;
+#X connect 0 0 9 3;
+#X connect 1 0 21 0;
+#X connect 2 0 17 0;
+#X connect 2 1 4 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 0 0;
+#X connect 7 0 12 0;
+#X connect 7 1 20 1;
+#X connect 8 0 11 0;
+#X connect 9 0 10 0;
+#X connect 9 0 11 1;
+#X connect 9 0 20 1;
+#X connect 10 0 26 0;
+#X connect 10 1 19 1;
+#X connect 12 0 13 0;
+#X connect 12 0 14 0;
+#X connect 13 0 12 1;
+#X connect 14 0 15 0;
+#X connect 15 0 22 0;
+#X connect 15 1 23 0;
+#X connect 15 2 24 0;
+#X connect 17 0 9 0;
+#X connect 18 0 1 0;
+#X connect 21 0 7 0;
+#X connect 22 0 20 0;
+#X connect 23 0 20 0;
+#X connect 24 0 20 0;
+#X connect 25 0 19 0;
+#X connect 25 0 16 0;
+#X connect 26 0 25 0;