-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathherrmann.pd
More file actions
323 lines (323 loc) · 8.83 KB
/
Copy pathherrmann.pd
File metadata and controls
323 lines (323 loc) · 8.83 KB
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
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
#N canvas 426 181 796 532 12;
#X obj 328 46 loadbang;
#X obj 268 294 list store;
#X msg 301 196 \$1;
#X obj 301 220 until;
#X obj 301 244 random 2;
#X msg 301 268 append \$1;
#X obj 30 94 i;
#X obj 30 118 + 1;
#X obj 30 142 mod;
#X obj 268 20 inlet;
#X obj 30 20 inlet;
#X obj 388 395 array define \$0-herrmann;
#X obj 30 196 array get \$0-herrmann;
#X obj 268 118 bng 19 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X msg 439 451 0, f 2;
#X obj 322 407 tgl 19 0 \$0-o2 \$0-i2 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 343 407 tgl 19 0 \$0-o3 \$0-i3 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 279 429 tgl 19 0 \$0-o4 \$0-i4 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 301 429 tgl 19 0 \$0-o5 \$0-i5 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 322 429 tgl 19 0 \$0-o6 \$0-i6 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 343 429 tgl 19 0 \$0-o7 \$0-i7 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 279 451 tgl 19 0 \$0-o8 \$0-i8 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 301 451 tgl 19 0 \$0-o9 \$0-i9 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 322 451 tgl 19 0 \$0-o10 \$0-i10 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 343 451 tgl 19 0 \$0-o11 \$0-i11 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 279 473 tgl 19 0 \$0-o12 \$0-i12 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X msg 460 451 1, f 2;
#X msg 481 451 2, f 2;
#X msg 502 451 3, f 2;
#X msg 525 451 4, f 2;
#X msg 546 451 5, f 2;
#X msg 567 451 6, f 2;
#X msg 588 451 7, f 2;
#X msg 611 451 8, f 2;
#X msg 632 451 9, f 2;
#X msg 653 451 10, f 2;
#X msg 674 451 11, f 2;
#X obj 301 407 tgl 19 0 \$0-o1 \$0-i1 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X floatatom 279 376 3 1 16 1 Length \$0-patleninit \$0-patlen 12;
#X obj 268 142 f, f 2;
#X obj 328 70 t b b;
#N canvas 787 59 328 429 listro 0;
#X obj 25 18 inlet;
#X obj 25 43 unpack f f f f f f f f f f f f f f f f;
#X obj 25 69 s \$0-i0;
#X obj 25 90 s \$0-i1;
#X obj 25 111 s \$0-i2;
#X obj 25 132 s \$0-i3;
#X obj 25 153 s \$0-i4;
#X obj 25 174 s \$0-i5;
#X obj 25 195 s \$0-i6;
#X obj 25 216 s \$0-i7;
#X obj 25 237 s \$0-i8;
#X obj 25 258 s \$0-i9;
#X obj 25 279 s \$0-i10;
#X obj 25 300 s \$0-i11;
#X obj 25 322 s \$0-i12;
#X obj 25 343 s \$0-i13;
#X obj 25 364 s \$0-i14;
#X obj 25 385 s \$0-i15;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 1 2 4 0;
#X connect 1 3 5 0;
#X connect 1 4 6 0;
#X connect 1 5 7 0;
#X connect 1 6 8 0;
#X connect 1 7 9 0;
#X connect 1 8 10 0;
#X connect 1 9 11 0;
#X connect 1 10 12 0;
#X connect 1 11 13 0;
#X connect 1 12 14 0;
#X connect 1 13 15 0;
#X connect 1 14 16 0;
#X connect 1 15 17 0;
#X restore 268 318 pd listro;
#N canvas 29 46 1090 81 patstro 0;
#X obj 81 16 r \$0-o1;
#X obj 144 16 r \$0-o2;
#X obj 207 16 r \$0-o3;
#X obj 270 16 r \$0-o4;
#X obj 333 16 r \$0-o5;
#X obj 396 16 r \$0-o6;
#X obj 459 16 r \$0-o7;
#X obj 522 16 r \$0-o8;
#X obj 585 16 r \$0-o9;
#X obj 648 16 r \$0-o10;
#X obj 718 16 r \$0-o11;
#X obj 788 16 r \$0-o12;
#X obj 81 40 outlet;
#X obj 144 40 outlet;
#X obj 207 40 outlet;
#X obj 270 40 outlet;
#X obj 333 40 outlet;
#X obj 396 40 outlet;
#X obj 459 40 outlet;
#X obj 522 40 outlet;
#X obj 585 40 outlet;
#X obj 648 40 outlet;
#X obj 718 40 outlet;
#X obj 788 40 outlet;
#X obj 858 40 outlet;
#X obj 928 40 outlet;
#X obj 998 40 outlet;
#X obj 18 40 outlet;
#X obj 858 16 r \$0-o13;
#X obj 928 16 r \$0-o14;
#X obj 998 16 r \$0-o15;
#X obj 18 16 r \$0-o0;
#X connect 0 0 12 0;
#X connect 1 0 13 0;
#X connect 2 0 14 0;
#X connect 3 0 15 0;
#X connect 4 0 16 0;
#X connect 5 0 17 0;
#X connect 6 0 18 0;
#X connect 7 0 19 0;
#X connect 8 0 20 0;
#X connect 9 0 21 0;
#X connect 10 0 22 0;
#X connect 11 0 23 0;
#X connect 28 0 24 0;
#X connect 29 0 25 0;
#X connect 30 0 26 0;
#X connect 31 0 27 0;
#X restore 388 424 pd patstro;
#X obj 293 142 r \$0-patlen;
#X obj 420 118 s \$0-patleninit;
#X obj 88 44 inlet;
#X text 130 43 Restart pattern;
#X msg 696 451 12, f 2;
#X msg 717 451 13, f 2;
#X msg 738 451 14, f 2;
#X msg 759 451 15, f 2;
#X obj 301 473 tgl 19 0 \$0-o13 \$0-i13 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 322 473 tgl 19 0 \$0-o14 \$0-i14 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 343 473 tgl 19 0 \$0-o15 \$0-i15 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X obj 279 407 tgl 19 0 \$0-o0 \$0-i0 empty 0 -10 0 12 #ffffff #000000 #000000 0 1;
#X msg 360 99 16, f 2;
#N canvas 672 360 385 222 poscolflash 0;
#X obj 107 22 inlet;
#X obj 107 46 t b f;
#X obj 209 69 f \$0;
#X obj 209 22 loadbang;
#X msg 209 118 set \$1;
#X obj 199 146 makefilename;
#X obj 209 94 makefilename %d-i%%s;
#X obj 107 178 s \$1;
#X msg 27 118 color #000000 #ffffff, f 8;
#X msg 107 118 color #ffffff #000000, f 8;
#X obj 107 94 del 50;
#X connect 0 0 1 0;
#X connect 1 0 8 0;
#X connect 1 0 10 0;
#X connect 1 1 5 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 7 1;
#X connect 6 0 4 0;
#X connect 8 0 7 0;
#X connect 9 0 7 0;
#X connect 10 0 9 0;
#X restore 41 169 pd poscolflash;
#N canvas 304 150 389 420 colcalc 0;
#X obj 73 13 inlet;
#X obj 113 263 t b f;
#X obj 215 215 f \$0;
#X obj 215 191 loadbang;
#X msg 215 263 set \$1;
#X obj 205 293 makefilename;
#X obj 215 239 makefilename %d-i%%s;
#X obj 180 375 s \$1;
#X msg 113 295 color #ffffff #000000, f 8;
#X msg 23 295 color #dedede #dedede, f 8;
#X obj 113 143 until;
#X msg 113 119 \$1;
#X obj 113 167 i;
#X obj 113 191 + 1;
#X obj 113 215 mod;
#X obj 23 263 t b f;
#X obj 23 143 until;
#X msg 23 119 \$1;
#X obj 23 167 i;
#X obj 23 191 + 1;
#X obj 23 215 mod;
#X obj 23 239 +;
#X obj 73 37 t f f f f;
#X obj 23 70 expr 16-$f1;
#X obj 23 94 t f f;
#X connect 0 0 22 0;
#X connect 1 0 8 0;
#X connect 1 1 5 0;
#X connect 2 0 6 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 5 0 7 1;
#X connect 6 0 4 0;
#X connect 8 0 7 0;
#X connect 9 0 7 0;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 12 1;
#X connect 14 0 1 0;
#X connect 15 0 9 0;
#X connect 15 1 5 0;
#X connect 16 0 18 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 20 0 18 1;
#X connect 20 0 21 0;
#X connect 21 0 15 0;
#X connect 22 0 23 0;
#X connect 22 1 21 1;
#X connect 22 2 11 0;
#X connect 22 3 14 1;
#X connect 23 0 24 0;
#X connect 24 0 17 0;
#X connect 24 1 20 1;
#X restore 388 342 pd colcalc;
#X obj 388 371 r \$0-patlen;
#X obj 388 318 r \$0-patlen;
#X obj 65 142 r \$0-patlen;
#X msg 88 67 -1, f 2;
#X floatatom 30 220 5 0 0 0 - - - 0;
#X obj 30 243 sel 1;
#X obj 30 267 bng 19 250 50 0 empty empty empty 0 -10 0 12 #fcfcfc #000000 #000000;
#X obj 30 291 outlet;
#X obj 388 481 array set \$0-herrmann;
#X obj 268 169 t b f b, f 10;
#X obj 420 20 inlet;
#X text 72 19 Main metro;
#X text 312 19 Create pattern;
#X text 465 20 Set length;
#X text 381 99 Init;
#X text 29 320 Herrmann creates an array with a size of 1-16 data points (aka pattern length) that is filled with 0s and 1s (or by using toggles). Bangs to the second inlet create new patterns. Bangs coming in via the first inlet (e.g. from a metro from main patch) go through the pattern index and output bangs on each "1" inside the array through the outlet. Last updated 9.6.23, f 30;
#X connect 0 0 40 0;
#X connect 1 0 41 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 6 1;
#X connect 8 0 12 0;
#X connect 8 0 56 0;
#X connect 9 0 13 0;
#X connect 10 0 6 0;
#X connect 12 0 62 0;
#X connect 13 0 39 0;
#X connect 14 0 66 1;
#X connect 26 0 66 1;
#X connect 27 0 66 1;
#X connect 28 0 66 1;
#X connect 29 0 66 1;
#X connect 30 0 66 1;
#X connect 31 0 66 1;
#X connect 32 0 66 1;
#X connect 33 0 66 1;
#X connect 34 0 66 1;
#X connect 35 0 66 1;
#X connect 36 0 66 1;
#X connect 39 0 67 0;
#X connect 40 0 13 0;
#X connect 40 1 55 0;
#X connect 42 0 14 0;
#X connect 42 0 66 0;
#X connect 42 1 26 0;
#X connect 42 1 66 0;
#X connect 42 2 27 0;
#X connect 42 2 66 0;
#X connect 42 3 28 0;
#X connect 42 3 66 0;
#X connect 42 4 29 0;
#X connect 42 4 66 0;
#X connect 42 5 30 0;
#X connect 42 5 66 0;
#X connect 42 6 31 0;
#X connect 42 6 66 0;
#X connect 42 7 32 0;
#X connect 42 7 66 0;
#X connect 42 8 33 0;
#X connect 42 8 66 0;
#X connect 42 9 34 0;
#X connect 42 9 66 0;
#X connect 42 10 35 0;
#X connect 42 10 66 0;
#X connect 42 11 36 0;
#X connect 42 11 66 0;
#X connect 42 12 47 0;
#X connect 42 12 66 0;
#X connect 42 13 48 0;
#X connect 42 13 66 0;
#X connect 42 14 49 0;
#X connect 42 14 66 0;
#X connect 42 15 50 0;
#X connect 42 15 66 0;
#X connect 43 0 39 1;
#X connect 45 0 61 0;
#X connect 47 0 66 1;
#X connect 48 0 66 1;
#X connect 49 0 66 1;
#X connect 50 0 66 1;
#X connect 55 0 44 0;
#X connect 58 0 11 0;
#X connect 59 0 57 0;
#X connect 60 0 8 1;
#X connect 61 0 6 1;
#X connect 62 0 63 0;
#X connect 63 0 64 0;
#X connect 64 0 65 0;
#X connect 67 0 1 0;
#X connect 67 1 2 0;
#X connect 67 2 1 1;
#X connect 68 0 44 0;
#X coords 0 -1 1 1 100 130 2 270 370;