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/29_aglom.pd | 104 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 104 insertions(+) create mode 100755 exemples/29_aglom.pd (limited to 'exemples/29_aglom.pd') diff --git a/exemples/29_aglom.pd b/exemples/29_aglom.pd new file mode 100755 index 0000000..c674a29 --- /dev/null +++ b/exemples/29_aglom.pd @@ -0,0 +1,104 @@ +#N canvas 51 18 635 423 10; +#X obj 18 181 t b b; +#X obj 18 103 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X msg 145 149 0 \, destroy; +#X obj 111 177 gemwin; +#X msg 111 124 reset \, create \, 1; +#X obj 18 390 s masse; +#X obj 266 150 s reset_masse; +#X msg 266 128 bang; +#X text 359 281 <- right border; +#X text 360 303 <- left border; +#X text 360 325 <- top border; +#X text 360 347 <- bottom border; +#N canvas 845 31 438 384 pool 0; +#X obj 290 290 aglom2 29; +#X obj 0 0 aglom2 0; +#X obj 10 10 aglom2 1; +#X obj 20 20 aglom2 2; +#X obj 30 30 aglom2 3; +#X obj 40 40 aglom2 4; +#X obj 50 50 aglom2 5; +#X obj 60 60 aglom2 6; +#X obj 70 70 aglom2 7; +#X obj 80 80 aglom2 8; +#X obj 90 90 aglom2 9; +#X obj 100 100 aglom2 10; +#X obj 110 110 aglom2 11; +#X obj 120 120 aglom2 12; +#X obj 130 130 aglom2 13; +#X obj 140 140 aglom2 14; +#X obj 150 150 aglom2 15; +#X obj 160 160 aglom2 16; +#X obj 170 170 aglom2 17; +#X obj 180 180 aglom2 18; +#X obj 190 190 aglom2 19; +#X obj 200 200 aglom2 20; +#X obj 210 210 aglom2 21; +#X obj 220 220 aglom2 22; +#X obj 230 230 aglom2 23; +#X obj 240 240 aglom2 24; +#X obj 250 250 aglom2 25; +#X obj 260 260 aglom2 26; +#X obj 270 270 aglom2 27; +#X obj 280 280 aglom2 28; +#X restore 398 132 pd pool; +#N canvas 860 482 315 409 creation 0; +#X obj 43 319 s pd-new; +#X msg 86 95 \; pd filename new ./ \; #N canvas \; #X pop 1 \;; +#X msg 43 289 menuclose; +#X obj 76 238 pack f f f; +#X obj 43 47 sel 0 1; +#X obj 43 29 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1 +; +#X obj 61 72 t b b; +#X obj 76 187 t f f f; +#X obj 103 211 * 10; +#X obj 76 211 * 10; +#X msg 76 265 obj \$1 \$2 aglom2 \$3; +#X obj 61 163 ch_uzi 30; +#X connect 2 0 0 0; +#X connect 3 0 10 0; +#X connect 4 0 2 0; +#X connect 4 1 6 0; +#X connect 5 0 4 0; +#X connect 6 0 11 0; +#X connect 6 1 1 0; +#X connect 7 0 9 0; +#X connect 7 1 8 0; +#X connect 7 2 3 2; +#X connect 8 0 3 1; +#X connect 9 0 3 0; +#X connect 10 0 0 0; +#X connect 11 1 7 0; +#X restore 398 158 pd creation pool; +#X obj 61 214 s link; +#X obj 18 154 metro 5; +#X obj 53 280 iLine2D masse 3.5 -3.5 3.5 3.5 1000 0 0 10; +#X obj 63 304 iLine2D masse -3.5 3.5 -3.5 -3.5 1000 0 0 10; +#X obj 78 327 iLine2D masse 3.5 3.5 -3.5 3.5 1000 0 0 10; +#X obj 89 350 iLine2D masse -3.5 -3.5 3.5 -3.5 1000 0 0 10; +#X text 50 100 <- begin (change the metro speed for slow computer) +; +#X floatatom 55 123 5 0 0 0 - - -; +#X obj 43 260 iAmbient2D masse 0 0 0.01 0.01 1; +#X text 359 257 <- give random speed and ambient viscosity; +#X text 174 35 All masses got 2 circular interactors around them. This +create a non linear interactor. this make them to atract / repuls depending +on ther distances....; +#X text 177 6 All masses interact each other in a way for the creation +of small structures; +#X connect 0 0 5 0; +#X connect 0 1 14 0; +#X connect 0 1 16 0; +#X connect 0 1 17 0; +#X connect 0 1 18 0; +#X connect 0 1 19 0; +#X connect 0 1 22 0; +#X connect 1 0 15 0; +#X connect 2 0 3 0; +#X connect 4 0 3 0; +#X connect 7 0 6 0; +#X connect 15 0 0 0; +#X connect 21 0 15 1; -- cgit v1.2.1