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
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
|
#N canvas 600 228 703 389 10;
#N canvas 530 297 450 300 gem 0;
#X obj 101 220 gemwin;
#X msg 120 102 0 \, destroy;
#X obj 13 211 gemhead;
#X obj 13 234 world_light;
#X msg 101 80 reset \, dimen 800 800 \, create \, lighting 1 \, 1;
#X obj 101 17 inlet;
#X obj 101 47 sel 1 0;
#X msg 219 156 view 0 0 11 0 0 0 1 0 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 4 0 0 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 6 1 1 0;
#X connect 7 0 0 0;
#X restore 14 85 pd gem;
#X obj 14 62 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X text 33 60 gem on/off;
#N canvas 0 22 563 316 creation 0;
#X obj 32 13 loadbang;
#X msg 204 68 reset;
#X msg 204 88 symbol reset;
#X obj 146 42 t b b b b;
#X msg 165 139 setFixed 0 \, setFixed 29 \, setFixed 420 \, setFixed
449;
#X obj 184 115 filet -3.2 -3.2 0.22068 0.45714 15 30;
#X msg 146 173 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4 \, Zmax 9 \,
Zmin -6;
#X obj 146 205 s \$0-msdin;
#X obj 147 19 inlet;
#X connect 0 0 3 0;
#X connect 1 0 7 0;
#X connect 2 0 5 1;
#X connect 3 0 6 0;
#X connect 3 1 4 0;
#X connect 3 2 5 0;
#X connect 3 3 1 0;
#X connect 3 3 2 0;
#X connect 4 0 7 0;
#X connect 5 0 7 0;
#X connect 6 0 7 0;
#X connect 8 0 3 0;
#X restore 14 38 pd creation;
#X text 34 17 reset;
#X obj 14 20 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#N canvas 0 22 450 300 compute 0;
#X obj 33 23 gemhead;
#X obj 33 201 msd3D --------------------------------;
#N canvas 646 294 504 533 getmmasses 0;
#X obj 154 13 inlet;
#X obj 152 238 outlet;
#X obj 154 45 t b b;
#X obj 156 162 f 0;
#X obj 156 186 + 1;
#X msg 242 154 0;
#X obj 154 129 repeat 450;
#X connect 0 0 2 0;
#X connect 2 0 6 0;
#X connect 2 1 5 0;
#X connect 3 0 4 0;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 3 0;
#X restore 60 116 pd getmmasses;
#N canvas 446 323 942 390 massrender 0;
#X obj 286 2 inlet;
#X obj 306 144 pack f f f f;
#X obj 306 99 % 30;
#X obj 56 247 route 0 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;
#X obj 44 288 curve16 ---------------------------------------------
;
#X obj 325 41 unpack f f f f;
#X obj 261 125 sel 29;
#X obj 559 210 pack f f f f;
#X obj 430 147 moses 240;
#X obj 432 177 moses 210;
#X text 669 215 Get middle masses;
#X obj 555 295 outlet;
#X obj 44 197 gemhead 45;
#X obj 44 128 loadbang;
#X msg 44 156 0;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 2 0 6 0;
#X connect 3 0 4 1;
#X connect 3 1 4 2;
#X connect 3 2 4 3;
#X connect 3 3 4 4;
#X connect 3 4 4 5;
#X connect 3 5 4 6;
#X connect 3 6 4 7;
#X connect 3 7 4 8;
#X connect 3 8 4 9;
#X connect 3 9 4 10;
#X connect 3 10 4 11;
#X connect 3 11 4 12;
#X connect 3 12 4 13;
#X connect 3 13 4 14;
#X connect 3 14 4 15;
#X connect 3 15 4 16;
#X connect 3 16 4 17;
#X connect 3 17 4 18;
#X connect 3 18 4 19;
#X connect 3 19 4 20;
#X connect 3 20 4 21;
#X connect 3 21 4 22;
#X connect 3 22 4 23;
#X connect 3 23 4 24;
#X connect 3 24 4 25;
#X connect 3 25 4 26;
#X connect 3 26 4 27;
#X connect 3 27 4 28;
#X connect 3 28 4 29;
#X connect 3 29 4 30;
#X connect 5 0 2 0;
#X connect 5 0 8 0;
#X connect 5 1 1 1;
#X connect 5 1 7 1;
#X connect 5 2 1 2;
#X connect 5 2 7 2;
#X connect 5 3 1 3;
#X connect 5 3 7 3;
#X connect 6 0 12 0;
#X connect 7 0 11 0;
#X connect 8 0 9 0;
#X connect 9 1 7 0;
#X connect 12 0 4 0;
#X connect 13 0 14 0;
#X connect 14 0 12 0;
#X restore 33 253 pd massrender;
#X msg 60 140 get massesPos \$1;
#X obj 33 47 t b b;
#X msg 33 75 bang;
#X text 154 155 Get masses in order;
#X obj 33 227 route massesPosNo;
#X obj 60 162 r \$0-msdin;
#X connect 0 0 5 0;
#X connect 1 0 8 0;
#X connect 2 0 4 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 5 0 6 0;
#X connect 5 1 2 0;
#X connect 5 1 6 0;
#X connect 6 0 1 0;
#X connect 8 0 3 0;
#X connect 9 0 1 0;
#X restore 14 106 pd compute;
#N canvas 0 22 450 300 sinus 0;
#X msg 206 243 forceZ filet \$1;
#X obj 116 165 sin;
#X obj 116 185 *;
#X obj 116 105 counter 0 360;
#X obj 116 54 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 0.23622
;
#X obj 116 125 / 3.6;
#X obj 116 145 * 6.28319;
#X obj 116 82 metro 35;
#X obj 93 69 vsl 15 128 0 30 0 0 empty empty empty 0 -8 0 8 -262131
-1 -1 0 1;
#X text 64 215 Get masses in order;
#X obj 206 264 s \$0-msdin;
#X obj 163 51 inlet;
#X connect 0 0 10 0;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 4 0 7 0;
#X connect 5 0 6 0;
#X connect 6 0 1 0;
#X connect 7 0 3 0;
#X connect 8 0 4 0;
#X connect 11 0 2 1;
#X connect 11 0 4 0;
#X restore 190 146 pd sinus;
#X obj 193 125 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 189 106 add sinusoidal force;
#X text 330 107 add constant force;
#N canvas 0 22 450 300 constant 0;
#X msg 176 111 forceZ filet \$1;
#X obj 176 33 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 1
;
#X obj 176 84 f;
#X obj 176 60 metro 65;
#X obj 176 132 s \$0-msdin;
#X obj 225 28 inlet;
#X connect 0 0 4 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 3 0 2 0;
#X connect 5 0 1 0;
#X connect 5 0 2 1;
#X restore 332 145 pd constant;
#X obj 335 125 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 151 26 vertical lines under various forces;
#N canvas 0 22 450 300 sinus 0;
#X obj 116 195 sin;
#X obj 116 215 *;
#X obj 116 135 counter 0 360;
#X obj 116 54 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 8
;
#X obj 116 155 / 3.6;
#X obj 116 175 * 6.28319;
#X obj 116 112 metro 35;
#X obj 116 264 s \$0-msdin;
#X obj 163 51 inlet;
#X msg 116 243 forceX filet \$1;
#X obj 163 83 / 30;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 2 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 2 0;
#X connect 8 0 3 0;
#X connect 8 0 10 0;
#X connect 9 0 7 0;
#X connect 10 0 1 1;
#X restore 190 216 pd sinus;
#X obj 193 195 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 189 176 add sinusoidal force;
#X text 330 177 add constant force;
#N canvas 0 22 450 300 constant 0;
#X obj 176 33 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 10
;
#X obj 176 84 f;
#X obj 176 60 metro 65;
#X obj 176 152 s \$0-msdin;
#X obj 225 28 inlet;
#X msg 176 131 forceX filet \$1;
#X obj 176 107 / 100;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 4 0 0 0;
#X connect 4 0 1 1;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X restore 332 215 pd constant;
#X obj 335 195 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 128 120 on Z;
#X text 128 193 on Y;
#N canvas 0 22 450 300 sinus 0;
#X obj 116 205 sin;
#X obj 116 225 *;
#X obj 116 145 counter 0 360;
#X obj 116 54 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 3
;
#X obj 116 165 / 3.6;
#X obj 116 185 * 6.28319;
#X obj 116 122 metro 35;
#X obj 116 287 s \$0-msdin;
#X obj 163 51 inlet;
#X msg 116 266 forceY filet \$1;
#X obj 163 78 / 30;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 2 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 0 0;
#X connect 6 0 2 0;
#X connect 8 0 3 0;
#X connect 8 0 10 0;
#X connect 9 0 7 0;
#X connect 10 0 1 1;
#X restore 190 276 pd sinus;
#X obj 193 255 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 189 236 add sinusoidal force;
#X text 330 237 add constant force;
#N canvas 0 22 450 300 constant 0;
#X obj 176 33 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 0 12
;
#X obj 176 84 f;
#X obj 176 60 metro 65;
#X obj 176 172 s \$0-msdin;
#X obj 225 28 inlet;
#X msg 176 151 forceY filet \$1;
#X obj 176 113 / 127;
#X connect 0 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 1 0;
#X connect 4 0 0 0;
#X connect 4 0 1 1;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X restore 332 275 pd constant;
#X obj 335 255 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 128 253 on X;
#X connect 1 0 0 0;
#X connect 5 0 3 0;
#X connect 8 0 7 0;
#X connect 12 0 11 0;
#X connect 15 0 14 0;
#X connect 19 0 18 0;
#X connect 23 0 22 0;
#X connect 27 0 26 0;
|
