externals/nusmuk/msd2D 06_msd2Dgravit.pd, NONE, 1.1 01_msd2Dtest.pd, 1.5, 1.6 02_msd2Dadd.pd, 1.6, 1.7 03_imsd2Dtest.pd, 1.4, 1.5 04_msd2Dperf.pd, 1.4, 1.5 05_msd2DDataStruct.pd, 1.1, 1.2 help-msd2D.pd, 1.8, 1.9 - Pd-cvs

17 May 2005


      Update of /cvsroot/pure-data/externals/nusmuk/msd2D
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10161/msd2D
Modified Files:
    01_msd2Dtest.pd 02_msd2Dadd.pd 03_imsd2Dtest.pd 
    04_msd2Dperf.pd 05_msd2DDataStruct.pd help-msd2D.pd 
Added Files:
    06_msd2Dgravit.pd 
Log Message:
MSD Version 0.07
Index: help-msd2D.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd2D/help-msd2D.pd,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** help-msd2D.pd	9 May 2005 14:12:23 -0000	1.8
--- help-msd2D.pd	17 May 2005 15:37:43 -0000	1.9
***************
*** 1,188 ****
! #N canvas 0 0 478 397 10;
! #N canvas 289 25 787 879 masses 0;
! #X obj 62 154 cnv 15 610 180 empty empty CREATION 20 12 0 14 -262131
! -66577 0;
! #X msg 79 183 reset;
! #X text 249 214 Add a mass;
! #X text 335 215 $1 : Id (symbol);
! #X text 334 235 $2 : fixed or mobile (0/1);
! #X text 334 253 $3 : mass;
! #X text 251 184 Delete all masses and links;
! #X obj 62 338 cnv 15 610 60 empty empty COMPUTATION 20 12 0 14 -261689
! -66577 0;
! #X msg 82 367 bang;
! #X text 235 367 Compute new masses positions;
! #X obj 61 403 cnv 15 610 210 empty empty DYNAMIC_SETTING 20 12 0 14
! -262131 -66577 0;
! #X text 350 467 $2 : New value;
! #X text 348 521 $2 : New value;
! #X msg 87 429 posX $1 $2;
! #X text 350 431 Set position of mass(es);
! #X text 347 486 Add force on mass(es);
! #X msg 85 485 forceX $1 $2;
! #X obj 61 617 cnv 15 610 260 empty empty GET_ATTRIBUTES 20 12 0 14
! -261689 -66577 0;
! #X text 248 644 output all masses positions in a list on outlet No
! 1;
! #X text 247 695 output all masses forces in a list on outlet No 1;
! #X msg 146 732 get $1 $2;
! #X text 249 733 Get specific attribute;
! #X text 249 758 $1 : Attribute type ( massesPos / massesSpeeds / massesForces
! / linksPos );
! #X text 249 795 $2 : Id (symbol or creations numbers);
! #X msg 79 290 deleteMass $1;
! #X text 248 292 Delete a mass and associated links;
! #X text 338 309 $1 : Creation No of mass;
! #X msg 144 813 infosL;
! #X text 247 815 Get infos on all masses and links on outlet No 2;
! #X text 347 555 $1 : Value;
! #X text 73 22 MASSES :;
! #X text 66 69 They got only one physical parameter , the value of
! their;
! #X text 67 83 mass. They can be mobile or fixed , in this case forces
! ;
! #X text 67 54 The msd masses are the principals objects of the model.
! ;
! #X text 66 97 applied on them automatically , by links , or manually
! , by;
! #X text 67 112 messages , don't do anything.;
! #X msg 81 578 setMobile $1 , setFixed $1;
! #X text 345 578 Change mobile parameter;
! #X text 345 594 $1 : Creation No of mass;
! #X msg 79 214 mass $1 $2 $3 $4 $5;
! #X msg 188 430 posY $1 $2;
! #X msg 186 486 forceY $1 $2;
! #X obj 33 821 msd2D;
! #X text 347 538 Set minimimum and maximum X , Y of masses;
! #X msg 84 538 Xmin $1 , Xmax $1 , Ymin $1 , Ymax $1;
! #X text 334 271 $4 , $5 : initial position;
! #X text 350 449 $1 : Id (symbol) or No;
! #X text 348 503 $1 : Id (symbol) or No;
! #X text 248 669 output all masses x/y position in a list on outlet
! No 1;
! #X msg 112 838 grabMass $1 $2 $3;
! #X text 247 838 Get nearest mass and grab it;
! #X text 112 857 $1 , $2 : X , Y position of mouse;
! #X text 357 857 $3 : grab or not (left click);
! #X msg 147 644 massesPosL;
! #X msg 147 669 massesPosYL;
! #X msg 147 694 massesForcesL;
! #X msg 68 669 massesPosXL;
! #X text 66 131 Be careful: if masses are deleted , lists messages
! won't work;
! #X connect 1 0 42 0;
! #X connect 8 0 42 0;
! #X connect 13 0 42 0;
! #X connect 16 0 42 0;
! #X connect 20 0 42 0;
! #X connect 24 0 42 0;
! #X connect 27 0 42 0;
! #X connect 36 0 42 0;
! #X connect 39 0 42 0;
! #X connect 44 0 42 0;
! #X connect 53 0 42 0;
! #X connect 55 0 42 0;
! #X connect 56 0 42 0;
! #X restore 221 312 pd masses;
! #X text 75 312 HELP on masses --->;
! #X text 74 343 HELP on links --->;
! #X text 13 117 There are 4 types of messages for msd :;
! #X text 14 81 It is designed to implement particules physical model
! in PD.The model is based on two elements type : mass and link.;
! #X obj 13 132 cnv 15 420 30 empty empty empty 20 12 0 14 -262131 -66577
  0;
! #X obj 13 165 cnv 15 420 30 empty empty empty 20 12 0 14 -261689 -66577
  0;
! #X obj 13 198 cnv 15 420 30 empty empty empty 20 12 0 14 -262131 -66577
  0;
! #X obj 13 231 cnv 15 420 30 empty empty empty 20 12 0 14 -261689 -66577
  0;
! #X text 16 139 CREATION : To create the model masses and links.;
! #X text 16 204 DYNAMIC SETTING : To set the model parameters dynamically.
! ;
! #X text 16 237 ATTRIBUTES : To get the model parameters.;
! #X text 16 166 COMPUTATION : To compute the new model state based on
! previous instant.;
! #X text 94 23 MSD2D : mass - spring - damper model;
! #X text 15 68 MSD2D is the 2D object of the msd objects collection.
  ;
! #N canvas 222 83 808 841 links 0;
! #X obj 33 821 msd;
! #X obj 62 192 cnv 15 610 360 empty empty CREATION 20 12 0 14 -262131
! -66577 0;
! #X msg 79 221 reset;
! #X text 402 247 $1 : Id (symbol);
! #X text 314 247 Add a link;
! #X text 401 267 $2 : creation No of mass1;
! #X text 401 285 $3 : creation No of mass2;
! #X text 400 303 $4 : rigidity;
! #X text 251 222 Delete all masses and links;
! #X text 400 321 $5 : viscosity;
! #X text 400 338 $6 : damping;
! #X obj 61 561 cnv 15 610 82 empty empty DYNAMIC_SETTING 20 12 0 14
! -262131 -66577 0;
! #X msg 172 583 setD $1 $2;
! #X text 354 601 $1 : Id (symbol);
! #X text 354 619 $2 : New value;
! #X msg 87 583 setK $1 $2;
! #X msg 255 583 setD2 $1 $2;
! #X text 354 583 Set rigidity , viscosity or damping of link(s);
! #X obj 60 650 cnv 15 610 140 empty empty GET_ATTRIBUTES 20 12 0 14
! -261689 -66577 0;
! #X msg 75 679 get $1 $2;
! #X text 237 680 Get specific attribute;
! #X text 237 705 $1 : Attribute type ( massesPos / massesSpeeds / massesForces
  / linksPos );
! #X text 237 742 $2 : Id (symbol or creations numbers);
! #X msg 74 533 deleteLink $1;
! #X text 239 535 Delete a link;
! #X text 340 535 $1 : Creation No of link;
! #X msg 73 762 infosL;
! #X text 236 762 Get infos on all masses and links on outlet No 2;
! #X text 402 247 $1 : Id (symbol);
! #X text 314 247 Add a link;
! #X text 401 267 $2 : creation No of mass1;
! #X text 401 285 $3 : creation No of mass2;
! #X text 400 303 $4 : rigidity;
! #X text 400 321 $5 : viscosity;
! #X text 400 338 $6 : damping;
! #X text 463 392 $1 : Id (symbol);
! #X text 462 448 $4 : rigidity;
! #X text 462 466 $5 : viscosity;
! #X text 462 483 $6 : damping;
! #X text 463 392 $1 : Id (symbol);
! #X text 462 448 $4 : rigidity;
! #X text 462 466 $5 : viscosity;
! #X text 462 483 $6 : damping;
! #X text 301 393 Add an interactor link;
! #X text 94 52 LINKS :;
! #X text 71 91 parameters : length , rigidity , viscosity and damping.
! ;
! #X text 72 78 Links connect masses two by two. They got 4 physicals
! ;
! #X text 70 134 the two masses at the creation.;
! #X text 71 120 message. The lenght is initialised to the distance between
! ;
! #X text 71 107 Rigidity , viscosity and damping are defined by the
! creation;
! #X text 70 148 Interactor links are links between mutiples masses ,
! instead;
! #X text 70 161 of creation number , the masses linked are defined
! with;
! #X text 69 175 their Id.;
! #X text 397 356 ($7) : minimum lenght of link;
! #X text 397 373 ($8) : maximum lenght of link;
! #X msg 78 247 link $1 $2 $3 $4 $5 $6 ($7 $8);
! #X text 462 412 $2 : Id (symbol) of masses 1;
! #X text 462 430 $3 : Id (symbol) of masses 2;
! #X msg 73 393 iLink $1 $2 $3 $4 $5 $6 ($7 $8);
! #X text 458 500 ($7) : minimum lenght of links;
! #X text 458 517 ($8) : maximum lenght of links;
  #X connect 2 0 0 0;
! #X connect 15 0 0 0;
! #X connect 19 0 0 0;
! #X connect 23 0 0 0;
! #X connect 26 0 0 0;
! #X connect 55 0 0 0;
! #X connect 58 0 0 0;
! #X restore 224 340 pd links;
--- 1,576 ----
! #N canvas 595 54 563 818 10;
! #X obj 4 369 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
  0;
! #X obj 5 779 cnv 15 550 30 empty empty empty 20 12 0 14 -158509 -66577
  0;
! #X obj 8 6 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
  0;
! #X obj 14 389 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
  0;
