[PD] [pmpd] - meaning of messages

[cyrille]

hello frank,

after a quick look at your patch :
- i'll not say anymore that my patch are a mess :-)
- there is no fixed point.
  -> the (bad) solution i found to solve this is that masses with 
negative id (maybee <= 0, i don't remember) will not move. the structure 
nead to be linked to one fixed point (at least), otherwise it will go 
and never came back...
-there is no way to delete a link (ok, i add that to my todo list), so 
you'll not be able to change the structure in real time.
-it's a good idea, i don't know what your patch will do...
-there are problems on the [pmpd] oject : in and out begin from 0, but 
masses and link beggin from 1. what is the most logic things to do : 
everything should beggin at 0 or 1?
-sending force 2 1 make some movement on the structure, as expected 
(force 1 1 does not work because of this 0 or 1 problem i think)

as you're the 1st asking about this object, i think your the 1st triing 
to use it.
so i'll change this 0 or 1 problem as soon as i got some time (i really 
don't know when).

hope that help
cyr


Frank Barknecht wrote:
> Hallo,
> B. Bogart hat gesagt: // B. Bogart wrote:
> 
> 
>>Frank, is there a strong reason you are using the pmpd object, and not 
>>using [mass] [lia] etc?? Much easier to start here and I think make many 
>>things clear...
> 
> 
> I'm trying to build physical systems programmatically, and that's what
> pmpd and pmpd~ are better for than using the mass/link objects. (I
> played with dynamic patching and [dyn] as well. [dyn] is cool for
> this, but I'd like to explore [pmpd], too.)
> 
> Attached is the patch I'm currently working on, which is some scanned
> synthesis thing done with pmpd. Sorry for it being a bit confusing.
> I'll explain it: 
> 
> The patch has a system of 10 masses inside. You can specify your
> physical network using the toggles in "pd matrixedit". Every toggle
> set to 1 will create a link between the masses specified by its x/y
> coordinates. This is a string where mass 0 is connected to mass 1,
> mass 1 connected to mass 2, 3-4, 4-5, ... and at last 9 to 0:
> 
>    0123 ... 9 = X
>   +----------+
> 0 |..........|
> 1 |x.........|
> 2 |.x........|
> 3 |..x.......|
> . |...x......|
> . |....x.....|
> . |.....x....|
>   |......x...|
>   |.......x..|
> 9 |x.......x.|
>   +----------+
> Y
> 
> (This is inspired by Csound).
> 
> Clicking the bang "rebuild" will then create this network, which can
> be set into action with the metro and some forces. So far this seems
> to work okay, but I'm struggling with doing the outlet-connections.
> This is done in "pd doouts" (upper right) but regardless of what I do,
> some of those outlets just seem to receive wrong or no data.  
> 
> Ciao
> 
> 
> ------------------------------------------------------------------------
> 
> #N canvas 434 145 566 665 10;
> #N canvas 821 56 450 300 matrixedit 1;
> #X obj 10 10 tgl 15 1 m0 m0 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 10 25 tgl 15 1 m1 m1 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 10 40 tgl 15 1 m2 m2 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 10 55 tgl 15 1 m3 m3 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 10 70 tgl 15 1 m4 m4 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 10 85 tgl 15 1 m5 m5 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 10 100 tgl 15 1 m6 m6 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 10 115 tgl 15 1 m7 m7 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 10 130 tgl 15 1 m8 m8 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 10 145 tgl 15 1 m9 m9 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 25 10 tgl 15 1 m10 m10 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 25 25 tgl 15 1 m11 m11 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 25 40 tgl 15 1 m12 m12 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 25 55 tgl 15 1 m13 m13 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 25 70 tgl 15 1 m14 m14 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 25 85 tgl 15 1 m15 m15 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 25 100 tgl 15 1 m16 m16 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 25 115 tgl 15 1 m17 m17 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 25 130 tgl 15 1 m18 m18 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 25 145 tgl 15 1 m19 m19 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 40 10 tgl 15 1 m20 m20 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 40 25 tgl 15 1 m21 m21 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 40 40 tgl 15 1 m22 m22 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 40 55 tgl 15 1 m23 m23 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 40 70 tgl 15 1 m24 m24 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 40 85 tgl 15 1 m25 m25 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 40 100 tgl 15 1 m26 m26 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 40 115 tgl 15 1 m27 m27 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 40 130 tgl 15 1 m28 m28 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 40 145 tgl 15 1 m29 m29 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 55 10 tgl 15 1 m30 m30 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 55 25 tgl 15 1 m31 m31 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 55 40 tgl 15 1 m32 m32 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 55 55 tgl 15 1 m33 m33 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 55 70 tgl 15 1 m34 m34 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 55 85 tgl 15 1 m35 m35 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 55 100 tgl 15 1 m36 m36 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 55 115 tgl 15 1 m37 m37 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 55 130 tgl 15 1 m38 m38 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 55 145 tgl 15 1 m39 m39 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 70 10 tgl 15 1 m40 m40 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 70 25 tgl 15 1 m41 m41 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 70 40 tgl 15 1 m42 m42 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 70 55 tgl 15 1 m43 m43 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 70 70 tgl 15 1 m44 m44 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 70 85 tgl 15 1 m45 m45 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 70 100 tgl 15 1 m46 m46 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 70 115 tgl 15 1 m47 m47 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 70 130 tgl 15 1 m48 m48 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 70 145 tgl 15 1 m49 m49 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 85 10 tgl 15 1 m50 m50 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 85 25 tgl 15 1 m51 m51 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 85 40 tgl 15 1 m52 m52 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 85 55 tgl 15 1 m53 m53 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 85 70 tgl 15 1 m54 m54 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 85 85 tgl 15 1 m55 m55 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 85 100 tgl 15 1 m56 m56 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 85 115 tgl 15 1 m57 m57 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 85 130 tgl 15 1 m58 m58 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 85 145 tgl 15 1 m59 m59 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 100 10 tgl 15 1 m60 m60 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 100 25 tgl 15 1 m61 m61 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 100 40 tgl 15 1 m62 m62 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 100 55 tgl 15 1 m63 m63 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 100 70 tgl 15 1 m64 m64 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 100 85 tgl 15 1 m65 m65 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 100 100 tgl 15 1 m66 m66 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 100 115 tgl 15 1 m67 m67 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 100 130 tgl 15 1 m68 m68 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 100 145 tgl 15 1 m69 m69 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 115 10 tgl 15 1 m70 m70 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 115 25 tgl 15 1 m71 m71 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 115 40 tgl 15 1 m72 m72 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 115 55 tgl 15 1 m73 m73 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 115 70 tgl 15 1 m74 m74 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 115 85 tgl 15 1 m75 m75 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 115 100 tgl 15 1 m76 m76 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 115 115 tgl 15 1 m77 m77 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 115 130 tgl 15 1 m78 m78 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 115 145 tgl 15 1 m79 m79 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 10 tgl 15 1 m80 m80 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 25 tgl 15 1 m81 m81 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 40 tgl 15 1 m82 m82 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 55 tgl 15 1 m83 m83 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 70 tgl 15 1 m84 m84 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 85 tgl 15 1 m85 m85 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 100 tgl 15 1 m86 m86 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 115 tgl 15 1 m87 m87 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 130 tgl 15 1 m88 m88 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 130 145 tgl 15 1 m89 m89 empty 0 -6 0 8 -262144 -1 -1 1 1;
> #X obj 145 10 tgl 15 1 m90 m90 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 145 25 tgl 15 1 m91 m91 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 145 40 tgl 15 1 m92 m92 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 145 55 tgl 15 1 m93 m93 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 145 70 tgl 15 1 m94 m94 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 145 85 tgl 15 1 m95 m95 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 145 100 tgl 15 1 m96 m96 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 145 115 tgl 15 1 m97 m97 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 145 130 tgl 15 1 m98 m98 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X obj 145 145 tgl 15 1 m99 m99 empty 0 -6 0 8 -262144 -1 -1 0 1;
> #X restore 39 49 pd matrixedit;
> #X msg 305 163 clear;
> #N canvas 0 0 921 520 addtoggle 0;
> #X obj 161 382 outlet;
> #X obj 163 68 inlet;
> #X obj 342 86 inlet;
> #X text 173 249 x;
> #X text 233 241 y;
> #X text 279 245 id;
> #X obj 281 215 makefilename m%d;
> #X obj 280 191 float;
> #X msg 319 153 50;
> #X msg 360 152 40;
> #X msg 398 152 10;
> #X obj 643 203 div 10;
> #X floatatom 679 166 5 0 0 0 - - -;
> #X floatatom 637 240 5 0 0 0 - - -;
> #X obj 701 201 mod 10;
> #X floatatom 707 238 5 0 0 0 - - -;
> #X msg 752 153 12;
> #X msg 802 151 10;
> #X text 213 64 numbers;
> #X obj 165 166 div 10;
> #X obj 221 160 mod 10;
> #X obj 163 105 t f f f;
> #X obj 219 190 f;
> #X obj 167 188 f;
> #X obj 160 215 * 15;
> #X obj 216 223 * 15;
> #X obj 109 243 + 10;
> #X obj 189 249 + 10;
> #X obj 462 421 outlet;
> #X floatatom 417 399 5 0 0 0 - - -;
> #X obj 733 376 pmpd;
> #X obj 162 275 pack 50 40 s 0;
> #X msg 462 393 obj \$1 \$2 p-link \$3 \$4;
> #X obj 461 372 pack 50 40 s 0;
> #X obj 394 365 * 100;
> #X msg 151 327 obj \$1 \$2 tgl 15 1 \$3 \$3 empty 0 -6 0 8 -262144
> -1 -1 0 1;
> #X connect 1 0 21 0;
> #X connect 2 0 19 1;
> #X connect 2 0 20 1;
> #X connect 6 0 31 2;
> #X connect 6 0 33 2;
> #X connect 7 0 6 0;
> #X connect 7 0 31 3;
> #X connect 7 0 33 3;
> #X connect 11 0 13 0;
> #X connect 12 0 11 0;
> #X connect 12 0 14 0;
> #X connect 14 0 15 0;
> #X connect 16 0 14 1;
> #X connect 16 0 11 1;
> #X connect 17 0 14 1;
> #X connect 17 0 11 1;
> #X connect 19 0 23 0;
> #X connect 20 0 22 0;
> #X connect 21 0 19 0;
> #X connect 21 1 20 0;
> #X connect 21 2 7 0;
> #X connect 22 0 25 0;
> #X connect 23 0 24 0;
> #X connect 23 0 34 0;
> #X connect 24 0 26 0;
> #X connect 25 0 27 0;
> #X connect 26 0 31 0;
> #X connect 27 0 31 1;
> #X connect 27 0 33 1;
> #X connect 29 0 34 1;
> #X connect 31 0 35 0;
> #X connect 32 0 28 0;
> #X connect 33 0 32 0;
> #X connect 34 0 33 0;
> #X connect 35 0 0 0;
> #X restore 190 161 pd addtoggle;
> #X obj 192 133 f 0;
> #X obj 226 134 + 1;
> #X obj 180 38 t b b;
> #X msg 243 69 0;
> #X obj 182 16 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X obj 190 103 until;
> #X obj 177 75 f 2;
> #X floatatom 246 43 5 0 0 0 - - -;
> #X obj 89 186 print;
> #X obj 167 198 s pd-matrixedit;
> #X floatatom 292 96 5 0 0 0 size - -;
> #N canvas 700 609 450 300 values 0;
> #X obj 0 10 p-link m0 0;
> #X obj 0 25 p-link m1 1;
> #X obj 0 40 p-link m2 2;
> #X obj 0 55 p-link m3 3;
> #X obj 0 70 p-link m4 4;
> #X obj 0 85 p-link m5 5;
> #X obj 0 100 p-link m6 6;
> #X obj 0 115 p-link m7 7;
> #X obj 0 130 p-link m8 8;
> #X obj 0 145 p-link m9 9;
> #X obj 100 10 p-link m10 10;
> #X obj 100 25 p-link m11 11;
> #X obj 100 40 p-link m12 12;
> #X obj 100 55 p-link m13 13;
> #X obj 100 70 p-link m14 14;
> #X obj 100 85 p-link m15 15;
> #X obj 100 100 p-link m16 16;
> #X obj 100 115 p-link m17 17;
> #X obj 100 130 p-link m18 18;
> #X obj 100 145 p-link m19 19;
> #X obj 200 10 p-link m20 20;
> #X obj 200 25 p-link m21 21;
> #X obj 200 40 p-link m22 22;
> #X obj 200 55 p-link m23 23;
> #X obj 200 70 p-link m24 24;
> #X obj 200 85 p-link m25 25;
> #X obj 200 100 p-link m26 26;
> #X obj 200 115 p-link m27 27;
> #X obj 200 130 p-link m28 28;
> #X obj 200 145 p-link m29 29;
> #X obj 300 10 p-link m30 30;
> #X obj 300 25 p-link m31 31;
> #X obj 300 40 p-link m32 32;
> #X obj 300 55 p-link m33 33;
> #X obj 300 70 p-link m34 34;
> #X obj 300 85 p-link m35 35;
> #X obj 300 100 p-link m36 36;
> #X obj 300 115 p-link m37 37;
> #X obj 300 130 p-link m38 38;
> #X obj 300 145 p-link m39 39;
> #X obj 400 10 p-link m40 40;
> #X obj 400 25 p-link m41 41;
> #X obj 400 40 p-link m42 42;
> #X obj 400 55 p-link m43 43;
> #X obj 400 70 p-link m44 44;
> #X obj 400 85 p-link m45 45;
> #X obj 400 100 p-link m46 46;
> #X obj 400 115 p-link m47 47;
> #X obj 400 130 p-link m48 48;
> #X obj 400 145 p-link m49 49;
> #X obj 500 10 p-link m50 50;
> #X obj 500 25 p-link m51 51;
> #X obj 500 40 p-link m52 52;
> #X obj 500 55 p-link m53 53;
> #X obj 500 70 p-link m54 54;
> #X obj 500 85 p-link m55 55;
> #X obj 500 100 p-link m56 56;
> #X obj 500 115 p-link m57 57;
> #X obj 500 130 p-link m58 58;
> #X obj 500 145 p-link m59 59;
> #X obj 600 10 p-link m60 60;
> #X obj 600 25 p-link m61 61;
> #X obj 600 40 p-link m62 62;
> #X obj 600 55 p-link m63 63;
> #X obj 600 70 p-link m64 64;
> #X obj 600 85 p-link m65 65;
> #X obj 600 100 p-link m66 66;
> #X obj 600 115 p-link m67 67;
> #X obj 600 130 p-link m68 68;
> #X obj 600 145 p-link m69 69;
> #X obj 700 10 p-link m70 70;
> #X obj 700 25 p-link m71 71;
> #X obj 700 40 p-link m72 72;
> #X obj 700 55 p-link m73 73;
> #X obj 700 70 p-link m74 74;
> #X obj 700 85 p-link m75 75;
> #X obj 700 100 p-link m76 76;
> #X obj 700 115 p-link m77 77;
> #X obj 700 130 p-link m78 78;
> #X obj 700 145 p-link m79 79;
> #X obj 800 10 p-link m80 80;
> #X obj 800 25 p-link m81 81;
> #X obj 800 40 p-link m82 82;
> #X obj 800 55 p-link m83 83;
> #X obj 800 70 p-link m84 84;
> #X obj 800 85 p-link m85 85;
> #X obj 800 100 p-link m86 86;
> #X obj 800 115 p-link m87 87;
> #X obj 800 130 p-link m88 88;
> #X obj 800 145 p-link m89 89;
> #X obj 900 10 p-link m90 90;
> #X obj 900 25 p-link m91 91;
> #X obj 900 40 p-link m92 92;
> #X obj 900 55 p-link m93 93;
> #X obj 900 70 p-link m94 94;
> #X obj 900 85 p-link m95 95;
> #X obj 900 100 p-link m96 96;
> #X obj 900 115 p-link m97 97;
> #X obj 900 130 p-link m98 98;
> #X obj 900 145 p-link m99 99;
> #X restore 39 77 pd values;
> #X obj 298 187 s pd-values;
> #X msg 294 71 10;
> #X msg 294 35 100;
> #X obj 347 18 loadbang;
> #X obj 37 236 r pmpd;
> #X msg 372 115 reset;
> #X obj 372 149 s pmpd;
> #X obj 266 351 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X obj 25 212 print pmpd;
> #X obj 264 373 s do-masses;
> #X obj 264 397 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X obj 262 419 s do-links;
> #X obj 373 383 f \$2;
> #X obj 374 338 r do-masses;
> #X obj 365 416 until;
> #X floatatom 480 389 5 0 0 0 size - -;
> #X msg 482 364 10;
> #X obj 487 332 loadbang;
> #X obj 357 491 s pmpd;
> #X obj 367 442 f 0;
> #X obj 407 442 + 1;
> #X obj 376 361 t b b;
> #X msg 409 418 0;
> #X obj 41 137 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
> ;
> #X floatatom 82 134 5 0 0 0 - - -;
> #X msg 436 68 in 1 0 3 1;
> #X obj 464 483 *~ 10;
> #X floatatom 464 432 5 0 0 0 - - -;
> #X obj 464 463 phasor~ 100;
> #X obj 127 493 Scope~ 146 168 56 3 128 -1 1 0 0 0 0 102 255 51 135
> 135 135 0;
> #X floatatom 130 457 5 0 0 0 - - -;
> #X obj 29 452 print;
> #X obj 31 166 metro 40;
> #X obj 20 549 loadbang;
> #X msg 5 287 0;
> #X floatatom 175 365 5 0 0 0 - - -;
> #N canvas 684 316 481 431 doouts 0;
> #X obj 176 159 until;
> #X obj 168 393 s pmpd;
> #X obj 178 185 f 0;
> #X obj 218 185 + 1;
> #X obj 187 104 t b b;
> #X obj 174 320 pack 0 0;
> #X obj 181 284 t f f;
> #X obj 184 126 f 10;
> #X obj 185 81 r do-outs;
> #X obj 176 252 + 1;
> #X msg 220 161 0;
> #X msg 36 315 out 1 0 1 0.1;
> #X msg 38 337 out 1 0 10 0.1;
> #X msg 254 163 0;
> #X text 290 353 id outlet mass amplitude;
> #X text 262 322 \$1: 1-10;
> #X text 262 310 \$2: 0-9;
> #X msg 166 349 out 1 \$2 \$2 0.1;
> #X connect 0 0 2 0;
> #X connect 2 0 3 0;
> #X connect 2 0 9 0;
> #X connect 3 0 2 1;
> #X connect 4 0 7 0;
> #X connect 4 1 10 0;
> #X connect 4 1 13 0;
> #X connect 5 0 17 0;
> #X connect 6 0 5 1;
> #X connect 6 1 5 0;
> #X connect 7 0 0 0;
> #X connect 8 0 4 0;
> #X connect 9 0 6 0;
> #X connect 10 0 2 1;
> #X connect 11 0 1 0;
> #X connect 12 0 1 0;
> #X connect 13 0 5 1;
> #X connect 17 0 1 0;
> #X restore 481 30 pd doouts;
> #X obj 266 443 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
> -1;
> #X obj 264 465 s do-outs;
> #X obj 512 289 bng 24 250 50 0 empty empty rebuild 0 -6 0 8 -24198
> -1 -1;
> #X obj 279 332 t b b b b b;
> #X floatatom 227 436 5 0 0 0 - - -;
> #X floatatom 36 303 5 0 0 0 - - -;
> #X floatatom 74 305 5 0 0 0 - - -;
> #X floatatom 112 305 5 0 0 0 - - -;
> #X floatatom 152 303 5 0 0 0 - - -;
> #X floatatom 196 305 5 0 0 0 - - -;
> #X floatatom 242 303 5 0 0 0 - - -;
> #X floatatom 290 299 5 0 0 0 - - -;
> #X floatatom 334 299 5 0 0 0 - - -;
> #X floatatom 390 296 5 0 0 0 - - -;
> #X floatatom 444 294 5 0 0 0 - - -;
> #X obj 20 602 s \$0-scan;
> #X obj 11 424 send \$0-scan;
> #X obj 433 529 tabread4~ \$0-scan;
> #X msg 380 238 forceX 1;
> #X obj 434 556 *~ 1;
> #X obj 483 561 hsl 64 16 0 1 0 0 \$0-v \$0-v volume -2 -6 0 8 -260818
> -123526 -1 0 1;
> #X msg 222 393 0.5;
> #X msg 406 204 forceX 4 0.4;
> #X msg 442 228 forceX 9 0.4;
> #X obj 17 185 t b b;
> #X msg 450 160 forceX 1 0;
> #X msg 226 375 2;
> #X msg 446 134 forceX 1 1;
> #X msg 127 420 posX 1 \$1;
> #X msg 20 26 posX 0 \$1;
> #X obj 451 599 dac~;
> #X obj 19 348 pack 0 0 0 0 0 0 0 0 0 0 0;
> #N canvas 637 229 450 300 to-tab 0;
> #X obj 67 65 inlet;
> #X obj 59 199 outlet;
> #X msg 52 142 \$1 \$9 \$10 \$11 \$2 \$3 \$4 \$5 \$6 \$7 \$8 \$9 \$10
> \$11 \$2 \$3 \$4;
> #X connect 0 0 2 0;
> #X connect 2 0 1 0;
> #X restore 10 386 pd to-tab;
> #X obj 8 636 table \$0-scan 16;
> #X msg 19 571 resize 16;
> #X msg 519 490 2;
> #X obj 452 509 +~ 2;
> #X obj 37 261 pmpd 1 10 *******************************;
> #X msg 440 182 forceX 0 1;
> #X msg 358 461 mass \$1 1 0;
> #X msg 64 5 0;
> #X connect 1 0 12 0;
> #X connect 1 0 15 0;
> #X connect 2 0 11 0;
> #X connect 2 0 12 0;
> #X connect 2 1 15 0;
> #X connect 3 0 4 0;
> #X connect 3 0 2 0;
> #X connect 4 0 3 1;
> #X connect 5 0 9 0;
> #X connect 5 1 6 0;
> #X connect 5 1 1 0;
> #X connect 5 1 20 0;
> #X connect 6 0 3 1;
> #X connect 7 0 5 0;
> #X connect 8 0 3 0;
> #X connect 9 0 8 0;
> #X connect 10 0 9 1;
> #X connect 13 0 2 1;
> #X connect 16 0 13 0;
> #X connect 17 0 10 0;
> #X connect 18 0 17 0;
> #X connect 18 0 16 0;
> #X connect 19 0 23 0;
> #X connect 19 0 89 0;
> #X connect 20 0 21 0;
> #X connect 22 0 24 0;
> #X connect 25 0 26 0;
> #X connect 27 0 29 0;
> #X connect 28 0 36 0;
> #X connect 29 0 34 0;
> #X connect 30 0 27 1;
> #X connect 31 0 30 0;
> #X connect 32 0 31 0;
> #X connect 34 0 35 0;
> #X connect 34 0 91 0;
> #X connect 35 0 34 1;
> #X connect 36 0 27 0;
> #X connect 36 1 37 0;
> #X connect 37 0 34 1;
> #X connect 38 0 47 0;
> #X connect 39 0 47 1;
> #X connect 40 0 21 0;
> #X connect 41 0 88 0;
> #X connect 42 0 43 0;
> #X connect 43 0 41 0;
> #X connect 45 0 44 0;
> #X connect 47 0 76 0;
> #X connect 48 0 86 0;
> #X connect 49 0 83 0;
> #X connect 50 0 80 0;
> #X connect 52 0 53 0;
> #X connect 54 0 55 0;
> #X connect 55 0 52 0;
> #X connect 55 1 25 0;
> #X connect 55 2 22 0;
> #X connect 55 3 20 0;
> #X connect 56 0 44 1;
> #X connect 69 0 71 0;
> #X connect 70 0 89 1;
> #X connect 71 0 82 0;
> #X connect 71 0 82 1;
> #X connect 71 0 44 0;
> #X connect 72 0 71 1;
> #X connect 73 0 80 0;
> #X connect 74 0 89 0;
> #X connect 75 0 89 0;
> #X connect 76 0 49 0;
> #X connect 76 1 89 0;
> #X connect 77 0 89 0;
> #X connect 78 0 80 0;
> #X connect 79 0 89 0;
> #X connect 80 0 89 0;
> #X connect 81 0 89 0;
> #X connect 83 0 84 0;
> #X connect 84 0 68 0;
> #X connect 86 0 67 0;
> #X connect 87 0 88 1;
> #X connect 88 0 69 0;
> #X connect 89 0 57 0;
> #X connect 89 0 83 1;
> #X connect 89 1 58 0;
> #X connect 89 1 83 2;
> #X connect 89 2 59 0;
> #X connect 89 2 83 3;
> #X connect 89 3 60 0;
> #X connect 89 3 83 4;
> #X connect 89 4 61 0;
> #X connect 89 4 83 5;
> #X connect 89 5 62 0;
> #X connect 89 5 83 6;
> #X connect 89 6 63 0;
> #X connect 89 6 83 7;
> #X connect 89 7 64 0;
> #X connect 89 7 83 8;
> #X connect 89 8 65 0;
> #X connect 89 8 83 9;
> #X connect 89 9 66 0;
> #X connect 89 9 83 10;
> #X connect 90 0 89 0;
> #X connect 91 0 33 0;
> #X connect 92 0 81 0;
> 
> 
> ------------------------------------------------------------------------
> 
> #N canvas 552 596 585 345 10;
> #X obj 96 110 r \$1;
> #X obj 114 312 s pmpd;
> #X obj 80 144 f 0;
> #X obj 175 64 f \$2;
> #X text 245 242 Id \, mass1 \, mass2 \, K \, D;
> #X obj 173 120 div 10;
> #X obj 225 120 mod 10;
> #X floatatom 173 149 5 0 0 0 - - -;
> #X floatatom 230 156 5 0 0 0 - - -;
> #X floatatom 220 84 5 0 0 0 - - -;
> #X obj 88 172 pack 0 0 0;
> #X obj 44 76 t b b;
> #X obj 87 204 route 1;
> #X obj 39 48 r do-links;
> #X msg 58 279 out 1 \$1 \$2 1;
> #X obj 50 226 t a a;
> #X obj 385 64 r do-masses;
> #X obj 385 167 div 10;
> #X obj 437 167 mod 10;
> #X obj 383 102 f \$2;
> #X obj 353 198 pack 0 0;
> #X obj 384 128 t f f;
> #X msg 80 248 link 1 \$1 \$2 0.01 0.003;
> #X connect 0 0 2 1;
> #X connect 2 0 10 0;
> #X connect 3 0 5 0;
> #X connect 3 0 6 0;
> #X connect 5 0 7 0;
> #X connect 5 0 10 1;
> #X connect 6 0 8 0;
> #X connect 6 0 10 2;
> #X connect 9 0 5 0;
> #X connect 9 0 6 0;
> #X connect 10 0 12 0;
> #X connect 11 0 2 0;
> #X connect 11 1 3 0;
> #X connect 12 0 15 0;
> #X connect 13 0 11 0;
> #X connect 14 0 1 0;
> #X connect 15 1 22 0;
> #X connect 16 0 19 0;
> #X connect 17 0 20 0;
> #X connect 18 0 20 1;
> #X connect 19 0 21 0;
> #X connect 21 0 17 0;
> #X connect 21 1 18 0;
> #X connect 22 0 1 0;