aboutsummaryrefslogtreecommitdiff
path: root/examples/05_corde2D.pd
blob: 0f9674c9225dfc70855d41eaa545892255ea6e34 (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
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
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
#N canvas 76 91 844 550 12;
#X declare -lib Gem;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 143 446 pd mass;
#X obj 62 214 s link;
#X obj 27 239 s mass;
#X obj 397 308 s mass;
#X msg 184 199 setK \$1;
#X msg 399 149 setM \$1;
#X obj 184 231 s link;
#X obj 399 177 s mass;
#X obj 184 173 / 10;
#X obj 184 147 + 1;
#X obj 508 151 gemwin;
#X msg 515 122 0 \, destroy;
#X floatatom 184 125 5 10 100 0 - - -;
#X floatatom 245 127 5 0 3 0 - - -;
#X floatatom 399 126 5 20 500 0 - - -;
#X msg 411 278 force2D 2000 0;
#X obj 27 163 metro 10;
#X obj 27 187 t b b;
#X msg 396 335 force2D 0 5000;
#X msg 184 101 50;
#X msg 245 101 1;
#X msg 399 102 200;
#X obj 868 143 world_light;
#X obj 868 84 gemhead;
#X obj 868 114 rotateXYZ;
#X msg 397 250 force2D 0 1000;
#X msg 245 150 setD \$1;
#X obj 27 9 loadbang;
#X msg 108 99 reset;
#X obj 108 126 s mass;
#X obj 27 40 t b b b b;
#X msg 49 100 resetF;
#X obj 49 127 s link;
#X floatatom 321 127 5 0 3 0 - - -;
#X msg 321 101 1;
#X msg 321 150 setD2 \$1;
#N canvas 306 123 570 357 mass 0;
#X obj 24 99 outlet;
#X obj 145 98 gemhead;
#X obj 137 134 unpack s f f;
#X obj 143 190 translateXYZ 0 0 0;
#X obj 144 224 sphere 0.3;
#X obj 185 160 / 100;
#X obj 228 161 / 100;
#X obj 25 70 mass2D mass2 10 -300 0;
#X connect 1 0 3 0;
#X connect 2 1 5 0;
#X connect 2 2 6 0;
#X connect 3 0 4 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 0 0;
#X connect 7 0 2 0;
#X restore 11 383 pd mass;
#X msg 396 366 force2D 5000 0;
#X text 461 7 2D string;
#X text 542 250 <- send Y force to all masss;
#X text 544 279 <- send X force to all masss;
#X text 540 335 <- send Y force to 2 masss;
#X text 542 364 <- send X force to 1 masss;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 281 449 pd mass;
#X obj 11 409 link2D link 30 1 1;
#X obj 158 408 link2D link 30 1 1;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 432 446 pd mass;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 570 449 pd mass;
#X obj 300 409 link2D link 30 1 1;
#X obj 447 408 link2D link 30 1 1;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 719 449 pd mass;
#X obj 596 408 link2D link 30 1 1;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 870 446 pd mass;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 1008 449 pd mass;
#X obj 738 409 link2D link 30 1 1;
#X obj 885 408 link2D link 30 1 1;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 156 589 pd mass;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 294 592 pd mass;
#X obj 24 552 link2D link 30 1 1;
#X obj 171 551 link2D link 30 1 1;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 445 589 pd mass;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 583 592 pd mass;
#X obj 313 552 link2D link 30 1 1;
#X obj 460 551 link2D link 30 1 1;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 732 592 pd mass;
#X obj 609 551 link2D link 30 1 1;
#N canvas 306 123 261 242 mass 0;
#X obj 24 23 inlet;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass 10;
#X connect 0 0 8 0;
#X connect 2 0 4 0;
#X connect 3 1 6 0;
#X connect 3 2 7 0;
#X connect 4 0 5 0;
#X connect 6 0 4 1;
#X connect 7 0 4 2;
#X connect 8 0 1 0;
#X connect 8 0 3 0;
#X restore 883 589 pd mass;
#N canvas 306 123 265 246 mass 0;
#X obj 24 83 outlet;
#X obj 83 138 gemhead;
#X obj 84 85 unpack s f f;
#X obj 83 169 translateXYZ 0 0 0;
#X obj 83 197 sphere 0.3;
#X obj 129 111 / 100;
#X obj 175 112 / 100;
#X obj 24 55 mass2D mass2 10 300;
#X connect 1 0 3 0;
#X connect 2 1 5 0;
#X connect 2 2 6 0;
#X connect 3 0 4 0;
#X connect 5 0 3 1;
#X connect 6 0 3 2;
#X connect 7 0 0 0;
#X connect 7 0 2 0;
#X restore 1021 524 pd mass;
#X obj 751 552 link2D link 30 1 1;
#X obj 898 551 link2D link 30 1 1;
#X msg 508 95 reset \, lighting 1 \, create \, 1;
#X obj 112 15 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 325 23 masss are link together like in an elastic string.;
#X text 30 652 The extrem right and extreme left masss are fixed :
the does not receive a force. they are neaded for the model to be link
to a special point in the screen.;
#X text 742 94 <- 1;
#X obj 443 44 declare -lib Gem;
#X connect 0 0 44 1;
#X connect 0 0 45 0;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 8 0 4 0;
#X connect 9 0 8 0;
#X connect 11 0 10 0;
#X connect 12 0 9 0;
#X connect 13 0 26 0;
#X connect 14 0 5 0;
#X connect 15 0 3 0;
#X connect 16 0 17 0;
#X connect 17 0 2 0;
#X connect 17 1 1 0;
#X connect 18 0 0 0;
#X connect 18 0 43 0;
#X connect 19 0 12 0;
#X connect 20 0 13 0;
#X connect 21 0 14 0;
#X connect 23 0 24 0;
#X connect 24 0 22 0;
#X connect 25 0 3 0;
#X connect 26 0 6 0;
#X connect 27 0 30 0;
#X connect 28 0 29 0;
#X connect 30 0 16 0;
#X connect 30 1 31 0;
#X connect 30 2 28 0;
#X connect 30 3 19 0;
#X connect 30 3 20 0;
#X connect 30 3 21 0;
#X connect 30 3 34 0;
#X connect 31 0 32 0;
#X connect 33 0 35 0;
#X connect 34 0 33 0;
#X connect 35 0 6 0;
#X connect 36 0 44 0;
#X connect 37 0 46 0;
#X connect 43 0 45 1;
#X connect 43 0 48 0;
#X connect 44 1 0 0;
#X connect 45 0 0 0;
#X connect 45 1 43 0;
#X connect 46 0 48 1;
#X connect 46 0 49 0;
#X connect 47 0 49 1;
#X connect 47 0 51 0;
#X connect 48 0 43 0;
#X connect 48 1 46 0;
#X connect 49 0 46 0;
#X connect 49 1 47 0;
#X connect 50 0 51 1;
#X connect 50 0 54 0;
#X connect 51 0 47 0;
#X connect 51 1 50 0;
#X connect 52 0 54 1;
#X connect 52 0 55 0;
#X connect 53 0 55 1;
#X connect 53 0 58 0;
#X connect 54 0 50 0;
#X connect 54 1 52 0;
#X connect 55 0 52 0;
#X connect 55 1 53 0;
#X connect 56 0 58 1;
#X connect 56 0 59 0;
#X connect 57 0 59 1;
#X connect 57 0 62 0;
#X connect 58 0 53 0;
#X connect 58 1 56 0;
#X connect 59 0 56 0;
#X connect 59 1 57 0;
#X connect 60 0 62 1;
#X connect 60 0 63 0;
#X connect 61 0 63 1;
#X connect 61 0 65 0;
#X connect 62 0 57 0;
#X connect 62 1 60 0;
#X connect 63 0 60 0;
#X connect 63 1 61 0;
#X connect 64 0 65 1;
#X connect 64 0 68 0;
#X connect 65 0 61 0;
#X connect 65 1 64 0;
#X connect 66 0 68 1;
#X connect 66 0 69 0;
#X connect 67 0 69 1;
#X connect 68 0 64 0;
#X connect 68 1 66 0;
#X connect 69 0 66 0;
#X connect 70 0 10 0;
#X connect 71 0 30 0;