diff options
Diffstat (limited to 'msd/01_msdtest.pd')
-rw-r--r-- | msd/01_msdtest.pd | 182 |
1 files changed, 90 insertions, 92 deletions
diff --git a/msd/01_msdtest.pd b/msd/01_msdtest.pd index 9921dbe..2fedeee 100644 --- a/msd/01_msdtest.pd +++ b/msd/01_msdtest.pd @@ -1,94 +1,92 @@ -#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 +#N canvas 392 22 616 594 10; +#X obj 20 33 loadbang; +#X obj 366 197 print msd; +#X obj 309 58 tgl 15 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 +#X text 329 56 ON / OFF; +#X obj 309 80 metro 50; +#X obj 33 55 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -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 text 490 126 CREATION : 5 MASSES \, 4 LINKS; -#X obj 46 380 cnv 15 700 90 empty empty empty 20 12 0 14 -262131 -66577 -0; -#X msg 176 385 setD souple 0.01; -#X msg 66 384 setK souple 1; -#X msg 176 407 setD souple 1; -#X msg 66 406 setK souple 2; -#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 8489 1; -#X obj 111 590 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -261689 --1 -1 6790 1; -#X obj 66 590 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -261689 --1 -1 10160 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 3216 1; -#X obj 134 590 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -261689 --1 -1 5039 1; -#X text 199 638 MOVE FIRST SLIDER; -#X text 182 662 TO MOVE THE FIXED MASS; -#X msg 184 226 0 1 \, 1 2 \, 2 3 \, 3 4; -#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 545 unpack f f f f f; -#X obj 52 523 route massesPosL; -#X msg 52 335 bang \, massesPosL; -#X msg 184 248 link souple \$1 \$2 10 10; -#X connect 0 0 37 0; -#X connect 2 0 40 0; -#X connect 2 1 1 0; -#X connect 3 0 6 0; -#X connect 6 0 41 0; -#X connect 9 0 2 0; -#X connect 10 0 37 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 18 0 2 0; -#X connect 19 0 2 0; -#X connect 20 0 2 0; -#X connect 21 0 2 0; -#X connect 24 0 3 0; -#X connect 28 0 29 0; -#X connect 29 0 2 0; -#X connect 34 0 42 0; -#X connect 35 0 2 0; -#X connect 36 0 2 0; -#X connect 37 0 35 0; -#X connect 37 0 3 0; -#X connect 37 1 34 0; -#X connect 37 1 24 0; -#X connect 37 2 13 0; -#X connect 37 3 15 0; -#X connect 37 4 14 0; -#X connect 37 5 11 0; -#X connect 39 0 28 0; -#X connect 39 1 26 0; -#X connect 39 2 27 0; -#X connect 39 3 31 0; -#X connect 39 4 30 0; -#X connect 40 0 39 0; -#X connect 40 1 1 0; -#X connect 41 0 2 0; -#X connect 42 0 9 0; +#X msg 83 113 reset; +#X msg 35 229 Xmax 100 \, Xmin 0; +#X msg 128 372 setD souple 0.01; +#X msg 18 371 setK souple 1; +#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; +#X obj 354 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144 +-1 -1 5250 1; +#X obj 308 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144 +-1 -1 5250 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; +#X obj 377 392 vsl 15 128 0 100 0 0 empty empty empty 0 -8 0 8 -262144 +-1 -1 5250 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; +#X text 50 55 reset; +#X text 18 10 creation : 5 masses and 4 links; +#X text 308 10 compute and get masses positions; +#X text 16 349 set rigidity and viscosity of links; +#X text 17 452 add force on all mobile masses; +#X text 443 440 move first slider; +#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 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 14 0 15 0; +#X connect 15 0 27 0; +#X connect 18 0 22 0; +#X connect 19 0 14 0; +#X connect 19 1 12 0; +#X connect 19 2 13 0; +#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 43 0 23 0; +#X connect 44 0 45 0; +#X connect 45 0 43 0; +#X connect 46 0 23 0; |