1 files changed, 104 insertions, 0 deletions
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;