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
403
404
405
406
407
408
409
410
411
412
|
#N canvas 388 82 843 799 10;
#X obj 167 310 t a;
#X obj 167 32 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 239 84 reset;
#X obj 52 15 loadbang;
#X text 205 33 reset;
#X obj 167 55 t b b b b b;
#X obj 52 572 msd2D --------------------------------;
#X msg 460 409 0 \, destroy;
#X obj 458 500 gemhead;
#X obj 458 553 world_light;
#X obj 52 301 t b;
#N canvas 637 205 605 590 massrender 0;
#X obj 124 5 inlet;
#X obj 291 245 translateXYZ;
#X obj 307 156 gemhead;
#X obj 291 219 separator;
#X obj 291 195 any;
#X obj 292 63 unpack f f f;
#X obj 57 257 translateXYZ;
#X obj 73 168 gemhead;
#X obj 57 231 separator;
#X obj 57 207 any;
#X obj 123 31 route 0 1;
#X obj 296 118 t b;
#X obj 64 71 unpack f f;
#X obj 50 116 t b f;
#X obj 168 262 translateXYZ;
#X obj 184 173 gemhead;
#X obj 168 236 separator;
#X obj 168 212 any;
#X obj 175 76 unpack f f;
#X obj 161 121 t b f;
#X obj 169 290 color 1 0 0;
#X obj 292 291 color 1 1 1;
#X obj 57 315 sphere 0.3 20;
#X obj 292 319 square 0.015;
#X obj 168 320 square 0.04;
#X text 61 351 Sun;
#X text 169 355 Red particule;
#X text 307 355 Particule;
#X connect 0 0 10 0;
#X connect 1 0 21 0;
#X connect 2 0 4 1;
#X connect 3 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 11 0;
#X connect 5 1 1 1;
#X connect 5 2 1 2;
#X connect 6 0 22 0;
#X connect 7 0 9 1;
#X connect 8 0 6 0;
#X connect 9 0 8 0;
#X connect 10 0 12 0;
#X connect 10 1 18 0;
#X connect 10 2 5 0;
#X connect 11 0 4 0;
#X connect 12 0 13 0;
#X connect 12 1 6 2;
#X connect 13 0 9 0;
#X connect 13 1 6 1;
#X connect 14 0 20 0;
#X connect 15 0 17 1;
#X connect 16 0 14 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 18 1 14 2;
#X connect 19 0 17 0;
#X connect 19 1 14 1;
#X connect 20 0 24 0;
#X connect 21 0 23 0;
#X restore 52 648 pd massrender;
#X obj 52 278 gemhead;
#X obj 460 458 gemwin;
#X msg 460 433 view 0 0 4 0 0 0 0 1 0;
#X text 501 28 change number of mass to test performance;
#X text 501 41 (and reset afterwards);
#X obj 441 34 nbx 5 14 1 20000 1 1 empty empty empty 0 -6 0 10 -262144
-1 -1 2291.81 256;
#X msg 170 245 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4;
#X msg 119 203 setL sun 0;
#X msg 221 107 mass fix 0 100 0 0;
#X obj 458 527 rotateXYZ 30 20 0;
#X msg 167 178 forceX mob 5;
#X text 409 258 0.2 : rigidity \, 0 : damping \, -2 : power \, 0.4
: Lmin;
#X msg 460 386 reset \, dimen 800 800 \, create \, lighting 1 \, 1
;
#X msg 52 335 bang \, bang \, get massesPos \, get massesSpeeds;
#X obj 52 611 route massesPos massesSpeeds;
#N canvas 177 95 946 729 synthese 0;
#X obj 366 35 inlet;
#X msg 142 257 \$1 50;
#X obj 142 279 line~;
#X obj 102 283 *~;
#X msg 239 256 \$1 50;
#X obj 239 278 line~;
#X obj 199 282 *~;
#X msg 332 258 \$1 50;
#X obj 332 280 line~;
#X obj 292 284 *~;
#X msg 424 256 \$1 50;
#X obj 424 278 line~;
#X obj 384 282 *~;
#X obj 241 330 dac~;
#X msg 525 259 \$1 50;
#X obj 525 281 line~;
#X obj 485 285 *~;
#X msg 620 259 \$1 50;
#X obj 620 281 line~;
#X obj 580 285 *~;
#X msg 713 261 \$1 50;
#X obj 713 283 line~;
#X obj 673 287 *~;
#X msg 805 259 \$1 50;
#X obj 805 281 line~;
#X obj 765 285 *~;
#X obj 622 333 dac~;
#X obj 100 227 osc~ 55;
#X obj 198 226 osc~ 110;
#X obj 383 227 osc~ 222;
#X obj 113 172 unpack f f;
#X obj 332 177 unpack f f;
#X obj 525 175 unpack f f;
#X obj 714 177 unpack f f;
#X msg 132 461 \$1 50;
#X obj 132 483 line~;
#X obj 92 487 *~;
#X msg 229 460 \$1 50;
#X obj 229 482 line~;
#X obj 189 486 *~;
#X msg 322 462 \$1 50;
#X obj 322 484 line~;
#X obj 282 488 *~;
#X msg 414 460 \$1 50;
#X obj 414 482 line~;
#X obj 374 486 *~;
#X obj 231 534 dac~;
#X msg 515 463 \$1 50;
#X obj 515 485 line~;
#X obj 475 489 *~;
#X msg 610 463 \$1 50;
#X obj 610 485 line~;
#X obj 570 489 *~;
#X msg 703 465 \$1 50;
#X obj 703 487 line~;
#X obj 663 491 *~;
#X msg 795 463 \$1 50;
#X obj 795 485 line~;
#X obj 755 489 *~;
#X obj 612 537 dac~;
#X obj 662 435 osc~ 1113;
#X obj 754 433 osc~ 2229;
#X obj 103 369 unpack f f;
#X obj 322 376 unpack f f;
#X obj 514 376 unpack f f;
#X obj 705 375 unpack f f;
#X obj 291 228 osc~ 165;
#X obj 484 229 osc~ 267;
#X obj 579 229 osc~ 311;
#X obj 672 231 osc~ 366;
#X obj 764 229 osc~ 421;
#X obj 90 431 osc~ 444;
#X obj 188 430 osc~ 554;
#X obj 281 432 osc~ 664;
#X obj 373 430 osc~ 776;
#X obj 474 433 osc~ 888;
#X obj 569 433 osc~ 1000;
#X obj 113 197 / 2;
#X obj 241 202 / 2;
#X obj 800 409 / 10;
#X obj 613 409 / 5;
#X obj 516 403 / 5;
#X obj 703 411 / 5;
#X obj 240 168 unpack f f;
#X obj 429 176 unpack f f;
#X obj 621 175 unpack f f;
#X obj 811 177 unpack f f;
#X obj 229 377 unpack f f;
#X obj 418 377 unpack f f;
#X obj 611 377 unpack f f;
#X obj 396 71 route 1 50 100 150 200 250 300 350 400 450 500 550 600
650 700 750;
#X obj 802 376 unpack f f;
#X obj 419 406 / 5;
#X obj 322 408 / 5;
#X obj 231 406 / 5;
#X obj 103 401 / 5;
#X obj 810 205 / 5;
#X obj 713 206 / 5;
#X obj 623 205 / 5;
#X obj 526 202 / 5;
#X obj 429 202 / 5;
#X obj 332 204 / 5;
#X connect 0 0 90 0;
#X connect 1 0 2 0;
#X connect 2 0 3 1;
#X connect 3 0 13 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 13 0;
#X connect 6 0 13 1;
#X connect 7 0 8 0;
#X connect 8 0 9 1;
#X connect 9 0 13 0;
#X connect 9 0 13 1;
#X connect 10 0 11 0;
#X connect 11 0 12 1;
#X connect 12 0 13 1;
#X connect 14 0 15 0;
#X connect 15 0 16 1;
#X connect 16 0 26 0;
#X connect 17 0 18 0;
#X connect 18 0 19 1;
#X connect 19 0 26 0;
#X connect 19 0 26 1;
#X connect 20 0 21 0;
#X connect 21 0 22 1;
#X connect 22 0 26 0;
#X connect 22 0 26 1;
#X connect 23 0 24 0;
#X connect 24 0 25 1;
#X connect 25 0 26 1;
#X connect 27 0 3 0;
#X connect 28 0 6 0;
#X connect 29 0 12 0;
#X connect 30 0 77 0;
#X connect 31 0 101 0;
#X connect 32 0 99 0;
#X connect 33 0 97 0;
#X connect 34 0 35 0;
#X connect 35 0 36 1;
#X connect 36 0 46 0;
#X connect 37 0 38 0;
#X connect 38 0 39 1;
#X connect 39 0 46 0;
#X connect 39 0 46 1;
#X connect 40 0 41 0;
#X connect 41 0 42 1;
#X connect 42 0 46 0;
#X connect 42 0 46 1;
#X connect 43 0 44 0;
#X connect 44 0 45 1;
#X connect 45 0 46 1;
#X connect 47 0 48 0;
#X connect 48 0 49 1;
#X connect 49 0 59 0;
#X connect 50 0 51 0;
#X connect 51 0 52 1;
#X connect 52 0 59 0;
#X connect 52 0 59 1;
#X connect 53 0 54 0;
#X connect 54 0 55 1;
#X connect 55 0 59 0;
#X connect 55 0 59 1;
#X connect 56 0 57 0;
#X connect 57 0 58 1;
#X connect 58 0 59 1;
#X connect 60 0 55 0;
#X connect 61 0 58 0;
#X connect 62 0 95 0;
#X connect 63 0 93 0;
#X connect 64 0 81 0;
#X connect 65 0 82 0;
#X connect 66 0 9 0;
#X connect 67 0 16 0;
#X connect 68 0 19 0;
#X connect 69 0 22 0;
#X connect 70 0 25 0;
#X connect 71 0 36 0;
#X connect 72 0 39 0;
#X connect 73 0 42 0;
#X connect 74 0 45 0;
#X connect 75 0 49 0;
#X connect 76 0 52 0;
#X connect 77 0 1 0;
#X connect 78 0 4 0;
#X connect 79 0 56 0;
#X connect 80 0 50 0;
#X connect 81 0 47 0;
#X connect 82 0 53 0;
#X connect 83 0 78 0;
#X connect 84 0 100 0;
#X connect 85 0 98 0;
#X connect 86 0 96 0;
#X connect 87 0 94 0;
#X connect 88 0 92 0;
#X connect 89 0 80 0;
#X connect 90 0 30 0;
#X connect 90 1 83 0;
#X connect 90 2 31 0;
#X connect 90 3 84 0;
#X connect 90 4 32 0;
#X connect 90 5 85 0;
#X connect 90 6 33 0;
#X connect 90 7 86 0;
#X connect 90 8 62 0;
#X connect 90 9 87 0;
#X connect 90 10 63 0;
#X connect 90 11 88 0;
#X connect 90 12 64 0;
#X connect 90 13 89 0;
#X connect 90 14 65 0;
#X connect 90 15 91 0;
#X connect 91 0 79 0;
#X connect 92 0 43 0;
#X connect 93 0 40 0;
#X connect 94 0 37 0;
#X connect 95 0 34 0;
#X connect 96 0 23 0;
#X connect 97 0 20 0;
#X connect 98 0 17 0;
#X connect 99 0 14 0;
#X connect 100 0 10 0;
#X connect 101 0 7 0;
#X restore 159 652 pd synthese;
#X text 358 111 Sun;
#X text 267 177 Initial speed;
#N canvas 0 0 945 455 masses 0;
#X obj 151 16 inlet;
#X obj 232 28 inlet;
#X obj 151 347 outlet;
#X msg 151 282 mass mob 1 \$1 \$2 \$3;
#X obj 574 221 random 100;
#X obj 499 220 random 100;
#X msg 422 197 seed 3;
#X obj 151 250 pack f f f;
#X obj 151 228 t b b b;
#X msg 499 199 seed 20;
#X msg 574 201 seed 10;
#X obj 422 217 random 10000;
#X obj 424 236 / 500;
#X obj 500 261 - 1;
#X obj 574 263 - 1;
#X obj 425 258 + 205;
#X obj 499 241 / 10000;
#X obj 574 242 / 10000;
#X obj 151 47 t b;
#X obj 333 52 loadbang;
#X text 516 172 X;
#X text 434 168 M;
#X text 612 173 Y;
#X obj 151 67 until;
#X obj 151 86 f;
#X obj 177 87 + 1;
#X obj 177 118 mod 1000;
#X obj 206 87 sel 0;
#X connect 0 0 18 0;
#X connect 1 0 26 1;
#X connect 3 0 2 0;
#X connect 4 0 17 0;
#X connect 5 0 16 0;
#X connect 6 0 11 0;
#X connect 7 0 3 0;
#X connect 8 0 11 0;
#X connect 8 1 5 0;
#X connect 8 2 4 0;
#X connect 9 0 5 0;
#X connect 10 0 4 0;
#X connect 11 0 12 0;
#X connect 12 0 15 0;
#X connect 13 0 7 1;
#X connect 14 0 7 2;
#X connect 15 0 7 0;
#X connect 16 0 13 0;
#X connect 17 0 14 0;
#X connect 18 0 23 0;
#X connect 19 0 9 0;
#X connect 19 0 10 0;
#X connect 19 0 6 0;
#X connect 23 0 24 0;
#X connect 24 0 25 0;
#X connect 24 0 8 0;
#X connect 25 0 26 0;
#X connect 26 0 27 0;
#X connect 26 0 24 1;
#X connect 27 0 23 1;
#X restore 203 144 pd masses;
#X text 410 277 The power of the link is -2 to simulate a gravity field
in 1/R^2;
#X text 290 147 Particules;
#X msg 171 270 link sun fix mob 0.2 0 -2 0.4;
#X connect 0 0 6 0;
#X connect 1 0 5 0;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 5 0 19 0;
#X connect 5 0 22 0;
#X connect 5 1 18 0;
#X connect 5 1 33 0;
#X connect 5 2 30 0;
#X connect 5 3 20 0;
#X connect 5 4 2 0;
#X connect 6 0 26 0;
#X connect 7 0 13 0;
#X connect 8 0 21 0;
#X connect 10 0 25 0;
#X connect 12 0 10 0;
#X connect 14 0 13 0;
#X connect 17 0 30 1;
#X connect 18 0 0 0;
#X connect 19 0 0 0;
#X connect 20 0 0 0;
#X connect 21 0 9 0;
#X connect 22 0 0 0;
#X connect 24 0 13 0;
#X connect 25 0 6 0;
#X connect 26 0 11 0;
#X connect 26 1 27 0;
#X connect 30 0 0 0;
#X connect 33 0 0 0;
|
