aboutsummaryrefslogtreecommitdiff
path: root/msd2D/make_anim.pd
blob: c29fc3fcd7ad0720c75dc39dcde734319e56b48e (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
#N struct mass float x float y float mid float mob;
#N struct fixmass float x float y float mid;
#N canvas 445 254 669 506 10;
#X obj 352 260 pointer;
#X obj 86 83 spigot;
#X obj 400 20 bng 15 250 50 0 \$0-create empty Create 22 6 0 10 -258113
-1 -1;
#X obj 316 76 r \$0-create;
#X obj 123 50 r \$0-listen;
#X obj 533 184 s \$0-listen;
#X msg 533 159 1;
#X obj 316 98 t b b b b b;
#X obj 199 217 s \$0-listen;
#X msg 199 191 0;
#N canvas 0 22 870 770 \$0-anim 0;
#X scalar mass 501.859 143.462 2 0 \;;
#X scalar mass 385.528 207.845 3 0 \;;
#X scalar mass 563.885 96.7994 4 0 \;;
#X scalar mass 436.681 183.23 5 0 \;;
#X scalar mass 677.97 25.7242 6 0 \;;
#X scalar mass 635.854 51.7641 7 0 \;;
#X scalar fixmass 287 68 0 \;;
#X scalar fixmass 56 223 1 \;;
#X restore 220 25 pd \$0-anim;
#X obj 446 329 makefilename pd-%s;
#X obj 446 283 loadbang;
#X msg 446 261 bang;
#X obj 446 353 s \$0-cnv;
#X obj 400 137 symbol;
#X obj 407 98 r \$0-cnv;
#X obj 352 137 symbol;
#X msg 352 228 traverse \$1 \, bang;
#X obj 86 27 inlet;
#X obj 400 35 tgl 15 0 empty empty poll 22 6 0 10 -262144 -1 -1 1 1
;
#X msg 400 160 \; \$1 clear \;;
#X obj 464 376 r \$0-cnv;
#X obj 413 403 pack 0 s;
#X msg 413 434 \; \$2 vis \$1;
#X obj 59 376 metro 40;
#X obj 59 401 s \$0-create;
#X obj 284 221 outlet;
#X obj 446 305 symbol \$1;
#N canvas 683 281 568 586 make_link 0;
#X obj 165 35 inlet;
#X obj 367 438 inlet;
#X obj 236 135 s \$0-mass2;
#X obj 334 305 r \$0-mass2;
#X obj 293 283 r \$0-mass1;
#X obj 203 159 s \$0-mass1;
#N canvas 0 22 591 644 look4mass2 0;
#X msg 228 199 next;
#X obj 228 463 spigot;
#X obj 228 386 pack 0 0;
#X obj 228 508 unpack 0 0;
#X obj 295 411 r \$0-mass2;
#X obj 228 562 outlet;
#X obj 293 564 outlet;
#X obj 228 68 inlet;
#X obj 228 90 t b b;
#X obj 437 327 select 0;
#X obj 137 319 get mass x y mid;
#X obj 281 317 get fixmass x y mid;
#X obj 265 437 == -1;
#X obj 367 247 print lookmass1;
#X msg 404 136 traverse pd-data \, next;
#X obj 228 229 pointer;
#X connect 0 0 15 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 5 0;
#X connect 3 1 6 0;
#X connect 4 0 12 1;
#X connect 7 0 8 0;
#X connect 8 0 0 0;
#X connect 8 1 14 0;
#X connect 9 0 0 0;
#X connect 10 0 2 0;
#X connect 10 1 2 1;
#X connect 10 2 12 0;
#X connect 11 0 2 0;
#X connect 11 1 2 1;
#X connect 11 2 12 0;
#X connect 12 0 1 1;
#X connect 12 0 9 0;
#X connect 14 0 15 0;
#X connect 15 0 10 0;
#X connect 15 0 11 0;
#X connect 15 1 13 0;
#X restore 184 267 pd look4mass2;
#X obj 165 67 t b b a a;
#X msg 203 113 \$3;
#X msg 236 113 \$4;
#N canvas 0 22 591 644 look4mass1 0;
#X msg 228 199 next;
#X obj 228 463 spigot;
#X obj 228 386 pack 0 0;
#X obj 228 508 unpack 0 0;
#X obj 228 562 outlet;
#X obj 293 564 outlet;
#X obj 228 68 inlet;
#X obj 228 90 t b b;
#X obj 437 327 select 0;
#X obj 228 229 pointer mass fixmass;
#X obj 137 319 get mass x y mid;
#X obj 281 317 get fixmass x y mid;
#X obj 295 384 r \$0-mass1;
#X obj 265 437 == -1;
#X msg 404 136 traverse pd-data \, bang;
#X connect 0 0 9 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 3 1 5 0;
#X connect 6 0 7 0;
#X connect 7 0 0 0;
#X connect 7 1 14 0;
#X connect 8 0 0 0;
#X connect 9 0 10 0;
#X connect 9 1 11 0;
#X connect 10 0 2 0;
#X connect 10 1 2 1;
#X connect 10 2 13 0;
#X connect 11 0 2 0;
#X connect 11 1 2 1;
#X connect 11 2 13 0;
#X connect 12 0 13 1;
#X connect 13 0 1 1;
#X connect 13 0 8 0;
#X connect 14 0 9 0;
#X restore 160 241 pd look4mass1;
#X obj 121 463 append liaison x1 y1 x2 y2 mid1 mid2;
#X obj 159 358 pack 0 0 0 0 0 0;
#X obj 167 417 print linklist;
#X connect 0 0 7 0;
#X connect 1 0 11 6;
#X connect 3 0 12 5;
#X connect 4 0 12 4;
#X connect 6 0 12 2;
#X connect 6 1 12 3;
#X connect 7 0 10 0;
#X connect 7 1 6 0;
#X connect 7 2 8 0;
#X connect 7 3 9 0;
#X connect 8 0 5 0;
#X connect 9 0 2 0;
#X connect 10 0 12 0;
#X connect 10 1 12 1;
#X connect 12 0 11 0;
#X connect 12 0 13 0;
#X restore 273 411 pd make_link;
#X text 216 384 LATER:;
#X obj 86 113 route Mass linksPos;
#X msg 284 198 infosL \, get linksPos;
#X obj 192 345 append liaison x1 y1 x2 y2;
#X msg 195 325 \$2 \$3 \$4 \$5;
#X obj 141 257 append mass mid x y;
#X msg 141 168 \$1 \$5 \$6;
#X obj 86 142 t a a;
#X msg 62 166 \$3;
#X obj 62 283 set mass mob;
#X obj 62 229 * 0;
#X obj 400 50 tgl 15 0 empty empty view 22 6 0 10 -262144 -1 -1 0 1
;
#X connect 0 0 29 1;
#X connect 0 0 33 4;
#X connect 0 0 35 3;
#X connect 1 0 31 0;
#X connect 3 0 7 0;
#X connect 4 0 1 1;
#X connect 6 0 5 0;
#X connect 7 0 9 0;
#X connect 7 1 32 0;
#X connect 7 2 17 0;
#X connect 7 3 15 0;
#X connect 7 4 6 0;
#X connect 7 4 13 0;
#X connect 9 0 8 0;
#X connect 11 0 14 0;
#X connect 12 0 28 0;
#X connect 13 0 28 0;
#X connect 15 0 21 0;
#X connect 16 0 15 1;
#X connect 16 0 17 1;
#X connect 17 0 18 0;
#X connect 18 0 0 0;
#X connect 19 0 1 0;
#X connect 20 0 25 0;
#X connect 22 0 23 1;
#X connect 23 0 24 0;
#X connect 25 0 26 0;
#X connect 28 0 11 0;
#X connect 31 0 37 0;
#X connect 31 1 34 0;
#X connect 32 0 27 0;
#X connect 34 0 33 0;
#X connect 35 0 39 1;
#X connect 36 0 35 0;
#X connect 37 0 38 0;
#X connect 37 1 36 0;
#X connect 38 0 40 0;
#X connect 40 0 39 0;
#X connect 41 0 23 0;
#X coords 0 -1 1 1 120 65 1 400 0;