examples modified

svn path=/trunk/externals/nusmuk/; revision=9635

3 files changed, 160 insertions, 164 deletions

diff --git a/msd/01_msdtest.pd b/msd/01_msdtest.pd
index 2fedeee..49922e9 100644
--- a/msd/01_msdtest.pd
+++ b/msd/01_msdtest.pd
@@ -1,6 +1,6 @@
 #N canvas 392 22 616 594 10;
 #X obj 20 33 loadbang;
-#X obj 366 197 print msd;
+#X obj 382 197 print msd;
 #X obj 309 58 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
 ;
 #X text 329 56 ON / OFF;
@@ -14,27 +14,21 @@
 #X msg 128 394 setD souple 1;
 #X msg 18 393 setK souple 2;
 #X obj 331 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
--1 -1 5250 1;
+-1 -1 7025 1;
 #X obj 354 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
--1 -1 5250 1;
+-1 -1 7484 1;
 #X obj 308 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
--1 -1 5250 1;
+-1 -1 6450 1;
 #X msg 308 538 posX fix \$1;
 #X obj 401 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
--1 -1 5250 1;
+-1 -1 7901 1;
 #X obj 377 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144
--1 -1 5250 1;
+-1 -1 7771 1;
 #X msg 20 256 0 1 \, 1 2 \, 2 3 \, 3 4;
 #X obj 308 347 unpack f f f f f;
 #X obj 308 325 route massesPosL;
 #X msg 309 103 bang \, massesPosL;
 #X msg 20 278 link souple \$1 \$2 10 10;
-#X obj 83 314 s msdin;
-#X obj 319 138 r msdin;
-#X obj 309 197 s msdout;
-#X obj 308 302 r msdout;
-#X obj 308 560 s msdin;
-#X obj 18 421 s msdin;
 #X obj 309 167 msd;
 #X obj 309 31 loadbang;
 #X obj 20 77 t b b b b b;
@@ -47,24 +41,30 @@
 #X text 429 453 to move the fixed mass;
 #X msg 19 503 forceX mob 300;
 #X msg 19 479 forceX mob -300;
-#X obj 19 530 s msdin;
 #X text 307 279 display and interaction;
 #X msg 51 201 mass mob 1 100 50;
 #X msg 51 159 4;
 #X obj 51 180 until;
 #X msg 67 139 mass fix 0 100 50;
-#X connect 0 0 31 0;
+#X obj 83 314 s \$0-msdin;
+#X obj 18 421 s \$0-msdin;
+#X obj 19 530 s \$0-msdin;
+#X obj 319 138 r \$0-msdin;
+#X obj 309 197 s \$0-msdout;
+#X obj 308 302 r \$0-msdout;
+#X obj 308 560 s \$0-msdin;
+#X connect 0 0 25 0;
 #X connect 2 0 4 0;
 #X connect 4 0 21 0;
-#X connect 5 0 31 0;
-#X connect 6 0 23 0;
-#X connect 7 0 23 0;
-#X connect 8 0 28 0;
-#X connect 9 0 28 0;
-#X connect 10 0 28 0;
-#X connect 11 0 28 0;
+#X connect 5 0 25 0;
+#X connect 6 0 40 0;
+#X connect 7 0 40 0;
+#X connect 8 0 41 0;
+#X connect 9 0 41 0;
+#X connect 10 0 41 0;
+#X connect 11 0 41 0;
 #X connect 14 0 15 0;
-#X connect 15 0 27 0;
+#X connect 15 0 46 0;
 #X connect 18 0 22 0;
 #X connect 19 0 14 0;
 #X connect 19 1 12 0;
@@ -72,21 +72,21 @@
 #X connect 19 3 17 0;
 #X connect 19 4 16 0;
 #X connect 20 0 19 0;
