aboutsummaryrefslogtreecommitdiff
path: root/examples/FM~.pd
blob: c5bf77511d15df14cf44e3094cb79e233c2a508a (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
#N canvas 376 60 873 521 10;
#X obj 314 163 canvasposition;
#X msg 314 131 bang;
#X obj 314 189 t l l;
#X obj 99 459 outlet~;
#N canvas 555 32 725 619 connector 0;
#X obj 26 46 symbol \$0-pos;
#X obj 140 110 r \$0-pos;
#X obj 140 248 pack;
#X obj 26 4 inlet;
#X obj 26 144 s \$1-getpos;
#X obj 254 34 inlet currentposition;
#N canvas 412 176 450 300 distance 0;
#X obj 98 237 outlet;
#X obj 220 59 inlet pos2;
#X obj 89 68 inlet pos1;
#X obj 89 93 unpack;
#X obj 91 139 -;
#X obj 91 159 t f f;
#X obj 92 178 *;
#X obj 141 141 -;
#X obj 141 161 t f f;
#X obj 138 179 *;
#X obj 97 206 +;
#X obj 221 93 unpack;
#X connect 1 0 11 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 1 7 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 10 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 1 9 1;
#X connect 9 0 10 1;
#X connect 10 0 0 0;
#X connect 11 0 4 1;
#X connect 11 1 7 1;
#X restore 180 172 pd distance;
#X obj 140 131 list split 1;
#N canvas 62 346 450 300 getnearest 0;
#X obj 163 112 min;
#X obj 163 136 t f f;
#X obj 163 206 f;
#X obj 163 186 t b;
#X msg 339 108 1e+09;
#X obj 338 37 inlet reset;
#X obj 163 245 outlet id;
#X obj 163 91 unpack;
#X obj 163 41 inlet <dist> <id>;
#X obj 163 161 change;
#X msg 344 141 set \$1;
#X connect 0 0 1 0;
#X connect 1 0 9 0;
#X connect 1 1 0 1;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 4 0 0 1;
#X connect 4 0 10 0;
#X connect 5 0 4 0;
#X connect 7 0 0 0;
#X connect 7 1 2 1;
#X connect 8 0 7 0;
#X connect 9 0 3 0;
#X connect 10 0 9 0;
#X restore 140 282 pd getnearest;
#N canvas 0 0 666 372 connectme 0;
#X obj 234 258 t a;
#X obj 126 199 pack 0 0;
#X obj 138 21 inlet <id>;
#X obj 276 30 inlet <canvasid>;
#X obj 234 288 outlet mess;
#X msg 123 227 connect \$2 0 \$1 0;
#X text 305 52 <myid>;
#X connect 0 0 4 0;
#X connect 1 0 5 0;
#X connect 2 0 1 0;
#X connect 3 0 1 1;
#X connect 5 0 0 0;
#X restore 182 456 pd connectme;
#X obj 430 32 inlet canvasindex;
#X obj 182 486 s \$1-canvas;
#X obj 531 371 outlet spigot;
#X text 436 64 <myid> <numids>;
#X obj 338 462 disconnectme;
#X obj 26 76 t s b b;
#X obj 338 440 list;
#X obj 317 125 t f l;
#X obj 31 110 t b s b;
#X msg 83 190 0;
#X msg 54 189 1;
#X obj 65 214 t f;
#X obj 122 345 f;
#X obj 122 366 change;
#X obj 122 421 select -1;
#X obj 32 24 t b b b;
#X msg 99 26 -1;
#X obj 140 198 swap;
#X obj 123 392 t f b;
#X obj 139 221 moses 150000;
#X connect 0 0 15 0;
#X connect 1 0 7 0;
#X connect 2 0 8 0;
#X connect 3 0 25 0;
#X connect 5 0 6 1;
#X connect 6 0 27 1;
#X connect 7 0 27 0;
#X connect 7 1 6 0;
#X connect 8 0 22 1;
#X connect 9 0 11 0;
#X connect 10 0 17 0;
#X connect 14 0 11 0;
#X connect 15 0 18 0;
#X connect 15 1 8 1;
#X connect 16 0 14 0;
#X connect 17 0 9 1;
#X connect 17 1 16 1;
#X connect 18 0 20 0;
#X connect 18 1 4 0;
#X connect 18 2 19 0;
#X connect 19 0 21 0;
#X connect 20 0 21 0;
#X connect 21 0 12 0;
#X connect 22 0 23 0;
#X connect 23 0 28 0;
#X connect 24 1 9 0;
#X connect 25 0 22 0;
#X connect 25 1 0 0;
#X connect 25 2 26 0;
#X connect 26 0 22 1;
#X connect 27 0 29 0;
#X connect 27 1 2 1;
#X connect 28 0 24 0;
#X connect 28 1 16 0;
#X connect 29 0 2 0;
#X restore 314 380 pd connector;
#X obj 395 336 canvasindex;
#X obj 395 359 pack;
#X obj 314 302 t b l b;
#X obj 100 389 osc~;
#X obj 100 217 *~;
#X obj 99 180 osc~;
#N canvas 0 0 450 300 scale 0;
#X obj 146 157 /;
#X obj 177 156 /;
#X obj 195 106 unpack;
#X obj 136 115 unpack;
#X obj 147 185 pack;
#X obj 141 80 inlet;
#X obj 191 80 inlet;
#X obj 164 239 outlet;
#X connect 0 0 4 0;
#X connect 1 0 4 1;
#X connect 2 0 0 1;
#X connect 2 1 1 1;
#X connect 3 0 0 0;
#X connect 3 1 1 0;
#X connect 4 0 7 0;
#X connect 5 0 3 0;
#X connect 6 0 2 0;
#X restore 428 205 pd scale;
#X obj 99 20 unpack;
#X obj 99 71 * \$2;
#X obj 99 46 * 4;
#X obj 100 434 *~ 0.2;
#X obj 98 120 line~;
#X obj 99 97 pack 0 100;
#X obj 138 215 line~;
#X obj 139 192 pack 0 100;
#X obj 671 81 canvasposition;
#X obj 648 226 s;
#X obj 648 57 t b b s;
#X obj 648 202 pack 0 0 0;
#X obj 681 130 unpack;
#X obj 648 104 canvasindex;
#X obj 648 6 r \$1-getpos;
#X obj 648 28 spigot 1;
#X obj 343 27 r tick;
#X obj 228 20 inlet~;
#N canvas 0 0 450 300 default~ 0;
#X obj 103 45 inlet~;
#X obj 103 261 outlet~;
#X obj 331 128 sig~ \$2;
#X obj 128 85 env~;
#X obj 128 119 != 0;
#X obj 128 157 line~;
#X obj 128 138 pack 0 50;
#X obj 104 205 *~;
#X obj 152 192 *~ -1;
#X obj 152 213 +~ 1;
#X obj 153 236 *~;
#X connect 0 0 3 0;
#X connect 0 0 7 0;
#X connect 2 0 10 1;
#X connect 3 0 4 0;
#X connect 4 0 6 0;
#X connect 5 0 7 1;
#X connect 5 0 8 0;
#X connect 6 0 5 0;
#X connect 7 0 1 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 1 0;
#X restore 227 46 pd default~;
#X obj 101 279 +~;
#X obj 138 173 * 1000;
#X obj 346 223 mover;
#X obj 102 318 delwrite~ \$0-del 0;
#X obj 101 337 delread~ \$0-del;
#X connect 0 0 2 0;
#X connect 0 0 11 0;
#X connect 0 1 11 1;
#X connect 0 1 33 1;
#X connect 1 0 0 0;
#X connect 2 0 7 0;
#X connect 2 1 33 0;
#X connect 4 0 27 1;
#X connect 5 0 6 0;
#X connect 5 1 6 1;
#X connect 6 0 4 2;
#X connect 7 0 4 0;
#X connect 7 1 4 1;
#X connect 7 2 5 0;
#X connect 8 0 15 0;
#X connect 9 0 31 0;
#X connect 10 0 9 0;
#X connect 11 0 12 0;
#X connect 12 0 14 0;
#X connect 12 1 32 0;
#X connect 13 0 17 0;
#X connect 14 0 13 0;
#X connect 15 0 3 0;
#X connect 16 0 10 0;
#X connect 17 0 16 0;
#X connect 18 0 9 1;
#X connect 19 0 18 0;
#X connect 20 0 24 0;
#X connect 22 0 25 0;
#X connect 22 1 20 0;
#X connect 22 2 21 1;
#X connect 23 0 21 0;
#X connect 24 0 23 1;
#X connect 24 1 23 2;
#X connect 25 0 23 0;
#X connect 26 0 27 0;
#X connect 27 0 22 0;
#X connect 28 0 1 0;
#X connect 29 0 30 0;
#X connect 30 0 31 1;
#X connect 31 0 34 0;
#X connect 32 0 19 0;
#X connect 33 0 0 0;
#X connect 35 0 8 0;
#X coords 0 0 1 1 32 50 0;