From 7668ac85d55cb34b3a955747cad20bfc8530e71a Mon Sep 17 00:00:00 2001 From: "N.N." Date: Thu, 27 Mar 2008 23:37:34 +0000 Subject: 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 --- msd/02_msdstring.pd | 410 ++++++++++++++++++++++++++++++++++++++++------------ 1 file changed, 321 insertions(+), 89 deletions(-) (limited to 'msd/02_msdstring.pd') 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; -- cgit v1.2.1