1 files changed, 140 insertions, 0 deletions
diff --git a/exemples/24_sand.pd b/exemples/24_sand.pd
new file mode 100755
index 0000000..0ace14e
--- /dev/null
+++ b/exemples/24_sand.pd
@@ -0,0 +1,140 @@
+#N canvas 167 110 527 418 10;
+#X obj 20 164 t b b;
+#X obj 20 98 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X msg 215 187 0 \, destroy;
+#X obj 181 215 gemwin;
+#X obj 20 202 s masse;
+#N canvas 815 340 1100 365 pool 0;
+#X obj 594 157 loadbang;
+#X obj 240 240 sand 1.5 5.4;
+#X obj 240 30 sand -2 5.4;
+#X obj 240 0 sand -2.5 5.4;
+#X obj 720 90 sand -1 6.2;
+#X obj 720 150 sand 0 6.2;
+#X obj 720 30 sand -2 6.2;
+#X obj 480 150 sand 0 5.8;
+#X obj 240 270 sand 2 5.4;
+#X obj 240 150 sand 0 5.4;
+#X obj 240 120 sand -0.5 5.4;
+#X obj 240 180 sand 0.5 5.4;
+#X obj 240 60 sand -1.5 5.4;
+#X obj 240 90 sand -1 5.4;
+#X obj 0 0 sand -2.5 5;
+#X obj 480 0 sand -2.5 5.8;
+#X obj 720 0 sand -2.5 6.2;
+#X obj 960 0 sand -2.5 6.6;
+#X obj 0 30 sand -2 5;
+#X obj 480 30 sand -2 5.8;
+#X obj 960 30 sand -2 6.6;
+#X obj 0 60 sand -1.5 5;
+#X obj 480 60 sand -1.5 5.8;
+#X obj 720 60 sand -1.5 6.2;
+#X obj 960 60 sand -1.5 6.6;
+#X obj 0 90 sand -1 5;
+#X obj 480 90 sand -1 5.8;
+#X obj 960 90 sand -1 6.6;
+#X obj 0 120 sand -0.5 5;
+#X obj 480 120 sand -0.5 5.8;
+#X obj 720 120 sand -0.5 6.2;
+#X obj 960 120 sand -0.5 6.6;
+#X obj 0 150 sand 0 5;
+#X obj 960 150 sand 0 6.6;
+#X obj 0 180 sand 0.5 5;
+#X obj 480 180 sand 0.5 5.8;
+#X obj 720 180 sand 0.5 6.2;
+#X obj 960 180 sand 0.5 6.6;
+#X obj 0 210 sand 1 5;
+#X obj 240 210 sand 1 5.4;
+#X obj 480 210 sand 1 5.8;
+#X obj 720 210 sand 1 6.2;
+#X obj 960 210 sand 1 6.6;
+#X obj 0 240 sand 1.5 5;
+#X obj 480 240 sand 1.5 5.8;
+#X obj 720 240 sand 1.5 6.2;
+#X obj 960 240 sand 1.5 6.6;
+#X obj 0 270 sand 2 5;
+#X obj 480 270 sand 2 5.8;
+#X obj 720 270 sand 2 6.2;
+#X obj 960 270 sand 2 6.6;
+#X connect 0 0 35 0;
+#X restore 358 243 pd pool;
+#N canvas 696 98 355 595 creation 0;
+#X obj 41 491 s pd-new;
+#X msg 95 95 \; pd filename new ./ \; #N canvas \; #X pop 1 \;;
+#X msg 40 464 menuclose;
+#X obj 43 47 sel 0 1;
+#X obj 44 29 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
+;
+#X obj 69 72 t b b;
+#X obj 97 412 pack f f f f;
+#X obj 89 191 t b f f;
+#X obj 100 299 t f f;
+#X obj 107 219 * 30;
+#X obj 99 377 * 120;
+#X obj 101 275 * 2;
+#X obj 163 346 - 5;
+#X obj 160 370 / 2;
+#X obj 126 328 / 5;
+#X msg 96 440 obj \$1 \$2 sand \$3 \$4;
+#X obj 127 351 + 5;
+#X obj 73 163 ch_uzi 10;
+#X obj 88 247 ch_uzi 5;
+#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 17 0;
+#X connect 5 1 1 0;
+#X connect 6 0 15 0;
+#X connect 7 0 18 0;
+#X connect 7 1 9 0;
+#X connect 7 1 12 0;
+#X connect 8 0 10 0;
+#X connect 8 1 14 0;
+#X connect 9 0 6 1;
+#X connect 10 0 6 0;
+#X connect 11 0 8 0;
+#X connect 12 0 13 0;
+#X connect 13 0 6 2;
+#X connect 14 0 16 0;
+#X connect 15 0 0 0;
+#X connect 16 0 6 3;
+#X connect 17 1 7 0;
+#X connect 18 1 11 0;
+#X restore 359 268 pd creation pool;
+#X obj 83 342 s link;
+#X obj 59 299 iCircle2D masse 3 2 0 2.95 0 0 1 0 0 0 0.1;
+#X obj 69 319 iCircle2D masse -3 2 0 2.95 0 0 1 0 0 0 0.1;
+#X text 184 3 sand simulation;
+#X text 69 27 all masse interact each other. They are in a viscuce
+place \, with vertical force (gravity);
+#X text 70 59 2 big circles (invisible) made the masses to go down
+like in a sand glass.;
+#X text 83 369 Masses are not very stable \, due to internal forces
+of the structure.;
+#X text 41 96 <- begin (change metro speed for slow computer);
+#X floatatom 57 116 5 0 0 0 - - -;
+#X msg 181 158 reset \, view 0 0 6 \, create \, 1;
+#X msg 94 178 reset;
+#X obj 78 147 t b b;
+#X msg 75 201 \; reset bang \;;
+#X obj 116 122 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
+-1;
+#X obj 45 263 iAmbient2D masse 0 -0.0005 0 0 0.03;
+#X obj 20 137 metro 5;
+#X text 366 158 <- 1;
+#X connect 0 0 4 0;
+#X connect 0 1 9 0;
+#X connect 0 1 8 0;
+#X connect 0 1 7 0;
+#X connect 0 1 21 0;
+#X connect 1 0 22 0;
+#X connect 2 0 3 0;
+#X connect 15 0 22 1;
+#X connect 16 0 3 0;
+#X connect 17 0 4 0;
+#X connect 18 0 19 0;
+#X connect 18 1 17 0;
+#X connect 20 0 18 0;
+#X connect 22 0 0 0;