From 29e5927c1b34c7db302727028633c52d36b7ca98 Mon Sep 17 00:00:00 2001 From: "N.N." Date: Mon, 1 May 2006 02:54:39 +0000 Subject: *** empty log message *** svn path=/trunk/externals/nusmuk/; revision=5040 --- msd2D/06_msd2Dgravit.pd | 270 +++++++++++++++++++++++++----------------------- 1 file changed, 140 insertions(+), 130 deletions(-) (limited to 'msd2D/06_msd2Dgravit.pd') diff --git a/msd2D/06_msd2Dgravit.pd b/msd2D/06_msd2Dgravit.pd index 21d3e07..3f237c5 100644 --- a/msd2D/06_msd2Dgravit.pd +++ b/msd2D/06_msd2Dgravit.pd @@ -1,16 +1,109 @@ -#N canvas 817 45 843 799 10; +#N canvas 597 49 843 799 10; +#X obj 119 28 cnv 15 400 300 empty empty CREATION 20 12 1 14 -260818 +-66577 0; #X obj 167 310 t a; -#X obj 167 32 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +#X obj 42 28 bng 20 250 50 0 empty empty empty 0 -6 0 8 -258699 -1 -1; #X msg 239 84 reset; -#X obj 52 15 loadbang; -#X text 205 33 reset; +#X obj 245 32 loadbang; +#X text 68 30 reset; #X obj 167 55 t b b b b b; -#X obj 52 572 msd2D --------------------------------; +#X text 501 28 change number of mass to test performance; +#X text 501 41 (and reset afterwards); +#X obj 441 34 nbx 5 14 1 20000 1 1 empty empty empty 0 -6 0 10 -262144 +-1 -1 1681.79 256; +#X msg 185 241 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4; +#X msg 167 215 setL sun 0; +#X msg 221 107 mass fix 0 100 0 0; +#X text 409 270 0.2 : rigidity \, 0 : damping \, -2 : power \, 0.4 +: Lmin; +#X text 363 109 Sun; +#X text 288 181 Initial speed; +#N canvas 309 104 769 663 masses 0; +#X obj 151 16 inlet; +#X obj 232 28 inlet; +#X obj 151 616 outlet; +#X msg 151 551 mass mob 1 \$1 \$2 \$3; +#X msg 151 307 seed 3; +#X obj 151 519 pack f f f; +#X obj 151 228 t b b b; +#X msg 243 306 seed 20; +#X msg 331 308 seed 10; +#X obj 151 327 random 10000; +#X obj 243 371 - 1; +#X obj 331 370 - 1; +#X obj 151 47 t b; +#X obj 333 52 loadbang; +#X text 263 277 X; +#X text 166 276 M; +#X text 372 278 Y; +#X obj 151 67 until; +#X obj 151 86 f; +#X obj 177 87 + 1; +#X obj 177 118 mod 1000; +#X obj 206 87 sel 0; +#X obj 243 327 random 1000; +#X obj 331 328 random 1000; +#X obj 243 348 / 50000; +#X obj 331 349 / 50000; +#X obj 151 349 / 250; +#X obj 151 371 + 185; +#X connect 0 0 12 0; +#X connect 1 0 20 1; +#X connect 3 0 2 0; +#X connect 4 0 9 0; +#X connect 5 0 3 0; +#X connect 6 0 9 0; +#X connect 6 1 22 0; +#X connect 6 2 23 0; +#X connect 7 0 22 0; +#X connect 8 0 23 0; +#X connect 9 0 26 0; +#X connect 10 0 5 1; +#X connect 11 0 5 2; +#X connect 12 0 17 0; +#X connect 13 0 7 0; +#X connect 13 0 8 0; +#X connect 13 0 4 0; +#X connect 17 0 18 0; +#X connect 18 0 19 0; +#X connect 18 0 6 0; +#X connect 19 0 20 0; +#X connect 20 0 21 0; +#X connect 20 0 18 1; +#X connect 21 0 17 1; +#X connect 22 0 24 0; +#X connect 23 0 25 0; +#X connect 24 0 10 0; +#X connect 25 0 11 0; +#X connect 26 0 27 0; +#X connect 27 0 5 0; +#X restore 203 144 pd masses; +#X text 410 289 The power of the link is -2 to simulate a gravity field +in 1/R^2; +#X text 292 146 Particules; +#X msg 185 268 link sun fix mob 0.2 0 -2 0.4; +#X msg 167 178 forceX mob 5.9; +#X obj 453 353 cnv 15 300 300 empty empty GEM_STUFF 20 12 1 14 -241291 +-66577 0; #X msg 460 409 0 \, destroy; -#X obj 458 500 gemhead; -#X obj 458 553 world_light; -#X obj 52 301 t b; +#X obj 460 525 gemhead; +#X obj 460 578 world_light; +#X obj 460 488 gemwin; +#X msg 460 433 view 0 0 4 0 0 0 0 1 0; +#X msg 460 386 reset \, dimen 800 800 \, create \, lighting 1 \, 1 +; +#X obj 460 552 rotateXYZ 30 20 0; +#X obj 38 359 cnv 15 350 250 empty empty COMPUTING 20 12 1 14 -260818 +-66577 0; +#X obj 52 542 msd2D --------------------------------; +#X obj 52 424 t b; +#X obj 52 401 gemhead; +#X msg 197 483 forceX mob 0.051; +#X msg 197 509 forceY mob 0.1; +#X msg 52 458 bang \, bang \, get massesPos; +#X obj 37 639 cnv 15 300 100 empty empty DISPLAYING 20 12 1 14 -241291 +-66577 0; #N canvas 637 205 605 590 massrender 0; #X obj 124 5 inlet; #X obj 291 245 translateXYZ; @@ -33,22 +126,23 @@ #X obj 175 76 unpack f f; #X obj 161 121 t b f; #X obj 169 290 color 1 0 0; -#X obj 292 291 color 1 1 1; -#X obj 57 315 sphere 0.3 20; #X obj 292 319 square 0.015; #X obj 168 320 square 0.04; #X text 61 351 Sun; #X text 169 355 Red particule; #X text 307 355 Particule; +#X obj 56 315 sphere 0.3 30; +#X obj 57 289 color 0.3 0.3 0.3; +#X obj 292 291 color 0.3 0.3 0.3; #X connect 0 0 10 0; -#X connect 1 0 21 0; +#X connect 1 0 28 0; #X connect 2 0 4 1; #X connect 3 0 1 0; #X connect 4 0 3 0; #X connect 5 0 11 0; #X connect 5 1 1 1; #X connect 5 2 1 2; -#X connect 6 0 22 0; +#X connect 6 0 27 0; #X connect 7 0 9 1; #X connect 8 0 6 0; #X connect 9 0 8 0; @@ -68,122 +162,38 @@ #X connect 18 1 14 2; #X connect 19 0 17 0; #X connect 19 1 14 1; -#X connect 20 0 24 0; -#X connect 21 0 23 0; -#X restore 52 648 pd massrender; -#X obj 52 278 gemhead; -#X obj 460 458 gemwin; -#X msg 460 433 view 0 0 4 0 0 0 0 1 0; -#X text 501 28 change number of mass to test performance; -#X text 501 41 (and reset afterwards); -#X obj 441 34 nbx 5 14 1 20000 1 1 empty empty empty 0 -6 0 10 -262144 --1 -1 2291.81 256; -#X msg 170 245 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4; -#X msg 119 203 setL sun 0; -#X msg 221 107 mass fix 0 100 0 0; -#X obj 458 527 rotateXYZ 30 20 0; -#X msg 167 178 forceX mob 5; -#X text 409 258 0.2 : rigidity \, 0 : damping \, -2 : power \, 0.4 -: Lmin; -#X msg 460 386 reset \, dimen 800 800 \, create \, lighting 1 \, 1 -; -#X msg 52 335 bang \, bang \, get massesPos \, get massesSpeeds; -#X obj 52 611 route massesPos massesSpeeds; -#X text 358 111 Sun; -#X text 267 177 Initial speed; -#N canvas 0 0 945 455 masses 0; -#X obj 151 16 inlet; -#X obj 232 28 inlet; -#X obj 151 347 outlet; -#X msg 151 282 mass mob 1 \$1 \$2 \$3; -#X obj 574 221 random 100; -#X obj 499 220 random 100; -#X msg 422 197 seed 3; -#X obj 151 250 pack f f f; -#X obj 151 228 t b b b; -#X msg 499 199 seed 20; -#X msg 574 201 seed 10; -#X obj 422 217 random 10000; -#X obj 424 236 / 500; -#X obj 500 261 - 1; -#X obj 574 263 - 1; -#X obj 425 258 + 205; -#X obj 499 241 / 10000; -#X obj 574 242 / 10000; -#X obj 151 47 t b; -#X obj 333 52 loadbang; -#X text 516 172 X; -#X text 434 168 M; -#X text 612 173 Y; -#X obj 151 67 until; -#X obj 151 86 f; -#X obj 177 87 + 1; -#X obj 177 118 mod 1000; -#X obj 206 87 sel 0; -#X connect 0 0 18 0; -#X connect 1 0 26 1; -#X connect 3 0 2 0; -#X connect 4 0 17 0; -#X connect 5 0 16 0; +#X connect 20 0 22 0; +#X connect 27 0 26 0; +#X connect 28 0 21 0; +#X restore 52 709 pd massrender; +#X obj 52 672 route massesPos; +#X connect 1 0 30 0; +#X connect 2 0 6 0; +#X connect 3 0 1 0; +#X connect 4 0 6 0; #X connect 6 0 11 0; -#X connect 7 0 3 0; -#X connect 8 0 11 0; -#X connect 8 1 5 0; -#X connect 8 2 4 0; -#X connect 9 0 5 0; -#X connect 10 0 4 0; -#X connect 11 0 12 0; -#X connect 12 0 15 0; -#X connect 13 0 7 1; -#X connect 14 0 7 2; -#X connect 15 0 7 0; -#X connect 16 0 13 0; -#X connect 17 0 14 0; -#X connect 18 0 23 0; -#X connect 19 0 9 0; -#X connect 19 0 10 0; -#X connect 19 0 6 0; -#X connect 23 0 24 0; -#X connect 24 0 25 0; -#X connect 24 0 8 0; -#X connect 25 0 26 0; -#X connect 26 0 27 0; -#X connect 26 0 24 1; -#X connect 27 0 23 1; -#X restore 203 144 pd masses; -#X text 410 277 The power of the link is -2 to simulate a gravity field -in 1/R^2; -#X text 290 147 Particules; -#X msg 171 270 link sun fix mob 0.2 0 -2 0.4; -#X msg 125 508 forceX mob 1; -#X msg 136 534 forceY mob 1; -#X connect 0 0 6 0; -#X connect 1 0 5 0; -#X connect 2 0 0 0; -#X connect 3 0 5 0; -#X connect 5 0 19 0; -#X connect 5 0 22 0; -#X connect 5 1 18 0; -#X connect 5 1 32 0; -#X connect 5 2 29 0; -#X connect 5 3 20 0; -#X connect 5 4 2 0; -#X connect 6 0 26 0; -#X connect 7 0 13 0; -#X connect 8 0 21 0; -#X connect 10 0 25 0; -#X connect 12 0 10 0; -#X connect 14 0 13 0; -#X connect 17 0 29 1; -#X connect 18 0 0 0; -#X connect 19 0 0 0; -#X connect 20 0 0 0; -#X connect 21 0 9 0; -#X connect 22 0 0 0; -#X connect 24 0 13 0; -#X connect 25 0 6 0; -#X connect 26 0 11 0; -#X connect 29 0 0 0; -#X connect 32 0 0 0; -#X connect 33 0 6 0; -#X connect 34 0 6 0; +#X connect 6 0 20 0; +#X connect 6 1 10 0; +#X connect 6 1 19 0; +#X connect 6 2 16 0; +#X connect 6 3 12 0; +#X connect 6 4 3 0; +#X connect 9 0 16 1; +#X connect 10 0 1 0; +#X connect 11 0 1 0; +#X connect 12 0 1 0; +#X connect 16 0 1 0; +#X connect 19 0 1 0; +#X connect 20 0 1 0; +#X connect 22 0 25 0; +#X connect 23 0 28 0; +#X connect 26 0 25 0; +#X connect 27 0 25 0; +#X connect 28 0 24 0; +#X connect 30 0 38 0; +#X connect 31 0 35 0; +#X connect 32 0 31 0; +#X connect 33 0 30 0; +#X connect 34 0 30 0; +#X connect 35 0 30 0; +#X connect 38 0 37 0; -- cgit v1.2.1