11 files changed, 538 insertions, 0 deletions
diff --git a/xgui/main/alias.pd b/xgui/main/alias.pd
new file mode 100644
index 00000000..d5c0d467
--- /dev/null
+++ b/xgui/main/alias.pd
@@ -0,0 +1,9 @@
+#N canvas 0 0 454 304 12;
+#X obj 10 9 inlet;
+#X obj 10 90 outlet;
+#X text 77 93 dh20020215;
+#X text 95 7 alias an existing object;
+#X obj 10 36 s \$1-in;
+#X obj 10 63 r \$1-out;
+#X connect 0 0 4 0;
+#X connect 5 0 1 0;
diff --git a/xgui/main/arc.pd b/xgui/main/arc.pd
new file mode 100644
index 00000000..6586c96c
--- /dev/null
+++ b/xgui/main/arc.pd
@@ -0,0 +1,59 @@
+#N canvas 201 377 599 300 10;
+#X obj 24 30 inlet;
+#X obj 462 176 outlet;
+#X text 454 203 dh2002010x;
+#X text 465 214 dh20020316;
+#X text 24 9 The SEG onject;
+#X text 476 228 dh20020425;
+#X obj 333 121 oname2l;
+#X obj 333 144 unpack s s s;
+#X obj 333 75 loadbang;
+#X obj 333 236 s \$1-c;
+#X obj 408 164 s \$1-o;
+#X obj 52 90 r \$1-c;
+#X obj 126 94 r \$1-o;
+#X obj 333 167 pack s s;
+#X text 486 235 dh20020530;
+#X obj 332 207 a2s;
+#X msg 333 190 list \$1 / \$2;
+#X obj 139 228 send to_node;
+#X obj 333 98 symbol \$2;
+#X obj 59 30 r \$1-in;
+#X obj 471 151 s \$1-out;
+#X obj 195 154 concat do;
+#X obj 195 131 concat \$2;
+#X obj 13 145 make4seg_sss x del x;
+#X obj 24 55 route show hide @;
+#X obj 462 99 recv2 \$2;
+#X obj 460 73 concat @;
+#X obj 216 101 concat symbol;
+#X obj 13 122 make4seg_sss x add_arc x;
+#X connect 0 0 24 0;
+#X connect 6 0 7 0;
+#X connect 7 0 13 0;
+#X connect 7 1 13 1;
+#X connect 7 2 10 0;
+#X connect 8 0 18 0;
+#X connect 11 0 23 1;
+#X connect 11 0 28 1;
+#X connect 12 0 23 3;
+#X connect 12 0 28 3;
+#X connect 13 0 16 0;
+#X connect 15 0 9 0;
+#X connect 16 0 15 0;
+#X connect 18 0 6 0;
+#X connect 19 0 24 0;
+#X connect 21 0 17 0;
+#X connect 22 0 21 0;
+#X connect 23 0 17 0;
+#X connect 24 0 28 0;
+#X connect 24 1 23 0;
+#X connect 24 2 18 0;
+#X connect 24 2 26 0;
+#X connect 24 2 27 0;
+#X connect 24 3 22 0;
+#X connect 25 0 1 0;
+#X connect 25 0 20 0;
+#X connect 26 0 25 0;
+#X connect 27 0 22 1;
+#X connect 28 0 17 0;
diff --git a/xgui/main/canvas.pd b/xgui/main/canvas.pd
new file mode 100644
index 00000000..b40a101d
--- /dev/null
+++ b/xgui/main/canvas.pd
@@ -0,0 +1,28 @@
+#N canvas 50 250 521 286 10;
+#X obj 196 8 inlet;
+#X obj 399 104 outlet;
+#X obj 237 8 r \$1-in;
+#X obj 423 64 s \$1-out;
+#X text 406 137 dh20020316;
+#X text 22 8 The CANVAS object;
+#X obj 69 111 make4seg_ss */ add_canvas \$1;
+#X obj 121 134 make4seg_ss */ del_canvas \$1;
+#X obj 399 32 receive \$1;
+#X obj 202 231 send to_node;
+#X obj 399 9 receive \$1/;
+#X obj 303 132 concat do;
+#X obj 196 33 route show hide;
+#X obj 303 107 concat \$1;
+#X connect 0 0 12 0;
+#X connect 2 0 12 0;
+#X connect 6 0 9 0;
+#X connect 7 0 9 0;
+#X connect 8 0 3 0;
+#X connect 8 0 1 0;
+#X connect 10 0 1 0;
+#X connect 10 0 3 0;
+#X connect 11 0 9 0;
+#X connect 12 0 6 0;
+#X connect 12 1 7 0;
+#X connect 12 2 13 0;
+#X connect 13 0 11 0;
diff --git a/xgui/main/make4seg_ss.pd b/xgui/main/make4seg_ss.pd
new file mode 100644
index 00000000..1d6dd1f9
--- /dev/null
+++ b/xgui/main/make4seg_ss.pd
@@ -0,0 +1,31 @@
+#N canvas 353 333 341 355 12;
+#X obj 21 34 inlet;
+#X obj 21 294 outlet;
+#X obj 43 130 symbol \$1;
+#X obj 80 157 symbol \$2;
+#X obj 118 182 symbol \$3;
+#X obj 21 60 bang;
+#X obj 110 103 inlet;
+#X obj 147 130 inlet;
+#X obj 184 157 inlet;
+#X obj 43 208 pack s s s;
+#X obj 21 86 t b b b b;
+#X text 205 299 dh20020316;
+#X text 25 4 make easy to concatenate 3 symbols.;
+#X msg 43 234 set do \$1 \$2 \$3;
+#X msg 21 268 do */ add_canvas */my_first_canvas;
+#X connect 0 0 5 0;
+#X connect 2 0 9 0;
+#X connect 3 0 9 1;
+#X connect 4 0 9 2;
+#X connect 5 0 10 0;
+#X connect 6 0 2 1;
+#X connect 7 0 3 1;
+#X connect 8 0 4 1;
+#X connect 9 0 13 0;
+#X connect 10 0 14 0;
+#X connect 10 1 2 0;
+#X connect 10 2 3 0;
+#X connect 10 3 4 0;
+#X connect 13 0 14 0;
+#X connect 14 0 1 0;
diff --git a/xgui/main/make4seg_sss.pd b/xgui/main/make4seg_sss.pd
new file mode 100644
index 00000000..75f3027c
--- /dev/null
+++ b/xgui/main/make4seg_sss.pd
@@ -0,0 +1,33 @@
+#N canvas 325 279 339 353 12;
+#X obj 21 34 inlet;
+#X obj 21 294 outlet;
+#X obj 43 130 symbol \$1;
+#X obj 80 157 symbol \$2;
+#X obj 118 182 symbol \$3;
+#X msg 21 268 do */my_first_canvas/my_first_seg add_seg ;
+#X obj 21 60 bang;
+#X obj 43 208 pack s s s;
+#X obj 21 86 t b b b b;
+#X text 205 299 dh20020316;
+#X text 25 4 make easy to concatenate 3 symbols.;
+#X obj 208 125 inlet;
+#X obj 209 155 symbol;
+#X msg 43 234 set do \$1 \$2 \$3;
+#X obj 111 99 inlet;
+#X obj 148 130 inlet;
+#X connect 0 0 6 0;
+#X connect 2 0 7 0;
+#X connect 3 0 7 1;
+#X connect 4 0 7 2;
+#X connect 5 0 1 0;
+#X connect 6 0 8 0;
+#X connect 7 0 13 0;
+#X connect 8 0 5 0;
+#X connect 8 1 2 0;
+#X connect 8 2 3 0;
+#X connect 8 3 4 0;
+#X connect 11 0 12 0;
+#X connect 12 0 4 1;
+#X connect 13 0 5 0;
+#X connect 14 0 2 1;
+#X connect 15 0 3 1;
diff --git a/xgui/main/make_obj_name.pd b/xgui/main/make_obj_name.pd
new file mode 100644
index 00000000..89c24023
--- /dev/null
+++ b/xgui/main/make_obj_name.pd
@@ -0,0 +1,23 @@
+#N canvas 295 214 335 231 10;
+#X msg 28 174 @ \$1;
+#X obj 28 110 concat \$1;
+#X obj 28 88 concat /;
+#X obj 28 131 concat list;
+#X obj 28 153 a2s;
+#X obj 28 196 outlet;
+#X text 253 200 dh20020602;
+#X obj 28 68 concat o;
+#X obj 28 46 unique;
+#X msg 157 28 bang;
+#X symbolatom 159 171 10 0 0;
+#X obj 28 22 loadbang;
+#X connect 0 0 5 0;
+#X connect 1 0 3 0;
+#X connect 2 0 1 0;
+#X connect 3 0 4 0;
+#X connect 4 0 0 0;
+#X connect 4 0 10 0;
+#X connect 7 0 2 0;
+#X connect 8 0 7 0;
+#X connect 9 0 8 0;
+#X connect 11 0 8 0;
diff --git a/xgui/main/node.pd b/xgui/main/node.pd
new file mode 100644
index 00000000..cb84207a
--- /dev/null
+++ b/xgui/main/node.pd
@@ -0,0 +1,100 @@
+#N canvas 409 95 574 567 10;
+#X obj 31 28 inlet;
+#X text 14 10 The pd basic node;
+#X obj 9 260 outlet;
+#X obj 47 304 netreceive \$2;
+#X obj 261 9 loadbang;
+#X obj 163 141 concat send;
+#X obj 261 60 symbol \$1;
+#X obj 321 59 float \$2;
+#X obj 261 85 pack s f;
+#X obj 31 51 route connect disconnect do;
+#X obj 82 163 netsend;
+#X obj 9 228 r */;
+#X obj 74 27 r to_node;
+#X msg 261 108 list \$1 : \$2;
+#X obj 261 130 a2s;
+#X obj 261 33 t b b;
+#X text 310 398 dh20020530;
+#X obj 161 96 spigot;
+#X obj 86 263 outlet;
+#X obj 86 240 a2s;
+#X obj 86 215 concat list;
+#X obj 193 395 outlet;
+#X obj 189 367 a2s;
+#X obj 188 344 concat list;
+#X msg 86 191 connect_to_ \$1 _other_nodes;
+#X msg 188 320 connect_from_ \$1 _other_nodes;
+#X obj 31 80 t a b;
+#X obj 23 330 replace_selector foo;
+#X obj 23 354 route foo;
+#X obj 55 401 send2;
+#X obj 416 344 oname2l;
+#X obj 416 321 symbol;
+#X obj 419 390 a2s;
+#X msg 416 367 list * / \$2 / \$3;
+#X obj 23 424 replace_selector foo;
+#X obj 23 455 send2;
+#X obj 446 414 a2s;
+#X msg 443 391 list * / \$2;
+#X obj 23 378 t a a a a;
+#X obj 164 426 replace_selector foo;
+#X obj 190 248 print in_pd;
+#X obj 285 238 print out_pd;
+#X obj 31 108 concat connect;
+#X msg 69 132 disconnect;
+#X obj 284 216 spigot;
+#X obj 190 227 spigot;
+#X obj 520 17 inlet;
+#X obj 162 118 concat pd;
+#X connect 0 0 9 0;
+#X connect 3 0 45 0;
+#X connect 3 0 27 0;
+#X connect 3 1 25 0;
+#X connect 4 0 15 0;
+#X connect 5 0 44 0;
+#X connect 5 0 10 0;
+#X connect 6 0 8 0;
+#X connect 7 0 8 1;
+#X connect 8 0 13 0;
+#X connect 9 0 26 0;
+#X connect 9 1 43 0;
+#X connect 9 2 17 0;
+#X connect 10 0 24 0;
+#X connect 10 0 17 1;
+#X connect 11 0 2 0;
+#X connect 12 0 9 0;
+#X connect 13 0 14 0;
+#X connect 15 0 6 0;
+#X connect 15 1 7 0;
+#X connect 17 0 47 0;
+#X connect 19 0 18 0;
+#X connect 20 0 19 0;
+#X connect 22 0 21 0;
+#X connect 23 0 22 0;
+#X connect 24 0 20 0;
+#X connect 25 0 23 0;
+#X connect 26 0 42 0;
+#X connect 26 1 43 0;
+#X connect 27 0 28 0;
+#X connect 28 0 38 0;
+#X connect 30 0 33 0;
+#X connect 30 0 37 0;
+#X connect 31 0 30 0;
+#X connect 32 0 34 1;
+#X connect 33 0 32 0;
+#X connect 34 0 35 0;
+#X connect 36 0 39 1;
+#X connect 37 0 36 0;
+#X connect 38 0 34 0;
+#X connect 38 1 39 0;
+#X connect 38 2 29 0;
+#X connect 38 3 31 0;
+#X connect 39 0 35 0;
+#X connect 42 0 10 0;
+#X connect 43 0 10 0;
+#X connect 44 0 41 0;
+#X connect 45 0 40 0;
+#X connect 46 0 44 1;
+#X connect 46 0 45 1;
+#X connect 47 0 5 0;
diff --git a/xgui/main/pdx_connect.pd b/xgui/main/pdx_connect.pd
new file mode 100755
index 00000000..54298a29
--- /dev/null
+++ b/xgui/main/pdx_connect.pd
@@ -0,0 +1,77 @@
+#N canvas 60 126 1021 550 12;
+#X msg 728 285 bang;
+#X msg 778 285 stop;
+#X obj 728 313 loadbang;
+#X obj 700 475 s b_mass;
+#X obj 806 393 s b_init;
+#X obj 728 367 t b b b b;
+#X obj 775 424 s b_spring;
+#X obj 728 341 metro 50;
+#X obj 672 505 valueinit time_interval 0.05;
+#X obj 740 451 s b_force;
+#X text 443 442 dh20020530;
+#X obj 15 253 print node1;
+#X obj 15 339 print node2;
+#X symbolatom 25 198 30 0 0;
+#X symbolatom 26 225 30 0 0;
+#X obj 15 171 node localhost 4871;
+#X msg 260 67 disconnect;
+#X text -17 515 Keep this patch open to keep the link with xgui active.
+;
+#X text -18 497 Go and see Help Pure documentation /xgui to see some
+demos;
+#X obj 14 18 loadbang;
+#X obj 14 43 t b b;
+#X floatatom 199 173 1 0 1;
+#X obj 15 310 node 192.168.0.5 4872;
+#X msg 15 282 connect 192.168.0.4 4877 \, do */ connect 192.168.0.4:4877
+;
+#X msg 64 43 do ~/ connect_on 192.168.0.4:4877 physics;
+#X msg 547 59 do ~/ connect_on 192.168.0.4:4877 my_canvas;
+#X msg 548 31 do ~/ connect_on pd.la-kitchen.net:4877 physics;
+#X msg 448 224 do localhost:4878/ connect pd pd.la-kitchen:4871;
+#X msg 450 149 do pd.la-kitchen.net:4877/ connect me;
+#X msg 450 176 do pd.la-kitchen.net:4877/ clone physics ~/physics localhost:4877
+;
+#X msg 446 100 do ~/ connect pd.la-kitchen.net:4877;
+#X msg 259 316 connect pd.la-kitchen.net 4877;
+#X symbolatom 95 366 30 0 0;
+#X symbolatom 96 393 30 0 0;
+#X msg 14 95 do localhost:4877/ connect pd localhost:4871;
+#X msg 24 121 do localhost:4877/ disconnect pd;
+#X msg 49 68 connect localhost 4877;
+#X msg 447 122 do pd.la-kitchen.net:4877/ # test***;
+#X msg 190 4 do ~/ rename moi 4877;
+#X connect 0 0 7 0;
+#X connect 1 0 7 0;
+#X connect 2 0 7 0;
+#X connect 5 0 3 0;
+#X connect 5 1 9 0;
+#X connect 5 2 6 0;
+#X connect 5 3 4 0;
+#X connect 7 0 5 0;
+#X connect 15 0 11 0;
+#X connect 15 1 13 0;
+#X connect 15 2 14 0;
+#X connect 16 0 15 0;
+#X connect 19 0 20 0;
+#X connect 20 0 34 0;
+#X connect 20 1 36 0;
+#X connect 21 0 15 1;
+#X connect 22 0 12 0;
+#X connect 22 1 32 0;
+#X connect 22 2 33 0;
+#X connect 23 0 22 0;
+#X connect 24 0 15 0;
+#X connect 25 0 15 0;
+#X connect 26 0 15 0;
+#X connect 27 0 15 0;
+#X connect 28 0 15 0;
+#X connect 29 0 15 0;
+#X connect 30 0 15 0;
+#X connect 31 0 22 0;
+#X connect 34 0 15 0;
+#X connect 35 0 15 0;
+#X connect 36 0 15 0;
+#X connect 37 0 15 0;
+#X connect 38 0 15 0;
diff --git a/xgui/main/rect.pd b/xgui/main/rect.pd
new file mode 100644
index 00000000..b964a70f
--- /dev/null
+++ b/xgui/main/rect.pd
@@ -0,0 +1,59 @@
+#N canvas 201 377 601 302 10;
+#X obj 24 30 inlet;
+#X obj 462 176 outlet;
+#X text 454 203 dh2002010x;
+#X text 465 214 dh20020316;
+#X text 476 228 dh20020425;
+#X obj 333 121 oname2l;
+#X obj 333 144 unpack s s s;
+#X obj 333 75 loadbang;
+#X obj 333 236 s \$1-c;
+#X obj 408 164 s \$1-o;
+#X obj 52 90 r \$1-c;
+#X obj 126 94 r \$1-o;
+#X obj 333 167 pack s s;
+#X text 486 235 dh20020530;
+#X obj 332 207 a2s;
+#X msg 333 190 list \$1 / \$2;
+#X obj 139 228 send to_node;
+#X obj 333 98 symbol \$2;
+#X obj 59 30 r \$1-in;
+#X obj 471 151 s \$1-out;
+#X obj 195 154 concat do;
+#X obj 195 131 concat \$2;
+#X obj 13 145 make4seg_sss x del x;
+#X obj 24 55 route show hide @;
+#X obj 462 99 recv2 \$2;
+#X obj 460 73 concat @;
+#X obj 216 101 concat symbol;
+#X obj 13 122 make4seg_sss x add_rect x;
+#X text 24 9 The Rect onject;
+#X connect 0 0 23 0;
+#X connect 5 0 6 0;
+#X connect 6 0 12 0;
+#X connect 6 1 12 1;
+#X connect 6 2 9 0;
+#X connect 7 0 17 0;
+#X connect 10 0 22 1;
+#X connect 10 0 27 1;
+#X connect 11 0 22 3;
+#X connect 11 0 27 3;
+#X connect 12 0 15 0;
+#X connect 14 0 8 0;
+#X connect 15 0 14 0;
+#X connect 17 0 5 0;
+#X connect 18 0 23 0;
+#X connect 20 0 16 0;
+#X connect 21 0 20 0;
+#X connect 22 0 16 0;
+#X connect 23 0 27 0;
+#X connect 23 1 22 0;
+#X connect 23 2 17 0;
+#X connect 23 2 25 0;
+#X connect 23 2 26 0;
+#X connect 23 3 21 0;
+#X connect 24 0 1 0;
+#X connect 24 0 19 0;
+#X connect 25 0 24 0;
+#X connect 26 0 21 1;
+#X connect 27 0 16 0;
diff --git a/xgui/main/seg.pd b/xgui/main/seg.pd
new file mode 100644
index 00000000..1b44fd5d
--- /dev/null
+++ b/xgui/main/seg.pd
@@ -0,0 +1,60 @@
+#N canvas 387 -9 599 292 10;
+#X obj 24 30 inlet;
+#X obj 472 176 outlet;
+#X text 454 203 dh2002010x;
+#X text 465 214 dh20020316;
+#X text 24 9 The SEG onject;
+#X text 476 228 dh20020425;
+#X obj 333 121 oname2l;
+#X obj 333 144 unpack s s s;
+#X obj 333 75 loadbang;
+#X obj 333 236 s \$1-c;
+#X obj 408 164 s \$1-o;
+#X obj 52 90 r \$1-c;
+#X obj 126 94 r \$1-o;
+#X obj 333 167 pack s s;
+#X text 486 235 dh20020530;
+#X obj 332 207 a2s;
+#X msg 333 190 list \$1 / \$2;
+#X obj 139 228 send to_node;
+#X obj 333 98 symbol \$2;
+#X obj 59 30 r \$1-in;
+#X obj 481 151 s \$1-out;
+#X obj 195 154 concat do;
+#X obj 195 131 concat \$2;
+#X obj 13 145 make4seg_sss x del x;
+#X obj 13 122 make4seg_sss x add_seg x;
+#X obj 24 55 route show hide @;
+#X obj 472 99 recv2 \$2;
+#X obj 470 73 concat @;
+#X obj 216 101 concat symbol;
+#X text 18 342 today's the 14 of july;
+#X connect 0 0 25 0;
+#X connect 6 0 7 0;
+#X connect 7 0 13 0;
+#X connect 7 1 13 1;
+#X connect 7 2 10 0;
+#X connect 8 0 18 0;
+#X connect 11 0 23 1;
+#X connect 11 0 24 1;
+#X connect 12 0 23 3;
+#X connect 12 0 24 3;
+#X connect 13 0 16 0;
+#X connect 15 0 9 0;
+#X connect 16 0 15 0;
+#X connect 18 0 6 0;
+#X connect 19 0 25 0;
+#X connect 21 0 17 0;
+#X connect 22 0 21 0;
+#X connect 23 0 17 0;
+#X connect 24 0 17 0;
+#X connect 25 0 24 0;
+#X connect 25 1 23 0;
+#X connect 25 2 18 0;
+#X connect 25 2 27 0;
+#X connect 25 2 28 0;
+#X connect 25 3 22 0;
+#X connect 26 0 1 0;
+#X connect 26 0 20 0;
+#X connect 27 0 26 0;
+#X connect 28 0 22 1;
diff --git a/xgui/main/text.pd b/xgui/main/text.pd
new file mode 100644
index 00000000..ee3b8186
--- /dev/null
+++ b/xgui/main/text.pd
@@ -0,0 +1,59 @@
+#N canvas 201 377 599 300 10;
+#X obj 24 30 inlet;
+#X obj 462 176 outlet;
+#X text 454 203 dh2002010x;
+#X text 465 214 dh20020316;
+#X text 476 228 dh20020425;
+#X obj 333 121 oname2l;
+#X obj 333 144 unpack s s s;
+#X obj 333 75 loadbang;
+#X obj 333 236 s \$1-c;
+#X obj 408 164 s \$1-o;
+#X obj 52 90 r \$1-c;
+#X obj 126 94 r \$1-o;
+#X obj 333 167 pack s s;
+#X text 486 235 dh20020530;
+#X obj 332 207 a2s;
+#X msg 333 190 list \$1 / \$2;
+#X obj 139 228 send to_node;
+#X obj 333 98 symbol \$2;
+#X obj 59 30 r \$1-in;
+#X obj 471 151 s \$1-out;
+#X obj 195 154 concat do;
+#X obj 195 131 concat \$2;
+#X obj 13 145 make4seg_sss x del x;
+#X obj 24 55 route show hide @;
+#X obj 462 99 recv2 \$2;
+#X obj 460 73 concat @;
+#X obj 216 101 concat symbol;
+#X text 24 9 The text onject;
+#X obj 13 122 make4seg_sss x add_text x;
+#X connect 0 0 23 0;
+#X connect 5 0 6 0;
+#X connect 6 0 12 0;
+#X connect 6 1 12 1;
+#X connect 6 2 9 0;
+#X connect 7 0 17 0;
+#X connect 10 0 22 1;
+#X connect 10 0 28 1;
+#X connect 11 0 22 3;
+#X connect 11 0 28 3;
+#X connect 12 0 15 0;
+#X connect 14 0 8 0;
+#X connect 15 0 14 0;
+#X connect 17 0 5 0;
+#X connect 18 0 23 0;
+#X connect 20 0 16 0;
+#X connect 21 0 20 0;
+#X connect 22 0 16 0;
+#X connect 23 0 28 0;
+#X connect 23 1 22 0;
+#X connect 23 2 17 0;
+#X connect 23 2 25 0;
+#X connect 23 2 26 0;
+#X connect 23 3 21 0;
+#X connect 24 0 1 0;
+#X connect 24 0 19 0;
+#X connect 25 0 24 0;
+#X connect 26 0 21 1;
+#X connect 28 0 16 0;