aboutsummaryrefslogtreecommitdiff
path: root/msd/editor/msd_append.pd
blob: 7c5a13e7478093a82d728e20708694ed17b3ab6d (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
#N canvas 862 152 89 147 10;
#X obj 2 16 cnv 15 80 60 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 6 29 bng 15 250 50 0 empty empty mass 0 -6 0 8 -1 -262144 -1
;
#X obj 34 29 bng 15 250 50 0 empty empty fix 0 -6 0 8 -258699 -1 -1
;
#N canvas 355 305 863 719 guts 0;
#X obj 289 340 pointer;
#X msg 289 303 traverse pd-data \, bang;
#X obj 107 89 inlet;
#X obj 214 89 inlet;
#X obj 679 378 + 1;
#X obj 649 318 r \$0-counter-bng;
#X obj 649 420 s \$0-nextmass;
#X obj 182 354 r \$0-nextmass;
#X obj 107 298 s \$0-counter-bng;
#X msg 107 112 0;
#X text 148 89 mobile;
#X text 260 89 fixed mass;
#X msg 214 111 900;
#X obj 649 378 f 0;
#X obj 685 343 loadbang;
#X obj 549 321 r \$0-counter;
#X msg 590 411 set \$1;
#X obj 590 452 s \$0-counter-in;
#X obj 245 334 r \$0-M;
#X obj 553 175 f \$1;
#X obj 553 199 select 0;
#X obj 553 254 s \$0-M;
#X msg 552 224 100;
#X obj 558 152 loadbang;
#X obj 40 316 r \$0-geos;
#X obj 289 278 r \$0-start-traverse;
#X obj 216 405 f 0;
#X obj 40 339 t a b;
#X obj 232 374 r \$0-mfds;
#X obj 270 399 r \$0-msid;
#X obj 105 432 append mass x y mid mob M sid;
#X obj 678 195 loadbang;
#X obj 678 249 s \$0-msid;
#X msg 678 221 0;
#X msg 197 376 \$1;
#X obj 141 172 random 100;
#X obj 227 172 random 100;
#X obj 141 196 + 20;
#X obj 227 194 + 20;
#X obj 107 272 t b a b b b a b;
#X msg 123 356 \$2 \$3;
#X obj 128 150 t f b;
#X obj 107 230 pack 0 0 0;
#X obj 363 90 inlet;
#X text 410 91 another mass: list of "mob \, x \, y";
#X obj 105 477 outlet;
#X text 159 480 last mass created;
#X obj 338 531 append hole x y;
#X obj 438 505 pointer;
#X msg 438 468 traverse pd-data \, bang;
#X obj 438 443 r \$0-start-traverse;
#X msg 338 479 10 10;
#X connect 0 0 30 6;
#X connect 1 0 0 0;
#X connect 2 0 9 0;
#X connect 3 0 12 0;
#X connect 4 0 13 1;
#X connect 5 0 13 0;
#X connect 7 0 30 2;
#X connect 9 0 41 0;
#X connect 12 0 41 0;
#X connect 13 0 4 0;
#X connect 13 0 6 0;
#X connect 13 0 16 0;
#X connect 14 0 13 0;
#X connect 15 0 13 0;
#X connect 16 0 17 0;
#X connect 18 0 30 4;
#X connect 19 0 20 0;
#X connect 20 0 22 0;
#X connect 20 1 21 0;
#X connect 22 0 21 0;
#X connect 23 0 19 0;
#X connect 24 0 27 0;
#X connect 25 0 1 0;
#X connect 26 0 30 3;
#X connect 27 0 30 0;
#X connect 27 1 26 0;
#X connect 28 0 26 1;
#X connect 29 0 30 5;
#X connect 30 0 45 0;
#X connect 31 0 33 0;
#X connect 33 0 32 0;
#X connect 34 0 30 3;
#X connect 35 0 37 0;
#X connect 36 0 38 0;
#X connect 37 0 42 1;
#X connect 38 0 42 2;
#X connect 39 0 8 0;
#X connect 39 1 40 0;
#X connect 39 5 34 0;
#X connect 39 6 1 0;
#X connect 40 0 30 0;
#X connect 41 0 42 0;
#X connect 41 1 35 0;
#X connect 41 1 36 0;
#X connect 42 0 39 0;
#X connect 43 0 42 0;
#X connect 48 0 47 2;
#X connect 49 0 48 0;
#X connect 50 0 49 0;
#X connect 51 0 47 0;
#X restore 105 79 pd guts;
#X obj 105 6 inlet;
#X obj 148 5 inlet;
#X obj 25 59 nbx 5 14 -1e+37 1e+37 0 0 \$0-counter \$0-counter-in id
-22 8 0 10 -262144 -1 -1 0 256;
#X obj 2 79 cnv 15 80 60 empty empty empty 10 10 0 10 -195568 -1 0
;
#X obj 26 85 nbx 5 14 -1e+37 1e+37 0 0 \$0-M \$0-M M -12 8 0 10 -225271
-1 -1 100 256;
#N canvas 379 246 663 624 geos 0;
#X obj 93 96 make_rect 100 100 30 30 10 10;
#X obj 123 162 s \$0-geos;
#X obj 93 188 s \$0-counter-bng;
#X obj 48 33 r \$0-make-rect;
#X msg 93 67 bang;
#N canvas 449 480 450 300 1015-geos 0;
#X obj 48 82 bng 24 250 50 0 \$0-make-rect empty make-rect 0 -6 0 8
-24198 -1 -1;
#X floatatom 151 76 5 0 0 0 x0 - #0-x0;
#X floatatom 151 92 5 0 0 0 y0 - #0-y0;
#X floatatom 227 75 5 0 0 0 xgap - #0-xgap;
#X floatatom 227 91 5 0 0 0 ygap - #0-ygap;
#X floatatom 322 74 5 0 0 0 xsteps - #0-xsteps;
#X floatatom 322 90 5 0 0 0 ysteps - #0-ysteps;
#X text 46 18 Add various geometric forms;
#X text 38 46 Rectangle Networks:;
#X text 37 137 Circles:;
#X obj 52 172 bng 24 250 50 0 \$0-make-circ empty make-circ 0 -6 0
8 -24198 -1 -1;
#X floatatom 145 166 5 0 0 0 x0 - #0-x0-circ;
#X floatatom 145 182 5 0 0 0 y0 - #0-y0-circ;
#X floatatom 251 166 5 0 0 0 radius - #0-radius;
#X floatatom 251 184 5 0 0 0 masses_# - #0-masses-circ;
#X text 107 266 All coords as used by data structs.;
#X obj 54 233 hradio 15 1 0 2 \$0-mf \$0-mf Mobile/Fix 0 -6 0 8 -262144
-1 -1 0;
#X obj 91 234 cnv 15 60 15 \$0-mobfix \$0-mobfix mobile 2 6 0 10 -233017
-66577 0;
#X restore 518 165 pd \$0-geos;
#X msg 519 125 \; \$1 vis 1;
#X obj 518 96 makefilename pd-%s;
#X obj 520 68 symbol \$0-geos;
#X msg 516 22 bang;
#X obj 48 66 t b b;
#X obj 78 226 s \$0-start-traverse;
#N canvas 0 0 930 534 1015-sixpack 0;
#X obj 250 282 r \$0-x0;
#X text 452 208 Args;
#X obj 320 310 sixpack --------------------;
#X obj 296 237 r \$0-y0;
#X obj 336 206 r \$0-xgap;
#X obj 376 185 r \$0-ygap;
#X obj 412 164 r \$0-xsteps;
#X obj 448 143 r \$0-ysteps;
#X obj 326 342 outlet;
#X connect 0 0 2 0;
#X connect 2 0 8 0;
#X connect 3 0 2 1;
#X connect 4 0 2 2;
#X connect 5 0 2 3;
#X connect 6 0 2 4;
#X connect 7 0 2 5;
#X restore 291 40 pd \$0-sixpack;
#X obj 93 128 t b a;
#X obj 524 45 r \$0-show-geos;
#X obj 63 322 r \$0-make-circ;
#N canvas 0 0 930 534 1015-fourpack 0;
#X text 452 208 Args;
#X obj 320 310 sixpack --------------------;
#X obj 319 390 outlet;
#X msg 319 349 \$1 \$2 \$3 \$4;
#X obj 252 282 r \$0-x0-circ;
#X obj 296 237 r \$0-y0-circ;
#X obj 376 185 r \$0-masses-circ;
#X obj 336 206 r \$0-radius;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X connect 5 0 1 1;
#X connect 6 0 1 3;
#X connect 7 0 1 2;
#X restore 219 327 pd \$0-fourpack;
#X obj 136 441 s \$0-geos;
#X obj 106 467 s \$0-counter-bng;
#X obj 63 345 t b b;
#X obj 93 505 s \$0-start-traverse;
#X obj 106 407 t b a;
#X obj 63 370 make_circ 300 300 100 8;
#X obj 368 266 select 0;
#X msg 368 306 label mobile;
#X obj 368 329 s \$0-mobfix;
#X msg 420 288 label fix;
#X obj 368 236 r \$0-mf;
#X obj 507 332 s \$0-mfds;
#X msg 508 301 0;
#X msg 544 299 900;
#X connect 0 0 13 0;
#X connect 3 0 10 0;
#X connect 4 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 0 0;
#X connect 10 1 11 0;
#X connect 12 0 0 1;
#X connect 13 0 2 0;
#X connect 13 1 1 0;
#X connect 14 0 8 0;
#X connect 15 0 19 0;
#X connect 16 0 22 1;
#X connect 19 0 22 0;
#X connect 19 1 20 0;
#X connect 21 0 18 0;
#X connect 21 1 17 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 23 0 29 0;
#X connect 23 1 26 0;
#X connect 23 1 30 0;
#X connect 24 0 25 0;
#X connect 26 0 25 0;
#X connect 27 0 23 0;
#X connect 29 0 28 0;
#X connect 30 0 28 0;
#X restore 106 122 pd geos;
#X obj 59 29 bng 15 250 50 0 \$0-show-geos \$0-show-geos geos 0 -6
0 8 -225271 -1 -1;
#X obj 35 111 nbx 4 14 -1e+37 1e+37 0 0 \$0-msid \$0-msid SID -30 8
0 10 -261681 -1 -1 0 256;
#X obj 200 1 inlet;
#X obj 105 103 outlet;
#X connect 1 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 13 0;
#X connect 4 0 3 0;
#X connect 5 0 3 1;
#X connect 12 0 3 2;
#X coords 0 0 1 1 82 130 1;