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

1 files changed, 328 insertions, 0 deletions

diff --git a/msd1D/02_msdstring.pd b/msd1D/02_msdstring.pd
new file mode 100644
index 0000000..8eebc38
--- /dev/null
+++ b/msd1D/02_msdstring.pd
@@ -0,0 +1,328 @@
+#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 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;
+#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 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 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 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 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 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 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 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
+1;
+#X obj 307 151 hsl 128 15 0 30 0 0 empty empty empty -2 -6 0 8 -262144
+-1 -1 6500 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 147 / 120;
+#X obj 174 84 inlet;
+#X msg 173 298 forceX \$1 \$2;
+#X msg 174 175 41 \$1 \, 42 \$1;
+#X obj 191 201 / 1.5;
+#X msg 191 225 39 \$1 \, 40 \$1 \, 43 \$1 \, 44 \$1;
+#X msg 206 271 36 \$1 \, 37 \$1 \, 38 \$1 \, 45 \$1 \, 46 \$1 \, 47
+\$1;
+#X obj 206 247 / 3;
+#X obj 173 326 s \$0-msdin;
+#X obj 398 76 t f f;
+#X obj 401 107 -;
+#X obj 400 131 * 10;
+#X connect 0 0 3 0;
+#X connect 0 0 4 0;
+#X connect 0 0 7 0;
+#X connect 1 0 9 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 connect 9 0 10 1;
+#X connect 9 1 10 0;
+#X connect 10 0 11 0;
+#X connect 11 0 0 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 msg 167 134 forceX corde \$1;
+#X obj 167 89 inlet;
+#X obj 167 112 / 300;
+#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 2300 1;
+#N canvas 0 22 450 300 general_damping 0;
+#X msg 172 143 setD D2 \$1;
+#X obj 172 121 / 5;
+#X obj 173 100 inlet;
+#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;
+#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;