! #X obj 14 584 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X obj 4 527 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 4 562 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 7 76 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 5 729 cnv 15 550 20 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 5 749 cnv 15 550 30 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #N canvas 76 31 921 714 More_Info 0;
! #X text 96 12 MSD : mass - spring - damper model;
! #X text 27 155 Be careful : if masses are deleted , lists messages
! won't work;
! #X text 27 60 It is designed to implement particules physical model
! in PD.The model is based on two elements type : mass and link. The
! msd masses are the principals objects of the model. They got only one
! physical parameter , the value of their mass. They can be mobile or
! fixed , in this case forces applied on them automatically , by links
! , or manually , by messages , don't do anything.;
! #X obj 456 -5 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
! -1;
! #X obj 456 294 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
! -1;
! #N canvas 0 0 450 300 graph1 0;
! #X array rigidity1 4 float 1;
! #A 0 -1 0 1 2;
! #X array zero 4 float 1;
! #A 0 0 0 0 0;
! #X coords 0 3 3 -3 200 150 1;
! #X restore 121 328 graph;
! #X text 179 485 L0;
! #N canvas 163 176 956 727 figure 0;
! #X obj 182 108 loadbang;
! #X msg 191 180 ; rigidity1 resize 1 ; rigidity1 resize 4 ; rigidity1
! bounds 0 3 3 -3 ; rigidity1 0 -1 0 1 2 ; rigidity1 ylabel -0.5 ;
! rigidity1 xlabel -3.5 ; rigidity1 xticks 0 1 1 ; rigidity1 yticks
! 0 0.1 5;
! #X obj 388 574 sqrt;
! #X obj 316 651 tabwrite rigidity3;
! #X obj 343 464 - 20;
! #X obj 316 609 f;
! #X obj 316 579 t b f;
! #X obj 343 494 moses 0;
! #X obj 343 517 * -1;
! #X obj 343 538 sqrt;
! #X obj 343 559 * -1;
! #X obj 375 429 counter 0 50;
! #X obj 481 479 - 20;
! #X obj 453 662 f;
! #X obj 453 632 t b f;
! #X obj 481 509 moses 0;
! #X obj 481 532 * -1;
! #X obj 480 612 * -1;
! #X obj 528 622 *;
! #X obj 480 591 *;
! #X obj 525 590 t f f;
! #X obj 480 564 t f f;
! #X obj 453 683 tabwrite rigidity4;
! #X obj 255 350 t b b;
! #X obj 374 404 until;
! #X obj 620 552 f;
! #X obj 620 522 t b f;
! #X obj 678 376 until;
! #X obj 620 623 tabwrite rigidity2;
! #X msg 763 574 0;
! #X obj 679 401 counter 0 100;
! #X obj 679 437 - 50;
! #X obj 751 491 moses 40;
! #X obj 681 510 moses -40;
! #X obj 620 586 * 1.5;
! #X obj 680 462 moses 10;
! #X obj 680 488 moses -10;
! #X msg 55 419 ; rigidity2 resize 101 ; rigidity2 xticks 1 10 5 ;
! rigidity2 yticks 0 5 5 ; rigidity3 resize 51 ; rigidity3 xticks 0
! 1 5 ; rigidity3 yticks 0 1 5 ; rigidity4 resize 51 ; rigidity4 xticks
! 0 1 5 ; rigidity4 yticks 0 100 5;
! #X connect 0 0 1 0;
! #X connect 0 0 23 0;
! #X connect 2 0 5 1;
! #X connect 4 0 7 0;
! #X connect 5 0 3 0;
! #X connect 6 0 5 0;
! #X connect 6 1 3 1;
! #X connect 7 0 8 0;
! #X connect 7 1 2 0;
! #X connect 8 0 9 0;
! #X connect 9 0 10 0;
! #X connect 10 0 5 1;
! #X connect 11 0 4 0;
! #X connect 11 0 6 0;
! #X connect 11 0 12 0;
! #X connect 11 0 14 0;
! #X connect 11 1 24 1;
! #X connect 12 0 15 0;
! #X connect 13 0 22 0;
! #X connect 14 0 13 0;
! #X connect 14 1 22 1;
! #X connect 15 0 16 0;
! #X connect 15 1 20 0;
! #X connect 16 0 21 0;
! #X connect 17 0 13 1;
! #X connect 18 0 13 1;
! #X connect 19 0 17 0;
! #X connect 20 0 18 0;
! #X connect 20 1 18 1;
! #X connect 21 0 19 0;
! #X connect 21 1 19 1;
! #X connect 23 0 24 0;
! #X connect 23 1 37 0;
! #X connect 23 1 27 0;
! #X connect 24 0 11 0;
! #X connect 25 0 34 0;
! #X connect 26 0 25 0;
! #X connect 26 1 28 1;
! #X connect 27 0 30 0;
! #X connect 29 0 25 1;
! #X connect 30 0 26 0;
! #X connect 30 0 31 0;
! #X connect 30 1 27 1;
! #X connect 31 0 35 0;
! #X connect 32 0 25 1;
! #X connect 32 1 29 0;
! #X connect 33 0 29 0;
! #X connect 33 1 25 1;
! #X connect 34 0 28 0;
! #X connect 35 0 36 0;
! #X connect 35 1 32 0;
! #X connect 36 0 33 0;
! #X connect 36 1 29 0;
! #X restore 403 659 pd figure;
! #X text 125 307 Rigidity;
! #N canvas 0 0 450 300 graph1 0;
! #X array rigidity2 101 float 1;
! #A 0 0 0 0 0 0 0 0 0 0 0 0 -60 -58.5 -57 -55.5 -54 -52.5 -51 -49.5
! -48 -46.5 -45 -43.5 -42 -40.5 -39 -37.5 -36 -34.5 -33 -31.5 -30 -28.5
! -27 -25.5 -24 -22.5 -21 -19.5 -18 -16.5 0 0 0 0 0 0 0 0 0 0 0 0 0 0
! 0 0 0 0 0 0 15 16.5 18 19.5 21 22.5 24 25.5 27 28.5 30 31.5 33 34.5
! 36 37.5 39 40.5 42 43.5 45 46.5 48 49.5 51 52.5 54 55.5 57 58.5 0 0
! 0 0 0 0 0 0 0 0;
! #X array zero 101 float 1;
! #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
! 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
! 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
! 0 0;
! #X coords 0 60 100 -60 200 150 1;
! #X restore 565 327 graph;
! #X text 657 482 L0;
! #X text 569 304 Rigidity with Lmin and Lmax;
! #X text 673 482 Lmin;
! #X text 735 481 Lmax;
! #N canvas 0 0 450 300 graph1 0;
! #X array rigidity3 51 float 1;
! #A 0 -4.47214 -4.3589 -4.24264 -4.12311 -4 -3.87298 -3.74166 -3.60555
! -3.4641 -3.31662 -3.16228 -3 -2.82843 -2.64575 -2.44949 -2.23607 -2
! -1.73205 -1.41421 -1 0 1 1.41421 1.73205 2 2.23607 2.44949 2.64575
! 2.82843 3 3.16228 3.31662 3.4641 3.60555 3.74166 3.87298 4 4.12311
! 4.24264 4.3589 4.47214 4.58258 4.69042 4.79583 4.89898 5 5.09902 5.19615
! 5.2915 5.38516 5.47723;
! #X array zero 51 float 1;
! #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
! 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
! #X coords 0 6 50 -6 200 150 1;
! #X restore 119 526 graph;
! #X text 192 679 L0;
! #X text 126 505 Rigidity with power = 1/2;
! #N canvas 0 0 450 300 graph1 0;
! #X array rigidity4 51 float 1;
! #A 0 -400 -361 -324 -289 -256 -225 -196 -169 -144 -121 -100 -81 -64
! -49 -36 -25 -16 -9 -4 -1 0 1 4 9 16 25 36 49 64 81 100 121 144 169
! 196 225 256 289 324 361 400 441 484 529 576 625 676 729 784 841 900
  ;
