From 6adfba996c34b2c78515e8a50ad5928188d78612 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?IOhannes=20m=20zm=C3=B6lnig?= Date: Thu, 7 Feb 2008 23:05:57 +0000 Subject: reorganizing svn path=/trunk/; revision=9376 --- extensions/xgui/physics/damping.pd | 59 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 59 insertions(+) create mode 100644 extensions/xgui/physics/damping.pd (limited to 'extensions/xgui/physics/damping.pd') diff --git a/extensions/xgui/physics/damping.pd b/extensions/xgui/physics/damping.pd new file mode 100644 index 00000000..1e8a0973 --- /dev/null +++ b/extensions/xgui/physics/damping.pd @@ -0,0 +1,59 @@ +#N canvas 605 407 505 422 10; +#X obj 26 45 inlet; +#X text 237 8 force = -c.v; +#X obj 93 45 valueinit \$1_c \$2; +#X text 23 8 damping name c; +#X obj 62 120 value \$1_c; +#X msg 62 95 bang; +#X obj 243 78 inlet; +#X obj 248 261 value \$1_c; +#X obj 248 310 *; +#X msg 243 128 ?abs; +#X obj 266 284 * -1; +#X obj 248 360 force \$1_s; +#X obj 337 389 outlet; +#X obj 248 211 r b_spring; +#X text 405 368 dh20020404; +#X obj 64 222 outlet; +#X msg 248 335 !abs \$1; +#X obj 122 150 force \$1_s; +#X obj 26 70 route !c ?c ?force; +#X msg 120 95 ?force; +#X obj 264 184 route abs=; +#X msg 284 128 !xy \$3 \$4; +#X obj 264 159 vector \$1_calcul; +#X obj 243 103 t b a a; +#X obj 332 286 vector \$1_speed; +#X msg 362 132 !xy \$3 \$4; +#X obj 385 159 vector \$1_speed; +#X obj 248 236 t b b; +#X msg 332 264 ?xy; +#X msg 332 311 !force \$1 \$2; +#X connect 0 0 18 0; +#X connect 4 0 15 0; +#X connect 5 0 4 0; +#X connect 6 0 23 0; +#X connect 7 0 8 0; +#X connect 8 0 16 0; +#X connect 9 0 22 0; +#X connect 10 0 8 1; +#X connect 11 1 12 0; +#X connect 13 0 27 0; +#X connect 16 0 11 0; +#X connect 17 0 15 0; +#X connect 18 0 4 0; +#X connect 18 1 5 0; +#X connect 18 2 19 0; +#X connect 19 0 17 0; +#X connect 20 0 10 0; +#X connect 21 0 22 0; +#X connect 22 0 20 0; +#X connect 23 0 9 0; +#X connect 23 1 21 0; +#X connect 23 2 25 0; +#X connect 24 0 29 0; +#X connect 25 0 26 0; +#X connect 27 0 7 0; +#X connect 27 1 28 0; +#X connect 28 0 24 0; +#X connect 29 0 11 0; -- cgit v1.2.1