[PD-cvs] 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

[Nicolas Montgermont]

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;