examples modified

-This line, and those below, will be ignored--

D    msd/filet.pd
M    msd/02_msdstring.pd

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

2 files changed, 321 insertions, 199 deletions

diff --git a/msd/02_msdstring.pd b/msd/02_msdstring.pd
index 6cb98e0..f955827 100644
--- a/msd/02_msdstring.pd
+++ b/msd/02_msdstring.pd
@@ -1,91 +1,323 @@
-#N canvas 489 48 887 847 10;
-#X obj 53 15 loadbang;
-#X obj 299 517 print msd;
-#X obj 52 490 msd --------------------------------;
-#X obj 52 243 tgl 25 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
-;
-#X text 83 242 ON / OFF;
-#X obj 45 305 cnv 15 700 60 empty empty empty 20 12 0 14 -261689 -66577
-0;
-#X obj 52 312 metro 50;
-#X text 474 328 COMPUTE AND GET MASSES POSITIONS;
-#X obj 151 28 cnv 15 595 270 empty empty empty 20 12 0 14 -262131 -66577
-0;
-#X obj 167 274 t a;
-#X obj 167 33 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
+#N canvas 518 31 480 222 10;
+#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;
+#X obj 52 15 loadbang;
+#X obj 135 20 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
 -1;
-#X msg 253 78 reset;
-#X msg 218 153 mass mob 1 \$1 \$2;
-#X msg 201 181 Xmax 100 \, Xmin 0;
-#X msg 235 104 mass fix 0 100 80;
-#X msg 218 129 100 65 \, 100 50 \, 100 35 \, 100 20;
-#X obj 46 380 cnv 15 700 90 empty empty empty 20 12 0 14 -262131 -66577
-0;
-#X text 455 399 SET RIGIDITY AND VISCOSITY OF LINKS;
-#X text 455 438 ADD FORCE ON ALL MOBILE MASSES;
-#X msg 184 153 0;
-#X obj 45 576 cnv 15 300 200 empty empty empty 20 12 0 14 -261689 -66577
-0;
-#X obj 88 590 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -261689
--1 -1 6955 1;
-#X obj 111 590 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -261689
--1 -1 5050 1;
-#X obj 66 590 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -261689
--1 -1 8860 1;
-#X msg 52 736 posX fix \$1;
-#X obj 156 590 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -261689
--1 -1 1240 1;
-#X obj 134 590 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -261689
--1 -1 3145 1;
-#X text 199 638 MOVE FIRST SLIDER;
-#X text 182 662 TO MOVE THE FIXED MASS;
-#X msg 66 438 forceX mob 300;
-#X msg 180 438 forceX mob -300;
-#X obj 167 55 t b b b b b b;
-#X text 205 34 RESET;
-#X obj 52 523 route massesPosL;
-#X msg 52 335 bang \, massesPosL;
-#X obj 52 545 unpack f f f f f;
-#X text 490 126 CREATION : 5 MASSES \, 1 iLINK;
-#X msg 66 384 setK inter 1;
-#X msg 66 406 setK inter 2;
-#X msg 176 385 setD inter 0.01;
-#X msg 176 407 setD inter 1;
-#X msg 184 223 link inter fix mob 10 10;
-#X connect 0 0 31 0;
-#X connect 2 0 33 0;
-#X connect 2 1 1 0;
+#X msg 193 65 reset;
+#X text 173 21 reset;
+#N canvas 77 152 608 525 masses 0;
+#X obj 109 15 inlet;
+#X obj 112 338 outlet;
+#X obj 200 343 print;
+#X obj 112 64 t b b b b;
+#X obj 150 158 until 17;
+#X msg 150 184 mass corde 1 50 0;
+#X msg 112 276 mass zero 0 1 0;
+#X msg 150 134 80;
+#X text 232 275 masse nulle pour l'amortissement general;
+#X text 302 90 extremite gauche no 0;
+#X text 283 184 masses mobiles no 1->80;
+#X text 278 220 extremite droite no 81;
+#X msg 170 89 mass corde 0 100 0;
+#X msg 131 218 mass corde 0 100 0;
+#X connect 0 0 3 0;
+#X connect 3 0 6 0;
+#X connect 3 1 13 0;
+#X connect 3 2 7 0;
+#X connect 3 3 12 0;
+#X connect 4 0 5 0;
+#X connect 5 0 1 0;
+#X connect 6 0 1 0;
+#X connect 7 0 4 0;
+#X connect 12 0 1 0;
+#X connect 13 0 1 0;
+#X restore 173 87 pd masses;
+#N canvas 579 114 813 597 link 0;
+#X obj 157 35 inlet;
+#X obj 185 490 outlet;
+#X msg 176 320 link souple \$1 \$2 10 10;
+#X obj 236 210 + 1;
+#X obj 176 293 pack f f;
+#X obj 253 493 print;
+#X obj 176 241 t f f f;
+#X obj 176 212 f 0;
+#X obj 157 64 t b b b b;
+#X text 305 254 liens entre les masses mobiles;
+#X text 384 406 tlink qui fait un amortissement vertical general;
+#X obj 386 323 s rigidite;
+#X msg 386 300 10;
+#X msg 157 403 link D2 zero corde 0 0;
+#X msg 266 169 0;
+#X obj 203 269 + 1;
+#X obj 176 188 until;
+#X floatatom 267 251 5 0 0 0 - - -;
+#X msg 176 165 81;
+#X obj 467 324 s amort;
+#X connect 0 0 8 0;
+#X connect 2 0 1 0;
+#X connect 3 0 7 1;
+#X connect 4 0 2 0;
+#X connect 6 0 4 0;
+#X connect 6 1 15 0;
+#X connect 6 2 3 0;
+#X connect 7 0 6 0;
+#X connect 7 0 17 0;
+#X connect 8 0 12 0;
+#X connect 8 0 13 0;
+#X connect 8 1 18 0;
+#X connect 8 2 14 0;
+#X connect 12 0 11 0;
+#X connect 12 0 19 0;
+#X connect 13 0 1 0;
+#X connect 14 0 7 1;
+#X connect 15 0 4 1;
+#X connect 16 0 7 0;
+#X connect 18 0 16 0;
+#X restore 154 111 pd link;
+#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 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 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 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;
+#X obj 81 333 translateXYZ;
+#X obj 139 167 / 12.5;
+#X obj 139 190 - 4;
+#X obj 81 307 separator;
+#X obj 139 238 t b f;
+#X obj 81 273 gemhead 45;
+#X obj 204 188 / 0.2;
+#X obj 139 106 unpack f f;
+#X msg 81 238 0;
+#X obj 81 213 loadbang;
+#X obj 81 369 color 1 1 1;
+#X obj 139 139 + 10;
+#X obj 81 398 cube 0.02;
+#X obj 139 80 route 82;
+#X connect 0 0 14 0;
+#X connect 1 0 11 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 5 0 6 0;
+#X connect 5 1 1 1;
+#X connect 6 0 4 0;
+#X connect 7 0 1 2;
+#X connect 8 0 12 0;
+#X connect 8 1 7 0;
+#X connect 9 0 6 0;
+#X connect 10 0 9 0;
+#X connect 11 0 13 0;
+#X connect 12 0 2 0;
+#X connect 14 1 8 0;
+#X restore 27 252 pd corde;
+#N canvas 643 123 605 590 vitesse 0;
+#X obj 127 22 inlet;
+#X obj 62 333 translateXYZ;
+#X obj 129 200 / 12.5;
+#X obj 129 223 - 4;
+#X obj 62 307 separator;
+#X obj 129 250 t b f;
+#X obj 62 280 gemhead 45;
+#X obj 62 398 cube 0.01;
+#X obj 431 25 inlet;
+#X obj 236 46 spigot;
+#X obj 195 216 + 2;
+#X obj 78 81 route 82;
+#X obj 129 107 unpack f f;
+#X obj 62 232 loadbang;
+#X msg 62 256 0;
+#X obj 129 172 + 10;
+#X obj 195 193 * 200;
+#X obj 62 369 color 1 0 0;
+#X connect 0 0 9 0;
+#X connect 1 0 17 0;
+#X connect 2 0 3 0;
+#X connect 3 0 5 0;
+#X connect 4 0 1 0;
+#X connect 5 0 6 0;
+#X connect 5 1 1 1;
+#X connect 6 0 4 0;
+#X connect 8 0 9 1;
+#X connect 9 0 11 0;
+#X connect 10 0 1 2;
+#X connect 11 1 12 0;
+#X connect 12 0 15 0;
+#X connect 12 1 16 0;
+#X connect 13 0 14 0;
+#X connect 14 0 6 0;
+#X connect 15 0 2 0;
+#X connect 16 0 10 0;
+#X connect 17 0 7 0;
+#X restore 121 239 pd vitesse;
+#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;
+#X text 310 279 Afficher les forces en bas;
+#X obj 379 185 inlet;
+#X obj 355 119 gemhead;
+#X obj 355 142 world_light;
+#N canvas 643 123 605 590 forces 0;
+#X obj 53 99 inlet;
+#X obj 60 377 translateXYZ;
+#X obj 139 260 / 12.5;
+#X obj 139 283 - 4;
+#X obj 204 261 / 12.5;
+#X obj 60 351 separator;
+#X obj 137 310 t b f;
+#X obj 60 325 gemhead 45;
+#X obj 60 434 cube 0.02;
+#X obj 111 99 inlet;
+#X obj 53 129 spigot;
+#X obj 60 284 loadbang;
+#X msg 60 306 0;
+#X obj 139 207 unpack f f;
+#X obj 139 232 + 10;
+#X obj 204 284 - 2;
+#X obj 53 180 route 0 81 82;
+#X obj 204 239 * 400;
+#X obj 60 405 color 0 1 0;
+#X connect 0 0 10 0;
+#X connect 1 0 18 0;
+#X connect 2 0 3 0;
 #X connect 3 0 6 0;