! #X array zero 51 float 1;
! #A 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
! 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0;
! #X coords 0 1000 50 -1000 200 150 1;
! #X restore 566 530 graph;
! #X text 639 684 L0;
! #X text 571 508 Rigidity with power = 2;
! #X text 571 12 The equations are :;
! #X text 497 36 if Lmin<|L[n]-L[0]|<Lmax;
! #X text 496 75 else;
! #X text 496 95 F[n] = D(L[n]-L[n-1]);
! #X text 496 54 F[n] = K(L[n] - L[0])^P + D(L[n] - L[n-1]);
! #X text 28 187 Links connect masses two by two. They got 4 physicals
! parameters : length , rigidity , damping and power.;
! #X text 27 216 Rigidity , damping and power are defined by the creation
! message. The lenght is initialised to the distance between the two
! masses at the creation.;
! #X text 495 124 For oriented links , the force F[n] is projected onto
! a vector which is given during the creation of the link using x1y1
! coordinates.;
! #X text 495 169 For normal vector , the direction is calculated using
! the scalar product :;
! #X text 495 248 You can build specific links using different links
! messages defining the characteristic step by step.;
! #X text 496 206 x1x2 + y1y2 = 0;
! #X text 27 257 Links can be created in one shot between mutiples masses
! , instead of creation number , the masses linked are defined with
! their Id.;
! #X text 28 41 MSD is the 2D object of the msd objects collection.;
! #X connect 3 0 4 0;
! #X restore 16 785 pd More_Info;
! #X text 12 76 Examples:;
! #X text 9 369 Inlets:;
! #X text 19 388 - Left:;
! #X text 10 526 Arguments:;
! #X text 11 562 Outlets:;
! #X text 19 729 See Also:;
! #X text 74 48 Full Name:;
! #N canvas 58 22 262 70 Related_Objects 0;
! #X obj 3 10 cnv 15 250 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 3 30 cnv 15 250 30 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X text 5 10 Externals and libraries;
! #X obj 141 38 msd3D;
! #X obj 44 37 msd;
! #X restore 122 785 pd Related_Objects;
! #N canvas 257 262 759 345 init 0;
! #X obj 89 215 t a;
! #X obj 89 33 loadbang;
! #X obj 89 241 s $0-in;
! #X obj 89 59 t b b b b b;
! #X msg 161 80 reset;
! #X obj 44 13 inlet;
! #X msg 143 100 mass fix 0 10 0 0;
! #X msg 89 187 Xmax 4 , Xmin -4 , Ymax 4 , Ymin -4;
! #X msg 125 120 mass mob 1 100 0 -2 , mass mob 1 100 2 0 , mass mob
! 1 100 0 2 , mass mob 1 100 -2 0;
! #X msg 107 161 link souple fix mob 10 10 , link souple mob mob 10
! 10;
! #X connect 0 0 2 0;
! #X connect 1 0 3 0;
! #X connect 3 0 7 0;
! #X connect 3 1 9 0;
! #X connect 3 2 8 0;
! #X connect 3 3 6 0;
! #X connect 3 4 4 0;
! #X connect 4 0 0 0;
! #X connect 5 0 3 0;
! #X connect 6 0 0 0;
! #X connect 7 0 0 0;
! #X connect 8 0 0 0;
! #X connect 9 0 0 0;
! #X restore 17 156 pd init;
! #X obj 18 321 s $0-out;
! #X obj 18 272 r $0-in;
! #X obj 393 317 s $0-in;
! #N canvas 565 515 355 193 compute 0;
! #X obj 27 29 inlet;
! #X obj 27 127 s $0-in;
! #X msg 27 96 bang , get massesPos , get linksPos;
! #X obj 27 66 gemhead;
! #X obj 160 36 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
! -1;
! #X connect 0 0 3 0;
! #X connect 2 0 1 0;
! #X connect 3 0 2 0;
! #X connect 4 0 2 0;
! #X restore 17 209 pd compute;
! #X obj 17 181 tgl 20 0 empty empty ON/OFF 25 10 1 10 -262144 -1 -1
! 1 1;
! #X obj 172 270 r $0-out;
! #X obj 17 126 bng 20 250 50 0 empty empty Reset 25 10 1 10 -262144
! -1 -1;
! #X text 101 388 Bang - A bang at the left inlet compute the new model
! state based on previous instant.;
! #X text 158 478 To set the model parameters after creation.;
! #X text 158 456 To create the model masses and links.;
! #X text 158 501 To get the model parameters;
! #N canvas 8 28 967 626 creation________ 0;
! #X obj 5 75 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 5 3 cnv 15 450 15 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X text 7 2 CREATION Messages;
! #X obj 4 137 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 3 351 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X msg 32 104 reset;
! #X text 202 167 Add a mass;
! #X text 57 191 $1 : Id (symbol);
! #X text 57 211 $2 : fixed or mobile (0/1);
! #X text 57 229 $3 : mass;
! #X msg 32 286 deleteMass $1;
! #X text 194 288 Delete a mass and associated links;
! #X text 54 309 $1 : Creation No of mass;
! #X text 7 137 Masses :;
! #X text 7 74 Reset :;
! #X text 129 105 Delete all masses , links and internal variables;
! #X text 6 351 Links :;
! #X text 49 406 $1 : Id (symbol);
! #X text 49 459 $4 : rigidity;
! #X msg 30 555 deleteLink $1;
! #X text 166 557 Delete a link;
! #X text 47 578 $1 : Creation No of link;
! #X text 49 406 $1 : Id (symbol);
! #X text 49 459 $4 : rigidity;
! #X text 49 424 $2 : creation No/Id of mass1;
! #X text 49 442 $3 : creation No/Id of mass2;
! #X text 266 384 Add link(s);
! #X text 49 477 $5 : damping;
! #X text 10 28 Creation messages are used to define the structure of
! the model. Messages create links and masses or destroy them.;
! #X msg 30 384 link $1 $2 $3 $4 $5 ($6 $7 $8);
! #X msg 32 167 mass $1 $2 $3 $4 $5;
! #X text 57 247 $4 , $5 : initial position;
! #X text 46 495 ($6) : Power of the rigidity distance;
! #X text 46 514 ($7) : minimum lenght of link;
! #X text 46 531 ($8) : maximum lenght of link;
! #X obj 471 75 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
! -1;
! #X obj 501 75 cnv 15 450 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 471 578 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
! -1;
! #X text 527 180 $1 : Id (symbol);
! #X text 527 233 $4 : rigidity;
! #X text 527 180 $1 : Id (symbol);
! #X text 527 233 $4 : rigidity;
! #X text 527 198 $2 : creation No/Id of mass1;
! #X text 527 216 $3 : creation No/Id of mass2;
! #X text 527 251 $5 : damping;
! #X text 790 152 Add tangential link(s);
! #X text 526 270 $6 , $7 : tangential vector;
! #X text 524 289 ($8) : Power of the rigidity distance;
! #X text 524 308 ($9) : minimum lenght of link;
! #X text 524 325 ($10) : maximum lenght of link;
! #X text 528 382 $1 : Id (symbol);
! #X text 528 435 $4 : rigidity;
! #X text 528 382 $1 : Id (symbol);
! #X text 528 435 $4 : rigidity;
! #X text 528 400 $2 : creation No/Id of mass1;
! #X text 528 418 $3 : creation No/Id of mass2;
! #X text 528 453 $5 : damping;
! #X text 525 491 ($8) : Power of the rigidity distance;
! #X text 525 510 ($9) : minimum lenght of link;
! #X text 525 527 ($10) : maximum lenght of link;
! #X msg 508 153 tLink $1 $2 $3 $4 $5 $6 $7 ($8 $9 $10);
! #X msg 511 358 nLink $1 $2 $3 $4 $5 $6 $7 ($8 $9 $10);
! #X text 527 472 $6 , $7 : normal vector;
! #X text 504 75 Oriented links :;
! #X text 793 357 Add normal link(s);
! #X text 506 102 In 2D (and 3D) there are two specials links : oriented
! links. They works as general links excepts their calculation is made
! following a vector.;
! #X connect 35 0 37 0;
! #X restore 12 457 pd creation________;
! #X text 103 542 None;
! #X text 18 583 - Left:;
! #X text 101 584 Outputs the model parameters asked with the attributes
! messages.;
! #X obj 13 629 cnv 15 75 15 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X text 17 628 - Right:;
! #X text 100 629 Outputs information on model when creation messages
! are send or with the special message [infosL( which dump the complete
! state of the model.;
! #X text 101 420 Messages - Different messages are used to control the
! msd object. They are of three types :;
! #X text 9 751 CATEGORY: control;
! #N canvas 354 125 558 582 dynamic 0;
! #X obj 5 3 cnv 15 550 15 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X obj 10 85 cnv 15 150 270 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X obj 4 62 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 10 402 cnv 15 130 180 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X obj 3 378 cnv 15 550 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X text 7 62 Masses :;
! #X text 6 378 Links :;
! #X text 7 2 DYNAMIC SETTINGS Messages;
! #X msg 31 96 posX $1 $2;
! #X text 190 144 Add force on mass(es);
! #X msg 30 143 forceX $1 $2;
! #X text 192 216 $1 : Value;
! #X text 193 107 $1 : Id (symbol) or No;
! #X text 193 161 $1 : Id (symbol) or No;
! #X msg 30 195 Xmin $1;
! #X msg 89 195 Xmax $1;
! #X msg 29 244 setMobile $1;
! #X msg 29 265 setFixed $1;
! #X text 193 89 Set position of fixed mass(es);
! #X text 193 125 $2 : Value;
! #X text 193 179 $2 : Value;
! #X text 189 200 Set minimimum and maximum position of all masses;
! #X text 188 244 Set mass to mobile or fixed;
! #X msg 29 466 setD $1 $2;
! #X text 184 452 $2 : New value;
! #X msg 29 415 setK $1 $2;
! #X text 184 508 $2 : New value;
! #X text 184 561 $2 : New value;
! #X text 178 416 Set rigidity of link(s);
! #X text 178 472 Set damping of link(s);
! #X msg 29 521 setL $1 $2;
! #X text 178 525 Set initial lenght of link(s);
! #X text 184 434 $1 : Id (symbol) or No;
! #X text 184 490 $1 : Id (symbol) or No;
! #X text 184 543 $1 : Id (symbol) or No;
! #X text 191 261 $1 : Id (symbol) or No;
! #X text 10 25 Dynamic settings messages allows the user to redefine
! internal parameters of links and masses.;
! #X msg 29 301 grabMass $1 $2 $3;
! #X text 186 301 Grab nearest mass;
! #X text 191 317 $1 , $2 : position;
! #X text 190 334 $3 : grab or not (0/1);
! #X msg 31 117 posY $1 $2;
! #X msg 30 164 forceY $1 $2;
! #X msg 30 217 Ymin $1;
! #X msg 89 217 Ymax $1;
! #X restore 12 478 pd dynamic settings;
! #N canvas 382 95 601 642 attributes______ 0;
! #X obj 11 95 cnv 15 100 35 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X obj 5 75 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 5 3 cnv 15 590 15 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X obj 10 158 cnv 15 150 110 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X obj 4 137 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X obj 9 305 cnv 15 110 330 empty empty empty 20 12 0 14 -233017 -66577
! 0;
! #X obj 3 281 cnv 15 590 15 empty empty empty 20 12 0 14 -158509 -66577
! 0;
! #X text 7 74 General :;
! #X text 7 2 ATTRIBUTES Messages;
! #X text 7 137 Lists :;
! #X msg 33 104 infosL;
! #X text 136 104 Get infos on all masses and links on right outlet;
! #X msg 32 170 massesPosL;
! #X msg 32 239 massesForcesL;
! #X text 170 170 Output all masses positions in a list on outlet No
! 1;
! #X text 139 346 $1 : Attribute type ( massesPos / massesSpeeds / massesForces
  / linksPos );
! #X text 139 321 Get specific attribute on specific element;
! #X msg 19 319 get $1 ($2);
! #X text 6 281 Specific :;
! #X text 139 416 The get message return the asked attribute preceded
! by an identifier and the creation No of the element. The identifier
! is made of the asked parameter and the way you asked for it.;
! #X text 140 492 message;
! #X text 380 492 response;
! #X text 139 473 Examples with 3 masses numbered 0 , 1 and 2 and named
! mas:;
! #X text 145 582 [get massesPos mas( -----> [massesPosId 0 x0(;
! #X text 334 597 [massesPosId 2 x2(;
! #X text 334 612 [massesPosId 1 x1(;
! #X text 173 511 [get massesPos( -----> [massesPos 0 x0(;
! #X text 334 525 [massesPos 2 x2(;
! #X text 334 539 [massesPos 1 x1(;
! #X text 159 561 [get massesPos 1( -----> [massesPosNo 1 x1(;
! #X text 15 30 The attributes messages ask the object to output some
! of his internal parameters. They can be output by lists for positions
! and forces of masses.;
! #X text 169 240 Output all forces applied on masses in a list on outlet
! No 1;
! #X text 139 383 ($2) : - If not defined all the attributes are send
! for all the elements. - Ids or/and creations No;
! #X msg 32 192 massesPosXL;
! #X text 170 202 Output all masses x or y in a list on outlet No 1;
! #X msg 32 213 massesPosYL;
! #X restore 12 499 pd attributes______;
! #X text 9 761 KEYWORDS: physical model mass spring damper link;
! #X text 267 786 - Nicolas Montgermont , May 12 , 2005;
! #X text 12 8 HELP: msd2D;
! #X text 12 18 DESCRIPTION: Mass spring damper physical modeling in
! 2D.;
! #X obj 157 48 msd2D;
! #X text 257 730 editor/msd2d-editor.pd;
! #X text 112 730 01_msd2Dtest.pd;
! #X obj 18 296 msd2D;
! #X obj 172 294 route massesPos linksPos;
! #N canvas 731 296 450 300 gemmouse 0;
! #X obj 189 77 gemmouse;
! #X obj 189 184 pack f f;
! #X obj 189 218 spigot;
! #X obj 109 243 outlet;
! #X obj 109 36 inlet;
! #X obj 109 98 t b;
! #X obj 238 131 + 4;
! #X obj 109 125 l 0 0;
! #X msg 57 182 posX fix $1;
! #X msg 57 203 posY fix $2;
! #X obj 189 108 / 62.5;
! #X obj 237 107 / -62.5;
! #X obj 189 131 - 4;
! #X connect 0 0 10 0;
! #X connect 0 1 11 0;
! #X connect 0 2 2 1;
! #X connect 1 0 2 0;
! #X connect 2 0 7 1;
! #X connect 4 0 5 0;
! #X connect 5 0 7 0;
! #X connect 6 0 1 1;
! #X connect 7 0 8 0;
! #X connect 7 0 9 0;
! #X connect 8 0 3 0;
! #X connect 9 0 3 0;
! #X connect 10 0 12 0;
! #X connect 11 0 6 0;
! #X connect 12 0 1 0;
! #X restore 393 295 pd gemmouse;
! #X obj 393 274 gemhead;
! #X obj 336 216 gemwin;
! #X msg 336 194 0 , destroy;
! #N canvas 472 258 550 319 gemrender 0;
! #X obj 48 203 translateXYZ;
! #X obj 48 229 sphere 0.1;
! #X obj 48 177 separator;
! #X obj 48 153 any;
! #X obj 64 114 gemhead 45;
! #X obj 127 24 inlet;
! #X obj 271 51 inlet;
! #X obj 192 206 separator;
! #X obj 192 182 any;
! #X obj 192 251 curve 2;
! #X obj 208 143 gemhead 45;
! #X msg 348 100 $4 $5 0;
! #X msg 276 96 $2 $3 0;
! #X obj 250 170 t b a;
! #X obj 127 62 unpack f f f;
! #X obj 125 136 t b f;
! #X connect 0 0 1 0;
  #X connect 2 0 0 0;
! #X connect 3 0 2 0;
! #X connect 4 0 3 1;
! #X connect 5 0 14 0;
! #X connect 6 0 11 0;
! #X connect 6 0 12 0;
! #X connect 7 0 9 0;
! #X connect 8 0 7 0;
! #X connect 10 0 8 1;
! #X connect 11 0 9 2;
! #X connect 12 0 13 0;
! #X connect 13 0 8 0;
! #X connect 13 1 9 1;
! #X connect 14 1 15 0;
! #X connect 14 2 0 2;
! #X connect 15 0 3 0;
! #X connect 15 1 0 1;
! #X restore 172 320 pd gemrender;
! #X msg 336 129 reset , create , 1;
! #X text 135 98 Sorry , you need GEM for this example...;
! #X text 169 132 1 Create window -->;
! #X text 169 163 2 Drag the structure with the mouse;
! #X text 169 195 3 Destroy the window -->;
! #X connect 21 0 49 0;
! #X connect 24 0 23 0;
! #X connect 25 0 50 0;
! #X connect 26 0 19 0;
! #X connect 49 0 20 0;
! #X connect 50 0 55 0;
! #X connect 50 1 55 1;
! #X connect 51 0 22 0;
! #X connect 52 0 51 0;
! #X connect 54 0 53 0;
! #X connect 56 0 53 0;
Index: 01_msd2Dtest.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd2D/01_msd2Dtest.pd,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** 01_msd2Dtest.pd	2 May 2005 12:43:10 -0000	1.5
--- 01_msd2Dtest.pd	17 May 2005 15:37:43 -0000	1.6
***************
*** 26,33 ****
  #X text 173 21 reset;
  #X obj 135 42 t b b b b b;
- #X msg 135 226 link souple $1 $2 $3 $4 $5;
  #X msg 153 181 Xmax 100 , Xmin 0 , Ymax 100 , Ymin 0;
  #X text 413 87 CREATION : 3 MASSES , 2 LINKS;
- #X msg 135 205 0 1 10 2.5 0.5 , 1 2 5 0.5 0.9;
  #X obj 53 300 gemhead;
  #X obj 53 323 t b;
--- 26,31 ----
***************
*** 145,185 ****
  #X msg 189 91 mass fix 0 100 50 50;
  #X msg 85 383 setD souple 0;
  #X connect 0 0 20 0;
  #X connect 3 0 2 0;
  #X connect 4 0 5 0;
  #X connect 6 0 2 0;
! #X connect 7 0 37 0;
  #X connect 7 1 1 0;
  #X connect 16 0 7 0;
  #X connect 17 0 20 0;
  #X connect 18 0 16 0;
! #X connect 20 0 24 0;
! #X connect 20 1 47 0;
! #X connect 20 1 22 0;
! #X connect 20 2 45 0;
! #X connect 20 3 48 0;
  #X connect 20 4 18 0;
  #X connect 21 0 16 0;
! #X connect 22 0 16 0;
! #X connect 24 0 21 0;
! #X connect 25 0 26 0;
! #X connect 26 0 27 0;
  #X connect 27 0 7 0;
  #X connect 29 0 7 0;
! #X connect 30 0 7 0;
! #X connect 31 0 7 0;
! #X connect 34 0 7 0;
! #X connect 35 0 7 0;
! #X connect 37 0 46 0;
! #X connect 37 1 36 0;
! #X connect 37 2 1 0;
! #X connect 39 0 41 0;
! #X connect 39 0 42 0;
! #X connect 40 0 39 0;
! #X connect 41 0 7 0;
! #X connect 42 0 7 0;
! #X connect 44 0 16 0;
! #X connect 45 0 44 0;
! #X connect 47 0 39 1;
  #X connect 48 0 16 0;
! #X connect 49 0 7 0;
--- 143,185 ----
  #X msg 189 91 mass fix 0 100 50 50;
  #X msg 85 383 setD souple 0;
+ #X msg 135 226 link souple $1 $2 $3 $4;
+ #X msg 135 205 0 1 10 10 , 1 2 10 10;
  #X connect 0 0 20 0;
  #X connect 3 0 2 0;
  #X connect 4 0 5 0;
  #X connect 6 0 2 0;
! #X connect 7 0 35 0;
  #X connect 7 1 1 0;
  #X connect 16 0 7 0;
  #X connect 17 0 20 0;
  #X connect 18 0 16 0;
! #X connect 20 0 49 0;
! #X connect 20 1 45 0;
! #X connect 20 1 21 0;
! #X connect 20 2 43 0;
! #X connect 20 3 46 0;
  #X connect 20 4 18 0;
  #X connect 21 0 16 0;
! #X connect 23 0 24 0;
! #X connect 24 0 25 0;
! #X connect 25 0 7 0;
  #X connect 27 0 7 0;
+ #X connect 28 0 7 0;
  #X connect 29 0 7 0;
! #X connect 32 0 7 0;
! #X connect 33 0 7 0;
! #X connect 35 0 44 0;
! #X connect 35 1 34 0;
! #X connect 35 2 1 0;
! #X connect 37 0 39 0;
! #X connect 37 0 40 0;
! #X connect 38 0 37 0;
! #X connect 39 0 7 0;
! #X connect 40 0 7 0;
! #X connect 42 0 16 0;
! #X connect 43 0 42 0;
! #X connect 45 0 37 1;
! #X connect 46 0 16 0;
! #X connect 47 0 7 0;
  #X connect 48 0 16 0;
! #X connect 49 0 48 0;
Index: 03_imsd2Dtest.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd2D/03_imsd2Dtest.pd,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 03_imsd2Dtest.pd	27 Apr 2005 12:14:13 -0000	1.4
--- 03_imsd2Dtest.pd	17 May 2005 15:37:43 -0000	1.5
***************
*** 104,118 ****
  #X restore 104 657 pd gemmouse;
  #X obj 104 636 gemhead;
! #X msg 84 681 posX fix $1;
! #X msg 76 706 posY fix $2;
  #X text 204 677 SET FIXED MASS TO MOUSE POSITION;
  #X msg 186 150 mass mob 1 100 $1 $2;
  #X obj 135 42 t b b b b b b;
- #X msg 135 234 iLink inter mob mob 1 2.5 0.5;
  #X msg 186 116 20 50 , 23 61 , 29 71 , 39 77 , 50 80 , 61 77 ,
  71 71 , 77 61 , 80 50 , 77 39 , 71 29 , 61 23 , 50 20 , 39 23
  , 29 29 , 23 39;
- #X text 413 87 CREATION : 17 MASSES , 2 iLINKS;
- #X msg 152 215 iLink intf fix mob 10 2.5 0.5;
  #X msg 625 711 0.9 0.9 0.9;
  #X obj 62 563 route linksPos;
--- 104,115 ----
  #X restore 104 657 pd gemmouse;
  #X obj 104 636 gemhead;
! #X msg 105 677 posX fix $1;
! #X msg 106 698 posY fix $2;
  #X text 204 677 SET FIXED MASS TO MOUSE POSITION;
  #X msg 186 150 mass mob 1 100 $1 $2;
  #X obj 135 42 t b b b b b b;
  #X msg 186 116 20 50 , 23 61 , 29 71 , 39 77 , 50 80 , 61 77 ,
  71 71 , 77 61 , 80 50 , 77 39 , 71 29 , 61 23 , 50 20 , 39 23
  , 29 29 , 23 39;
  #X msg 625 711 0.9 0.9 0.9;
  #X obj 62 563 route linksPos;
***************
*** 121,132 ****
  #X text 260 572 DISPLAY LINKS WITH GEM;
  #X msg 85 383 setD inter 0;
- #X msg 84 403 setD2 inter 0;
  #X msg 216 384 setK inter 1;
  #X msg 216 404 setK inter 2;
  #X connect 0 0 35 0;
  #X connect 3 0 2 0;
  #X connect 4 0 5 0;
  #X connect 6 0 2 0;
! #X connect 7 0 41 0;
  #X connect 7 1 1 0;
  #X connect 9 0 7 0;
--- 118,131 ----
  #X text 260 572 DISPLAY LINKS WITH GEM;
  #X msg 85 383 setD inter 0;
  #X msg 216 384 setK inter 1;
  #X msg 216 404 setK inter 2;
+ #X msg 144 211 link intf mob 0 10 2.5;
+ #X msg 135 234 link inter mob mob 1 2.5;
+ #X text 290 43 CREATION : 17 MASSES , 2 interactor LINKS;
  #X connect 0 0 35 0;
  #X connect 3 0 2 0;
  #X connect 4 0 5 0;
  #X connect 6 0 2 0;
! #X connect 7 0 38 0;
  #X connect 7 1 1 0;
  #X connect 9 0 7 0;
***************
*** 137,141 ****
  #X connect 15 0 9 0;
  #X connect 17 0 18 0;
! #X connect 18 0 42 0;
  #X connect 20 0 7 0;
  #X connect 21 0 7 0;
--- 136,140 ----
  #X connect 15 0 9 0;
  #X connect 17 0 18 0;
! #X connect 18 0 39 0;
  #X connect 20 0 7 0;
  #X connect 21 0 7 0;
***************
*** 146,164 ****
  #X connect 32 0 7 0;
  #X connect 34 0 9 0;
! #X connect 35 0 36 0;
! #X connect 35 1 39 0;
  #X connect 35 2 13 0;
  #X connect 35 2 15 0;
! #X connect 35 3 37 0;
  #X connect 35 4 14 0;
  #X connect 35 5 11 0;
! #X connect 36 0 9 0;
! #X connect 37 0 34 0;
! #X connect 39 0 9 0;
! #X connect 40 0 5 1;
! #X connect 41 0 25 0;
  #X connect 42 0 7 0;
! #X connect 45 0 7 0;
! #X connect 46 0 7 0;
! #X connect 47 0 7 0;
! #X connect 48 0 7 0;
--- 145,162 ----
  #X connect 32 0 7 0;
  #X connect 34 0 9 0;
! #X connect 35 0 46 0;
! #X connect 35 1 45 0;
  #X connect 35 2 13 0;
  #X connect 35 2 15 0;
! #X connect 35 3 36 0;
  #X connect 35 4 14 0;
  #X connect 35 5 11 0;
! #X connect 36 0 34 0;
! #X connect 37 0 5 1;
! #X connect 38 0 25 0;
! #X connect 39 0 7 0;
  #X connect 42 0 7 0;
! #X connect 43 0 7 0;
! #X connect 44 0 7 0;
! #X connect 45 0 9 0;
! #X connect 46 0 9 0;
Index: 04_msd2Dperf.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd2D/04_msd2Dperf.pd,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** 04_msd2Dperf.pd	3 May 2005 11:34:09 -0000	1.4
--- 04_msd2Dperf.pd	17 May 2005 15:37:43 -0000	1.5
***************
*** 1,4 ****
! #N canvas 291 84 843 799 10;
! #X obj 167 310 t a;
  #X obj 167 33 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
  -1;
--- 1,4 ----
! #N canvas 346 91 843 799 10;
! #X obj 167 221 t a;
  #X obj 167 33 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
  -1;
***************
*** 12,133 ****
  #X obj 481 320 gemhead;
  #X obj 481 343 world_light;
- #X msg 221 104 mass fix 0 100 50 50;
- #N canvas 311 224 450 300 gemmouse 0;
- #X obj 31 26 gemmouse;
- #X obj 31 133 pack f f;
- #X obj 31 167 spigot;
- #X obj 31 193 outlet;
- #X obj 31 80 - 0;
- #X obj 82 94 + 100;
- #X obj 31 57 / 5;
- #X obj 82 71 / -5;
- #X connect 0 0 6 0;
- #X connect 0 1 7 0;
- #X connect 0 2 2 1;
- #X connect 1 0 2 0;
- #X connect 2 0 3 0;
- #X connect 4 0 1 0;
- #X connect 5 0 1 1;
- #X connect 6 0 4 0;
- #X connect 7 0 5 0;
- #X restore 393 540 pd gemmouse;
- #X obj 360 524 gemhead;
- #X obj 360 575 l;
- #X obj 360 552 t b;
- #X msg 360 602 posX fix $1;
- #X msg 360 623 posY fix $2;
- #X msg 185 192 50 50;
- #X msg 167 261 Xmax 100 , Xmin 0 , Ymax 100 , Ymin 0;
  #X msg 460 386 reset , create , lighting 1 , 1;
  #X obj 52 301 t b;
! #N canvas 643 123 605 590 massrender 0;
! #X obj 127 22 inlet;
! #X obj 48 203 translateXYZ;
! #X obj 48 229 sphere 0.1;
! #X obj 127 86 / 12.5;
! #X obj 127 109 - 4;
! #X obj 192 87 / 12.5;
! #X obj 192 110 - 4;
! #X obj 64 114 gemhead;
! #X obj 48 177 separator;
! #X obj 48 153 any;
! #X obj 125 136 t b f;
! #X obj 127 57 unpack f f f;
! #X connect 0 0 11 0;
! #X connect 1 0 2 0;
! #X connect 3 0 4 0;
! #X connect 4 0 10 0;
  #X connect 5 0 6 0;
! #X connect 6 0 1 2;
! #X connect 7 0 9 1;
! #X connect 8 0 1 0;
! #X connect 9 0 8 0;
! #X connect 10 0 9 0;
! #X connect 10 1 1 1;
! #X connect 11 1 3 0;
! #X connect 11 2 5 0;
  #X restore 133 635 pd massrender;
! #N canvas 284 227 587 558 linkrender 0;
! #X obj 93 25 inlet;
! #X obj 93 117 / 12.5;
! #X obj 93 140 - 4;
! #X obj 147 118 / 12.5;
! #X obj 147 141 - 4;
! #X obj 35 134 gemhead;
! #X obj 44 222 separator;
! #X obj 44 192 any;
! #X obj 93 164 t b f;
! #X obj 207 121 / 12.5;
! #X obj 207 144 - 4;
! #X obj 261 122 / 12.5;
! #X obj 261 145 - 4;
! #X obj 123 194 pack f f;
! #X msg 123 217 $1 $2 0;
! #X obj 207 193 pack f f;
! #X msg 207 216 $1 $2 0;
! #X obj 44 265 curve 2;
! #X obj 94 70 unpack f f f f f;
! #X connect 0 0 18 0;
! #X connect 1 0 2 0;
! #X connect 2 0 8 0;
! #X connect 3 0 4 0;
! #X connect 4 0 13 1;
! #X connect 5 0 7 1;
! #X connect 6 0 17 0;
! #X connect 7 0 6 0;
! #X connect 8 0 7 0;
! #X connect 8 1 13 0;
! #X connect 9 0 10 0;
! #X connect 10 0 15 0;
! #X connect 11 0 12 0;
! #X connect 12 0 15 1;
! #X connect 13 0 14 0;
! #X connect 14 0 17 1;
! #X connect 15 0 16 0;
! #X connect 16 0 17 2;
! #X connect 18 1 1 0;
! #X connect 18 2 3 0;
! #X connect 18 3 9 0;
! #X connect 18 4 11 0;
  #X restore 52 656 pd linkrender;
- #X msg 211 170 mass mob 1 $1 $2 $3;
- #X obj 379 180 random 100;
- #X msg 380 158 seed 1;
- #X obj 379 221 random 100;
- #X obj 470 179 random 100;
- #X msg 379 200 seed 2;
- #X msg 470 157 seed 3;
- #X obj 470 201 + 100;
- #X obj 219 140 pack f f f;
- #X obj 591 127 t b;
- #X obj 591 171 + 1;
- #X obj 627 221 f;
- #X obj 628 196 + 1;
- #X obj 568 204 t f b;
- #X msg 622 148 -1;
- #X obj 591 148 f -1;
- #X obj 582 248 pack f f;
- #X obj 380 134 t b b b;
- #X msg 167 284 link souple $1 $2 100 0.5 0.5;
  #X obj 52 278 gemhead;
  #X obj 460 458 gemwin;
--- 12,55 ----
  #X obj 481 320 gemhead;
  #X obj 481 343 world_light;
  #X msg 460 386 reset , create , lighting 1 , 1;
  #X obj 52 301 t b;
! #N canvas 643 123 303 300 massrender 0;
! #X obj 24 196 translateXYZ;
! #X obj 24 222 sphere 0.1;
! #X obj 24 170 separator;
! #X obj 24 146 any;
! #X obj 40 107 gemhead 45;
! #X obj 103 17 inlet;
! #X obj 103 55 unpack f f f;
! #X obj 101 129 t b f;
! #X connect 0 0 1 0;
! #X connect 2 0 0 0;
! #X connect 3 0 2 0;
! #X connect 4 0 3 1;
  #X connect 5 0 6 0;
! #X connect 6 1 7 0;
! #X connect 6 2 0 2;
! #X connect 7 0 3 0;
! #X connect 7 1 0 1;
  #X restore 133 635 pd massrender;
! #N canvas 284 227 386 261 linkrender 0;
! #X obj 121 20 inlet;
! #X obj 57 175 separator;
! #X obj 57 151 any;
! #X obj 57 220 curve 2;
! #X obj 73 112 gemhead 45;
! #X msg 213 69 $4 $5 0;
! #X msg 141 65 $2 $3 0;
! #X obj 115 139 t b a;
! #X connect 0 0 5 0;
! #X connect 0 0 6 0;
! #X connect 1 0 3 0;
! #X connect 2 0 1 0;
! #X connect 4 0 2 1;
! #X connect 5 0 3 2;
! #X connect 6 0 7 0;
! #X connect 7 0 2 0;
! #X connect 7 1 3 1;
  #X restore 52 656 pd linkrender;
  #X obj 52 278 gemhead;
  #X obj 460 458 gemwin;
***************
*** 137,142 ****
  #X msg 300 425 forceX mob -100;
  #X obj 441 55 f;
- #X obj 380 109 repeat 100;
- #X obj 592 105 repeat 100;
  #X obj 91 421 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
  ;
--- 59,62 ----
***************
*** 146,151 ****
  #X text 501 41 (and reset afterwards);
  #X obj 441 34 nbx 5 14 1 20000 1 1 empty empty empty 0 -6 0 10 -262144
! -1 -1 500 256;
! #X text 90 393 instead of GEM doing the timing;
  #X connect 0 0 7 0;
  #X connect 1 0 6 0;
--- 66,193 ----
  #X text 501 41 (and reset afterwards);
  #X obj 441 34 nbx 5 14 1 20000 1 1 empty empty empty 0 -6 0 10 -262144
! -1 -1 381.385 256;
! #X text 76 390 instead of GEM doing the timing;
! #X msg 221 104 mass fix 0 100 0 0;
! #N canvas 731 296 450 300 gemmouse 0;
! #X obj 189 77 gemmouse;
! #X obj 189 184 pack f f;
! #X obj 189 218 spigot;
! #X obj 109 243 outlet;
! #X obj 109 36 inlet;
! #X obj 109 98 t b;
! #X obj 238 131 + 4;
! #X obj 109 125 l 0 0;
! #X msg 57 182 posX fix $1;
! #X msg 57 203 posY fix $2;
! #X obj 189 108 / 62.5;
! #X obj 237 107 / -62.5;
! #X obj 189 131 - 4;
! #X connect 0 0 10 0;
! #X connect 0 1 11 0;
! #X connect 0 2 2 1;
! #X connect 1 0 2 0;
! #X connect 2 0 7 1;
! #X connect 4 0 5 0;
! #X connect 5 0 7 0;
! #X connect 6 0 1 1;
! #X connect 7 0 8 0;
! #X connect 7 0 9 0;
! #X connect 8 0 3 0;
! #X connect 9 0 3 0;
! #X connect 10 0 12 0;
! #X connect 11 0 6 0;
! #X connect 12 0 1 0;
! #X restore 372 536 pd gemmouse;
! #X obj 372 515 gemhead;
! #N canvas 0 0 450 300 links 0;
! #X obj 136 72 t b;
! #X obj 136 116 + 1;
! #X obj 130 191 f;
! #X obj 92 171 t f b;
! #X obj 91 211 pack f f;
! #X msg 91 233 link souple $1 $2 10 0.5;
! #X obj 136 23 inlet;
! #X obj 91 260 outlet;
! #X obj 136 48 until;
! #X obj 202 112 sel 0;
! #X obj 184 154 mod 29;
! #X obj 136 93 f 0;
! #X obj 311 32 inlet;
! #X connect 0 0 11 0;
! #X connect 1 0 10 0;
! #X connect 1 0 2 1;
! #X connect 2 0 4 1;
! #X connect 3 0 4 0;
! #X connect 3 1 2 0;
! #X connect 4 0 5 0;
! #X connect 5 0 7 0;
! #X connect 6 0 8 0;
! #X connect 8 0 0 0;
! #X connect 9 0 8 1;
! #X connect 10 0 9 0;
! #X connect 10 0 11 1;
! #X connect 11 0 1 0;
! #X connect 11 0 3 0;
! #X connect 12 0 10 1;
! #X restore 167 194 pd links;
! #N canvas 557 309 487 357 masses 0;
! #X msg 211 239 mass mob 1 $1 $2 $3;
! #X msg 417 145 seed 1;
! #X msg 342 144 seed 2;
! #X msg 239 126 seed 3;
! #X obj 211 218 pack f f f;
! #X obj 42 14 inlet;
! #X obj 212 307 outlet;
! #X obj 268 47 loadbang;
! #X text 284 101 M;
! #X text 356 106 X;
! #X text 437 106 Y;
! #X obj 223 68 t b b;
! #X obj 42 45 until;
! #X obj 42 78 f;
! #X obj 72 78 + 1;
! #X obj 72 100 mod 30;
! #X obj 90 45 sel 0;
! #X obj 164 15 inlet;
! #X obj 342 165 random 800;
! #X obj 418 165 random 800;
! #X obj 239 146 random 800;
! #X obj 342 186 / 100;
! #X obj 339 206 - 4;
! #X obj 407 193 / 100;
! #X obj 404 213 - 4;
! #X obj 239 166 + 800;
! #X obj 235 186 / 8;
! #X connect 0 0 6 0;
! #X connect 1 0 19 0;
! #X connect 2 0 18 0;
! #X connect 3 0 20 0;
! #X connect 4 0 0 0;
! #X connect 5 0 12 0;
! #X connect 7 0 3 0;
! #X connect 7 0 2 0;
! #X connect 7 0 1 0;
! #X connect 11 0 20 0;
! #X connect 11 1 18 0;
! #X connect 11 1 19 0;
! #X connect 12 0 13 0;
! #X connect 13 0 14 0;
! #X connect 13 0 11 0;
! #X connect 14 0 15 0;
! #X connect 15 0 13 1;
! #X connect 15 0 16 0;
! #X connect 16 0 12 1;
! #X connect 17 0 15 1;
! #X connect 18 0 21 0;
! #X connect 19 0 23 0;
! #X connect 20 0 25 0;
! #X connect 21 0 22 0;
! #X connect 22 0 4 1;
! #X connect 23 0 24 0;
! #X connect 24 0 4 2;
! #X connect 25 0 26 0;
! #X connect 26 0 4 0;
! #X restore 203 129 pd masses;
! #X msg 185 155 Xmax 4 , Xmin -4 , Ymax 4 , Ymin -4;
  #X connect 0 0 7 0;
  #X connect 1 0 6 0;
***************
*** 153,217 ****
  #X connect 3 0 6 0;
  #X connect 5 0 7 0;
! #X connect 6 0 51 0;
! #X connect 6 1 18 0;
! #X connect 6 1 19 0;
! #X connect 6 2 50 0;
! #X connect 6 3 11 0;
  #X connect 6 4 2 0;
! #X connect 6 4 38 0;
! #X connect 6 4 30 0;
! #X connect 6 4 26 0;
! #X connect 6 4 29 0;
! #X connect 7 0 46 0;
! #X connect 8 0 44 0;
  #X connect 9 0 10 0;
! #X connect 11 0 0 0;
! #X connect 12 0 14 1;
! #X connect 13 0 15 0;
! #X connect 14 0 16 0;
! #X connect 14 0 17 0;
! #X connect 15 0 14 0;
! #X connect 16 0 7 0;
  #X connect 17 0 7 0;
  #X connect 18 0 14 0;
! #X connect 19 0 0 0;
! #X connect 20 0 44 0;
! #X connect 21 0 45 0;
! #X connect 24 0 0 0;
! #X connect 25 0 32 2;
! #X connect 26 0 25 0;
! #X connect 27 0 32 1;
! #X connect 28 0 31 0;
! #X connect 29 0 27 0;
! #X connect 30 0 28 0;
! #X connect 31 0 32 0;
! #X connect 32 0 24 0;
! #X connect 33 0 39 0;
! #X connect 34 0 36 0;
! #X connect 34 0 37 0;
! #X connect 34 0 39 1;
! #X connect 35 0 40 1;
! #X connect 36 0 35 1;
! #X connect 37 0 40 0;
! #X connect 37 1 35 0;
! #X connect 38 0 39 1;
! #X connect 39 0 34 0;
! #X connect 40 0 42 0;
! #X connect 41 0 28 0;
! #X connect 41 1 27 0;
! #X connect 41 2 25 0;
! #X connect 42 0 0 0;
! #X connect 43 0 21 0;
! #X connect 45 0 7 0;
! #X connect 46 0 23 0;
! #X connect 46 1 22 0;
! #X connect 47 0 44 0;
! #X connect 48 0 7 0;
! #X connect 49 0 50 1;
! #X connect 49 0 51 1;
! #X connect 50 0 41 0;
! #X connect 51 0 33 0;
! #X connect 52 0 53 0;
! #X connect 53 0 7 0;
! #X connect 54 0 53 1;
! #X connect 57 0 49 0;
--- 195,224 ----
  #X connect 3 0 6 0;
  #X connect 5 0 7 0;
! #X connect 6 0 32 0;
! #X connect 6 1 34 0;
! #X connect 6 2 33 0;
! #X connect 6 3 29 0;
  #X connect 6 4 2 0;
! #X connect 7 0 18 0;
! #X connect 8 0 16 0;
  #X connect 9 0 10 0;
! #X connect 11 0 16 0;
! #X connect 12 0 17 0;
! #X connect 15 0 12 0;
  #X connect 17 0 7 0;
  #X connect 18 0 14 0;
! #X connect 18 1 13 0;
! #X connect 19 0 16 0;
! #X connect 20 0 7 0;
! #X connect 21 0 32 1;
! #X connect 21 0 33 1;
! #X connect 22 0 23 0;
! #X connect 23 0 7 0;
! #X connect 24 0 23 1;
! #X connect 27 0 21 0;
! #X connect 29 0 0 0;
! #X connect 30 0 7 0;
! #X connect 31 0 30 0;
! #X connect 32 0 0 0;
! #X connect 33 0 0 0;
! #X connect 34 0 0 0;
Index: 05_msd2DDataStruct.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd2D/05_msd2DDataStruct.pd,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** 05_msd2DDataStruct.pd	29 Apr 2005 10:04:10 -0000	1.1
--- 05_msd2DDataStruct.pd	17 May 2005 15:37:43 -0000	1.2
***************
*** 18,22 ****
  #X msg 171 146 mass mob 1 100 $1 $2;
  #X msg 186 317 forceY mob 8;
- #X msg 135 252 link souple $1 $2 10 2.5 1.5;
  #X msg 171 113 100 300 , 150 300 , 100 230 , 150 230 , 100 180
  , 150 180 , 50 180 , 200 180 , 115 180 , 135 180 , 110 150 ,
--- 18,21 ----
***************
*** 25,74 ****
  , 4 5 , 5 3 , 3 4 , 2 5 , 4 6 , 5 7 , 6 5 , 4 7 , 4 8 , 5
  9 , 8 9 , 8 10 , 10 11 , 11 9 , 9 10 , 8 11;
- #X msg 211 443 forceY mob -500;
- #X msg 211 466 forceY mob 500;
- #X msg 86 441 forceX mob 500;
- #X msg 86 464 forceX mob -500;
  #X obj 53 217 metro 10;
- #X msg 52 571 forceY 6 -500 , forceY 7 -500;
- #X msg 52 540 forceX 0 -500 , forceX 1 500;
- #X msg 52 609 forceY 0 -500 , forceY 1 -500 , forceX 0 -500 , forceX
- 1 500;
  #N canvas 0 0 307 306 1000-anim 0;
! #X scalar liaison 181.293 300 243.137 187.054 0 0 0 ;;
! #X scalar liaison 252.758 300 192.826 235.497 0 0 0 ;;
! #X scalar liaison 252.758 300 190.913 187.054 0 0 0 ;;
! #X scalar liaison 192.826 235.497 241.225 235.497 0 0 0 ;;
! #X scalar liaison 241.225 235.497 181.293 300 0 0 0 ;;
! #X scalar liaison 181.293 300 192.826 235.497 0 0 0 ;;
! #X scalar liaison 252.758 300 241.225 235.497 0 0 0 ;;
! #X scalar liaison 192.826 235.497 190.913 187.054 0 0 0 ;;
! #X scalar liaison 190.913 187.054 243.137 187.054 0 0 0 ;;
! #X scalar liaison 243.137 187.054 241.225 235.497 0 0 0 ;;
! #X scalar liaison 241.225 235.497 190.913 187.054 0 0 0 ;;
! #X scalar liaison 192.826 235.497 243.137 187.054 0 0 0 ;;
! #X scalar liaison 190.913 187.054 150.806 220.479 0 0 0 ;;
! #X scalar liaison 243.137 187.054 283.244 220.479 0 0 0 ;;
! #X scalar liaison 150.806 220.479 243.137 187.054 0 0 0 ;;
! #X scalar liaison 190.913 187.054 283.244 220.479 0 0 0 ;;
! #X scalar liaison 190.913 187.054 205.914 196.864 0 0 0 ;;
! #X scalar liaison 243.137 187.054 228.137 196.864 0 0 0 ;;
! #X scalar liaison 205.914 196.864 228.137 196.864 0 0 0 ;;
! #X scalar liaison 205.914 196.864 202.014 167.631 0 0 0 ;;
! #X scalar liaison 202.014 167.631 232.035 167.63 0 0 0 ;;
! #X scalar liaison 232.035 167.63 228.137 196.864 0 0 0 ;;
! #X scalar liaison 228.137 196.864 202.014 167.631 0 0 0 ;;
! #X scalar liaison 205.914 196.864 232.035 167.63 0 0 0 ;;
! #X scalar mass 181.293 300 0 0 ;;
! #X scalar mass 252.758 300 1 0 ;;
! #X scalar mass 192.826 235.497 2 0 ;;
! #X scalar mass 241.225 235.497 3 0 ;;
! #X scalar mass 190.913 187.054 4 0 ;;
! #X scalar mass 243.137 187.054 5 0 ;;
! #X scalar mass 150.806 220.479 6 0 ;;
! #X scalar mass 283.244 220.479 7 0 ;;
! #X scalar mass 205.914 196.864 8 0 ;;
! #X scalar mass 228.137 196.864 9 0 ;;
! #X scalar mass 202.014 167.631 10 0 ;;
! #X scalar mass 232.035 167.63 11 0 ;;
  #X coords 0 0 300 300 300 300 1;
  #X restore 466 370 pd $0-anim;
--- 24,65 ----
  , 4 5 , 5 3 , 3 4 , 2 5 , 4 6 , 5 7 , 6 5 , 4 7 , 4 8 , 5
  9 , 8 9 , 8 10 , 10 11 , 11 9 , 9 10 , 8 11;
  #X obj 53 217 metro 10;
  #N canvas 0 0 307 306 1000-anim 0;
! #X scalar liaison 127.938 300 187.405 185.614 0 0 0 ;;
! #X scalar liaison 135.515 184.954 150.735 193.676 0 0 0 ;;
! #X scalar liaison 135.515 184.954 187.405 185.614 0 0 0 ;;
! #X scalar liaison 185.431 234.14 127.938 300 0 0 0 ;;
! #X scalar liaison 149.143 163.975 179.054 166.366 0 0 0 ;;
! #X scalar liaison 135.515 184.954 93.8641 216.012 0 0 0 ;;
! #X scalar liaison 193.606 300 135.515 184.954 0 0 0 ;;
! #X scalar liaison 150.735 193.676 172.65 195.175 0 0 0 ;;
! #X scalar liaison 185.431 234.14 135.515 184.954 0 0 0 ;;
! #X scalar liaison 193.606 300 185.431 234.14 0 0 0 ;;
! #X scalar liaison 172.65 195.175 149.143 163.975 0 0 0 ;;
! #X scalar liaison 93.8641 216.012 187.405 185.614 0 0 0 ;;
! #X scalar liaison 193.606 300 136.415 233.819 0 0 0 ;;
! #X scalar liaison 187.405 185.614 172.65 195.175 0 0 0 ;;
! #X scalar liaison 187.405 185.614 185.431 234.14 0 0 0 ;;
! #X scalar liaison 127.938 300 136.415 233.819 0 0 0 ;;
! #X scalar liaison 179.054 166.366 172.65 195.175 0 0 0 ;;
! #X scalar liaison 187.405 185.614 228.226 217.782 0 0 0 ;;
! #X scalar liaison 136.415 233.819 185.431 234.14 0 0 0 ;;
! #X scalar liaison 150.735 193.676 149.143 163.975 0 0 0 ;;
! #X scalar liaison 136.415 233.819 187.405 185.614 0 0 0 ;;
! #X scalar liaison 136.415 233.819 135.515 184.954 0 0 0 ;;
! #X scalar liaison 150.735 193.676 179.054 166.366 0 0 0 ;;
! #X scalar liaison 135.515 184.954 228.226 217.782 0 0 0 ;;
! #X scalar mass 127.938 300 0 0 ;;
! #X scalar mass 150.735 193.676 8 0 ;;
! #X scalar mass 135.515 184.954 4 0 ;;
! #X scalar mass 136.415 233.819 2 0 ;;
! #X scalar mass 149.143 163.975 10 0 ;;
! #X scalar mass 93.8641 216.012 6 0 ;;
! #X scalar mass 193.606 300 1 0 ;;
! #X scalar mass 172.65 195.175 9 0 ;;
! #X scalar mass 187.405 185.614 5 0 ;;
! #X scalar mass 185.431 234.14 3 0 ;;
! #X scalar mass 179.054 166.366 11 0 ;;
! #X scalar mass 228.226 217.782 7 0 ;;
  #X coords 0 0 300 300 300 300 1;
  #X restore 466 370 pd $0-anim;
***************
*** 79,107 ****
  state;
  #X text 95 417 4 - "force" the dancer to move;
  #X connect 0 0 6 0;
! #X connect 1 0 24 0;
! #X connect 1 1 24 0;
  #X connect 2 0 1 0;
  #X connect 3 0 6 0;
  #X connect 4 0 2 0;
! #X connect 6 0 14 0;
  #X connect 6 1 9 0;
! #X connect 6 2 13 0;
  #X connect 6 4 4 0;
! #X connect 8 0 19 0;
  #X connect 9 0 2 0;
  #X connect 10 0 2 0;
  #X connect 11 0 1 0;
! #X connect 12 0 2 0;
! #X connect 13 0 10 0;
! #X connect 14 0 12 0;
! #X connect 15 0 1 0;
  #X connect 16 0 1 0;
! #X connect 17 0 1 0;
! #X connect 18 0 1 0;
! #X connect 19 0 1 0;
! #X connect 19 0 11 0;
! #X connect 20 0 1 0;
! #X connect 21 0 1 0;
  #X connect 22 0 1 0;
  #X connect 24 0 1 0;
--- 70,107 ----
  state;
  #X text 95 417 4 - "force" the dancer to move;
+ #X msg 135 252 link souple $1 $2 12 20;
+ #X msg 211 443 forceY mob -200;
+ #X msg 212 466 forceY mob 200;
+ #X msg 86 441 forceX mob 200;
+ #X msg 86 464 forceX mob -200;
+ #X msg 52 540 forceX 0 -200 , forceX 1 200;
+ #X msg 52 609 forceY 0 -200 , forceY 1 -200 , forceX 0 -200 , forceX
+ 1 200;
+ #X msg 52 571 forceY 6 -200 , forceY 7 -200;
  #X connect 0 0 6 0;
! #X connect 1 0 16 0;
! #X connect 1 1 16 0;
  #X connect 2 0 1 0;
  #X connect 3 0 6 0;
  #X connect 4 0 2 0;
! #X connect 6 0 13 0;
  #X connect 6 1 9 0;
! #X connect 6 2 12 0;
  #X connect 6 4 4 0;
! #X connect 8 0 14 0;
  #X connect 9 0 2 0;
  #X connect 10 0 2 0;
  #X connect 11 0 1 0;
! #X connect 12 0 10 0;
! #X connect 13 0 21 0;
! #X connect 14 0 1 0;
! #X connect 14 0 11 0;
  #X connect 16 0 1 0;
! #X connect 21 0 2 0;
  #X connect 22 0 1 0;
+ #X connect 23 0 1 0;
  #X connect 24 0 1 0;
+ #X connect 25 0 1 0;
+ #X connect 26 0 1 0;
+ #X connect 27 0 1 0;
+ #X connect 28 0 1 0;
Index: 02_msd2Dadd.pd
===================================================================
RCS file: /cvsroot/pure-data/externals/nusmuk/msd2D/02_msd2Dadd.pd,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** 02_msd2Dadd.pd	4 May 2005 16:12:10 -0000	1.6
--- 02_msd2Dadd.pd	17 May 2005 15:37:43 -0000	1.7
***************
*** 1,14 ****
  #N canvas 534 65 716 776 10;
! #X obj 129 376 t a;
  #X obj 137 39 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
  -1;
! #X msg 209 84 reset;
  #X obj 52 15 loadbang;
! #X obj 137 62 t b b b b b;
! #X obj 313 605 print msd;
! #X obj 52 583 msd2D --------------------------------;
! #X msg 511 526 0 , destroy;
! #X obj 481 320 gemhead;
! #X obj 481 343 world_light;
  #N canvas 177 95 946 729 synthese 0;
  #X obj 267 9 inlet;
--- 1,13 ----
  #N canvas 534 65 716 776 10;
! #X obj 137 211 t a;
  #X obj 137 39 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
  -1;
! #X msg 195 86 reset;
  #X obj 52 15 loadbang;
! #X obj 313 571 print msd;
! #X obj 52 549 msd2D --------------------------------;
! #X msg 448 219 0 , destroy;
! #X obj 539 576 gemhead;
! #X obj 539 599 world_light;
  #N canvas 177 95 946 729 synthese 0;
  #X obj 267 9 inlet;
***************
*** 219,265 ****
  #X connect 92 0 61 0;
  #X connect 93 0 64 0;
! #X restore 230 679 pd synthese;
! #X obj 10 698 gemhead;
! #X msg 155 258 Xmax 100 , Xmin 0 , Ymax 100 , Ymin 0;
! #X msg 511 503 reset , create , lighting 1 , 1;
  #X obj 52 399 t b;
! #N canvas 643 123 605 590 massrender 1;
  #X obj 127 22 inlet;
  #X obj 62 267 translateXYZ;
! #X obj 141 87 / 12.5;
! #X obj 141 110 - 4;
! #X obj 206 88 / 12.5;
! #X obj 206 111 - 4;
  #X obj 78 115 gemhead;
  #X obj 62 241 separator;
  #X obj 62 181 any;
  #X obj 127 57 unpack f f f;
! #X obj 212 182 f;
! #X msg 212 241 $1;
! #X obj 141 137 t b b f;
  #X obj 62 314 sphere 0.1;
  #X obj 62 219 colorRGB 1 1 1;
! #X obj 212 221 / 29;
  #X connect 0 0 9 0;
! #X connect 1 0 13 0;
  #X connect 2 0 3 0;
! #X connect 3 0 12 0;
  #X connect 4 0 5 0;
  #X connect 5 0 1 2;
  #X connect 6 0 8 1;
  #X connect 7 0 1 0;
! #X connect 8 0 14 0;
! #X connect 9 0 10 1;
  #X connect 9 1 2 0;
  #X connect 9 2 4 0;
! #X connect 10 0 15 0;
! #X connect 11 0 14 2;
! #X connect 11 0 14 3;
! #X connect 12 1 8 0;
! #X connect 12 1 10 0;
! #X connect 12 2 1 1;
! #X connect 14 0 7 0;
! #X connect 15 0 11 0;
! #X restore 141 657 pd massrender;
  #N canvas 284 227 587 558 linkrender 0;
  #X obj 93 25 inlet;
--- 218,261 ----
  #X connect 92 0 61 0;
  #X connect 93 0 64 0;
! #X restore 230 645 pd synthese;
! #X obj 374 461 gemhead;
! #X msg 156 145 Xmax 100 , Xmin 0 , Ymax 100 , Ymin 0;
! #X msg 448 196 reset , create , lighting 1 , 1;
  #X obj 52 399 t b;
! #N canvas 643 123 605 590 massrender 0;
  #X obj 127 22 inlet;
  #X obj 62 267 translateXYZ;
! #X obj 166 123 / 12.5;
! #X obj 166 146 - 4;
! #X obj 231 124 / 12.5;
! #X obj 231 147 - 4;
  #X obj 78 115 gemhead;
  #X obj 62 241 separator;
  #X obj 62 181 any;
  #X obj 127 57 unpack f f f;
! #X msg 128 194 $1;
  #X obj 62 314 sphere 0.1;
  #X obj 62 219 colorRGB 1 1 1;
! #X obj 128 174 / 29;
! #X obj 127 85 t b f;
  #X connect 0 0 9 0;
! #X connect 1 0 11 0;
  #X connect 2 0 3 0;
! #X connect 3 0 1 1;
  #X connect 4 0 5 0;
  #X connect 5 0 1 2;
  #X connect 6 0 8 1;
  #X connect 7 0 1 0;
! #X connect 8 0 12 0;
! #X connect 9 0 14 0;
  #X connect 9 1 2 0;
  #X connect 9 2 4 0;
! #X connect 10 0 12 2;
! #X connect 10 0 12 3;
! #X connect 12 0 7 0;
! #X connect 13 0 10 0;
! #X connect 14 0 8 0;
! #X connect 14 1 13 0;
! #X restore 141 623 pd massrender;
  #N canvas 284 227 587 558 linkrender 0;
  #X obj 93 25 inlet;
***************
*** 306,336 ****
  #X connect 18 4 12 0;
  #X connect 19 0 9 0;
! #X restore 52 678 pd linkrender;
! #X msg 221 231 mass mob 1 $1 $2 $3;
! #X obj 393 181 random 100;
! #X msg 393 161 seed 1;
! #X obj 318 181 random 100;
! #X obj 241 163 random 100;
! #X msg 318 160 seed 2;
! #X msg 241 143 seed 3;
! #X obj 241 183 + 100;
! #X obj 221 210 pack f f f;
! #X obj 79 208 t b;
! #X obj 79 252 + 1;
! #X obj 121 290 f;
! #X obj 121 270 + 1;
! #X obj 79 273 t f b;
! #X msg 112 229 -1;
! #X obj 79 229 f -1;
! #X obj 70 317 pack f f;
! #X obj 173 148 t b b b;
! #X obj 52 358 gemhead;
! #X obj 511 547 gemwin;
  #X text 175 41 Reset;
! #X text 484 171 Random positions and masses;
! #X text 367 502 1 Create window -->;
! #X text 225 498 Add force;
! #X msg 522 585 ; pd dsp 1;
! #X text 396 591 2 SET DSP ON -->;
  #N canvas 311 224 409 530 gemmouse2 0;
  #X obj 114 29 gemmouse;
--- 302,314 ----
  #X connect 18 4 12 0;
  #X connect 19 0 9 0;
! #X restore 52 644 pd linkrender;
! #X obj 52 359 gemhead;
! #X obj 448 240 gemwin;
  #X text 175 41 Reset;
! #X text 281 106 Random positions and masses;
! #X text 304 195 1 Create window -->;
! #X text 225 464 Add force;
! #X msg 446 268 ; pd dsp 1;
! #X text 320 274 2 SET DSP ON -->;
  #N canvas 311 224 409 530 gemmouse2 0;
  #X obj 114 29 gemmouse;
***************
*** 355,424 ****
  #X connect 8 0 9 0;
  #X connect 9 0 1 0;
! #X restore 10 720 pd gemmouse2;
! #X msg 10 762 grabMass $1 $2 $3;
! #X obj 173 126 repeat 30;
! #X obj 79 187 repeat 29;
! #X msg 129 348 link souple $1 $2 10 0.5 0.5;
! #X text 130 713 Move red masses for bass and white ones for high tones...
! !Index errors;
! #X obj 52 628 route linksPos massesPos massesSpeedsNo;
  #X msg 52 420 bang , get massesPos , get linksPos , get massesSpeeds
  1 5 9 13 17 21 25 29;
! #X obj 334 684 print;
! #X msg 95 518 forceX mob -1000;
! #X msg 94 492 forceX mob 1000;
! #X connect 0 0 6 0;
! #X connect 1 0 4 0;
! #X connect 2 0 0 0;
  #X connect 3 0 4 0;
! #X connect 4 0 46 0;
! #X connect 4 1 12 0;
! #X connect 4 2 45 0;
! #X connect 4 4 2 0;
! #X connect 4 4 31 0;
! #X connect 4 4 23 0;
! #X connect 4 4 19 0;
! #X connect 4 4 22 0;
! #X connect 6 0 49 0;
! #X connect 6 1 5 0;
! #X connect 7 0 36 0;
! #X connect 8 0 9 0;
! #X connect 11 0 43 0;
! #X connect 12 0 0 0;
! #X connect 13 0 36 0;
! #X connect 14 0 50 0;
! #X connect 17 0 0 0;
! #X connect 18 0 25 2;
! #X connect 19 0 18 0;
! #X connect 20 0 25 1;
! #X connect 21 0 24 0;
! #X connect 22 0 20 0;
! #X connect 23 0 21 0;
  #X connect 24 0 25 0;
! #X connect 25 0 17 0;
! #X connect 26 0 32 0;
! #X connect 27 0 29 0;
! #X connect 27 0 30 0;
! #X connect 27 0 32 1;
! #X connect 28 0 33 1;
! #X connect 29 0 28 1;
! #X connect 30 0 33 0;
! #X connect 30 1 28 0;
! #X connect 31 0 32 1;
! #X connect 32 0 27 0;
! #X connect 33 0 47 0;
! #X connect 34 0 21 0;
! #X connect 34 1 20 0;
! #X connect 34 2 18 0;
! #X connect 35 0 14 0;
! #X connect 43 0 44 0;
! #X connect 44 0 6 0;
! #X connect 45 0 34 0;
! #X connect 46 0 26 0;
! #X connect 47 0 0 0;
! #X connect 49 0 16 0;
! #X connect 49 1 15 0;
! #X connect 49 2 10 0;
! #X connect 50 0 6 0;
! #X connect 52 0 6 0;
! #X connect 53 0 6 0;
--- 333,448 ----
  #X connect 8 0 9 0;
  #X connect 9 0 1 0;
! #X restore 374 483 pd gemmouse2;
! #X msg 374 506 grabMass $1 $2 $3;
! #X obj 52 594 route linksPos massesPos massesSpeedsNo;
  #X msg 52 420 bang , get massesPos , get linksPos , get massesSpeeds
  1 5 9 13 17 21 25 29;
! #X obj 334 650 print;
! #X msg 95 484 forceX mob -1000;
! #X msg 94 458 forceX mob 1000;
! #X text 130 679 Move red masses for bass and white ones for high tones...
! ;
! #N canvas 557 309 487 357 masses 0;
! #X msg 245 215 mass mob 1 $1 $2 $3;
! #X obj 417 165 random 100;
! #X msg 417 145 seed 1;
! #X obj 342 165 random 100;
! #X obj 239 146 random 100;
! #X msg 342 144 seed 2;
! #X msg 239 126 seed 3;
! #X obj 239 166 + 100;
! #X obj 245 194 pack f f f;
! #X obj 42 14 inlet;
! #X obj 246 283 outlet;
! #X obj 268 47 loadbang;
! #X text 284 101 M;
! #X text 356 106 X;
! #X text 437 106 Y;
! #X obj 223 68 t b b;
! #X obj 42 45 until;
! #X obj 42 78 f;
! #X obj 72 78 + 1;
! #X obj 72 100 mod 30;
! #X obj 90 45 sel 0;
! #X connect 0 0 10 0;
! #X connect 1 0 8 2;
! #X connect 2 0 1 0;
! #X connect 3 0 8 1;
! #X connect 4 0 7 0;
! #X connect 5 0 3 0;
! #X connect 6 0 4 0;
! #X connect 7 0 8 0;
! #X connect 8 0 0 0;
! #X connect 9 0 16 0;
! #X connect 11 0 6 0;
! #X connect 11 0 5 0;
! #X connect 11 0 2 0;
! #X connect 15 0 4 0;
! #X connect 15 1 3 0;
! #X connect 15 1 1 0;
! #X connect 16 0 17 0;
! #X connect 17 0 18 0;
! #X connect 17 0 15 0;
! #X connect 18 0 19 0;
! #X connect 19 0 17 1;
! #X connect 19 0 20 0;
! #X connect 20 0 16 1;
! #X restore 175 113 pd masses;
! #N canvas 0 0 450 300 links 0;
! #X obj 136 72 t b;
! #X obj 136 116 + 1;
! #X obj 130 191 f;
! #X obj 92 171 t f b;
! #X obj 91 211 pack f f;
! #X msg 91 233 link souple $1 $2 10 0.5;
! #X obj 136 23 inlet;
! #X obj 91 260 outlet;
! #X obj 136 48 until;
! #X obj 202 112 sel 0;
! #X obj 184 154 mod 29;
! #X obj 136 93 f 0;
! #X connect 0 0 11 0;
! #X connect 1 0 10 0;
! #X connect 1 0 2 1;
! #X connect 2 0 4 1;
  #X connect 3 0 4 0;
! #X connect 3 1 2 0;
! #X connect 4 0 5 0;
! #X connect 5 0 7 0;
! #X connect 6 0 8 0;
! #X connect 8 0 0 0;
! #X connect 9 0 8 1;
! #X connect 10 0 9 0;
! #X connect 10 0 11 1;
! #X connect 11 0 1 0;
! #X connect 11 0 3 0;
! #X restore 137 176 pd links;
! #X obj 137 62 t b b b b;
! #X text 491 431 Get a few masses speeds;
! #X connect 0 0 5 0;
! #X connect 1 0 34 0;
! #X connect 2 0 0 0;
! #X connect 3 0 34 0;
! #X connect 5 0 26 0;
! #X connect 5 1 4 0;
! #X connect 6 0 17 0;
! #X connect 7 0 8 0;
! #X connect 10 0 24 0;
! #X connect 11 0 0 0;
! #X connect 12 0 17 0;
! #X connect 13 0 27 0;
! #X connect 16 0 13 0;
  #X connect 24 0 25 0;
! #X connect 25 0 5 0;
! #X connect 26 0 15 0;
! #X connect 26 1 14 0;
! #X connect 26 2 9 0;
! #X connect 27 0 5 0;
! #X connect 29 0 5 0;
! #X connect 30 0 5 0;
! #X connect 32 0 0 0;
! #X connect 33 0 0 0;
! #X connect 34 0 33 0;
! #X connect 34 1 11 0;
! #X connect 34 2 32 0;
! #X connect 34 3 2 0;
--- NEW FILE: 06_msd2Dgravit.pd ---
#N canvas 388 82 843 799 10;
#X obj 167 310 t a;
#X obj 167 32 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 239 84 reset;
#X obj 52 15 loadbang;
#X text 205 33 reset;
#X obj 167 55 t b b b b b;
#X obj 52 572 msd2D --------------------------------;
#X msg 460 409 0 , destroy;
#X obj 458 500 gemhead;
#X obj 458 553 world_light;
#X obj 52 301 t b;
#N canvas 637 205 605 590 massrender 0;
#X obj 124 5 inlet;
#X obj 291 245 translateXYZ;
#X obj 307 156 gemhead;
#X obj 291 219 separator;
#X obj 291 195 any;
#X obj 292 63 unpack f f f;
#X obj 57 257 translateXYZ;
#X obj 73 168 gemhead;
#X obj 57 231 separator;
#X obj 57 207 any;
#X obj 123 31 route 0 1;
#X obj 296 118 t b;
#X obj 64 71 unpack f f;
#X obj 50 116 t b f;
#X obj 168 262 translateXYZ;
#X obj 184 173 gemhead;
#X obj 168 236 separator;
#X obj 168 212 any;
#X obj 175 76 unpack f f;
#X obj 161 121 t b f;
#X obj 169 290 color 1 0 0;
#X obj 292 291 color 1 1 1;
#X obj 57 315 sphere 0.3 20;
#X obj 292 319 square 0.015;
#X obj 168 320 square 0.04;
#X text 61 351 Sun;
#X text 169 355 Red particule;
#X text 307 355 Particule;
#X connect 0 0 10 0;
#X connect 1 0 21 0;
#X connect 2 0 4 1;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 11 0;
#X connect 5 1 1 1;
#X connect 5 2 1 2;
#X connect 6 0 22 0;
#X connect 7 0 9 1;
#X connect 8 0 6 0;
#X connect 9 0 8 0;
#X connect 10 0 12 0;
#X connect 10 1 18 0;
#X connect 10 2 5 0;
#X connect 11 0 4 0;
#X connect 12 0 13 0;
#X connect 12 1 6 2;
#X connect 13 0 9 0;
#X connect 13 1 6 1;
#X connect 14 0 20 0;
#X connect 15 0 17 1;
#X connect 16 0 14 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 18 1 14 2;
#X connect 19 0 17 0;
#X connect 19 1 14 1;
#X connect 20 0 24 0;
#X connect 21 0 23 0;
#X restore 52 648 pd massrender;
#X obj 52 278 gemhead;
#X obj 460 458 gemwin;
#X msg 460 433 view 0 0 4 0 0 0 0 1 0;
#X text 501 28 change number of mass to test performance;
#X text 501 41 (and reset afterwards);
#X obj 441 34 nbx 5 14 1 20000 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 2291.81 256;
#X msg 170 245 Xmax 4 , Xmin -4 , Ymax 4 , Ymin -4;
#X msg 119 203 setL sun 0;
#X msg 221 107 mass fix 0 100 0 0;
#X obj 458 527 rotateXYZ 30 20 0;
#X msg 167 178 forceX mob 5;
#X text 409 258 0.2 : rigidity , 0 : damping , -2 : power , 0.4
: Lmin;
#X msg 460 386 reset , dimen 800 800 , create , lighting 1 , 1
;
#X msg 52 335 bang , bang , get massesPos , get massesSpeeds;
#X obj 52 611 route massesPos massesSpeeds;
#N canvas 177 95 946 729 synthese 0;
#X obj 366 35 inlet;
#X msg 142 257 $1 50;
#X obj 142 279 line~;
#X obj 102 283 *~;
#X msg 239 256 $1 50;
#X obj 239 278 line~;
#X obj 199 282 *~;
#X msg 332 258 $1 50;
#X obj 332 280 line~;
#X obj 292 284 *~;
#X msg 424 256 $1 50;
#X obj 424 278 line~;
#X obj 384 282 *~;
#X obj 241 330 dac~;
#X msg 525 259 $1 50;
#X obj 525 281 line~;
#X obj 485 285 *~;
#X msg 620 259 $1 50;
#X obj 620 281 line~;
#X obj 580 285 *~;
#X msg 713 261 $1 50;
#X obj 713 283 line~;
#X obj 673 287 *~;
#X msg 805 259 $1 50;
#X obj 805 281 line~;
#X obj 765 285 *~;
#X obj 622 333 dac~;
#X obj 100 227 osc~ 55;
#X obj 198 226 osc~ 110;
#X obj 383 227 osc~ 222;
#X obj 113 172 unpack f f;
#X obj 332 177 unpack f f;
#X obj 525 175 unpack f f;
#X obj 714 177 unpack f f;
#X msg 132 461 $1 50;
#X obj 132 483 line~;
#X obj 92 487 *~;
#X msg 229 460 $1 50;
#X obj 229 482 line~;
#X obj 189 486 *~;
#X msg 322 462 $1 50;
#X obj 322 484 line~;
#X obj 282 488 *~;
#X msg 414 460 $1 50;
#X obj 414 482 line~;
#X obj 374 486 *~;
#X obj 231 534 dac~;
#X msg 515 463 $1 50;
#X obj 515 485 line~;
#X obj 475 489 *~;
#X msg 610 463 $1 50;
#X obj 610 485 line~;
#X obj 570 489 *~;
#X msg 703 465 $1 50;
#X obj 703 487 line~;
#X obj 663 491 *~;
#X msg 795 463 $1 50;
#X obj 795 485 line~;
#X obj 755 489 *~;
#X obj 612 537 dac~;
#X obj 662 435 osc~ 1113;
#X obj 754 433 osc~ 2229;
#X obj 103 369 unpack f f;
#X obj 322 376 unpack f f;
#X obj 514 376 unpack f f;
#X obj 705 375 unpack f f;
#X obj 291 228 osc~ 165;
#X obj 484 229 osc~ 267;
#X obj 579 229 osc~ 311;
#X obj 672 231 osc~ 366;
#X obj 764 229 osc~ 421;
#X obj 90 431 osc~ 444;
#X obj 188 430 osc~ 554;
#X obj 281 432 osc~ 664;
#X obj 373 430 osc~ 776;
#X obj 474 433 osc~ 888;
#X obj 569 433 osc~ 1000;
#X obj 113 197 / 2;
#X obj 241 202 / 2;
#X obj 800 409 / 10;
#X obj 613 409 / 5;
#X obj 516 403 / 5;
#X obj 703 411 / 5;
#X obj 240 168 unpack f f;
#X obj 429 176 unpack f f;
#X obj 621 175 unpack f f;
#X obj 811 177 unpack f f;
#X obj 229 377 unpack f f;
#X obj 418 377 unpack f f;
#X obj 611 377 unpack f f;
#X obj 396 71 route 1 50 100 150 200 250 300 350 400 450 500 550 600
650 700 750;
#X obj 802 376 unpack f f;
#X obj 419 406 / 5;
#X obj 322 408 / 5;
#X obj 231 406 / 5;
#X obj 103 401 / 5;
#X obj 810 205 / 5;
#X obj 713 206 / 5;
#X obj 623 205 / 5;
#X obj 526 202 / 5;
#X obj 429 202 / 5;
#X obj 332 204 / 5;
#X connect 0 0 90 0;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 13 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 13 0;
#X connect 6 0 13 1;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 13 0;
#X connect 9 0 13 1;
#X connect 10 0 11 0;
#X connect 11 0 12 1;
#X connect 12 0 13 1;
#X connect 14 0 15 0;
#X connect 15 0 16 1;
#X connect 16 0 26 0;
#X connect 17 0 18 0;
#X connect 18 0 19 1;
#X connect 19 0 26 0;
#X connect 19 0 26 1;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 22 0 26 1;
#X connect 23 0 24 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 27 0 3 0;
#X connect 28 0 6 0;
#X connect 29 0 12 0;
#X connect 30 0 77 0;
#X connect 31 0 101 0;
#X connect 32 0 99 0;
#X connect 33 0 97 0;
#X connect 34 0 35 0;
#X connect 35 0 36 1;
#X connect 36 0 46 0;
#X connect 37 0 38 0;
#X connect 38 0 39 1;
#X connect 39 0 46 0;
#X connect 39 0 46 1;
#X connect 40 0 41 0;
#X connect 41 0 42 1;
#X connect 42 0 46 0;
#X connect 42 0 46 1;
#X connect 43 0 44 0;
#X connect 44 0 45 1;
#X connect 45 0 46 1;
#X connect 47 0 48 0;
#X connect 48 0 49 1;
#X connect 49 0 59 0;
#X connect 50 0 51 0;
#X connect 51 0 52 1;
#X connect 52 0 59 0;
#X connect 52 0 59 1;
#X connect 53 0 54 0;
#X connect 54 0 55 1;
#X connect 55 0 59 0;
#X connect 55 0 59 1;
#X connect 56 0 57 0;
#X connect 57 0 58 1;
#X connect 58 0 59 1;
#X connect 60 0 55 0;
#X connect 61 0 58 0;
#X connect 62 0 95 0;
#X connect 63 0 93 0;
#X connect 64 0 81 0;
#X connect 65 0 82 0;
#X connect 66 0 9 0;
#X connect 67 0 16 0;
#X connect 68 0 19 0;
#X connect 69 0 22 0;
#X connect 70 0 25 0;
#X connect 71 0 36 0;
#X connect 72 0 39 0;
#X connect 73 0 42 0;
#X connect 74 0 45 0;
#X connect 75 0 49 0;
#X connect 76 0 52 0;
#X connect 77 0 1 0;
#X connect 78 0 4 0;
#X connect 79 0 56 0;
#X connect 80 0 50 0;
#X connect 81 0 47 0;
#X connect 82 0 53 0;
#X connect 83 0 78 0;
#X connect 84 0 100 0;
#X connect 85 0 98 0;
#X connect 86 0 96 0;
#X connect 87 0 94 0;
#X connect 88 0 92 0;
#X connect 89 0 80 0;
#X connect 90 0 30 0;
#X connect 90 1 83 0;
#X connect 90 2 31 0;
#X connect 90 3 84 0;
#X connect 90 4 32 0;
#X connect 90 5 85 0;
#X connect 90 6 33 0;
#X connect 90 7 86 0;
#X connect 90 8 62 0;
#X connect 90 9 87 0;
#X connect 90 10 63 0;
#X connect 90 11 88 0;
#X connect 90 12 64 0;
#X connect 90 13 89 0;
#X connect 90 14 65 0;
#X connect 90 15 91 0;
#X connect 91 0 79 0;
#X connect 92 0 43 0;
#X connect 93 0 40 0;
#X connect 94 0 37 0;
#X connect 95 0 34 0;
#X connect 96 0 23 0;
#X connect 97 0 20 0;
#X connect 98 0 17 0;
#X connect 99 0 14 0;
#X connect 100 0 10 0;
#X connect 101 0 7 0;
#X restore 159 652 pd synthese;
#X text 358 111 Sun;
#X text 267 177 Initial speed;
#N canvas 0 0 945 455 masses 0;
#X obj 151 16 inlet;
#X obj 232 28 inlet;
#X obj 151 347 outlet;
#X msg 151 282 mass mob 1 $1 $2 $3;
#X obj 574 221 random 100;
#X obj 499 220 random 100;
#X msg 422 197 seed 3;
#X obj 151 250 pack f f f;
#X obj 151 228 t b b b;
#X msg 499 199 seed 20;
#X msg 574 201 seed 10;
#X obj 422 217 random 10000;
#X obj 424 236 / 500;
#X obj 500 261 - 1;
#X obj 574 263 - 1;
#X obj 425 258 + 205;
#X obj 499 241 / 10000;
#X obj 574 242 / 10000;
#X obj 151 47 t b;
#X obj 333 52 loadbang;
#X text 516 172 X;
#X text 434 168 M;
#X text 612 173 Y;
#X obj 151 67 until;
#X obj 151 86 f;
#X obj 177 87 + 1;
#X obj 177 118 mod 1000;
#X obj 206 87 sel 0;
#X connect 0 0 18 0;
#X connect 1 0 26 1;
#X connect 3 0 2 0;
#X connect 4 0 17 0;
#X connect 5 0 16 0;
#X connect 6 0 11 0;
#X connect 7 0 3 0;
#X connect 8 0 11 0;
#X connect 8 1 5 0;
#X connect 8 2 4 0;
#X connect 9 0 5 0;
#X connect 10 0 4 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 13 0 7 1;
#X connect 14 0 7 2;
#X connect 15 0 7 0;
#X connect 16 0 13 0;
#X connect 17 0 14 0;
#X connect 18 0 23 0;
#X connect 19 0 9 0;
#X connect 19 0 10 0;
#X connect 19 0 6 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 24 0 8 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 0 24 1;
#X connect 27 0 23 1;
#X restore 203 144 pd masses;
#X text 410 277 The power of the link is -2 to simulate a gravity field
in 1/R^2;
#X text 290 147 Particules;
#X msg 171 270 link sun fix mob 0.2 0 -2 0.4;
#X connect 0 0 6 0;
#X connect 1 0 5 0;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 5 0 19 0;
#X connect 5 0 22 0;
#X connect 5 1 18 0;
#X connect 5 1 33 0;
#X connect 5 2 30 0;
#X connect 5 3 20 0;
#X connect 5 4 2 0;
#X connect 6 0 26 0;
#X connect 7 0 13 0;
#X connect 8 0 21 0;
#X connect 10 0 25 0;
#X connect 12 0 10 0;
#X connect 14 0 13 0;
#X connect 17 0 30 1;
#X connect 18 0 0 0;
#X connect 19 0 0 0;
#X connect 20 0 0 0;
#X connect 21 0 9 0;
#X connect 22 0 0 0;
#X connect 24 0 13 0;
#X connect 25 0 6 0;
#X connect 26 0 11 0;
#X connect 26 1 27 0;
#X connect 30 0 0 0;
#X connect 33 0 0 0;