From 2b487f5ee15706f432109a1dd8905b29e1b046a6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Tue, 12 Jul 2005 15:54:22 +0000
Subject: a gui for aconnect

svn path=/trunk/externals/iem/aconnect/; revision=3327
---
 aconnectgui.pd | 265 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 265 insertions(+)
 create mode 100644 aconnectgui.pd

diff --git a/aconnectgui.pd b/aconnectgui.pd
new file mode 100644
index 0000000..86b84ae
--- /dev/null
+++ b/aconnectgui.pd
@@ -0,0 +1,265 @@
+#N canvas 106 279 785 487 10;
+#X obj 717 423 zexy;
+#X floatatom 90 306 5 0 200 2 spacing - -;
+#X obj 90 324 s \$0-X-spacing;
+#X obj 81 54 bng 30 250 50 0 empty empty init 0 -6 0 12 -241291 -1
+-1;
+#N canvas 0 0 450 300 createur 0;
+#X obj 88 141 aconnect;
+#X msg 87 119 devices;
+#N canvas 0 0 535 702 cook 0;
+#X obj 219 30 inlet;
+#X obj 219 442 outlet;
+#X obj 219 51 a2l;
+#X obj 219 71 unpack s 0 s 0 s;
+#X obj 272 92 s2l;
+#X obj 272 113 l2s;
+#X msg 299 113 symbol;
+#X obj 383 72 loadbang;
+#X obj 219 409 route list;
+#X obj 242 287 l2s;
+#X msg 272 288 symbol :;
+#X obj 312 332 strcmp;
+#X obj 242 308 t s l s;
+#X obj 312 354 != 0;
+#X obj 219 386 pack s s 0 0 0;
+#X obj 110 182 t s s;
+#X obj 242 266 pack s 0 s;
+#X obj 140 203 select input output;
+#X obj 242 243 symbol;
+#X msg 140 223 I;
+#X msg 204 224 O;
+#X obj 110 160 spigot;
+#X obj 245 137 t f f f;
+#X connect 0 0 2 0;
+#X connect 2 0 3 0;
+#X connect 3 0 21 0;
+#X connect 3 1 22 0;
+#X connect 3 2 4 0;
+#X connect 3 3 14 3;
+#X connect 4 0 5 0;
+#X connect 5 0 16 2;
+#X connect 6 0 5 1;
+#X connect 7 0 6 0;
+#X connect 7 0 10 0;
+#X connect 8 0 1 0;
+#X connect 8 1 1 0;
+#X connect 9 0 12 0;
+#X connect 10 0 9 1;
+#X connect 11 0 13 0;
+#X connect 12 0 14 1;
+#X connect 12 1 11 1;
+#X connect 12 2 11 0;
+#X connect 13 0 14 4;
+#X connect 14 0 8 0;
+#X connect 15 0 14 0;
+#X connect 15 1 17 0;
+#X connect 16 0 9 0;
+#X connect 17 0 19 0;
+#X connect 17 1 20 0;
+#X connect 18 0 16 0;
+#X connect 19 0 18 0;
+#X connect 20 0 18 0;
+#X connect 21 0 15 0;
+#X connect 22 0 21 1;
+#X connect 22 1 14 2;
+#X connect 22 2 16 1;
+#X restore 88 171 pd cook;
+#X obj 88 201 route input output;
+#N canvas 508 218 483 431 createinlets 0;
+#X obj 117 20 inlet;
+#X obj 117 41 a2l;
+#X obj 117 61 unpack s 0 0 0;
+#X obj 117 90 t s s;
+#X obj 286 139 spigot;
+#N canvas 0 0 503 383 create-new 0;
+#X obj 127 62 inlet;
+#X obj 155 118 i;
+#X msg 271 85 0;
+#X obj 127 92 t s b s;
+#X obj 236 118 makefilename pd-%s;
+#X obj 185 119 + 150;
+#X obj 215 25 r \$0-X-spacing;
+#X obj 271 57 r \$0-reset;
+#X obj 236 161 outlet;
+#X obj 127 154 pack s 0 s \$0;
+#X msg 127 251 \; pd-aconnector obj \$2 50 pd \$1 \; \$3 obj 0 0 r
+\$4-aconnect-bang \; \$3 vis 0;
+#X connect 0 0 3 0;
+#X connect 1 0 5 0;
+#X connect 1 0 9 1;
+#X connect 2 0 1 1;
+#X connect 3 0 9 0;
+#X connect 3 1 1 0;
+#X connect 3 2 4 0;
+#X connect 4 0 8 0;
+#X connect 4 0 9 2;
+#X connect 5 0 1 1;
+#X connect 6 0 5 1;
+#X connect 7 0 2 0;
+#X connect 9 0 10 0;
+#X restore 286 160 pd create-new;
+#X obj 117 220 pack s 0 0 0 s 0 0;
+#X obj 174 132 t f f f;
+#X obj 238 153 * 2;
+#X obj 238 173 t f f;
+#X obj 238 196 + 1;
+#X obj 268 196 + 2;
+#X msg 117 252 \; \$5 msg \$4 50 \$2 \$3 \; \$5 obj \$4 90 outlet \$3-port
+\; \$5 connect 0 0 \$6 0 \; \$5 connect \$6 0 \$7 0;
+#X obj 196 156 * 100;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 6 1;
+#X connect 2 2 7 0;
+#X connect 2 3 4 1;
+#X connect 3 0 6 0;
+#X connect 3 1 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 4;
+#X connect 6 0 12 0;
+#X connect 7 0 6 2;
+#X connect 7 1 13 0;
+#X connect 7 2 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 9 1 11 0;
+#X connect 10 0 6 5;
+#X connect 11 0 6 6;
+#X connect 13 0 6 3;
+#X restore 88 258 pd createinlets;
+#X obj 146 120 s \$0-reset;
+#X obj 150 101 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#N canvas 508 218 483 431 createoutlets 0;
+#X obj 117 20 inlet;
+#X obj 117 41 a2l;
+#X obj 117 61 unpack s 0 0 0;
+#X obj 117 90 t s s;
+#X obj 286 129 spigot;
+#N canvas 0 0 503 383 create-new 0;
+#X obj 127 62 inlet;
+#X obj 155 118 i;
+#X msg 271 85 0;
+#X obj 127 92 t s b s;
+#X obj 236 118 makefilename pd-%s;
+#X obj 185 119 + 150;
+#X obj 215 25 r \$0-X-spacing;
+#X obj 271 57 r \$0-reset;
+#X obj 236 161 outlet;
+#X obj 127 154 pack s 0 s \$0;
+#X msg 127 251 \; pd-aconnector obj \$2 200 pd \$1 \; \$3 obj 0 100
+s \$4-aconnect-connection \; \$3 vis 0;
+#X connect 0 0 3 0;
+#X connect 1 0 5 0;
+#X connect 1 0 9 1;
+#X connect 2 0 1 1;
+#X connect 3 0 9 0;
+#X connect 3 1 1 0;
+#X connect 3 2 4 0;
+#X connect 4 0 8 0;
+#X connect 4 0 9 2;
+#X connect 5 0 1 1;
+#X connect 6 0 5 1;
+#X connect 7 0 2 0;
+#X connect 9 0 10 0;
+#X restore 286 155 pd create-new;
+#X obj 117 250 pack s 0 0 0 s 0 0;
+#X obj 174 132 t f f f;
+#X obj 218 177 * 2;
+#X obj 219 197 t f f;
+#X obj 219 218 + 1;
+#X obj 249 218 + 2;
+#X msg 117 282 \; \$5 obj \$4 0 inlet \$3-port \; \$5 obj \$4 50 pack
+0 0 \$2 \$3 \; \$5 connect \$6 0 \$7 0 \; \$5 connect \$7 0 0 0;
+#X obj 196 156 * 100;
+#X connect 0 0 1 0;
+#X connect 1 0 2 0;
+#X connect 2 0 3 0;
+#X connect 2 1 6 1;
+#X connect 2 2 7 0;
+#X connect 2 3 4 1;
+#X connect 3 0 6 0;
+#X connect 3 1 4 0;
+#X connect 4 0 5 0;
+#X connect 5 0 6 4;
+#X connect 6 0 12 0;
+#X connect 7 0 6 2;
+#X connect 7 1 13 0;
+#X connect 7 2 8 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 9 1 11 0;
+#X connect 10 0 6 5;
+#X connect 11 0 6 6;
+#X connect 13 0 6 3;
+#X restore 148 233 pd createoutlets;
+#X obj 87 71 inlet;
+#N canvas 0 0 657 260 aconnector 0;
+#X restore 274 83 pd aconnector;
+#X obj 333 198 s pd-aconnector;
+#X msg 333 152 clear \, vis 1;
+#X obj 87 97 t b b b;
+#X connect 0 0 2 0;
+#X connect 1 0 0 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 3 1 7 0;
+#X connect 6 0 5 0;
+#X connect 8 0 12 0;
+#X connect 11 0 10 0;
+#X connect 12 0 1 0;
+#X connect 12 1 5 0;
+#X connect 12 2 11 0;
+#X restore 81 84 pd createur;
+#N canvas 0 0 592 235 connecteur 0;
+#X obj 107 12 inlet;
+#X obj 107 92 s \$0-aconnect-bang;
+#X msg 107 68 bang;
+#X obj 107 127 r \$0-aconnect-connection;
+#X msg 107 150 connect \$1 \$2 \$3 \$4;
+#X obj 107 171 aconnect;
+#X obj 327 144 aconnect;
+#X msg 327 119 bang;
+#X msg 390 144 disconnect \$1 \$2 \$3 \$4;
+#X text 369 118 disconnect all;
+#X obj 327 95 r \$0-reset;
+#X obj 107 46 t b b;
+#X connect 0 0 11 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 4 0 5 0;
+#X connect 6 0 8 0;
+#X connect 7 0 6 0;
+#X connect 8 0 6 0;
+#X connect 10 0 7 0;
+#X connect 11 0 2 0;
+#X connect 11 1 7 0;
+#X restore 86 211 pd connecteur;
+#X obj 86 181 bng 30 250 50 0 empty empty connect 0 -8 0 14 -24198
+-1 -1;
+#X text 640 423 depends on;
+#X text 291 5 [aconnectGUI];
+#X text 216 49 1 click on "init" to query all available devices;
+#X text 215 107 2 connect the input and output ports in the "aconnector"-subpatch
+;
+#X text 214 166 3 to perform the actual connecting \, click on "connect"
+;
+#X text 219 249 4 iterate to 2 until you are happy;
+#X text 219 308 you can change the spacing between the connector-objects
+\, if you don't like the defaults;
+#X text 77 402 copyright (C) IOhannes m zmoelnig 2005;
+#X text 175 423 forum::fuer::umlaeute;
+#X text 175 440 institute of electronic music and acoustics \, IEM
+;
+#X text 177 456 university of music and dramatic arts \, graz \, austria
+;
+#X obj 11 164 metro 1000;
+#X obj 11 144 tgl 15 0 empty empty autoconnect 20 7 0 10 -262144 -1
+-1 0 1;
+#X connect 1 0 2 0;
+#X connect 3 0 4 0;
+#X connect 6 0 5 0;
+#X connect 18 0 6 0;
+#X connect 19 0 18 0;
-- 
cgit v1.2.1