From 9a67203035c21278862c9810bbbe3d647255002d Mon Sep 17 00:00:00 2001 From: Cyrille Henry Date: Thu, 24 Feb 2011 21:54:15 +0000 Subject: =?UTF-8?q?add=202=20more=20examples=20--Cette=20ligne,=20et=20les?= =?UTF-8?q?=20suivantes=20ci-dessous,=20seront=20ignor=C3=A9es--?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit M pmpd/Makefile A pmpd/examples/62_draw_link_force_2d.pd A pmpd/examples/61_draw_link_force.pd svn path=/trunk/externals/pmpd/; revision=14962 --- examples/62_draw_link_force_2d.pd | 75 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 75 insertions(+) create mode 100644 examples/62_draw_link_force_2d.pd (limited to 'examples/62_draw_link_force_2d.pd') diff --git a/examples/62_draw_link_force_2d.pd b/examples/62_draw_link_force_2d.pd new file mode 100644 index 0000000..5c7e708 --- /dev/null +++ b/examples/62_draw_link_force_2d.pd @@ -0,0 +1,75 @@ +#N canvas 621 331 876 550 10; +#X obj 30 174 until; +#X obj 30 244 - 100; +#X obj 30 198 f; +#X obj 58 198 + 1; +#X obj 30 152 t f b; +#X msg 74 174 0; +#X msg 361 148 reset; +#X obj 319 128 t b b b; +#X obj 319 272 s \$0-msd; +#X obj 36 352 r \$0-msd; +#X obj 30 264 / 100; +#X floatatom 128 152 5 0 0 0 - - -; +#X obj 30 218 t f f; +#N canvas 0 0 450 300 (subpatch) 0; +#X array force 200 float 2; +#X coords 0 1 200 -1 200 140 1; +#X restore 303 345 graph; +#X obj 30 284 * 1; +#X text 167 152 link length; +#X text 65 133 draw; +#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 obj 28 399 route massesForcesId; +#X obj 28 420 route 1; +#X msg 319 228 link test M1 M2 0.1 0 -2 0.5 10 \, setL test 0.1; +#X msg 336 247 link test2 M1 M2 3 0 2 0 0.5 \, setL test2 0.3; +#X obj 28 378 pmpd2d; +#X msg 341 174 mass M1 0 1 0 0; +#X msg 350 193 mass M2 1 1 0 0; +#X obj 671 225 table test 100; +#X msg 28 440 \$1; +#X obj 670 247 table null 100; +#X msg 492 202 tabLink test M1 M2 test 1 null 1; +#X text 36 26 This abstraction help to draw link forces regarding to +it's elongation / elongation speed; +#X msg 28 308 pos M2 0 0 \, bang \, pos M2 \$1 0 \, bang \, get massesForces +M2; +#X obj 28 460 tabwrite force; +#X connect 0 0 2 0; +#X connect 1 0 10 0; +#X connect 2 0 3 0; +#X connect 2 0 12 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 8 0; +#X connect 7 0 30 0; +#X connect 7 0 22 0; +#X connect 7 0 23 0; +#X connect 7 1 25 0; +#X connect 7 1 26 0; +#X connect 7 2 6 0; +#X connect 9 0 24 0; +#X connect 10 0 14 0; +#X connect 11 0 14 1; +#X connect 12 0 1 0; +#X connect 12 1 33 1; +#X connect 14 0 32 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 18 1 7 0; +#X connect 19 0 4 0; +#X connect 20 0 21 0; +#X connect 21 0 28 0; +#X connect 22 0 8 0; +#X connect 23 0 8 0; +#X connect 24 0 20 0; +#X connect 25 0 8 0; +#X connect 26 0 8 0; +#X connect 28 0 33 0; +#X connect 32 0 24 0; -- cgit v1.2.1