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
|
#N canvas 799 61 800 658 10;
#X obj 32 13 loadbang;
#X obj 457 430 gemwin;
#X msg 457 408 0 \, destroy;
#X obj 288 577 gemhead;
#X obj 288 599 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 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 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 10000 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 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 51 364 pd getmmasses;
#X obj 183 219 vsl 15 128 0 30 0 0 empty empty empty 0 -8 0 8 -262131
-1 -1 5000 1;
#N canvas 259 464 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 565 pd massrender;
#X msg 165 139 setFixed 0 \, setFixed 29 \, setFixed 420 \, setFixed
449;
#X text 459 113 Filet abstraction : x0 y0 stepx stepy ny nx;
#X text 483 206 <-- Add constant force;
#X text 240 204 <-- Add sinus force;
#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 obj 104 93 s resban;
#X msg 425 449 setK fil 10;
#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 51 388 get massesPos \$1;
#X msg 146 173 Xmax 4 \, Xmin -4 \, Ymax 4 \, Ymin -4 \, Zmax 9 \,
Zmin -6;
#X msg 457 369 view 0 0 11 0 0 0 1 0 0;
#X obj 33 257 t b b;
#X msg 29 323 bang;
#X text 154 365 Get masses in order;
#X obj 33 539 route massesPosNo;
#X msg 425 468 setD fil 25;
#X msg 326 468 setD fil 2;
#X connect 0 0 11 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 5 0 10 0;
#X connect 6 0 11 0;
#X connect 7 0 5 0;
#X connect 8 0 44 0;
#X connect 9 0 34 1;
#X connect 10 0 47 0;
#X connect 11 0 42 0;
#X connect 11 1 28 0;
#X connect 11 2 34 0;
#X connect 11 3 7 0;
#X connect 11 3 9 0;
#X connect 12 0 10 0;
#X connect 13 0 15 0;
#X connect 14 0 12 0;
#X connect 15 0 14 0;
#X connect 16 0 1 0;
#X connect 16 0 32 0;
#X connect 17 0 14 1;
#X connect 18 0 19 0;
#X connect 19 0 12 0;
#X connect 20 0 22 0;
#X connect 21 0 24 0;
#X connect 22 0 23 0;
#X connect 23 0 18 0;
#X connect 24 0 20 0;
#X connect 25 0 41 0;
#X connect 26 0 19 1;
#X connect 28 0 5 0;
#X connect 32 0 43 0;
#X connect 34 0 5 0;
#X connect 35 0 10 0;
#X connect 37 0 10 0;
#X connect 39 0 1 0;
#X connect 41 0 10 0;
#X connect 42 0 5 0;
#X connect 43 0 1 0;
#X connect 44 0 25 0;
#X connect 44 0 45 0;
#X connect 44 1 25 0;
#X connect 44 1 45 0;
#X connect 45 0 10 0;
#X connect 47 0 27 0;
#X connect 48 0 10 0;
#X connect 49 0 10 0;
|
