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
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
|
#N canvas 422 196 796 654 10;
#X obj 32 13 loadbang;
#X obj 294 522 print msd;
#X obj 457 430 gemwin;
#X msg 457 408 0 \, destroy;
#X obj 288 577 gemhead;
#X obj 288 600 world_light;
#X obj 146 205 t a;
#X obj 146 16 bng 20 250 50 0 empty empty empty 0 -6 0 8 -262131 -1
-1;
#X msg 204 68 reset;
#X obj 33 179 gemhead;
#X msg 204 88 symbol reset;
#X obj 33 497 msd3D --------------------------------;
#X text 156 412 Ambient force;
#X obj 146 42 t b b b b;
#X msg 296 393 forceZ filet \$1;
#X obj 444 207 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 1
1;
#X obj 444 258 f;
#X obj 444 234 metro 65;
#X msg 326 468 setD fil 1;
#X obj 33 257 t b b b b b;
#X msg 457 327 reset \, dimen 800 800 \, create \, lighting 1 \, 1
;
#X obj 421 221 vsl 15 128 -1 1 0 0 empty empty empty 0 -8 0 8 -262131
-1 -1 9300 1;
#X obj 206 315 sin;
#X obj 206 335 *;
#X obj 206 255 counter 0 360;
#X obj 206 204 tgl 20 0 empty empty empty 0 -6 0 8 -262131 -1 -1 1
1;
#X obj 206 275 / 3.6;
#X obj 206 295 * 6.28319;
#X obj 206 232 metro 35;
#N canvas 0 0 504 533 getmmasses 0;
#X obj 154 46 inlet;
#X obj 175 226 outlet;
#X obj 157 85 t b b;
#X obj 264 43 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 174 165 f 0;
#X obj 175 197 + 1;
#X obj 130 128 repeat 30;
#X msg 229 140 209;
#X connect 0 0 2 0;
#X connect 2 0 6 0;
#X connect 2 1 7 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 4 1;
#X connect 5 0 1 0;
#X connect 6 0 4 0;
#X connect 7 0 4 1;
#X restore 33 359 pd getmmasses;
#N canvas 224 164 901 724 synthese 0;
#X obj 232 66 inlet;
#X obj 232 88 unpack f f f;
#X obj 232 176 pack f f f f;
#X obj 231 316 partiel;
#N canvas 582 426 450 300 drone 0;
#X obj 178 51 inlet;
#X obj 197 241 outlet~;
#X obj 178 95 abs;
#X obj 302 189 line~;
#X obj 262 193 *~;
#X obj 178 142 t b;
#X obj 260 137 osc~ 2000;
#X msg 178 166 0 5;
#X obj 267 99 t b;
#X msg 302 166 0.02 5;
#X msg 178 72 \$2;
#X obj 178 117 moses 0.0085;
#X connect 0 0 10 0;
#X connect 2 0 11 0;
#X connect 3 0 4 1;
#X connect 4 0 1 0;
#X connect 5 0 7 0;
#X connect 6 0 4 0;
#X connect 7 0 3 0;
#X connect 8 0 9 0;
#X connect 9 0 3 0;
#X connect 10 0 2 0;
#X connect 11 0 5 0;
#X connect 11 1 8 0;
#X restore 375 627 pd drone;
#X obj 232 154 t f f;
#X msg 143 113 reset;
#X obj 87 64 loadbang;
#X obj 173 49 r resban;
#X obj 232 110 t b f;
#N canvas 669 177 562 569 noise 0;
#X obj 176 62 inlet;
#X obj 285 493 outlet~;
#X msg 176 84 \$1;
#X obj 176 105 abs;
#X obj 302 190 line~;
#X obj 285 472 *~;
#X obj 176 149 t b;
#X obj 248 149 t b;
#X obj 147 425 noise~;
#X msg 162 197 \$3;
#X obj 162 218 abs;
#X obj 162 239 * 50;
#X obj 148 445 moog~;
#X obj 179 404 sig~;
#X obj 162 260 + 0;
#X obj 162 351 sig~;
#X obj 177 126 moses 0.008;
#X msg 179 379 1;
#X obj 162 282 max 0.5;
#X obj 162 304 min 2.5;
#X floatatom 245 389 5 0 0 0 - - -;
#X msg 302 166 0.5 5;
#X obj 162 330 * 900;
#X msg 176 173 0 20;
#X connect 0 0 2 0;
#X connect 0 0 9 0;
#X connect 2 0 3 0;
#X connect 3 0 16 0;
#X connect 4 0 5 1;
#X connect 5 0 1 0;
#X connect 6 0 23 0;
#X connect 7 0 21 0;
#X connect 8 0 12 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 11 0 14 0;
#X connect 12 0 5 0;
#X connect 13 0 12 2;
#X connect 14 0 18 0;
#X connect 15 0 12 1;
#X connect 16 0 6 0;
#X connect 16 1 7 0;
#X connect 17 0 13 0;
#X connect 18 0 19 0;
#X connect 19 0 22 0;
#X connect 20 0 13 0;
#X connect 21 0 4 0;
#X connect 22 0 15 0;
#X connect 23 0 4 0;
#X restore 479 643 pd noise;
#X obj 521 497 hip~ 20;
#X obj 401 501 hip~ 20;
#X obj 443 563 dac~;
#X obj 288 385 partiel;
#X obj 250 339 partiel;
#X obj 269 362 partiel;
#X obj 307 315 partiel;
#X obj 326 338 partiel;
#X obj 345 361 partiel;
#X obj 364 384 partiel;
#X obj 383 315 partiel;
#X obj 402 338 partiel;
#X obj 421 361 partiel;
#X obj 440 384 partiel;
#X obj 459 315 partiel;
#X obj 478 338 partiel;
#X obj 497 361 partiel;
#X obj 516 384 partiel;
#X obj 535 315 partiel;
#X obj 554 338 partiel;
#X obj 573 361 partiel;
#X obj 592 384 partiel;
#X obj 232 132 counter 0 29;
#X obj 235 254 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 593 314 partiel;
#X obj 612 337 partiel;
#X obj 631 360 partiel;
#X obj 650 383 partiel;
#X obj 651 314 partiel;
#X obj 670 337 partiel;
#X obj 689 360 partiel;
#X obj 708 383 partiel;
#X obj 710 313 partiel;
#X obj 729 336 partiel;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 1 1 2 2;
#X connect 1 2 2 3;
#X connect 2 0 34 0;
#X connect 3 0 11 0;
#X connect 4 0 12 0;
#X connect 4 0 11 0;
#X connect 5 0 2 0;
#X connect 6 0 33 0;
#X connect 7 0 6 0;
#X connect 8 0 6 0;
#X connect 9 0 33 0;
#X connect 9 1 2 1;
#X connect 11 0 13 1;
#X connect 12 0 13 0;
#X connect 14 0 12 0;
#X connect 15 0 12 0;
#X connect 16 0 11 0;
#X connect 17 0 11 0;
#X connect 18 0 12 0;
#X connect 19 0 11 0;
#X connect 20 0 12 0;
#X connect 21 0 11 0;
#X connect 22 0 12 0;
#X connect 23 0 11 0;
#X connect 24 0 12 0;
#X connect 25 0 11 0;
#X connect 26 0 12 0;
#X connect 27 0 11 0;
#X connect 28 0 12 0;
#X connect 29 0 11 0;
#X connect 30 0 12 0;
#X connect 31 0 11 0;
#X connect 32 0 12 0;
#X connect 33 0 5 0;
#X connect 34 0 3 0;
#X connect 34 1 15 0;
#X connect 34 2 16 0;
#X connect 34 3 14 0;
#X connect 34 4 17 0;
#X connect 34 5 18 0;
#X connect 34 6 19 0;
#X connect 34 7 20 0;
#X connect 34 8 21 0;
#X connect 34 9 22 0;
#X connect 34 10 23 0;
#X connect 34 11 24 0;
#X connect 34 12 25 0;
#X connect 34 13 26 0;
#X connect 34 14 27 0;
#X connect 34 15 28 0;
#X connect 34 15 4 0;
#X connect 34 16 29 0;
#X connect 34 17 30 0;
#X connect 34 18 31 0;
#X connect 34 19 32 0;
#X connect 34 20 35 0;
#X connect 34 21 36 0;
#X connect 34 22 37 0;
#X connect 34 23 38 0;
#X connect 34 24 39 0;
#X connect 34 25 40 0;
#X connect 34 26 41 0;
#X connect 34 27 42 0;
#X connect 34 28 43 0;
#X connect 34 29 44 0;
#X connect 35 0 11 0;
#X connect 36 0 12 0;
#X connect 37 0 11 0;
#X connect 38 0 12 0;
#X connect 39 0 11 0;
#X connect 40 0 12 0;
#X connect 41 0 11 0;
#X connect 42 0 12 0;
#X connect 43 0 11 0;
#X connect 44 0 12 0;
#X restore 33 572 pd synthese;
#X msg 33 379 get massesSpeeds \$1;
#X obj 183 219 vsl 15 128 0 30 0 0 empty empty empty 0 -8 0 8 -262131
-1 -1 12700 1;
#X msg 33 443 get massesPos;
#N canvas 571 334 938 386 massrender 0;
#X obj 286 2 inlet;
#X obj 35 134 gemhead;
#X obj 44 192 any;
#X obj 44 288 curve2 ---------------------------------------------
;
#X obj 382 3 inlet;
#X obj 304 88 f 0;
#X obj 304 129 + 1;
#X obj 443 184 pack f f f f;
#X obj 461 153 unpack f f f;
#X obj 282 24 t b b a;
#X msg 383 68 0;
#X obj 304 108 t f f;
#X obj 303 152 % 30;
#X obj 55 227 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 211 189 sel 0;
#X connect 0 0 9 0;
#X connect 1 0 2 1;
#X connect 2 0 3 0;
#X connect 4 0 10 0;
#X connect 5 0 11 0;
#X connect 6 0 12 0;
#X connect 7 0 13 0;
#X connect 8 0 7 1;
#X connect 8 1 7 2;
#X connect 8 2 7 3;
#X connect 9 1 5 0;
#X connect 9 2 8 0;
#X connect 10 0 5 1;
#X connect 11 0 6 0;
#X connect 11 1 7 0;
#X connect 12 0 5 1;
#X connect 12 0 14 0;
#X connect 13 0 3 1;
#X connect 13 1 3 2;
#X connect 13 2 3 3;
#X connect 13 3 3 4;
#X connect 13 4 3 5;
#X connect 13 5 3 6;
#X connect 13 6 3 7;
#X connect 13 7 3 8;
#X connect 13 8 3 9;
#X connect 13 9 3 10;
#X connect 13 10 3 11;
#X connect 13 11 3 12;
#X connect 13 12 3 13;
#X connect 13 13 3 14;
#X connect 13 14 3 15;
#X connect 13 15 3 16;
#X connect 13 16 3 17;
#X connect 13 17 3 18;
#X connect 13 18 3 19;
#X connect 13 19 3 20;
#X connect 13 20 3 21;
#X connect 13 21 3 22;
#X connect 13 22 3 23;
#X connect 13 23 3 24;
#X connect 13 24 3 25;
#X connect 13 25 3 26;
#X connect 13 26 3 27;
#X connect 13 27 3 28;
#X connect 13 28 3 29;
#X connect 13 29 3 30;
#X connect 14 0 2 0;
#X restore 135 573 pd massrender;
#X obj 33 539 route massesSpeedsNo massesPos;
#X msg 165 140 setFixed 0 \, setFixed 29 \, setFixed 420 \, setFixed
449;
#X text 459 114 Filet abstraction : x0 y0 stepx stepy ny nx;
#X msg 146 173 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4 \, Zmax 7 \,
Zmin -6;
#X text 484 206 <-- Add constant force;
#X text 240 204 <-- Add sinus force;
#X text 136 360 Get middles masses;
#X obj 457 348 t b;
#X text 179 18 Reset;
#X obj 184 115 filet -3.2 -3.2 0.22068 0.45714 15 30;
#X msg 327 449 setK fil 20;
#X msg 457 369 view 0 0 10 0 0 0 1 0 0;
#X obj 146 92 s resban;
#X msg 425 449 setK fil 10;
#X msg 425 468 setD fil 2.5;
#X text 528 458 Change physical parameters of links;
#X msg 457 388 view 0 0 5 0 0 0 1 0 0;
#X text 624 390 <-- Zoom in;
#X msg 33 412 forceZ filet 0;
#X connect 0 0 13 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 6 0 11 0;
#X connect 7 0 13 0;
#X connect 8 0 6 0;
#X connect 9 0 19 0;
#X connect 10 0 44 1;
#X connect 11 0 35 0;
#X connect 11 1 1 0;
#X connect 13 0 38 0;
#X connect 13 0 47 0;
#X connect 13 1 36 0;
#X connect 13 2 44 0;
#X connect 13 3 8 0;
#X connect 13 3 10 0;
#X connect 14 0 11 0;
#X connect 15 0 17 0;
#X connect 16 0 14 0;
#X connect 17 0 16 0;
#X connect 18 0 11 0;
#X connect 19 0 11 0;
#X connect 19 0 29 0;
#X connect 19 0 33 0;
#X connect 19 0 53 0;
#X connect 19 1 34 1;
#X connect 19 2 29 0;
#X connect 19 2 33 0;
#X connect 19 3 34 1;
#X connect 20 0 2 0;
#X connect 20 0 42 0;
#X connect 21 0 16 1;
#X connect 22 0 23 0;
#X connect 23 0 14 0;
#X connect 24 0 26 0;
#X connect 25 0 28 0;
#X connect 26 0 27 0;
#X connect 27 0 22 0;
#X connect 28 0 24 0;
#X connect 29 0 31 0;
#X connect 31 0 11 0;
#X connect 32 0 23 1;
#X connect 33 0 11 0;
#X connect 35 0 30 0;
#X connect 35 1 34 0;
#X connect 36 0 6 0;
#X connect 38 0 6 0;
#X connect 42 0 46 0;
#X connect 44 0 6 0;
#X connect 45 0 11 0;
#X connect 46 0 2 0;
#X connect 48 0 11 0;
#X connect 49 0 11 0;
#X connect 51 0 2 0;
#X connect 53 0 11 0;
|
