aboutsummaryrefslogtreecommitdiff
path: root/examples/06_pyramide3D.pd
blob: dcfde441ae7b475bf2d4681fa87d4eefee8d0ebd (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
#N canvas 512 272 695 581 12;
#X declare -lib Gem;
#N canvas 381 0 941 947 forme 0;
#X obj 22 676 translateXYZ;
#X obj 16 646 unpack s f f f;
#X obj 22 705 sphere 0.3;
#X obj 143 676 translateXYZ;
#X obj 137 646 unpack s f f f;
#X obj 143 705 sphere 0.3;
#X obj 391 677 translateXYZ;
#X obj 385 647 unpack s f f f;
#X obj 391 706 sphere 0.3;
#X obj 264 678 translateXYZ;
#X obj 258 648 unpack s f f f;
#X obj 264 707 sphere 0.3;
#X obj 303 15 inlet;
#X obj 11 762 gemhead;
#X obj 22 605 gemhead;
#X obj 142 606 gemhead;
#X obj 264 604 gemhead;
#X obj 390 604 gemhead;
#X msg 31 811 \$1 \$2 \$3;
#X msg 62 788 \$1 \$2 \$3;
#X obj 235 766 gemhead;
#X msg 269 816 \$1 \$2 \$3;
#X msg 286 788 \$1 \$2 \$3;
#X obj 360 764 gemhead;
#X msg 394 814 \$1 \$2 \$3;
#X msg 411 790 \$1 \$2 \$3;
#X obj 475 764 gemhead;
#X msg 509 813 \$1 \$2 \$3;
#X msg 526 789 \$1 \$2 \$3;
#X obj 581 763 gemhead;
#X msg 615 813 \$1 \$2 \$3;
#X msg 632 789 \$1 \$2 \$3;
#X obj 11 842 curve 2;
#X obj 236 846 curve 2;
#X obj 360 844 curve 2;
#X obj 581 843 curve 2;
#X obj 120 761 gemhead;
#X msg 140 810 \$1 \$2 \$3;
#X msg 171 787 \$1 \$2 \$3;
#X obj 120 841 curve 2;
#X obj 718 762 gemhead;
#X msg 738 811 \$1 \$2 \$3;
#X obj 718 842 curve 2;
#X obj 475 843 curve 2;
#X obj 27 283 mass3D mass 10 -1 0 0;
#X obj 107 123 link3D link 1 3 1 0.1;
#X obj 322 63 mass3D mass 10 1 0 0;
#X obj 422 138 link3D link 1 3 1 0.1;
#X obj 289 246 link3D link 1 3 1 0.1;
#X obj 276 306 link3D link 1 3 1 0.1;
#X obj 91 403 link3D link 1 3 1 0.1;
#X obj 287 486 mass3D mass 10 0 1 0;
#X obj 458 375 link3D link 1 3 1 0.1;
#X obj 570 273 mass3D mass 10 0 0;
#X obj 758 271 link3D link2 1 0.6 0 0;
#X connect 0 0 2 0;
#X connect 1 1 0 1;
#X connect 1 2 0 2;
#X connect 1 3 0 3;
#X connect 3 0 5 0;
#X connect 4 1 3 1;
#X connect 4 2 3 2;
#X connect 4 3 3 3;
#X connect 6 0 8 0;
#X connect 7 1 6 1;
#X connect 7 2 6 2;
#X connect 7 3 6 3;
#X connect 9 0 11 0;
#X connect 10 1 9 1;
#X connect 10 2 9 2;
#X connect 10 3 9 3;
#X connect 12 0 46 0;
#X connect 13 0 32 0;
#X connect 14 0 0 0;
#X connect 15 0 3 0;
#X connect 16 0 9 0;
#X connect 17 0 6 0;
#X connect 18 0 32 1;
#X connect 19 0 32 2;
#X connect 20 0 33 0;
#X connect 21 0 33 1;
#X connect 22 0 33 2;
#X connect 23 0 34 0;
#X connect 24 0 34 1;
#X connect 25 0 34 2;
#X connect 26 0 43 0;
#X connect 27 0 43 1;
#X connect 28 0 43 2;
#X connect 29 0 35 0;
#X connect 30 0 35 1;
#X connect 31 0 35 2;
#X connect 36 0 39 0;
#X connect 37 0 39 1;
#X connect 38 0 39 2;
#X connect 40 0 42 0;
#X connect 41 0 42 1;
#X connect 44 0 50 0;
#X connect 44 0 45 0;
#X connect 44 0 48 0;
#X connect 44 0 1 0;
#X connect 44 0 18 0;
#X connect 44 0 37 0;
#X connect 44 0 21 0;
#X connect 45 0 44 0;
#X connect 45 1 46 0;
#X connect 46 0 45 1;
#X connect 46 0 47 0;
#X connect 46 0 49 1;
#X connect 46 0 4 0;
#X connect 46 0 22 0;
#X connect 46 0 28 0;
#X connect 46 0 30 0;
#X connect 47 0 46 0;
#X connect 47 1 53 0;
#X connect 48 0 44 0;
#X connect 48 1 53 0;
#X connect 49 0 51 0;
#X connect 49 1 46 0;
#X connect 50 0 44 0;
#X connect 50 1 51 0;
#X connect 51 0 50 1;
#X connect 51 0 52 0;
#X connect 51 0 49 0;
#X connect 51 0 10 0;
#X connect 51 0 19 0;
#X connect 51 0 24 0;
#X connect 51 0 27 0;
#X connect 52 0 51 0;
#X connect 52 1 53 0;
#X connect 53 0 52 1;
#X connect 53 0 48 1;
#X connect 53 0 7 0;
#X connect 53 0 38 0;
#X connect 53 0 25 0;
#X connect 53 0 31 0;
#X connect 53 0 41 0;
#X connect 53 0 47 1;
#X connect 53 0 54 0;
#X connect 54 0 53 0;
#X restore 39 472 pd forme;
#X obj 10 26 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 78 105 s link;
#X obj 10 104 s mass;
#X obj 36 343 s mass;
#X obj 10 47 metro 50;
#X msg 193 73 destroy;
#X msg 166 48 reset \, create \, 1 \, lighting 1;
#X obj 166 106 gemwin;
#X obj 458 107 world_light;
#X obj 78 129 s link2;
#X msg 36 242 force3D 0 0 1;
#X msg 44 266 force3D 0 1 0;
#X msg 53 290 force3D 1 0 0;
#X obj 458 82 gemhead 1;
#X msg 39 385 force3D 0 0 10;
#X msg 45 409 force3D 0 10 0;
#X msg 54 433 force3D 10 0 0;
#X msg 61 314 force3D 2 1 1;
#X obj 10 73 t b b;
#N canvas 518 337 782 499 change 0;
#X msg 102 189 setK \$1;
#X msg 170 189 setD \$1;
#X msg 33 73 setM \$1;
#X floatatom 102 162 5 0 0 0 - - -;
#X floatatom 170 162 5 0 0 0 - - -;
#X floatatom 33 50 5 5 100 0 - - -;
#X obj 33 216 s link;
#X obj 33 99 s mass;
#X floatatom 33 163 5 0 0 0 - - -;
#X msg 33 189 setL \$1;
#X obj 36 380 s link2;
#X floatatom 36 297 5 0 0 0 - - -;
#X msg 36 319 setL \$1;
#X msg 33 140 1;
#X msg 171 140 1;
#X msg 102 139 3;
#X msg 33 26 10;
#X msg 102 319 setK \$1;
#X msg 170 319 setD \$1;
#X floatatom 102 293 5 0 0 0 - - -;
#X floatatom 170 293 5 0 0 0 - - -;
#X text 106 27 <- default value;
#X text 109 100 weight of the mass;
#X text 317 137 <- default values;
#X text 315 189 pyramide linkison properties;
#X text 257 270 <- default values;
#X text 258 318 linkison beetween the pyramide and a fixed point (0
\, 0 \, 0);
#X msg 36 273 1;
#X msg 102 270 0.6;
#X msg 171 271 0;
#X floatatom 238 162 5 0 0 0 - - -;
#X msg 238 189 setD2 \$1;
#X msg 239 140 0.1;
#X text 36 429 take care to extrem values;
#X connect 0 0 6 0;
#X connect 1 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 0 0;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 8 0 9 0;
#X connect 9 0 6 0;
#X connect 11 0 12 0;
#X connect 12 0 10 0;
#X connect 13 0 8 0;
#X connect 14 0 4 0;
#X connect 15 0 3 0;
#X connect 16 0 5 0;
#X connect 17 0 10 0;
#X connect 18 0 10 0;
#X connect 19 0 17 0;
#X connect 20 0 18 0;
#X connect 27 0 11 0;
#X connect 28 0 19 0;
#X connect 29 0 20 0;
#X connect 30 0 31 0;
#X connect 31 0 6 0;
#X connect 32 0 30 0;
#X restore 459 44 pd change physical properties;
#X text 215 262 <- send forces to the 4 masss;
#X text 225 378 <- send forces to a masss;
#X text 227 474 <- structure and gem stuff;
#X text 76 168 4 masss are all link together \, with the same kind
of link.;
#X text 73 193 A link is add to a mass \, for the structure to stay
in the screen.;
#X text 89 552 If the line does not display corectly \, you sould upgrade
GEM;
#X text 44 22 <- 1;
#X text 399 48 <- 2;
#X obj 161 14 declare -lib Gem;
#X connect 1 0 5 0;
#X connect 5 0 19 0;
#X connect 6 0 8 0;
#X connect 7 0 8 0;
#X connect 11 0 4 0;
#X connect 12 0 4 0;
#X connect 13 0 4 0;
#X connect 14 0 9 0;
#X connect 15 0 0 0;
#X connect 16 0 0 0;
#X connect 17 0 0 0;
#X connect 18 0 4 0;
#X connect 19 0 3 0;
#X connect 19 1 2 0;
#X connect 19 1 10 0;