-#X connect 21 0 29 0;
-#X connect 22 0 23 0;
-#X connect 24 0 29 0;
-#X connect 26 0 20 0;
-#X connect 29 0 25 0;
-#X connect 29 1 1 0;
-#X connect 30 0 2 0;
-#X connect 31 0 18 0;
-#X connect 31 1 7 0;
-#X connect 31 2 44 0;
-#X connect 31 3 46 0;
-#X connect 31 4 6 0;
-#X connect 39 0 41 0;
-#X connect 40 0 41 0;
+#X connect 21 0 23 0;
+#X connect 22 0 40 0;
+#X connect 23 0 44 0;
+#X connect 23 1 1 0;
+#X connect 24 0 2 0;
+#X connect 25 0 18 0;
+#X connect 25 1 7 0;
+#X connect 25 2 37 0;
+#X connect 25 3 39 0;
+#X connect 25 4 6 0;
+#X connect 33 0 42 0;
+#X connect 34 0 42 0;
+#X connect 36 0 40 0;
+#X connect 37 0 38 0;
+#X connect 38 0 36 0;
+#X connect 39 0 40 0;
 #X connect 43 0 23 0;
-#X connect 44 0 45 0;
-#X connect 45 0 43 0;
-#X connect 46 0 23 0;
+#X connect 45 0 20 0;
diff --git a/msd/02_msdstring.pd b/msd/02_msdstring.pd
index f955827..b2772a0 100644
--- a/msd/02_msdstring.pd
+++ b/msd/02_msdstring.pd
@@ -2,7 +2,7 @@
 #X obj 24 54 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
 -1;
 #X text 49 54 reset;
-#N canvas 0 22 454 304 creation_structure 0;
+#N canvas 0 22 610 333 creation_structure 0;
 #X obj 52 15 loadbang;
 #X obj 135 20 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
 -1;
@@ -80,26 +80,25 @@
 #X obj 135 42 t b b b b;
 #X text 252 82 CREATION : 2 masses fixes (fix) \, 80 mobiles (corde)
 \, 80 liens (souple) \, 78 tLink (D2);
-#X obj 135 160 s msdin;
 #X msg 135 132 Xmax 100 \, Xmin -100;
 #X obj 247 23 inlet;
 #X obj 121 213 loadbang;
 #X obj 121 237 s load;
+#X obj 135 160 s \$0-msdin;
 #X connect 0 0 6 0;
 #X connect 1 0 6 0;
-#X connect 2 0 8 0;
-#X connect 4 0 8 0;
-#X connect 5 0 8 0;
-#X connect 6 0 9 0;
+#X connect 2 0 12 0;
+#X connect 4 0 12 0;
+#X connect 5 0 12 0;
+#X connect 6 0 8 0;
 #X connect 6 1 5 0;
 #X connect 6 2 4 0;
 #X connect 6 3 2 0;
-#X connect 9 0 8 0;
-#X connect 10 0 6 0;
-#X connect 11 0 12 0;
+#X connect 8 0 12 0;
+#X connect 9 0 6 0;
+#X connect 10 0 11 0;
 #X restore 24 76 pd creation_structure;
 #N canvas 508 227 516 328 compute 0;
-#X obj 274 162 print msd;
 #X obj 27 30 gemhead;
 #N canvas 735 244 537 479 corde 0;
 #X obj 139 41 inlet;
@@ -176,7 +175,6 @@
 #X obj 186 219 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
 1;
 #X obj 27 136 msd --------------------------------;
-#X obj 95 100 r msdin;
 #X obj 27 53 t b b b b b b b;
 #X obj 27 195 route massesPos massesSpeeds massesForces;
 #X text 208 240 Afficher les vitesses en haut;
@@ -227,27 +225,27 @@
 #X restore 215 278 pd forces;
 #X msg 27 75 bang \, get massesPos \, get massesSpeeds \, get massesForces
 ;
-#X connect 1 0 7 0;
-#X connect 4 0 3 1;
-#X connect 5 0 8 0;
-#X connect 5 1 0 0;
-#X connect 6 0 5 0;
-#X connect 7 0 15 0;
-#X connect 7 1 5 0;
-#X connect 7 2 5 0;
-#X connect 7 3 5 0;
-#X connect 7 4 5 0;
-#X connect 7 5 5 0;
-#X connect 7 6 5 0;
-#X connect 8 0 2 0;
-#X connect 8 1 3 0;
-#X connect 8 2 14 0;
-#X connect 11 0 14 1;
-#X connect 11 0 3 1;
-#X connect 12 0 13 0;
-#X connect 15 0 5 0;
+#X obj 95 100 r \$0-msdin;
+#X connect 0 0 5 0;
+#X connect 3 0 2 1;
+#X connect 4 0 6 0;
+#X connect 5 0 13 0;
+#X connect 5 1 4 0;
+#X connect 5 2 4 0;
+#X connect 5 3 4 0;
+#X connect 5 4 4 0;
+#X connect 5 5 4 0;
+#X connect 5 6 4 0;
+#X connect 6 0 1 0;
+#X connect 6 1 2 0;
+#X connect 6 2 12 0;
+#X connect 9 0 12 1;
+#X connect 9 0 2 1;
+#X connect 10 0 11 0;
+#X connect 13 0 4 0;
+#X connect 14 0 4 0;
 #X restore 24 165 pd compute;
