blob: 6ea5907e58cfb0eb091ec66443a7b70df46a37c5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
|
#N canvas 163 124 527 418 10;
#X declare -lib Gem;
#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 mass;
#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 mass 3 2 0 2.95 0 0 1 0 0 0 0.1;
#X obj 69 319 iCircle2D mass -3 2 0 2.95 0 0 1 0 0 0 0.1;
#X text 230 3 sand simulation;
#X text 69 27 all mass interact each other. They are in a viscuce place
\, with vertical force (gravity);
#X text 70 59 2 big circles (invisible) made the masss 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 mass 0 -0.0005 0 0 0.03;
#X obj 20 137 metro 5;
#X text 366 158 <- 1;
#X obj 10 2 declare -lib Gem;
#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;
|