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
|
#N canvas 711 237 465 154 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 0 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 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 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 150 106 pd sinus;
#X obj 153 85 hsl 128 15 0 127 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X text 149 66 add sinusoidal force;
#X text 290 67 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 292 105 pd constant;
#X obj 295 85 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;
#X connect 1 0 0 0;
#X connect 5 0 3 0;
#X connect 8 0 7 0;
#X connect 12 0 11 0;
|