-#X obj 24 143 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+#X obj 24 143 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
 1;
 #X obj 307 151 hsl 128 15 0 30 0 0 empty empty empty -2 -6 0 8 -262144
 -1 -1 0 1;
@@ -264,7 +262,7 @@
 #X msg 206 231 36 \$1 \, 37 \$1 \, 38 \$1 \, 45 \$1 \, 46 \$1 \, 47
 \$1;
 #X obj 206 207 / 3;
-#X obj 173 286 s msdin;
+#X obj 173 286 s \$0-msdin;
 #X connect 0 0 3 0;
 #X connect 0 0 4 0;
 #X connect 0 0 7 0;
@@ -292,24 +290,24 @@
 ;
 #X text 44 142 display forces (green) and speeds (red);
 #N canvas 0 22 450 300 forces 0;
-#X obj 167 157 s msdin;
 #X msg 167 134 forceX corde \$1;
 #X obj 167 89 inlet;
 #X obj 167 112 / 300;
-#X connect 1 0 0 0;
-#X connect 2 0 3 0;
-#X connect 3 0 1 0;
+#X obj 167 157 s \$0-msdin;
+#X connect 0 0 3 0;
+#X connect 1 0 2 0;
+#X connect 2 0 0 0;
 #X restore 304 56 pd forces;
 #X obj 307 34 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
--1 -1 2500 1;
+-1 -1 0 1;
 #N canvas 0 22 450 300 general_damping 0;
 #X msg 172 143 setD D2 \$1;
-#X obj 172 166 s msdin;
 #X obj 172 121 / 5;
 #X obj 173 100 inlet;
-#X connect 0 0 1 0;
-#X connect 2 0 0 0;
-#X connect 3 0 2 0;
+#X obj 172 166 s \$0-msdin;
+#X connect 0 0 3 0;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
 #X restore 304 171 pd general_damping;
 #X text 302 74 Send forces in the middle;
 #X text 302 16 Send forces;
diff --git a/msd/03_msdwave.pd b/msd/03_msdwave.pd
index 8e196ce..816840a 100644
--- a/msd/03_msdwave.pd
+++ b/msd/03_msdwave.pd
@@ -1,4 +1,4 @@
-#N canvas 360 104 602 232 10;
+#N canvas 617 175 594 188 10;
 #X obj 29 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
 -1;
 #X text 49 19 Reset;
@@ -7,7 +7,6 @@
 #N canvas 0 22 981 585 structure_creation 0;
 #X msg 681 243 mass filet 1 100 0;
 #X msg 663 64 reset;
-#X obj 690 527 s msdin;
 #X obj 418 25 t b b b b b b b b b b b b;
 #X obj 681 201 until;
 #X msg 681 170 400;
@@ -37,47 +36,48 @@
 399;
 #X obj 418 -8 inlet;
 #X obj 326 61 loadbang;
-#X connect 0 0 2 0;
-#X connect 1 0 2 0;
-#X connect 3 5 28 0;
-#X connect 3 6 15 0;
-#X connect 3 7 19 0;
-#X connect 3 8 7 0;
-#X connect 3 9 11 0;
-#X connect 3 10 5 0;
-#X connect 3 11 1 0;
-#X connect 4 0 0 0;
-#X connect 5 0 4 0;
-#X connect 6 0 2 0;
+#X obj 690 527 s \$0-msdin;
+#X connect 0 0 30 0;
+#X connect 1 0 30 0;
+#X connect 2 5 27 0;
+#X connect 2 6 14 0;
+#X connect 2 7 18 0;
+#X connect 2 8 6 0;
+#X connect 2 9 10 0;
+#X connect 2 10 4 0;
+#X connect 2 11 1 0;
+#X connect 3 0 0 0;
+#X connect 4 0 3 0;
+#X connect 5 0 30 0;
+#X connect 6 0 7 0;
 #X connect 7 0 8 0;
 #X connect 8 0 9 0;
