1 files changed, 49 insertions, 89 deletions
diff --git a/examples/60_draw_link_force.pd b/examples/60_draw_link_force.pd
index 9152049..58de490 100644
--- a/examples/60_draw_link_force.pd
+++ b/examples/60_draw_link_force.pd
@@ -1,5 +1,4 @@
-#N canvas 518 150 745 681 10;
-#X declare -lib Gem;
+#N canvas 516 277 669 559 10;
 #X obj 30 174 until;
 #X obj 30 244 - 100;
 #X obj 30 198 f;
@@ -8,19 +7,13 @@
 #X msg 74 174 0;
 #X msg 373 168 reset;
 #X obj 334 148 t b b b;
-#X obj 29 388 msd;
-#X obj 334 282 s \$0-msd;
-#X obj 84 338 r \$0-msd;
 #X obj 334 129 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
 -1 -1;
 #X obj 30 264 / 100;
-#X floatatom 128 152 5 0 0 0 - - -;
+#X floatatom 128 152 5 0 0 0 - - -, f 5;
 #X obj 30 218 t f f;
-#X obj 29 451 tabwrite force;
 #X msg 353 194 mass M1 0 1 0;
-#X obj 29 409 route massesForcesId;
-#X obj 29 431 route M2;
-#N canvas 0 0 450 300 (subpatch) 0;
+#N canvas 0 50 450 300 (subpatch) 0;
 #X array force 200 float 3;
 #A 0 0.123457 0.126247 0.129132 0.132118 0.135208 0.138408 0.141723
 0.145159 0.148721 0.152416 0.15625 0.160231 0.164366 0.168663 0.17313
@@ -28,45 +21,6 @@
 0.222767 0.229568 0.236686 0.244141 0.251953 0.260146 0.268745 0.277778
 0.287274 0.297265 0.307787 0.318878 0.330579 0.342936 0.355999 0.369823
 0.384468 0.4 0.416493 0.434028 0.452694 0.47259 0.493827 0.516529 0.540833
-0.566893 0.594884 0.745 0.1083 0.0972 0.0867 0.0768 0.0675 0.0588 0.0507
-0.0432 0.0363 0.03 0.0243 0.0192 0.0147 0.0108 0.00749999 0.0048 0.0027
-0.0012 0.000299999 0 -0.000300001 -0.0012 -0.0027 -0.00480001 -0.0075
--0.0108 -0.0147 -0.0192 -0.0243 -0.03 -0.0363 -0.0432 -0.0507 -0.0588
--0.0675 -0.0768 -0.0867 -0.0972 -0.1083 -0.12 -0.1323 -0.1452 -0.1587
--0.1728 -0.1875 -0.2028 -0.2187 -0.2352 -0.2523 0 0.2523 0.2352 0.2187
-0.2028 0.1875 0.1728 0.1587 0.1452 0.1323 0.12 0.1083 0.0972 0.0867
-0.0768 0.0675 0.0588 0.0507 0.0432 0.0363 0.03 0.0243 0.0192 0.0147
-0.0108 0.0075 0.00480001 0.0027 0.0012 0.000300001 0 -0.000299999 -0.0012
--0.0027 -0.0048 -0.00749999 -0.0108 -0.0147 -0.0192 -0.0243 -0.03 -0.0363
--0.0432 -0.0507 -0.0588 -0.0675 -0.0768 -0.0867 -0.0972 -0.1083 -0.745
--0.594884 -0.566893 -0.540833 -0.516529 -0.493827 -0.47259 -0.452694
--0.434028 -0.416493 -0.4 -0.384468 -0.369823 -0.355999 -0.342936 -0.330579
--0.318878 -0.307787 -0.297265 -0.287274 -0.277778 -0.268745 -0.260146
--0.251953 -0.244141 -0.236686 -0.229568 -0.222767 -0.216263 -0.21004
--0.204082 -0.198373 -0.192901 -0.187652 -0.182615 -0.177778 -0.17313
--0.168663 -0.164366 -0.160231 -0.15625 -0.152416 -0.148721 -0.145159
--0.141723 -0.138408 -0.135208 -0.132118 -0.129132 -0.126247;
-#X coords 0 1 200 -1 200 140 1;
-#X restore 327 368 graph;
-#X obj 30 284 * 1;
-#X text 167 152 link length;
-#X text 359 127 reset;
-#X text 65 133 draw;
-#X msg 362 213 mass M2 1 1 0;
-#X obj 30 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
--1;
-#X obj 30 98 t b b;
-#X msg 30 132 200;
-#X text 31 9 This abstraction help to draw link forces regarding to
-it's elongation;
-#N canvas 0 0 450 300 (subpatch) 0;
-#X array force2 200 float 3;
-#A 0 0.123457 0.126247 0.129132 0.132118 0.135208 0.138408 0.141723
-0.145159 0.148721 0.152416 0.15625 0.160231 0.164366 0.168663 0.17313
-0.177778 0.182615 0.187652 0.192901 0.198373 0.204082 0.21004 0.216263
-0.222767 0.229568 0.236686 0.244141 0.251953 0.260146 0.268745 0.277778
-0.287274 0.297265 0.307787 0.318878 0.330579 0.342936 0.355999 0.369823
-0.384468 0.4 0.416493 0.434028 0.452694 0.47259 0.493827 0.516529 0.540833
 0.566894 0.594884 0.625 0.1083 0.0972 0.0867 0.0768 0.0675 0.0588 0.0507
 0.0432 0.0363 0.03 0.0243 0.0192 0.0147 0.0108 0.00749999 0.0048 0.0027
 0.0012 0.000299999 0 -0.000300001 -0.0012 -0.0027 -0.0048 -0.0075 -0.0108
