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
|
#N canvas 719 216 416 177 10;
#X obj 26 32 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 47 31 reset;
#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 obj 219 104 inlet;
#X obj 219 134 sel 2 1 0;
#X msg 219 177 view 0 0 2 0 0 0 0 1 0;
#X msg 219 198 view 0 4 4 0 0 0 0 0 1;
#X msg 219 156 view 2 0 3.5 0 0 0 0 0 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 6 1 1 0;
#X connect 7 0 8 0;
#X connect 8 0 11 0;
#X connect 8 1 9 0;
#X connect 8 2 10 0;
#X connect 9 0 0 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X restore 26 135 pd gem;
#X obj 26 87 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
;
#X text 79 84 gem on/off;
#X obj 26 111 hradio 15 1 0 3 empty empty empty 0 -8 0 10 -262144 -1
-1 0;
#X text 79 110 change view;
#N canvas 0 22 584 305 creation 0;
#X msg 203 63 reset;
#X msg 203 83 symbol reset;
#X msg 145 173 Xmax 100 \, Xmin 0 \, Ymax 100 \, Ymin 0 \, Zmax 70
\, Zmin -40;
#X msg 164 140 setFixed 62 \, setFixed 87 \, setFixed 512 \, setFixed
537;
#X obj 183 113 filet 20 30 2 2 20 30;
#X obj 145 38 t b b b b;
#X text 383 114 Filet abstraction : x0 y0 stepx stepy ny nx;
#X obj 94 15 loadbang;
#X obj 150 14 inlet;
#X obj 145 205 s \$0-msdin;
#X connect 0 0 9 0;
#X connect 1 0 4 1;
#X connect 2 0 9 0;
#X connect 3 0 9 0;
#X connect 4 0 9 0;
#X connect 5 0 2 0;
#X connect 5 1 3 0;
#X connect 5 2 4 0;
#X connect 5 3 0 0;
#X connect 5 3 1 0;
#X connect 7 0 5 0;
#X connect 8 0 5 0;
#X restore 26 52 pd creation;
#N canvas 0 22 563 472 compute 0;
#X obj 33 28 gemhead;
#X obj 33 51 t b;
#X msg 33 73 bang \, get massesPos \, get linksPos;
#N canvas 643 123 613 598 massrender 0;
#X obj 130 9 inlet;
#X obj 48 203 translateXYZ;
#X obj 48 229 sphere 0.1;
#X obj 130 73 / 12.5;
#X obj 130 96 - 4;
#X obj 195 74 / 12.5;
#X obj 195 97 - 4;
#X obj 48 156 gemhead;
#X obj 48 177 separator;
#X obj 128 123 t b f;
#X obj 249 75 / 12.5;
#X obj 249 98 - 4;
#X obj 130 44 unpack f f f f;
#X obj 48 90 loadbang;
#X msg 48 118 0;
#X connect 0 0 12 0;
#X connect 1 0 2 0;
#X connect 3 0 4 0;
#X connect 4 0 9 0;
#X connect 5 0 6 0;
#X connect 6 0 1 2;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 9 0 7 0;
#X connect 9 1 1 1;
#X connect 10 0 11 0;
#X connect 11 0 1 3;
#X connect 12 1 3 0;
#X connect 12 2 5 0;
#X connect 12 3 10 0;
#X connect 13 0 14 0;
#X connect 14 0 7 0;
#X restore 114 359 pd massrender;
#N canvas 284 227 595 566 linkrender 0;
#X obj 93 25 inlet;
#X obj 93 117 / 12.5;
#X obj 93 140 - 4;
#X obj 147 118 / 12.5;
#X obj 147 141 - 4;
#X obj 44 194 gemhead;
#X obj 44 222 separator;
#X obj 93 164 t b f;
#X obj 266 117 / 12.5;
#X obj 266 140 - 4;
#X obj 320 118 / 12.5;
#X obj 320 141 - 4;
#X obj 197 117 / 12.5;
#X obj 197 142 - 4;
#X obj 123 194 pack f f f;
#X msg 123 217 \$1 \$2 \$3;
#X obj 371 118 / 12.5;
#X obj 371 141 - 4;
#X obj 266 189 pack f f f;
#X msg 266 212 \$1 \$2 \$3;
#X obj 44 265 curve 2;
#X obj 93 69 unpack f f f f f f f;
#X obj 44 90 loadbang;
#X msg 44 118 0;
#X connect 0 0 21 0;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 3 0 4 0;
#X connect 4 0 14 1;
#X connect 5 0 6 0;
#X connect 6 0 20 0;
#X connect 7 0 5 0;
#X connect 7 1 14 0;
#X connect 8 0 9 0;
#X connect 9 0 18 0;
#X connect 10 0 11 0;
#X connect 11 0 18 1;
#X connect 12 0 13 0;
#X connect 13 0 14 2;
#X connect 14 0 15 0;
#X connect 15 0 20 1;
#X connect 16 0 17 0;
#X connect 17 0 18 2;
#X connect 18 0 19 0;
#X connect 19 0 20 2;
#X connect 21 1 1 0;
#X connect 21 2 3 0;
#X connect 21 3 12 0;
#X connect 21 4 8 0;
#X connect 21 5 10 0;
#X connect 21 6 16 0;
#X connect 22 0 23 0;
#X connect 23 0 5 0;
#X restore 33 380 pd linkrender;
#X obj 33 269 route linksPos massesPos;
#X msg 46 145 forceZ filet -0.2;
#X text 61 122 Ambient force;
#X obj 47 188 r \$0-msdin;
#X obj 147 296 inlet;
#X obj 114 337 spigot;
#X obj 33 341 spigot 1;
#X obj 78 318 == 0;
#X obj 33 227 msd3D;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 6 0;
#X connect 2 0 13 0;
#X connect 5 0 11 0;
#X connect 5 1 10 0;
#X connect 6 0 13 0;
#X connect 8 0 13 0;
#X connect 9 0 10 1;
#X connect 9 0 12 0;
#X connect 10 0 3 0;
#X connect 11 0 4 0;
#X connect 12 0 11 1;
#X connect 13 0 5 0;
#X restore 204 131 pd compute;
#X obj 204 106 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X text 225 105 display links or masses;
#X text 201 27 grid in a gravity field;
#X connect 0 0 7 0;
#X connect 3 0 2 0;
#X connect 5 0 2 1;
#X connect 9 0 8 0;
|