-#X connect 9 0 10 0;
-#X connect 9 0 14 0;
-#X connect 10 0 9 1;
-#X connect 11 0 9 1;
-#X connect 12 0 13 1;
-#X connect 13 0 6 0;
-#X connect 14 0 13 0;
-#X connect 14 1 12 0;
+#X connect 8 0 13 0;
+#X connect 9 0 8 1;
+#X connect 10 0 8 1;
+#X connect 11 0 12 1;
+#X connect 12 0 5 0;
+#X connect 13 0 12 0;
+#X connect 13 1 11 0;
+#X connect 14 0 15 0;
 #X connect 15 0 16 0;
 #X connect 16 0 17 0;
-#X connect 17 0 18 0;
-#X connect 17 0 20 0;
-#X connect 18 0 17 1;
-#X connect 19 0 17 1;
-#X connect 20 0 23 0;
-#X connect 20 1 21 0;
-#X connect 21 0 22 0;
-#X connect 22 0 23 1;
-#X connect 23 0 25 0;
-#X connect 24 0 27 0;
-#X connect 25 0 24 0;
-#X connect 25 1 26 0;
-#X connect 26 0 24 1;
-#X connect 27 0 2 0;
+#X connect 16 0 19 0;
+#X connect 17 0 16 1;
+#X connect 18 0 16 1;
+#X connect 19 0 22 0;
+#X connect 19 1 20 0;
+#X connect 20 0 21 0;
+#X connect 21 0 22 1;
+#X connect 22 0 24 0;
+#X connect 23 0 26 0;
+#X connect 24 0 23 0;
+#X connect 24 1 25 0;
+#X connect 25 0 23 1;
+#X connect 26 0 30 0;
+#X connect 27 0 30 0;
 #X connect 28 0 2 0;
-#X connect 29 0 3 0;
-#X connect 30 0 3 0;
+#X connect 29 0 2 0;
 #X restore 29 39 pd structure_creation;
 #N canvas 813 63 450 300 gem 0;
 #X obj 114 171 gemwin;
@@ -91,21 +91,21 @@
 #X connect 4 0 2 0;
 #X connect 4 1 1 0;
 #X restore 30 85 pd gem;
-#X obj 30 63 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+#X obj 30 63 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
 ;
 #X text 200 -6 send forces;
 #X text 200 7 on a row;
 #N canvas 0 22 450 300 damping 0;
 #X msg 151 90 setD fil \$1;
-#X obj 151 113 s msdin;
 #X obj 151 70 / 8;
 #X obj 151 47 inlet;
-#X connect 0 0 1 0;
-#X connect 2 0 0 0;
-#X connect 3 0 2 0;
+#X obj 151 113 s \$0-msdin;
+#X connect 0 0 3 0;
+#X connect 1 0 0 0;
+#X connect 2 0 1 0;
 #X restore 301 119 pd damping;
 #X obj 304 100 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+-1 -1 12700 1;
 #X text 300 79 change viscosity;
 #N canvas 0 22 450 300 row 0;
 #X msg 149 87 20;
@@ -115,8 +115,8 @@
 #X msg 208 113 6;
 #X obj 149 63 t b b;
 #X msg 149 153 forceX \$1 30;
-#X obj 149 183 s msdin;
 #X obj 149 38 inlet;
+#X obj 149 183 s \$0-msdin;
 #X connect 0 0 2 0;
 #X connect 1 0 3 0;
 #X connect 1 0 6 0;
@@ -125,48 +125,46 @@
 #X connect 4 0 1 1;
 #X connect 5 0 0 0;
 #X connect 5 1 4 0;
-#X connect 6 0 7 0;
-#X connect 8 0 5 0;
+#X connect 6 0 8 0;
+#X connect 7 0 5 0;
 #X restore 202 51 pd row;
 #X obj 201 105 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X text 199 70 send forces;
 #X text 50 63 Gem on/off;
 #X obj 305 38 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
--1 -1 0 1;
+-1 -1 1300 1;
 #X text 300 17 change rigidity;
 #N canvas 0 22 450 300 rigi 0;
