[PD-cvs] externals/iem/aconnect aconnects-help.pd, NONE, 1.1 aconnects.pd, NONE, 1.1 aconnect-help.pd, 1.2, 1.3 aconnect.c, 1.4, 1.5
IOhannes m zmölnig
zmoelnig at users.sourceforge.net
Thu Oct 27 15:14:11 CEST 2005
Update of /cvsroot/pure-data/externals/iem/aconnect
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21311
Modified Files:
aconnect-help.pd aconnect.c
Added Files:
aconnects-help.pd aconnects.pd
Log Message:
use "src"/"dst" instead of "input"/"output"
added [aconnects] (depending on zexy), which can connect using symbolic names for ports,...
--- NEW FILE: aconnects.pd ---
#N canvas 243 174 662 643 10;
#X obj 190 579 zexy;
#X text 113 579 depends on;
#X text 34 453 copyright (C) IOhannes m zmoelnig 2005;
#X text 132 474 forum::fuer::umlaeute;
#X text 132 491 institute of electronic music and acoustics \, IEM
;
#X text 134 507 university of music and dramatic arts \, graz \, austria
;
#X text 42 527 published under the GnuGPL v2.0;
#X obj 88 91 aconnect;
#X msg 88 47 devices;
#X obj 88 68 t a b;
#N canvas 0 0 469 393 input 0;
#X obj 26 68 inlet;
#N canvas 484 415 461 350 cook 0;
#X obj 71 41 inlet;
#X obj 71 292 outlet;
#X obj 71 65 t l l l;
#X msg 115 270 list \$2 \$1;
#X msg 71 187 list \$4 @ \$2;
#X obj 71 207 l2s;
#X obj 71 236 pack s f;
#X obj 122 141 * 256;
#X obj 122 164 +;
#X obj 122 120 unpack;
#X msg 122 98 \$1 \$3;
#X connect 0 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 10 0;
#X connect 2 2 3 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 6 1;
#X connect 9 0 7 0;
#X connect 9 1 8 1;
#X connect 10 0 9 0;
#X restore 267 108 pd cook;
#X msg 293 150 reset;
#X msg 267 129 add \$1 \$2;
#N canvas 0 0 450 300 index 0;
#X obj 110 158 index;
#X obj 110 208 spigot;
#X msg 179 157 0;
#X msg 151 157 1;
#X obj 118 131 t b a b;
#X obj 172 88 inlet;
#X obj 110 234 outlet;
#X obj 84 89 inlet;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 3 0;
#X connect 4 1 0 0;
#X connect 4 2 2 0;
#X connect 5 0 4 0;
#X connect 7 0 0 0;
#X restore 163 186 pd index;
#N canvas 0 0 450 300 getIDs 0;
#X obj 122 25 inlet;
#X obj 122 253 outlet;
#X obj 274 43 inlet;
#X obj 122 216 pack;
#X obj 122 88 moses 256;
#X obj 180 110 t f f;
#X obj 180 134 / 256;
#X obj 220 134 % 256;
#X obj 122 51 t f b;
#X msg 152 109 0;
#X obj 180 156 i;
#X connect 0 0 8 0;
#X connect 2 0 3 1;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 4 1 5 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 10 0;
#X connect 7 0 3 1;
#X connect 8 0 4 0;
#X connect 8 1 9 0;
#X connect 9 0 3 1;
#X connect 10 0 3 0;
#X restore 163 252 pd getIDs;
#N canvas 0 0 395 408 what 0;
#X obj 82 32 inlet;
#X obj 42 321 outlet;
#X obj 158 321 outlet;
#X text 209 49 list <id> <port#>;
#X text 139 34 could be: list <id#> <port#>;
#X text 209 64 list <id> <port>;
#N canvas 0 0 450 300 float|symbol 0;
#X obj 82 29 inlet;
#X obj 82 186 outlet float;
#X obj 154 156 outlet symbol;
#X obj 82 97 route float;
#X obj 154 133 symbol;
#X obj 82 67 route list;
#X connect 0 0 5 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 5 1 3 0;
#X restore 42 148 pd float|symbol;
#X obj 82 61 t l l;
#X msg 82 95 \$1;
#X msg 112 95 \$2;
#N canvas 0 0 450 300 float|symbol 0;
#X obj 82 29 inlet;
#X obj 82 186 outlet float;
#X obj 154 156 outlet symbol;
#X obj 82 97 route float;
#X obj 154 133 symbol;
#X obj 82 67 route list;
#X connect 0 0 5 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 5 1 3 0;
#X restore 158 148 pd float|symbol;
#X obj 207 285 l2s;
#X obj 207 242 pack s s;
#X msg 207 263 list \$2 @ \$1;
#N canvas 0 0 450 300 demux 0;
#X obj 64 50 inlet;
#X obj 64 256 outlet;
#X obj 167 257 outlet;
#X obj 260 45 inlet;
#X obj 260 73 t f f;
#X obj 260 111 == 0;
#X obj 300 111 != 0;
#X obj 64 224 spigot;
#X obj 167 225 spigot;
#X obj 64 98 t a a;
#X obj 326 39 loadbang;
#X connect 0 0 9 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 5 0 7 1;
#X connect 6 0 8 1;
#X connect 7 0 1 0;
#X connect 8 0 2 0;
#X connect 9 0 7 0;
#X connect 9 1 8 0;
#X connect 10 0 4 0;
#X restore 142 219 pd demux;
#X obj 158 175 t f b;
#X obj 258 175 t s b;
#X msg 288 197 1;
#X msg 206 191 0;
#X connect 0 0 7 0;
#X connect 6 0 1 0;
#X connect 6 1 14 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 10 0 15 0;
#X connect 10 1 16 0;
#X connect 11 0 1 0;
#X connect 12 0 13 0;
#X connect 13 0 11 0;
#X connect 14 0 1 0;
#X connect 14 1 12 0;
#X connect 15 0 2 0;
#X connect 15 1 18 0;
#X connect 16 0 12 1;
#X connect 16 1 17 0;
#X connect 17 0 14 1;
#X connect 18 0 14 1;
#X restore 26 108 pd what is it ?;
#X obj 26 134 route float;
#X obj 163 281 outlet;
#X obj 195 38 inlet;
#X obj 195 63 route reset;
#X msg 195 110 reset;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 6 1 5 1;
#X connect 7 0 5 0;
#X connect 7 1 4 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 1 0;
#X connect 11 0 4 1;
#X restore 88 188 pd input;
#X msg 139 112 reset;
#X obj 88 246 pack 0 0 0 0;
#X obj 88 216 unpack;
#X obj 176 216 unpack;
#X msg 88 271 connect \$1 \$2 \$3 \$4;
#X obj 281 33 inlet;
#X obj 281 74 b;
#X obj 281 53 route reset connect;
#X obj 345 73 a2l;
#X obj 345 93 t l l;
#X msg 345 119 list \$1 \$2;
#X msg 375 139 list \$3 \$4;
#X obj 88 340 aconnect;
#X obj 88 24 loadbang;
#X obj 88 387 outlet;
#X obj 139 387 outlet;
#N canvas 0 0 469 393 output 0;
#X obj 26 68 inlet;
#N canvas 484 415 461 350 cook 0;
#X obj 71 41 inlet;
#X obj 71 292 outlet;
#X obj 71 65 t l l l;
#X msg 115 270 list \$2 \$1;
#X msg 71 187 list \$4 @ \$2;
#X obj 71 207 l2s;
#X obj 71 236 pack s f;
#X obj 122 141 * 256;
#X obj 122 164 +;
#X obj 122 120 unpack;
#X msg 122 98 \$1 \$3;
#X connect 0 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 10 0;
#X connect 2 2 3 0;
#X connect 3 0 1 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 8 0;
#X connect 8 0 6 1;
#X connect 9 0 7 0;
#X connect 9 1 8 1;
#X connect 10 0 9 0;
#X restore 267 108 pd cook;
#X msg 293 150 reset;
#X msg 267 129 add \$1 \$2;
#N canvas 0 0 450 300 index 0;
#X obj 110 158 index;
#X obj 110 208 spigot;
#X msg 179 157 0;
#X msg 151 157 1;
#X obj 118 131 t b a b;
#X obj 172 88 inlet;
#X obj 110 234 outlet;
#X obj 84 89 inlet;
#X connect 0 0 1 0;
#X connect 1 0 6 0;
#X connect 2 0 1 1;
#X connect 3 0 1 1;
#X connect 4 0 3 0;
#X connect 4 1 0 0;
#X connect 4 2 2 0;
#X connect 5 0 4 0;
#X connect 7 0 0 0;
#X restore 163 186 pd index;
#N canvas 0 0 450 300 getIDs 0;
#X obj 122 25 inlet;
#X obj 122 253 outlet;
#X obj 274 43 inlet;
#X obj 122 216 pack;
#X obj 122 88 moses 256;
#X obj 180 110 t f f;
#X obj 180 134 / 256;
#X obj 220 134 % 256;
#X obj 122 51 t f b;
#X msg 152 109 0;
#X obj 180 156 i;
#X connect 0 0 8 0;
#X connect 2 0 3 1;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 4 1 5 0;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 10 0;
#X connect 7 0 3 1;
#X connect 8 0 4 0;
#X connect 8 1 9 0;
#X connect 9 0 3 1;
#X connect 10 0 3 0;
#X restore 163 252 pd getIDs;
#N canvas 0 0 395 408 what 0;
#X obj 82 32 inlet;
#X obj 42 321 outlet;
#X obj 158 321 outlet;
#X text 209 49 list <id> <port#>;
#X text 139 34 could be: list <id#> <port#>;
#X text 209 64 list <id> <port>;
#N canvas 0 0 450 300 float|symbol 0;
#X obj 82 29 inlet;
#X obj 82 186 outlet float;
#X obj 154 156 outlet symbol;
#X obj 82 97 route float;
#X obj 154 133 symbol;
#X obj 82 67 route list;
#X connect 0 0 5 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 5 1 3 0;
#X restore 42 148 pd float|symbol;
#X obj 82 61 t l l;
#X msg 82 95 \$1;
#X msg 112 95 \$2;
#N canvas 0 0 450 300 float|symbol 0;
#X obj 82 29 inlet;
#X obj 82 186 outlet float;
#X obj 154 156 outlet symbol;
#X obj 82 97 route float;
#X obj 154 133 symbol;
#X obj 82 67 route list;
#X connect 0 0 5 0;
#X connect 3 0 1 0;
#X connect 3 1 4 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 5 1 3 0;
#X restore 158 148 pd float|symbol;
#X obj 207 285 l2s;
#X obj 207 242 pack s s;
#X msg 207 263 list \$2 @ \$1;
#N canvas 0 0 450 300 demux 0;
#X obj 64 50 inlet;
#X obj 64 256 outlet;
#X obj 167 257 outlet;
#X obj 260 45 inlet;
#X obj 260 73 t f f;
#X obj 260 111 == 0;
#X obj 300 111 != 0;
#X obj 64 224 spigot;
#X obj 167 225 spigot;
#X obj 64 98 t a a;
#X obj 326 39 loadbang;
#X connect 0 0 9 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 4 1 6 0;
#X connect 5 0 7 1;
#X connect 6 0 8 1;
#X connect 7 0 1 0;
#X connect 8 0 2 0;
#X connect 9 0 7 0;
#X connect 9 1 8 0;
#X connect 10 0 4 0;
#X restore 142 219 pd demux;
#X obj 158 175 t f b;
#X obj 258 175 t s b;
#X msg 288 197 1;
#X msg 206 191 0;
#X connect 0 0 7 0;
#X connect 6 0 1 0;
#X connect 6 1 14 0;
#X connect 7 0 8 0;
#X connect 7 1 9 0;
#X connect 8 0 6 0;
#X connect 9 0 10 0;
#X connect 10 0 15 0;
#X connect 10 1 16 0;
#X connect 11 0 1 0;
#X connect 12 0 13 0;
#X connect 13 0 11 0;
#X connect 14 0 1 0;
#X connect 14 1 12 0;
#X connect 15 0 2 0;
#X connect 15 1 18 0;
#X connect 16 0 12 1;
#X connect 16 1 17 0;
#X connect 17 0 14 1;
#X connect 18 0 14 1;
#X restore 26 108 pd what is it ?;
#X obj 26 134 route float;
#X obj 163 281 outlet;
#X obj 195 38 inlet;
#X obj 195 63 route reset;
#X msg 195 110 reset;
#X connect 0 0 6 0;
#X connect 1 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 8 0;
#X connect 6 0 7 0;
#X connect 6 1 5 1;
#X connect 7 0 5 0;
#X connect 7 1 4 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 1 0;
#X connect 11 0 4 1;
#X restore 176 188 pd output;
#X obj 88 131 route src dst;
#X connect 7 0 28 0;
#X connect 8 0 9 0;
#X connect 9 0 7 0;
#X connect 9 1 11 0;
#X connect 10 0 13 0;
#X connect 11 0 10 1;
#X connect 11 0 27 1;
#X connect 12 0 15 0;
#X connect 13 0 12 0;
#X connect 13 1 12 1;
#X connect 14 0 12 2;
#X connect 14 1 12 3;
#X connect 15 0 23 0;
#X connect 16 0 18 0;
#X connect 17 0 8 0;
#X connect 18 0 17 0;
#X connect 18 1 19 0;
#X connect 18 2 23 0;
#X connect 19 0 20 0;
#X connect 20 0 21 0;
#X connect 20 1 22 0;
#X connect 21 0 10 0;
#X connect 22 0 27 0;
#X connect 23 0 25 0;
#X connect 23 1 26 0;
#X connect 24 0 8 0;
#X connect 27 0 14 0;
#X connect 28 0 10 1;
#X connect 28 1 27 1;
--- NEW FILE: aconnects-help.pd ---
#N canvas 143 59 794 664 10;
#X text 45 13 [aconnects] is [aconnect] with symbolic identifiers;
#X obj 694 594 zexy;
#X text 617 594 depends on;
#X text 54 553 copyright (C) IOhannes m zmoelnig 2005;
#X text 152 574 forum::fuer::umlaeute;
#X text 152 591 institute of electronic music and acoustics \, IEM
;
#X text 154 607 university of music and dramatic arts \, graz \, austria
;
#X text 62 627 published under the GnuGPL v2.0;
#X msg 212 347 reset;
#X obj 116 233 l2s;
#X obj 193 232 l2s;
#X msg 193 209 Midi Through;
#X msg 116 292 connect \$1 \$2 \$3 \$4;
#X msg 116 210 Pure Data;
#X obj 116 260 pack s s s 0;
#X obj 142 190 l2s;
#X msg 142 167 Pure Data Midi-Out 1;
#X obj 116 131 t b b b;
#X msg 205 400 devices;
#X obj 199 460 print error-code;
#X obj 116 483 print aconnect;
#X msg 116 97 bang;
#X text 159 86 connect "Pure Data" \, port "Pure Data Midi-Out 1" with
"Midi Through" \, port 0;
#X text 256 348 re-read the symbolic identifiers;
#X text 265 401 normal messages to [aconnect] work as expected;
#X obj 116 432 aconnects;
#X text 258 295 this is the "connect" message with symbolic identifiers
;
#X obj 116 324 t a a;
#X obj 156 324 print;
#X text 315 237 i use [l2s] to make symbols with spaces;
#X connect 8 0 25 0;
#X connect 9 0 14 0;
#X connect 10 0 14 2;
#X connect 11 0 10 0;
#X connect 12 0 27 0;
#X connect 13 0 9 0;
#X connect 14 0 12 0;
#X connect 15 0 14 1;
#X connect 16 0 15 0;
#X connect 17 0 13 0;
#X connect 17 1 16 0;
#X connect 17 2 11 0;
#X connect 18 0 25 0;
#X connect 21 0 17 0;
#X connect 25 0 20 0;
#X connect 25 1 19 0;
#X connect 27 0 25 0;
#X connect 27 1 28 0;
Index: aconnect.c
===================================================================
RCS file: /cvsroot/pure-data/externals/iem/aconnect/aconnect.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** aconnect.c 25 Jul 2005 10:14:13 -0000 1.4
--- aconnect.c 27 Oct 2005 13:14:09 -0000 1.5
***************
*** 114,118 ****
snd_seq_port_info_t *pinfo)
{
! print_port(x, gensym("output"), seq, cinfo, pinfo);
}
--- 114,118 ----
snd_seq_port_info_t *pinfo)
{
! print_port(x, gensym("dst"), seq, cinfo, pinfo);
}
***************
*** 120,124 ****
snd_seq_port_info_t *pinfo)
{
! print_port(x, gensym("input"), seq, cinfo, pinfo);
}
--- 120,124 ----
snd_seq_port_info_t *pinfo)
{
! print_port(x, gensym("src"), seq, cinfo, pinfo);
}
***************
*** 233,240 ****
return;
}
! if(&s_==s || gensym("input")==s)
do_search_port(x, seq, LIST_INPUT, print_input);
! if(&s_==s || gensym("output")==s)
do_search_port(x, seq, LIST_OUTPUT, print_output);
--- 233,240 ----
return;
}
! if(&s_==s || gensym("src")==s)
do_search_port(x, seq, LIST_INPUT, print_input);
! if(&s_==s || gensym("dst")==s)
do_search_port(x, seq, LIST_OUTPUT, print_output);
Index: aconnect-help.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/iem/aconnect/aconnect-help.pd,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** aconnect-help.pd 25 Jul 2005 10:14:13 -0000 1.2
--- aconnect-help.pd 27 Oct 2005 13:14:09 -0000 1.3
***************
*** 7,11 ****
the clients;
#X msg 145 125 devices;
- #X obj 145 320 route input output;
#X obj 145 384 print READBALE;
#X obj 205 354 print WRITEABLE;
--- 7,10 ----
***************
*** 84,109 ****
#X text 50 621 copyleft (c) 2005 IOhannes m zmoelnig;
#X text 52 637 published under the GnuGPL v2.0;
! #X connect 0 0 5 0;
! #X connect 0 1 29 0;
#X connect 4 0 0 0;
! #X connect 5 0 6 0;
! #X connect 5 0 9 0;
! #X connect 5 1 7 0;
! #X connect 5 2 22 0;
! #X connect 9 0 10 0;
! #X connect 9 1 11 0;
! #X connect 9 2 12 0;
! #X connect 9 3 13 0;
! #X connect 14 0 0 0;
! #X connect 17 0 18 0;
! #X connect 17 1 19 0;
! #X connect 17 2 20 0;
! #X connect 17 3 21 0;
! #X connect 22 0 17 0;
! #X connect 22 1 16 0;
! #X connect 23 0 0 0;
! #X connect 25 0 30 0;
! #X connect 26 0 25 0;
! #X connect 27 0 25 0;
! #X connect 30 0 27 0;
! #X connect 33 0 0 0;
--- 83,109 ----
#X text 50 621 copyleft (c) 2005 IOhannes m zmoelnig;
#X text 52 637 published under the GnuGPL v2.0;
! #X obj 145 320 route src dst;
! #X connect 0 0 38 0;
! #X connect 0 1 28 0;
#X connect 4 0 0 0;
! #X connect 8 0 9 0;
! #X connect 8 1 10 0;
! #X connect 8 2 11 0;
! #X connect 8 3 12 0;
! #X connect 13 0 0 0;
! #X connect 16 0 17 0;
! #X connect 16 1 18 0;
! #X connect 16 2 19 0;
! #X connect 16 3 20 0;
! #X connect 21 0 16 0;
! #X connect 21 1 15 0;
! #X connect 22 0 0 0;
! #X connect 24 0 29 0;
! #X connect 25 0 24 0;
! #X connect 26 0 24 0;
! #X connect 29 0 26 0;
! #X connect 32 0 0 0;
! #X connect 38 0 5 0;
! #X connect 38 0 8 0;
! #X connect 38 1 6 0;
! #X connect 38 2 21 0;
More information about the Pd-cvs
mailing list