1 files changed, 167 insertions, 0 deletions
diff --git a/exemples/30_falling_aglom.pd b/exemples/30_falling_aglom.pd
new file mode 100755
index 0000000..4877c30
--- /dev/null
+++ b/exemples/30_falling_aglom.pd
@@ -0,0 +1,167 @@
+#N canvas 53 34 632 373 10;
+#X obj 18 137 t b b;
+#X obj 18 48 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X msg 146 95 0 \, destroy;
+#X obj 111 123 gemwin;
+#X obj 18 337 s masse;
+#X text 359 227 <- right border;
+#X text 360 249 <- left border;
+#X text 357 307 <- top border;
+#X text 358 276 <- bottom border;
+#N canvas 527 17 819 225 pool 0;
+#X obj 320 120 aglom3 0 11;
+#X obj 160 0 aglom3 -2 5;
+#X obj 0 0 aglom3 -4 5;
+#X obj 80 0 aglom3 -3 5;
+#X obj 240 0 aglom3 -1 5;
+#X obj 320 0 aglom3 0 5;
+#X obj 400 0 aglom3 1 5;
+#X obj 480 0 aglom3 2 5;
+#X obj 560 0 aglom3 3 5;
+#X obj 640 0 aglom3 4 5;
+#X obj 0 20 aglom3 -4 6;
+#X obj 80 20 aglom3 -3 6;
+#X obj 160 20 aglom3 -2 6;
+#X obj 240 20 aglom3 -1 6;
+#X obj 320 20 aglom3 0 6;
+#X obj 400 20 aglom3 1 6;
+#X obj 480 20 aglom3 2 6;
+#X obj 560 20 aglom3 3 6;
+#X obj 640 20 aglom3 4 6;
+#X obj 0 40 aglom3 -4 7;
+#X obj 80 40 aglom3 -3 7;
+#X obj 160 40 aglom3 -2 7;
+#X obj 240 40 aglom3 -1 7;
+#X obj 320 40 aglom3 0 7;
+#X obj 400 40 aglom3 1 7;
+#X obj 480 40 aglom3 2 7;
+#X obj 560 40 aglom3 3 7;
+#X obj 640 40 aglom3 4 7;
+#X obj 0 60 aglom3 -4 8;
+#X obj 80 60 aglom3 -3 8;
+#X obj 160 60 aglom3 -2 8;
+#X obj 240 60 aglom3 -1 8;
+#X obj 320 60 aglom3 0 8;
+#X obj 400 60 aglom3 1 8;
+#X obj 480 60 aglom3 2 8;
+#X obj 560 60 aglom3 3 8;
+#X obj 640 60 aglom3 4 8;
+#X obj 0 80 aglom3 -4 9;
+#X obj 80 80 aglom3 -3 9;
+#X obj 160 80 aglom3 -2 9;
+#X obj 240 80 aglom3 -1 9;
+#X obj 320 80 aglom3 0 9;
+#X obj 400 80 aglom3 1 9;
+#X obj 480 80 aglom3 2 9;
+#X obj 560 80 aglom3 3 9;
+#X obj 640 80 aglom3 4 9;
+#X obj 0 100 aglom3 -4 10;
+#X obj 80 100 aglom3 -3 10;
+#X obj 160 100 aglom3 -2 10;
+#X obj 240 100 aglom3 -1 10;
+#X obj 320 100 aglom3 0 10;
+#X obj 400 100 aglom3 1 10;
+#X obj 480 100 aglom3 2 10;
+#X obj 560 100 aglom3 3 10;
+#X obj 640 100 aglom3 4 10;
+#X obj 0 120 aglom3 -4 11;
+#X obj 80 120 aglom3 -3 11;
+#X obj 160 120 aglom3 -2 11;
+#X obj 240 120 aglom3 -1 11;
+#X obj 400 120 aglom3 1 11;
+#X obj 480 120 aglom3 2 11;
+#X obj 560 120 aglom3 3 11;
+#X obj 640 120 aglom3 4 11;
+#X restore 398 78 pd pool;
+#N canvas 860 482 321 415 creation 0;
+#X obj 46 380 s pd-new;
+#X msg 86 95 \; pd filename new ./ \; #N canvas \; #X pop 1 \;;
+#X msg 46 350 menuclose;
+#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 msg 79 325 obj \$1 \$2 aglom3 \$3 \$4;
+#X obj 79 299 pack f f f f;
+#X obj 171 259 + 5;
+#X obj 70 228 t f f;
+#X obj 107 272 * 20;
+#X obj 81 272 * 80;
+#X obj 140 240 / 1;
+#X obj 171 237 / 1;
+#X obj 143 263 - 4;
+#X obj 61 163 ch_uzi 8;
+#X obj 60 203 ch_uzi 9;
+#X connect 2 0 0 0;
+#X connect 3 0 2 0;
+#X connect 3 1 5 0;
+#X connect 4 0 3 0;
+#X connect 5 0 15 0;
+#X connect 5 1 1 0;
+#X connect 6 0 0 0;
+#X connect 7 0 6 0;
+#X connect 8 0 7 3;
+#X connect 9 0 11 0;
+#X connect 9 1 12 0;
+#X connect 10 0 7 1;
+#X connect 11 0 7 0;
+#X connect 12 0 14 0;
+#X connect 13 0 8 0;
+#X connect 14 0 7 2;
+#X connect 15 0 16 0;
+#X connect 15 1 10 0;
+#X connect 15 1 13 0;
+#X connect 16 1 9 0;
+#X restore 398 104 pd creation pool;
+#X obj 61 160 s link;
+#X obj 18 100 metro 5;
+#X obj 53 226 iLine2D masse 3.5 -3.5 3.5 3.5 1000 0 0 10;
+#X obj 63 250 iLine2D masse -3.5 3.5 -3.5 -3.5 1000 0 0 10;
+#X text 50 45 <- begin (change the metro speed for slow computer);
+#X floatatom 55 69 5 0 0 0 - - -;
+#X text 359 203 <- give random speed and ambient viscosity;
+#X msg 243 98 reset;
+#X obj 244 120 s masse;
+#N canvas 828 304 454 304 line 0;
+#X obj 62 28 gemhead;
+#X obj 60 82 curve 2;
+#X msg 136 58 5 8 0;
+#X obj 57 135 gemhead;
+#X obj 55 189 curve 2;
+#X msg 132 165 -5 8 0;
+#X obj 162 21 loadbang;
+#X msg 79 55 0.2 3 0;
+#X msg 74 162 -0.2 3 0;
+#X connect 0 0 1 0;
+#X connect 2 0 1 2;
+#X connect 3 0 4 0;
+#X connect 5 0 4 2;
+#X connect 6 0 7 0;
+#X connect 6 0 2 0;
+#X connect 6 0 8 0;
+#X connect 6 0 5 0;
+#X connect 7 0 1 1;
+#X connect 8 0 4 1;
+#X restore 398 131 pd line gem;
+#X obj 77 272 iLine2D masse -3.5 -7.5 3.5 -7.5 1000 0 0 10;
+#X obj 90 195 iAmbient2D masse 0 -0.0015 0 0 0.4;
+#X obj 160 317 iSeg2D masse -5 8 -0.2 3 1 0.5;
+#X obj 165 298 iSeg2D masse 0.2 3 5 8 1 0.5;
+#X msg 111 70 reset \, view 0 0 -8 0 0 0 0 1 0 \, create \, 1;
+#X text 145 10 It's the same as previus exemple \, but in a gravity
+field.;
+#X connect 0 0 4 0;
+#X connect 0 1 11 0;
+#X connect 0 1 13 0;
+#X connect 0 1 14 0;
+#X connect 0 1 21 0;
+#X connect 0 1 22 0;
+#X connect 0 1 23 0;
+#X connect 0 1 24 0;
+#X connect 1 0 12 0;
+#X connect 2 0 3 0;
+#X connect 12 0 0 0;
+#X connect 16 0 12 1;
+#X connect 18 0 19 0;
+#X connect 25 0 3 0;