new example

svn path=/trunk/externals/pmpd/; revision=17249

1 files changed, 116 insertions, 0 deletions

diff --git a/examples/66_setK_table.pd b/examples/66_setK_table.pd
new file mode 100644
index 0000000..2c0f3f8
--- /dev/null
+++ b/examples/66_setK_table.pd
@@ -0,0 +1,116 @@
+#N canvas 80 656 798 297 10;
+#X declare -lib Gem;
+#X obj 52 8 loadbang;
+#X obj 64 31 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#N canvas 1296 344 692 614 creation 0;
+#X obj 41 20 inlet;
+#X obj 51 48 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 41 77 t b b b b b b b b b b b;
+#X msg 255 110 reset;
+#X obj 162 473 outlet;
+#X obj 162 153 until;
+#X obj 162 185 f;
+#X obj 287 230 + 1;
+#X msg 192 183 0;
+#X msg 220 418 print;
+#X obj 162 232 t b f;
+#X msg 162 293 mass mobil 1 10 0;
+#X msg 126 328 mass fix_0 0 1 0 \, mass fix_1 0 1 1;
+#X msg 71 360 link tab_force mobil fix_1 0 0 \, link raz mobil fix_0
+1 5;
+#X msg 162 131 100;
+#X connect 0 0 2 0;
+#X connect 1 0 2 0;
+#X connect 2 3 13 0;
+#X connect 2 7 12 0;
+#X connect 2 9 14 0;
+#X connect 2 10 3 0;
+#X connect 2 10 8 0;
+#X connect 3 0 4 0;
+#X connect 5 0 6 0;
+#X connect 6 0 10 0;
+#X connect 7 0 6 1;
+#X connect 8 0 6 1;
+#X connect 9 0 4 0;
+#X connect 10 0 11 0;
+#X connect 10 1 7 0;
+#X connect 11 0 4 0;
+#X connect 12 0 4 0;
+#X connect 13 0 4 0;
+#X connect 14 0 5 0;
+#X restore 52 56 pd creation;
+#X obj 54 -49 declare -lib Gem;
+#X obj 146 7 gemhead;
+#X obj 146 30 t b;
+#X obj 54 -25 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#N canvas 716 693 763 327 create_gem 0;
+#X msg 137 179 0 \, destroy;
+#X obj 118 200 gemwin;
+#X obj 118 104 inlet;
+#X obj 118 129 sel 1 0;
+#X msg 118 156 reset \, create \, 1;
+#X connect 0 0 1 0;
+#X connect 2 0 3 0;
+#X connect 3 0 4 0;
+#X connect 3 1 0 0;
+#X connect 4 0 1 0;
+#X restore 75 -25 pd create_gem;
+#X obj 52 126 route massPos;
+#N canvas 1019 484 425 448 mass_render 0;
+#X obj 146 49 inlet;
+#X obj 67 285 separator;
+#X obj 67 224 gemhead 45;
+#X obj 67 116 loadbang;
+#X msg 67 174 0;
+#X obj 146 73 route mobil;
+#X obj 67 311 translateXYZ;
+#X obj 146 101 unpack f f;
+#X obj 287 72 gemhead 1;
+#X obj 285 96 t b;
+#X obj 206 182 f;
+#X obj 146 124 t b b;
+#X msg 285 122 -2.5;
+#X obj 223 211 + 0.05;
+#X obj 68 265 translateXYZ 0 0 0;
+#X obj 67 340 circle 0.05;
+#X obj 68 246 scaleXYZ 1 1 1;
+#X connect 0 0 5 0;
+#X connect 1 0 6 0;
+#X connect 2 0 16 0;
+#X connect 3 0 4 0;
+#X connect 4 0 2 0;
+#X connect 5 0 7 0;
+#X connect 6 0 15 0;
+#X connect 7 0 11 0;
+#X connect 7 1 6 2;
+#X connect 8 0 9 0;
+#X connect 9 0 12 0;
+#X connect 10 0 13 0;
+#X connect 10 0 6 1;
+#X connect 11 0 2 0;
+#X connect 11 1 10 0;
+#X connect 12 0 10 1;
+#X connect 13 0 10 1;
+#X connect 14 0 1 0;
+#X connect 16 0 14 0;
+#X restore 52 147 pd mass_render;
+#X obj 52 103 pmpd;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array force 100 float 2;
+#X coords 0 1 99 -1 200 140 1;
+#X restore 491 3 graph;
+#X msg 146 52 setK tab_force force \, bang \, massPos mobil;
+#X text 404 -56 draw in the table to change link rigidity independendy
+of each link;
+#X connect 0 0 2 0;
+#X connect 1 0 2 0;
+#X connect 2 0 10 0;
+#X connect 4 0 5 0;
+#X connect 5 0 12 0;
+#X connect 6 0 7 0;
+#X connect 8 0 9 0;
+#X connect 10 0 8 0;
+#X connect 12 0 10 0;