diff options
| -rw-r--r-- | examples/66_setK_table.pd | 116 |
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; |