@@ -86,54 +40,60 @@ it's elongation;
 -0.164366 -0.160231 -0.15625 -0.152416 -0.148721 -0.145159 -0.141723
 -0.138408 -0.135208 -0.132118 -0.129132 -0.126247;
 #X coords 0 1 200 -1 200 140 1;
-#X restore 326 529 graph;
-#X obj 64 564 route massesForcesId;
-#X obj 64 543 pmpd;
-#X obj 64 606 tabwrite force2;
-#X obj 64 586 route 1;
+#X restore 327 368 graph;
+#X obj 30 284 * 1;
+#X text 167 152 link length;
+#X text 359 127 reset;
+#X text 65 133 draw;
+#X msg 362 213 mass M2 1 1 0;
+#X obj 30 75 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 30 98 t b b;
+#X msg 30 132 200;
+#X text 31 9 This abstraction help to draw link forces regarding to
+it's elongation;
+#X obj 30 390 route massesForcesId;
+#X obj 30 369 pmpd;
+#X obj 30 412 route 1;
 #X msg 334 240 link test M1 M2 0.1 0 -2 0.5 10 \, setL test 0.1;
 #X msg 354 260 link test2 M1 M2 3 0 2 0 0.5 \, setL test2 0.3;
 #X msg 30 304 posX M2 0 \, bang \, posX M2 \$1 \, bang \, get massesForces
 M2;
-#X msg 191 474 print;
-#X obj 333 52 declare -lib Gem;
+#X msg 76 348 print;
+#X obj 52 329 r \$0-pmpd;
+#X obj 334 280 s \$0-pmpd;
+#X obj 30 432 tabwrite force;
 #X connect 0 0 2 0;
-#X connect 1 0 12 0;
+#X connect 1 0 9 0;
 #X connect 2 0 3 0;
-#X connect 2 0 14 0;
+#X connect 2 0 11 0;
 #X connect 3 0 2 1;
 #X connect 4 0 0 0;
 #X connect 4 1 5 0;
 #X connect 5 0 2 1;
-#X connect 6 0 9 0;
-#X connect 7 0 34 0;
-#X connect 7 0 35 0;
-#X connect 7 1 16 0;
-#X connect 7 1 24 0;
+#X connect 6 0 31 0;
+#X connect 7 0 26 0;
+#X connect 7 0 27 0;
+#X connect 7 1 12 0;
+#X connect 7 1 18 0;
 #X connect 7 2 6 0;
-#X connect 8 0 17 0;
-#X connect 10 0 8 0;
-#X connect 10 0 31 0;
-#X connect 11 0 7 0;
-#X connect 12 0 20 0;
-#X connect 13 0 20 1;
-#X connect 14 0 1 0;
-#X connect 14 1 15 1;
-#X connect 14 1 32 1;
-#X connect 16 0 9 0;
-#X connect 17 0 18 0;
-#X connect 18 0 15 0;
-#X connect 20 0 36 0;
-#X connect 24 0 9 0;
-#X connect 25 0 26 0;
-#X connect 26 0 27 0;
-#X connect 26 1 11 0;
-#X connect 27 0 4 0;
-#X connect 30 0 33 0;
-#X connect 31 0 30 0;
-#X connect 33 0 32 0;
-#X connect 34 0 9 0;
-#X connect 35 0 9 0;
-#X connect 36 0 8 0;
-#X connect 36 0 31 0;
-#X connect 37 0 31 0;
+#X connect 8 0 7 0;
+#X connect 9 0 14 0;
+#X connect 10 0 14 1;
+#X connect 11 0 1 0;
+#X connect 11 1 32 1;
+#X connect 12 0 31 0;
+#X connect 14 0 28 0;
+#X connect 18 0 31 0;
+#X connect 19 0 20 0;
+#X connect 20 0 21 0;
+#X connect 20 1 8 0;
+#X connect 21 0 4 0;
+#X connect 23 0 25 0;
+#X connect 24 0 23 0;
+#X connect 25 0 32 0;
+#X connect 26 0 31 0;
+#X connect 27 0 31 0;
+#X connect 28 0 24 0;
+#X connect 29 0 24 0;
+#X connect 30 0 24 0;