From 02a5595973b61d2cf789b9074167ed73b928d157 Mon Sep 17 00:00:00 2001
From: Guenter  Geiger <ggeiger@users.sourceforge.net>
Date: Wed, 13 Nov 2002 08:38:02 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in
 r206, which included commits to RCS files with non-trunk default branches.

svn path=/trunk/; revision=207
---
 xgui/physics/mass.pd | 118 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 118 insertions(+)
 create mode 100644 xgui/physics/mass.pd

(limited to 'xgui/physics/mass.pd')

diff --git a/xgui/physics/mass.pd b/xgui/physics/mass.pd
new file mode 100644
index 00000000..bed61e42
--- /dev/null
+++ b/xgui/physics/mass.pd
@@ -0,0 +1,118 @@
+#N canvas 336 189 834 719 10;
+#X obj 24 35 inlet;
+#X obj 30 631 outlet;
+#X text 591 652 dh20020401;
+#X obj 77 86 bang;
+#X msg 24 142 mass= \$1;
+#X obj 466 162 r b_mass;
+#X obj 561 22 valueinit \$1_m \$2;
+#X obj 24 119 value \$1_m;
+#X obj 126 119 concat !xy;
+#X text 23 10 mass name m x y speed_x speed_y;
+#X obj 291 276 concat add;
+#X obj 371 275 value \$1_m;
+#X msg 371 299 divide \$1 \$1;
+#X msg 590 273 ?xy;
+#X obj 222 276 r b_init;
+#X msg 222 301 !xy 0 0;
+#X obj 125 171 convert xy= speed=;
+#X msg 143 87 ?xy;
+#X obj 290 395 vector \$1_speed \$3 \$4;
+#X obj 293 363 convert xy= add;
+#X msg 620 274 ?xy;
+#X obj 291 336 vector \$1_calcul1;
+#X obj 288 423 unpack s f f;
+#X obj 326 451 * 0.01;
+#X obj 386 453 * 0.01;
+#X obj 303 493 pack s f f;
+#X msg 470 273 mult 0.01 0.01;
+#X obj 304 517 route list;
+#X msg 289 451 move;
+#X obj 295 119 atom \$1_pos \$3 \$4;
+#X obj 304 550 atom \$1_pos \$3 \$4;
+#X msg 723 273 ?coord;
+#X obj 124 145 vector \$1_speed \$5 \$6;
+#X obj 337 669 outlet;
+#X obj 297 158 inlet;
+#X obj 297 184 route force;
+#X msg 256 87 1;
+#X msg 289 87 0;
+#X obj 466 188 spigot;
+#X obj 24 62 route !mass ?mass !speed ?speed speed on off;
+#X msg 187 88 !abs \$1;
+#X obj 668 301 vector \$1_speed \$5 \$6;
+#X obj 466 212 t b b b b b b;
+#X obj 387 597 unpack f f;
+#X obj 304 597 unpack f f;
+#X obj 304 574 route coord=;
+#X msg 340 647 mass \$1 \$2 \$3 \$4;
+#X text 507 596 mass x y speed_x speed_y;
+#X obj 339 622 pack f f f f;
+#X msg 668 274 ?xy;
+#X obj 668 328 route xy=;
+#X obj 461 394 value time_interval;
+#X obj 461 371 loadbang;
+#X connect 0 0 39 0;
+#X connect 3 0 7 0;
+#X connect 4 0 1 0;
+#X connect 5 0 38 0;
+#X connect 7 0 4 0;
+#X connect 8 0 32 0;
+#X connect 10 0 21 0;
+#X connect 11 0 12 0;
+#X connect 12 0 21 0;
+#X connect 13 0 21 0;
+#X connect 14 0 15 0;
+#X connect 15 0 21 0;
+#X connect 16 0 1 0;
+#X connect 17 0 32 0;
+#X connect 18 0 22 0;
+#X connect 19 0 18 0;
+#X connect 20 0 18 0;
+#X connect 21 0 19 0;
+#X connect 22 0 28 0;
+#X connect 22 1 23 0;
+#X connect 22 2 24 0;
+#X connect 23 0 25 1;
+#X connect 24 0 25 2;
+#X connect 25 0 27 0;
+#X connect 26 0 21 0;
+#X connect 27 0 30 0;
+#X connect 28 0 25 0;
+#X connect 29 0 1 0;
+#X connect 30 0 45 0;
+#X connect 31 0 30 0;
+#X connect 32 0 16 0;
+#X connect 34 0 35 0;
+#X connect 35 0 10 0;
+#X connect 36 0 38 1;
+#X connect 37 0 38 1;
+#X connect 38 0 42 0;
+#X connect 39 0 7 0;
+#X connect 39 1 3 0;
+#X connect 39 2 8 0;
+#X connect 39 3 17 0;
+#X connect 39 4 40 0;
+#X connect 39 5 36 0;
+#X connect 39 6 37 0;
+#X connect 39 7 29 0;
+#X connect 40 0 32 0;
+#X connect 41 0 50 0;
+#X connect 42 0 31 0;
+#X connect 42 1 49 0;
+#X connect 42 2 20 0;
+#X connect 42 3 13 0;
+#X connect 42 4 26 0;
+#X connect 42 5 11 0;
+#X connect 43 0 48 2;
+#X connect 43 1 48 3;
+#X connect 44 0 48 0;
+#X connect 44 1 48 1;
+#X connect 45 0 44 0;
+#X connect 46 0 33 0;
+#X connect 48 0 46 0;
+#X connect 49 0 41 0;
+#X connect 50 0 43 0;
+#X connect 51 0 23 1;
+#X connect 51 0 24 1;
+#X connect 52 0 51 0;
-- 
cgit v1.2.1