-#X connect 6 0 34 0;
-#X connect 9 0 2 0;
-#X connect 10 0 31 0;
-#X connect 11 0 9 0;
-#X connect 12 0 9 0;
-#X connect 13 0 9 0;
-#X connect 14 0 9 0;
-#X connect 15 0 12 0;
-#X connect 19 0 3 0;
-#X connect 23 0 24 0;
-#X connect 24 0 2 0;
-#X connect 29 0 2 0;
-#X connect 30 0 2 0;
-#X connect 31 0 3 0;
-#X connect 31 1 19 0;
-#X connect 31 1 41 0;
-#X connect 31 2 13 0;
-#X connect 31 3 15 0;
-#X connect 31 4 14 0;
-#X connect 31 5 11 0;
-#X connect 33 0 35 0;
-#X connect 33 1 1 0;
-#X connect 34 0 2 0;
-#X connect 35 0 23 0;
-#X connect 35 1 21 0;
-#X connect 35 2 22 0;
-#X connect 35 3 26 0;
-#X connect 35 4 25 0;
-#X connect 37 0 2 0;
-#X connect 38 0 2 0;
-#X connect 39 0 2 0;
-#X connect 40 0 2 0;
-#X connect 41 0 9 0;
+#X connect 4 0 15 0;
+#X connect 5 0 1 0;
+#X connect 6 0 7 0;
+#X connect 6 1 1 1;
+#X connect 7 0 5 0;
+#X connect 9 0 10 1;
+#X connect 10 0 16 0;
+#X connect 11 0 12 0;
+#X connect 12 0 7 0;
+#X connect 13 0 14 0;
+#X connect 13 1 17 0;
+#X connect 14 0 2 0;
+#X connect 15 0 1 2;
+#X connect 16 3 13 0;
+#X connect 17 0 4 0;
+#X connect 18 0 8 0;
+#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 restore 24 165 pd compute;
+#X obj 24 143 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 307 151 hsl 128 15 0 30 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 1;
+#X text 303 134 Amortissement general;
+#X obj 307 93 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 0 1;
+#N canvas 0 22 611 439 milieu 0;
+#X obj 174 107 / 120;
+#X obj 174 84 inlet;
+#X msg 173 258 forceX \$1 \$2;
+#X msg 174 135 41 \$1 \, 42 \$1;
+#X obj 191 161 / 1.5;
+#X msg 191 185 39 \$1 \, 40 \$1 \, 43 \$1 \, 44 \$1;
+#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 connect 0 0 3 0;
+#X connect 0 0 4 0;
+#X connect 0 0 7 0;
+#X connect 1 0 0 0;
+#X connect 2 0 8 0;
+#X connect 3 0 2 0;
+#X connect 4 0 5 0;
+#X connect 5 0 2 0;
+#X connect 6 0 2 0;
+#X connect 7 0 6 0;
+#X restore 304 116 pd milieu;
+#N canvas 0 22 450 300 gem 0;
+#X obj 179 135 gemwin;
+#X msg 198 113 0 \, destroy;
+#X msg 179 90 reset \, create \, lighting 1 \, 1;
+#X obj 179 39 inlet;
+#X obj 179 68 sel 1 0;
+#X connect 1 0 0 0;
+#X connect 2 0 0 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;
+#X connect 4 1 1 0;
+#X restore 24 118 pd gem;
+#X obj 24 99 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#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 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;
+#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 restore 304 171 pd general_damping;
+#X text 302 74 Send forces in the middle;
+#X text 302 16 Send forces;
+#X text 45 98 gem on/off;
+#X text 24 20 1D string model;
+#X connect 0 0 2 0;
+#X connect 4 0 3 0;
+#X connect 5 0 14 0;
+#X connect 7 0 8 0;
+#X connect 10 0 9 0;
+#X connect 13 0 12 0;
diff --git a/msd/filet.pd b/msd/filet.pd
deleted file mode 100644
index c307f66..0000000
--- a/msd/filet.pd
+++ /dev/null
@@ -1,110 +0,0 @@
-#N canvas 543 268 669 547 10;
-#X obj 54 407 outlet;
-#X obj 152 71 f \$5;
-#X obj 188 72 f \$6;
-#X obj 115 17 loadbang;
-#X obj 46 134 repeat 0;
-#X obj 172 101 *;
-#X obj 130 45 t b b b b;
-#X obj 46 164 f -1;
-#X obj 46 188 + 1;
-#X msg 297 77 -1;
-#X obj 46 211 t f f;
-#X obj 46 50 inlet;
-#X obj 297 28 select reset;
-#X obj 297 5 inlet;
-#X obj 46 89 t b b;
-#X obj 330 175 repeat 0;
-#X obj 330 197 f -1;
-#X obj 330 218 + 1;
-#X obj 381 153 - 1;
-#X obj 387 340 moses;
-#X obj 46 280 + \$1;
-#X obj 176 278 + \$2;
-#X obj 46 234 mod \$6;
-#X obj 176 234 div \$6;
-#X obj 414 314 - 1;
-#X obj 357 297 mod \$6;
-#X obj 474 300 div \$6;
-#X obj 366 396 + 1;
-#X obj 336 432 pack f f;
-#X obj 344 59 t b b;
-#X obj 375 370 t b;
-#X obj 334 391 f;
-#X obj 330 253 t f f f f;
-#X obj 494 339 moses;
-#X obj 443 431 pack f f;
-#X obj 482 369 t b;
-#X obj 441 390 f;
-#X obj 473 395 + \$6;
-#X obj 521 313 - 1;
-#X obj 46 257 * \$3;
-#X obj 176 256 * \$4;
-#X msg 335 468 link fil \$1 \$2 10 10;
-#X obj 150 323 pack f f 50;
-#X obj 228 269 loadbang;
-#X obj 230 300 f \$7;
-#X msg 54 359 mass filet 1 \$3 \$1 \$2 0;
-#X text 325 106 Filet abstraction : x0 y0 stepx stepy ny nx M;
-#X connect 1 0 5 0;
-#X connect 1 0 38 0;
-#X connect 2 0 5 1;
-#X connect 2 0 24 0;
-#X connect 3 0 6 0;
-#X connect 4 0 7 0;
-#X connect 5 0 4 1;
-#X connect 5 0 18 0;
-#X connect 6 2 1 0;
-#X connect 6 3 2 0;
-#X connect 6 3 9 0;
-#X connect 7 0 8 0;
-#X connect 8 0 7 1;
-#X connect 8 0 10 0;
-#X connect 9 0 7 1;
-#X connect 9 0 16 1;
-#X connect 10 0 22 0;
-#X connect 10 1 23 0;
-#X connect 11 0 14 0;
-#X connect 12 0 9 0;
-#X connect 12 0 29 0;
-#X connect 13 0 12 0;
-#X connect 14 0 15 0;
-#X connect 14 1 4 0;
-#X connect 15 0 16 0;
-#X connect 16 0 17 0;
-#X connect 17 0 16 1;
-#X connect 17 0 32 0;
-#X connect 18 0 15 1;
-#X connect 19 0 30 0;
-#X connect 20 0 42 0;
-#X connect 21 0 42 1;
-#X connect 22 0 39 0;
-#X connect 23 0 40 0;
-#X connect 24 0 19 1;
-#X connect 25 0 19 0;
-#X connect 26 0 33 0;
-#X connect 27 0 28 1;
-#X connect 28 0 41 0;
-#X connect 29 0 1 0;
-#X connect 29 1 2 0;
-#X connect 30 0 31 0;
-#X connect 31 0 28 0;
-#X connect 32 0 25 0;
-#X connect 32 1 27 0;
-#X connect 32 1 31 1;
-#X connect 32 2 26 0;
-#X connect 32 3 37 0;
-#X connect 32 3 36 1;
-#X connect 33 0 35 0;
-#X connect 34 0 41 0;
-#X connect 35 0 36 0;
-#X connect 36 0 34 0;
-#X connect 37 0 34 1;
-#X connect 38 0 33 1;
-#X connect 39 0 20 0;
-#X connect 40 0 21 0;
-#X connect 41 0 0 0;
-#X connect 42 0 45 0;
-#X connect 43 0 44 0;
-#X connect 44 0 42 2;
-#X connect 45 0 0 0;