aboutsummaryrefslogtreecommitdiff
path: root/exemples/41_morfing.pd
blob: 175b41d8ac0d33b73381181f9a4fb5c8eec20e18 (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
#N canvas 204 50 605 681 10;
#X obj 34 71 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X msg 153 131 0 \, destroy;
#X obj 334 481 world_light;
#X obj 334 453 gemhead;
#X obj 349 204 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 365 230 loadbang;
#X msg 144 109 lighting 1 \, create \, 1;
#X obj 33 139 t b b b;
#X obj 144 244 ch_gemwin;
#X text 375 203 <- reset;
#X text 64 70 <- begin (change metro speed if to much);
#X floatatom 77 93 5 0 0 0 - - -;
#X obj 34 116 metro 40;
#X obj 414 504 world_light;
#X obj 414 458 gemhead;
#X obj 414 480 rotateXYZ 30 150 0;
#X text 294 108 <- create GEM windows;
#X obj 334 547 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#N canvas 243 141 997 733 array 0;
#X obj 220 380 i3D2 56 -1 -1 0;
#X obj 80 80 i3D2 20 -2 2 -2;
#X obj 400 360 i3D2 52 0 -2 0;
#X obj 240 400 i3D2 61 -1 0 0;
#X obj 20 20 i3D2 5 -2 -1 -2;
#X obj 600 540 i3D2 78 1 -2 1;
#X obj 480 440 i3D2 72 0 2 0;
#X obj 200 180 i3D2 26 -1 -2 -1;
#X obj 0 0 i3D2 0 -2 -2 -2;
#X obj 200 0 i3D2 1 -1 -2 -2;
#X obj 400 0 i3D2 2 0 -2 -2;
#X obj 600 0 i3D2 3 1 -2 -2;
#X obj 800 0 i3D2 4 2 -2 -2;
#X obj 220 20 i3D2 6 -1 -1 -2;
#X obj 420 20 i3D2 7 0 -1 -2;
#X obj 620 20 i3D2 8 1 -1 -2;
#X obj 820 20 i3D2 9 2 -1 -2;
#X obj 40 40 i3D2 10 -2 0 -2;
#X obj 240 40 i3D2 11 -1 0 -2;
#X obj 440 40 i3D2 12 0 0 -2;
#X obj 640 40 i3D2 13 1 0 -2;
#X obj 840 40 i3D2 14 2 0 -2;
#X obj 60 60 i3D2 15 -2 1 -2;
#X obj 260 60 i3D2 16 -1 1 -2;
#X obj 460 60 i3D2 17 0 1 -2;
#X obj 660 60 i3D2 18 1 1 -2;
#X obj 860 60 i3D2 19 2 1 -2;
#X obj 280 80 i3D2 21 -1 2 -2;
#X obj 480 80 i3D2 22 0 2 -2;
#X obj 680 80 i3D2 23 1 2 -2;
#X obj 880 80 i3D2 24 2 2 -2;
#X obj 0 180 i3D2 25 -2 -2 -1;
#X obj 400 180 i3D2 27 0 -2 -1;
#X obj 600 180 i3D2 28 1 -2 -1;
#X obj 800 180 i3D2 29 2 -2 -1;
#X obj 20 200 i3D2 30 -2 -1 -1;
#X obj 220 200 i3D2 31 -1 -1 -1;
#X obj 420 200 i3D2 32 0 -1 -1;
#X obj 620 200 i3D2 33 1 -1 -1;
#X obj 820 200 i3D2 34 2 -1 -1;
#X obj 40 220 i3D2 35 -2 0 -1;
#X obj 240 220 i3D2 36 -1 0 -1;
#X obj 440 220 i3D2 37 0 0 -1;
#X obj 640 220 i3D2 38 1 0 -1;
#X obj 840 220 i3D2 39 2 0 -1;
#X obj 60 240 i3D2 40 -2 1 -1;
#X obj 260 240 i3D2 41 -1 1 -1;
#X obj 460 240 i3D2 42 0 1 -1;
#X obj 660 240 i3D2 43 1 1 -1;
#X obj 860 240 i3D2 44 2 1 -1;
#X obj 80 260 i3D2 45 -2 2 -1;
#X obj 280 260 i3D2 46 -1 2 -1;
#X obj 480 260 i3D2 47 0 2 -1;
#X obj 680 260 i3D2 48 1 2 -1;
#X obj 880 260 i3D2 49 2 2 -1;
#X obj 0 360 i3D2 50 -2 -2 0;
#X obj 200 360 i3D2 51 -1 -2 0;
#X obj 600 360 i3D2 53 1 -2 0;
#X obj 800 360 i3D2 54 2 -2 0;
#X obj 20 380 i3D2 55 -2 -1 0;
#X obj 420 380 i3D2 57 0 -1 0;
#X obj 620 380 i3D2 58 1 -1 0;
#X obj 820 380 i3D2 59 2 -1 0;
#X obj 40 400 i3D2 60 -2 0 0;
#X obj 440 400 i3D2 62 0 0 0;
#X obj 640 400 i3D2 63 1 0 0;
#X obj 840 400 i3D2 64 2 0 0;
#X obj 60 420 i3D2 65 -2 1 0;
#X obj 260 420 i3D2 66 -1 1 0;
#X obj 460 420 i3D2 67 0 1 0;
#X obj 660 420 i3D2 68 1 1 0;
#X obj 860 420 i3D2 69 2 1 0;
#X obj 80 440 i3D2 70 -2 2 0;
#X obj 280 440 i3D2 71 -1 2 0;
#X obj 680 440 i3D2 73 1 2 0;
#X obj 880 440 i3D2 74 2 2 0;
#X obj 0 540 i3D2 75 -2 -2 1;
#X obj 200 540 i3D2 76 -1 -2 1;
#X obj 400 540 i3D2 77 0 -2 1;
#X obj 800 540 i3D2 79 2 -2 1;
#X obj 20 560 i3D2 80 -2 -1 1;
#X obj 220 560 i3D2 81 -1 -1 1;
#X obj 420 560 i3D2 82 0 -1 1;
#X obj 620 560 i3D2 83 1 -1 1;
#X obj 820 560 i3D2 84 2 -1 1;
#X obj 40 580 i3D2 85 -2 0 1;
#X obj 240 580 i3D2 86 -1 0 1;
#X obj 440 580 i3D2 87 0 0 1;
#X obj 640 580 i3D2 88 1 0 1;
#X obj 840 580 i3D2 89 2 0 1;
#X obj 60 600 i3D2 90 -2 1 1;
#X obj 260 600 i3D2 91 -1 1 1;
#X obj 460 600 i3D2 92 0 1 1;
#X obj 660 600 i3D2 93 1 1 1;
#X obj 860 600 i3D2 94 2 1 1;
#X obj 80 620 i3D2 95 -2 2 1;
#X obj 280 620 i3D2 96 -1 2 1;
#X obj 480 620 i3D2 97 0 2 1;
#X obj 680 620 i3D2 98 1 2 1;
#X obj 880 620 i3D2 99 2 2 1;
#X obj 0 720 i3D2 100 -2 -2 2;
#X obj 200 720 i3D2 101 -1 -2 2;
#X obj 400 720 i3D2 102 0 -2 2;
#X obj 600 720 i3D2 103 1 -2 2;
#X obj 800 720 i3D2 104 2 -2 2;
#X obj 20 740 i3D2 105 -2 -1 2;
#X obj 220 740 i3D2 106 -1 -1 2;
#X obj 420 740 i3D2 107 0 -1 2;
#X obj 620 740 i3D2 108 1 -1 2;
#X obj 820 740 i3D2 109 2 -1 2;
#X obj 40 760 i3D2 110 -2 0 2;
#X obj 240 760 i3D2 111 -1 0 2;
#X obj 440 760 i3D2 112 0 0 2;
#X obj 640 760 i3D2 113 1 0 2;
#X obj 840 760 i3D2 114 2 0 2;
#X obj 60 780 i3D2 115 -2 1 2;
#X obj 260 780 i3D2 116 -1 1 2;
#X obj 460 780 i3D2 117 0 1 2;
#X obj 660 780 i3D2 118 1 1 2;
#X obj 860 780 i3D2 119 2 1 2;
#X obj 80 800 i3D2 120 -2 2 2;
#X obj 280 800 i3D2 121 -1 2 2;
#X obj 480 800 i3D2 122 0 2 2;
#X obj 680 800 i3D2 123 1 2 2;
#X obj 880 800 i3D2 124 2 2 2;
#X restore 334 505 pd array;
#X obj 71 173 s mass;
#X obj 349 351 s mass;
#X obj 334 567 constructor 5 5 5 -2 2 -2 2 -2 2 i3D2;
#X obj 366 307 s link1;
#X obj 414 307 s link2;
#X obj 39 652 s link1;
#X msg 39 626 setK \$1;
#X floatatom 39 605 5 0 0 0 - - -;
#X msg 95 627 setK \$1;
#X floatatom 95 606 5 0 0 0 - - -;
#X obj 95 653 s link2;
#X obj 29 208 s link1;
#X obj 38 230 s link2;
#X msg 157 627 setK \$1;
#X floatatom 157 606 5 0 0 0 - - -;
#X msg 213 628 setK \$1;
#X floatatom 213 607 5 0 0 0 - - -;
#X obj 461 307 s link3;
#X obj 511 307 s link4;
#X obj 157 653 s link3;
#X obj 213 654 s link4;
#X obj 49 252 s link3;
#X obj 58 274 s link4;
#X obj 39 577 unpack f f f f;
#X msg 48 321 1 0 0 0;
#X msg 68 366 0 1 0 0;
#X msg 39 300 0 0 1 0;
#X msg 59 342 0 0 0 1;
#X msg 349 328 resetF;
#X msg 365 279 setK 0 \, setD 1 \, setD2 1 \, resetF \, bang;
#X msg 91 413 0 1 0 1;
#X msg 101 435 0 0 0.1 3;
#X obj 349 255 t b b b;
#X msg 395 329 reset;
#X msg 113 455 2 3 0 3;
#X msg 81 390 0.1 0 0 0.1;
#X text 301 6 morfing;
#X text 128 21 each masss are link to 4 diferents point \, among diferents
shapes. depending of the rigidity of the link \, the diferents shapes
an be show;
#X text 220 379 <- select diferents rigidity (and diferents shape)
;
#X obj 163 166 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 179 190 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X obj 196 213 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -262144
-1 -1 0 1;
#X text 242 148 camera position;
#X obj 125 549 pack f f f f;
#X floatatom 125 497 5 0 0 0 - - -;
#X floatatom 160 497 5 0 0 0 - - -;
#X floatatom 195 497 5 0 0 0 - - -;
#X floatatom 230 498 5 0 0 0 - - -;
#X obj 160 517 t b f;
#X obj 195 517 t b f;
#X obj 230 517 t b f;
#X connect 0 0 12 0;
#X connect 1 0 8 0;
#X connect 3 0 2 0;
#X connect 4 0 51 0;
#X connect 5 0 51 0;
#X connect 6 0 8 0;
#X connect 7 0 30 0;
#X connect 7 0 31 0;
#X connect 7 0 40 0;
#X connect 7 0 41 0;
#X connect 7 2 19 0;
#X connect 11 0 12 1;
#X connect 12 0 7 0;
#X connect 14 0 15 0;
#X connect 15 0 13 0;
#X connect 17 0 21 0;
#X connect 25 0 24 0;
#X connect 26 0 25 0;
#X connect 27 0 29 0;
#X connect 28 0 27 0;
#X connect 32 0 38 0;
#X connect 33 0 32 0;
#X connect 34 0 39 0;
#X connect 35 0 34 0;
#X connect 42 0 26 0;
#X connect 42 1 28 0;
#X connect 42 2 33 0;
#X connect 42 3 35 0;
#X connect 43 0 42 0;
#X connect 44 0 42 0;
#X connect 45 0 42 0;
#X connect 46 0 42 0;
#X connect 47 0 20 0;
#X connect 48 0 22 0;
#X connect 48 0 23 0;
#X connect 48 0 36 0;
#X connect 48 0 37 0;
#X connect 49 0 42 0;
#X connect 50 0 42 0;
#X connect 51 0 47 0;
#X connect 51 1 48 0;
#X connect 51 2 52 0;
#X connect 52 0 20 0;
#X connect 53 0 42 0;
#X connect 54 0 42 0;
#X connect 58 0 8 1;
#X connect 59 0 8 2;
#X connect 60 0 8 3;
#X connect 62 0 42 0;
#X connect 63 0 62 0;
#X connect 64 0 67 0;
#X connect 65 0 68 0;
#X connect 66 0 69 0;
#X connect 67 0 62 0;
#X connect 67 1 62 1;
#X connect 68 0 62 0;
#X connect 68 1 62 2;
#X connect 69 0 62 0;
#X connect 69 1 62 3;