-#X obj 151 113 s msdin;
 #X obj 151 47 inlet;
 #X obj 151 70 / 4;
 #X msg 151 90 setK fil \$1;
+#X obj 151 113 s \$0-msdin;
+#X connect 0 0 1 0;
 #X connect 1 0 2 0;
 #X connect 2 0 3 0;
-#X connect 3 0 0 0;
 #X restore 302 57 pd rigi;
 #X text 199 83 on a point;
 #N canvas 0 22 450 300 point 0;
-#X obj 192 156 s msdin;
 #X msg 192 123 forceX 10 100;
 #X obj 193 95 inlet;
+#X obj 192 156 s \$0-msdin;
+#X connect 0 0 2 0;
 #X connect 1 0 0 0;
-#X connect 2 0 1 0;
 #X restore 201 126 pd point;
-#X text 469 -9 move a corner;
+#X text 469 -2 move a corner;
 #N canvas 0 22 450 300 corner 0;
 #X msg 222 89 posX 0 \$1;
 #X obj 222 65 / 30;
-#X obj 222 115 s msdin;
 #X obj 223 32 inlet;
-#X connect 0 0 2 0;
+#X obj 222 115 s \$0-msdin;
+#X connect 0 0 3 0;
 #X connect 1 0 0 0;
-#X connect 3 0 1 0;
+#X connect 2 0 1 0;
 #X restore 471 155 pd corner;
 #X obj 471 17 vsl 15 128 0 127 0 0 empty empty empty 0 -9 0 10 -262144
 -1 -1 0 1;
 #N canvas 696 124 709 588 compute 0;
-#X obj 301 215 print msd;
-#X obj 141 153 r msdin;
 #X msg 126 130 bang \, get massesPos;
 #X obj 126 27 gemhead;
 #X obj 126 224 route massesPos;
@@ -193,35 +191,35 @@
 ;
 #X obj 34 443 translateXYZ 0 0 -2;
 #X obj 34 477 rotateXYZ 0 20 0;
-#X connect 1 0 18 0;
-#X connect 2 0 18 0;
+#X obj 141 153 r \$0-msdin;
+#X connect 0 0 16 0;
+#X connect 1 0 21 0;
+#X connect 2 0 10 0;
 #X connect 3 0 23 0;
-#X connect 4 0 12 0;
-#X connect 5 0 25 0;
-#X connect 6 0 5 0;
+#X connect 4 0 3 0;
+#X connect 5 0 7 0;
+#X connect 5 0 11 0;
+#X connect 5 1 6 3;
+#X connect 6 0 20 0;
 #X connect 7 0 9 0;
-#X connect 7 0 13 0;
-#X connect 7 1 8 3;
-#X connect 8 0 22 0;
-#X connect 9 0 11 0;
-#X connect 10 0 8 1;
-#X connect 11 0 10 0;
-#X connect 12 0 5 0;
-#X connect 12 1 7 0;
+#X connect 8 0 6 1;
+#X connect 9 0 8 0;
+#X connect 10 0 3 0;
+#X connect 10 1 5 0;
+#X connect 11 0 12 0;
+#X connect 12 0 13 0;
 #X connect 13 0 14 0;
-#X connect 14 0 15 0;
-#X connect 15 0 16 0;
-#X connect 16 0 8 2;
-#X connect 17 0 6 0;
-#X connect 18 0 4 0;
-#X connect 18 1 0 0;
-#X connect 19 0 21 0;
-#X connect 21 0 20 0;
-#X connect 23 0 2 0;
-#X connect 23 1 24 0;
-#X connect 24 0 18 0;
-#X connect 25 0 26 0;
-#X connect 26 0 8 0;
+#X connect 14 0 6 2;
+#X connect 15 0 4 0;
+#X connect 16 0 2 0;
+#X connect 17 0 19 0;
+#X connect 19 0 18 0;
+#X connect 21 0 0 0;
+#X connect 21 1 22 0;
+#X connect 22 0 16 0;
+#X connect 23 0 24 0;
+#X connect 24 0 6 0;
+#X connect 25 0 16 0;
 #X restore 30 109 pd compute;
 #X connect 0 0 3 0;
 #X connect 2 0 11 0;