From c050bb9a7595860bf72e7c407ff3e8cbd7e77480 Mon Sep 17 00:00:00 2001 From: Cyrille Henry Date: Fri, 9 Apr 2004 16:55:47 +0000 Subject: This commit was generated by cvs2svn to compensate for changes in r1590, which included commits to RCS files with non-trunk default branches. svn path=/trunk/externals/pmpd/; revision=1591 --- exemples/16_name_and_interactors.pd | 148 ++++++++++++++++++++++++++++++++++++ 1 file changed, 148 insertions(+) create mode 100755 exemples/16_name_and_interactors.pd (limited to 'exemples/16_name_and_interactors.pd') diff --git a/exemples/16_name_and_interactors.pd b/exemples/16_name_and_interactors.pd new file mode 100755 index 0000000..0b71d57 --- /dev/null +++ b/exemples/16_name_and_interactors.pd @@ -0,0 +1,148 @@ +#N canvas 34 14 669 578 12; +#X obj 9 18 t b b; +#X obj 9 -30 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X obj 158 -6 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1 +-1; +#X msg 238 46 0 \, destroy; +#X msg 204 21 reset \, create \, 1; +#N canvas 623 135 504 293 init 0; +#X obj 49 50 loadbang; +#X msg 44 84 Xmin -3.8; +#X msg 58 110 Xmax 3.8; +#X msg 81 131 Ymin -3.8; +#X msg 95 157 Ymax 3.8; +#X obj 47 201 s \$0-masse; +#X connect 0 0 1 0; +#X connect 0 0 2 0; +#X connect 0 0 3 0; +#X connect 0 0 4 0; +#X connect 1 0 5 0; +#X connect 2 0 5 0; +#X connect 3 0 5 0; +#X connect 4 0 5 0; +#X restore 401 -8 pd init; +#X obj 88 -11 loadbang; +#X msg 139 45 reset; +#X msg 113 69 resetL; +#X msg 88 93 resetF; +#X obj 88 18 t b b b; +#X obj 9 -9 metro 50; +#X obj 204 74 gemwin; +#X text 90 152 negative Y force (gravity); +#X text 86 266 positive Y force; +#X obj 23 498 gemhead; +#X obj 43 524 unpack s f f; +#X obj 42 551 translateXYZ 0 0 0; +#X obj 42 583 sphere 0.3; +#X obj 173 498 gemhead; +#X obj 193 524 unpack s f f; +#X obj 192 551 translateXYZ 0 0 0; +#X obj 192 583 sphere 0.3; +#X obj 330 499 gemhead; +#X obj 350 525 unpack s f f; +#X obj 349 552 translateXYZ 0 0 0; +#X obj 349 584 sphere 0.3; +#X obj 479 499 gemhead; +#X obj 499 525 unpack s f f; +#X obj 498 552 translateXYZ 0 0 0; +#X obj 498 584 sphere 0.3; +#X obj 628 499 gemhead; +#X obj 648 525 unpack s f f; +#X obj 647 552 translateXYZ 0 0 0; +#X obj 647 584 sphere 0.3; +#X obj 44 465 masse2D foo 1 -2 3; +#X obj 193 465 masse2D foo2 1 -1 3; +#X obj 350 465 masse2D foo3 1 0 3; +#X obj 499 465 masse2D foo4 1 1 3; +#X obj 648 465 masse2D foo 1 2 3; +#X obj 9 123 s masse; +#X obj 55 437 r masse; +#X obj 193 438 r masse; +#X obj 350 436 r masse; +#X obj 499 436 r masse; +#X obj 648 437 r masse; +#X obj 52 174 iAmbient2D foo 0 -0.1; +#X obj 63 201 iAmbient2D foo2 0 -0.1; +#X obj 76 227 iAmbient2D foo3 0 -0.1; +#X text 268 173 force is apply to masse named foo \, foo2 and foo3 +; +#X text 344 287 a positive forece is apply to foo2 \, and to foo3 (according +to pd link). this force allows masse 2 and 3 to stay at Y=0.; +#X obj 529 657 iAmbient2D; +#X obj 530 684 iLine2D; +#X obj 530 710 iSeg2D; +#X obj 530 737 iCircle2D; +#X msg 17 406 reset; +#X obj 17 379 sel 1; +#X obj 17 351 tSquare2D -4 4 -10000 -4; +#X text 260 345 tSquare is a test : test if the position of the masse +is in a specific square. This test is used to reset the mass to it's +initial state if the mass go out of the screen.; +#X obj 44 292 iSeg2D foo2 -3 0 3 0 3 0 0 0.5 1; +#X text 398 -34 This patch explain how interactors works; +#X text 283 195 but not to foo4 \, so it will not move.; +#X text 201 -10 <- reset; +#X text 348 50 interactor are design to be a kind of link beetween +masses and a simple object.; +#X text 347 85 interactors can be a link to all masse with the same +name. It's easier to patch than putting a link object for all link. +; +#X text 41 655 for more informations about interactors or test \, see +the help file :; +#X obj 623 683 tLine2D; +#X obj 623 709 tSeg2D; +#X obj 623 736 tCircle2D; +#X obj 622 656 tSquare2D; +#X text 356 20 <- 1 GEM window; +#X text 34 -37 <- 2 begin simulation; +#X connect 0 0 40 0; +#X connect 0 1 46 0; +#X connect 0 1 47 0; +#X connect 0 1 48 0; +#X connect 0 1 59 0; +#X connect 1 0 11 0; +#X connect 2 0 10 0; +#X connect 3 0 12 0; +#X connect 4 0 12 0; +#X connect 6 0 10 0; +#X connect 7 0 40 0; +#X connect 10 0 9 0; +#X connect 10 1 8 0; +#X connect 10 2 7 0; +#X connect 11 0 0 0; +#X connect 15 0 17 0; +#X connect 16 1 17 1; +#X connect 16 2 17 2; +#X connect 17 0 18 0; +#X connect 19 0 21 0; +#X connect 20 1 21 1; +#X connect 20 2 21 2; +#X connect 21 0 22 0; +#X connect 23 0 25 0; +#X connect 24 1 25 1; +#X connect 24 2 25 2; +#X connect 25 0 26 0; +#X connect 27 0 29 0; +#X connect 28 1 29 1; +#X connect 28 2 29 2; +#X connect 29 0 30 0; +#X connect 31 0 33 0; +#X connect 32 1 33 1; +#X connect 32 2 33 2; +#X connect 33 0 34 0; +#X connect 35 0 16 0; +#X connect 35 0 57 0; +#X connect 36 0 20 0; +#X connect 37 0 24 0; +#X connect 38 0 28 0; +#X connect 39 0 32 0; +#X connect 41 0 35 0; +#X connect 42 0 36 0; +#X connect 43 0 37 0; +#X connect 44 0 38 0; +#X connect 45 0 39 0; +#X connect 55 0 35 0; +#X connect 56 0 55 0; +#X connect 57 0 56 0; +#X connect 59 0 37 0; -- cgit v1.2.1