From 6adfba996c34b2c78515e8a50ad5928188d78612 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?=
 <zmoelnig@users.sourceforge.net>
Date: Thu, 7 Feb 2008 23:05:57 +0000
Subject: reorganizing

svn path=/trunk/; revision=9376
---
 extensions/xgui/physics/spring.pd | 155 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 155 insertions(+)
 create mode 100644 extensions/xgui/physics/spring.pd

(limited to 'extensions/xgui/physics/spring.pd')

diff --git a/extensions/xgui/physics/spring.pd b/extensions/xgui/physics/spring.pd
new file mode 100644
index 00000000..b5f75d28
--- /dev/null
+++ b/extensions/xgui/physics/spring.pd
@@ -0,0 +1,155 @@
+#N canvas 207 165 1045 677 10;
+#X obj 13 33 inlet;
+#X obj 21 119 concat !xy;
+#X obj 40 144 concat ?xy;
+#X obj 97 120 concat !xy;
+#X obj 118 143 concat ?xy;
+#X text 912 34 k : N/m;
+#X obj 899 64 inlet;
+#X obj 175 319 outlet;
+#X obj 16 206 convert xy= xy1=;
+#X obj 157 206 convert xy= xy1=;
+#X obj 899 87 route mass;
+#X obj 338 358 vector \$1_calcul_l;
+#X obj 411 270 convert xy= add;
+#X obj 353 190 t b b b b;
+#X msg 453 222 !xy 0 0;
+#X obj 337 405 value \$1_l;
+#X obj 198 120 value \$1_l;
+#X msg 198 143 l= \$1;
+#X msg 375 224 ?xy;
+#X msg 413 223 ?xy;
+#X msg 337 225 ?abs;
+#X obj 338 382 route abs=;
+#X obj 292 121 value \$1_k;
+#X obj 374 15 valueinit \$1_k \$2;
+#X obj 292 144 concat k=;
+#X msg 714 565 !abs \$1;
+#X text 642 29 k : N/m;
+#X obj 653 61 inlet;
+#X obj 653 84 route mass;
+#X obj 607 600 force \$1_s1;
+#X msg 653 571 !abs \$1;
+#X obj 701 632 outlet;
+#X obj 376 146 force \$1_s1;
+#X obj 724 537 * -1;
+#X text 10 7 spring name k l x1 y1 x2 y2;
+#X obj 374 40 valueinit \$1_l \$3;
+#X obj 483 146 force \$1_s2;
+#X msg 376 124 ?force;
+#X msg 482 125 ?force;
+#X obj 13 53 route !xy1 ?xy1 !xy2 ?xy2 !l ?l l !k ?k ?force1 ?force2;
+#X msg 653 108 !xy \$1 \$2;
+#X msg 899 111 !xy \$1 \$2;
+#X obj 653 162 r b_spring;
+#X obj 719 598 force \$1_s2;
+#X obj 774 284 convert xy= add;
+#X msg 816 236 !xy 0 0;
+#X msg 738 238 ?xy;
+#X msg 776 237 ?xy;
+#X msg 665 236 ?abs;
+#X obj 701 372 vector \$1_calcul_kl;
+#X obj 683 442 value \$1_l;
+#X obj 683 466 -;
+#X obj 661 514 *;
+#X obj 661 484 value \$1_k;
+#X obj 651 193 t b b b b b b b;
+#X msg 705 237 ?xy;
+#X obj 700 394 route abs= xy=;
+#X obj 813 625 outlet;
+#X text 853 515 dh20020404;
+#X obj 16 178 vector \$1_p1 \$4 \$5;
+#X obj 157 179 vector \$1_p2 \$6 \$7;
+#X obj 410 247 vector \$1_p1 \$4 \$5;
+#X obj 376 296 vector \$1_p2 \$6 \$7;
+#X obj 773 261 vector \$1_p1 \$4 \$5;
+#X obj 739 310 vector \$1_p2 \$6 \$7;
+#X obj 653 130 vector \$1_p1 \$4 \$5;
+#X obj 899 133 vector \$1_p2 \$6 \$7;
+#X msg 292 98 bang;
+#X msg 198 96 bang;
+#X msg 746 418 !force \$1 \$2;
+#X obj 376 318 convert xy= substract;
+#X obj 739 332 convert xy= substract;
+#X connect 0 0 39 0;
+#X connect 1 0 59 0;
+#X connect 2 0 59 0;
+#X connect 3 0 60 0;
+#X connect 4 0 60 0;
+#X connect 6 0 10 0;
+#X connect 8 0 7 0;
+#X connect 9 0 7 0;
+#X connect 10 0 41 0;
+#X connect 11 0 21 0;
+#X connect 12 0 11 0;
+#X connect 13 0 20 0;
+#X connect 13 1 18 0;
+#X connect 13 2 19 0;
+#X connect 13 3 14 0;
+#X connect 14 0 11 0;
+#X connect 16 0 17 0;
+#X connect 17 0 7 0;
+#X connect 18 0 62 0;
+#X connect 19 0 61 0;
+#X connect 20 0 11 0;
+#X connect 21 0 15 0;
+#X connect 22 0 24 0;
+#X connect 24 0 7 0;
+#X connect 25 0 43 0;
+#X connect 27 0 28 0;
+#X connect 28 0 40 0;
+#X connect 29 1 31 0;
+#X connect 30 0 29 0;
+#X connect 32 0 7 0;
+#X connect 33 0 25 0;
+#X connect 36 0 7 0;
+#X connect 37 0 32 0;
+#X connect 38 0 36 0;
+#X connect 39 0 1 0;
+#X connect 39 1 2 0;
+#X connect 39 2 3 0;
+#X connect 39 3 4 0;
+#X connect 39 4 16 0;
+#X connect 39 5 68 0;
+#X connect 39 6 13 0;
+#X connect 39 7 22 0;
+#X connect 39 8 67 0;
+#X connect 39 9 37 0;
+#X connect 39 10 38 0;
+#X connect 40 0 65 0;
+#X connect 41 0 66 0;
+#X connect 42 0 54 0;
+#X connect 43 1 57 0;
+#X connect 44 0 49 0;
+#X connect 45 0 49 0;
+#X connect 46 0 64 0;
+#X connect 47 0 63 0;
+#X connect 48 0 49 0;
+#X connect 49 0 56 0;
+#X connect 50 0 51 0;
+#X connect 51 0 52 1;
+#X connect 52 0 33 0;
+#X connect 52 0 30 0;
+#X connect 53 0 52 0;
+#X connect 54 0 53 0;
+#X connect 54 1 50 0;
+#X connect 54 2 48 0;
+#X connect 54 3 55 0;
+#X connect 54 4 46 0;
+#X connect 54 5 47 0;
+#X connect 54 6 45 0;
+#X connect 55 0 49 0;
+#X connect 56 0 51 1;
+#X connect 56 1 69 0;
+#X connect 59 0 8 0;
+#X connect 60 0 9 0;
+#X connect 61 0 12 0;
+#X connect 62 0 70 0;
+#X connect 63 0 44 0;
+#X connect 64 0 71 0;
+#X connect 67 0 22 0;
+#X connect 68 0 16 0;
+#X connect 69 0 29 0;
+#X connect 69 0 43 0;
+#X connect 70 0 11 0;
+#X connect 71 0 49 0;
-- 
cgit v1.2.1