-
Notifications
You must be signed in to change notification settings - Fork 8
/
Copy pathSECTION.pd
306 lines (306 loc) · 7.81 KB
/
SECTION.pd
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
#N canvas 0 30 1280 689 10;
#X msg 34 353 length \$1;
#X floatatom 104 333 5 0 0 0 - - -;
#X floatatom 174 333 5 0 0 0 - - -;
#X msg 132 393 print;
#X msg 104 353 ones \$1;
#X msg 174 353 offset \$1;
#X msg -91 350 get \$1;
#X obj -91 264 f;
#X obj -15 282 + 1;
#X msg -34 230 0;
#X obj -91 285 t f f f;
#X obj -72 317 sel -1;
#X floatatom 34 293 5 0 0 0 - - -;
#X obj 34 313 t f f;
#X obj -4 303 - 1;
#X obj 68 420 EU_R;
#X floatatom 512 558 5 0 0 1 color - -;
#X floatatom 488 502 5 0 0 1 square_size - -;
#X floatatom 443 502 5 0 0 0 start_point - -;
#X obj 443 528 pack 0 4;
#X obj 443 450 unpack 0 0 0;
#X obj 335 105 loadbang;
#X obj 362 156 \$1;
#X obj 362 177 sel 0 1 2 3;
#X msg 362 278 11 4 124;
#X msg 377 298 15 4 3;
#X msg 393 318 51 4 78;
#X msg 409 338 55 4 25;
#X obj 443 613 s to_lp_in_1;
#X obj -34 200 r reset_position;
#X obj -91 231 r clock;
#X obj 21 12 inlet;
#X obj 68 534 outlet;
#X text 61 554 zeros and ones \;;
#X obj 751 134 r pad_row;
#X obj 792 154 r pad_column;
#X floatatom 751 205 5 0 0 0 - - -;
#X floatatom 792 225 5 0 0 0 - - -;
#X obj 751 488 +;
#X floatatom 751 509 5 0 0 0 - - -;
#X obj 751 408 * 10;
#X obj 931 124 sel 0 1 2 3;
#X obj 871 247 unpack 0 0 0 0;
#X obj 751 300 moses;
#X obj 792 300 moses;
#X obj 751 330 moses;
#X obj 792 330 moses;
#X obj 522 481 s \$0_color;
#X obj 751 620 pack 0 120;
#X obj 443 408 list store;
#X obj 751 646 s to_lp_in_1;
#X obj 770 591 s \$0_refresh_section;
#X obj 443 373 r \$0_refresh_section;
#X text 969 248 row min \, row max \, column min \, column max \;;
#X obj 751 569 t f b f;
#X obj 142 56 b;
#X obj 802 518 r pad_vel;
#X obj 751 539 stripnote;
#X text 652 536 to ignore pad \; releases;
#X obj 960 404 t f f;
#X obj 1000 425 div 10;
#X obj 960 425 % 10;
#X obj 960 361 - 11;
#X obj 1000 456 * 4;
#X obj 960 456 +;
#X obj 792 247 t f b;
#X msg 883 419 0;
#X obj 751 351 t f b;
#X obj 792 351 t f b;
#X obj 825 442 +;
#X msg 825 419 1;
#X msg 854 419 1;
#X obj 825 463 == 2;
#X obj 751 459 spigot;
#X obj 960 382 -;
#X obj 1033 345 sel 0 1 2 3;
#X msg 1033 366 0;
#X msg 1043 386 4;
#X msg 1073 366 40;
#X msg 1083 386 44;
#X obj 960 477 + 1;
#X obj 335 210 s \$0_l_bang;
#X obj 34 244 r \$0_l_bang;
#X msg 34 265 16;
#X obj 960 728 s \$0_ones;
#X obj 104 297 r \$0_ones;
#X obj 188 534 outlet;
#X obj 188 506 sel 1;
#X text 181 554 bang when 1 \;;
#X obj 68 441 t f f;
#X text -109 418 "quasi-euclidean" rhythms;
#X text 1034 449 turn pressed pad \; into nr of "ones" \;;
#X text 837 321 filter out pads from \; other 'quadrants' \;;
#X obj 960 538 ==;
#X text 819 616 selected pad color \; RED by default;
#X obj 1043 580 f;
#X obj 960 559 sel 1 0;
#X obj 960 580 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 960 600 sel 1 0;
#X msg 960 621 0;
#X obj 960 497 t f f f;
#X obj 1043 601 t f f;
#X msg 1070 624 set 0;
#X obj 987 677 sel 0;
#X msg 1060 700 120;
#X msg 1034 700 124;
#X obj 960 654 t f f;
#X msg 1049 671 set \$1;
#X obj 1049 651 r \$0_color;
#X text 1124 665 reset pad color \; when 0 ones in the \; pattern \;
;
#X obj 335 126 t b b b b;
#X msg 407 141 0;
#X obj 443 582 SQUARE;
#X obj 223 56 b;
#X text 436 281 set the right quadrant in \; accord with patch arg
\;;
#X msg 931 145 1 5 1 5;
#X msg 941 165 1 5 5 9;
#X msg 951 185 5 9 1 5;
#X msg 961 205 5 9 5 9;
#X obj 21 32 route length ones offset reset print init print_args print_methods
print_outlets, f 83;
#X obj 351 54 s \$0_print_args;
#X obj 406 77 s \$0_print_methods;
#X obj 461 54 s \$0_print_outlets;
#X obj 1212 35 r \$0_print_args;
#X obj 1240 87 r \$0_print_methods;
#X obj 1259 137 r \$0_print_outlets;
#X msg 1212 56 SECTION ARGS \, 1: pad section (0-3);
#X msg 1240 108 SECTION METHODS \, length \, ones \, offset \, reset
\, print \, init \;;
#X msg 1259 160 SECTION OUTLETS \, 1: zeros and ones \, 2: bang on
1 \;;
#X obj 1213 207 print -n;
#X text -70 647 Copyright 2019-2020 Focusrite Audio Engineering Limited.
;
#X text -39 769 http://www.apache.org/licenses/LICENSE-2.0;
#X text -69 677 Licensed under the Apache License \, Version 2 (the
"License") \; you may not use this file except in compliance with the
License.;
#X text -69 734 You may obtain a copy of the License at;
#X text -69 799 Unless required by applicable law or agreed to in writing
\, software distributed under the License is distributed on an "AS
IS" BASIS \, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND \, either
express or implied.;
#X text -69 855 See the License for the specific language governing
permissions and limitations under the License.;
#X connect 0 0 15 0;
#X connect 1 0 4 0;
#X connect 2 0 5 0;
#X connect 3 0 15 0;
#X connect 4 0 15 0;
#X connect 5 0 15 0;
#X connect 6 0 15 0;
#X connect 7 0 10 0;
#X connect 8 0 7 1;
#X connect 9 0 7 1;
#X connect 10 0 6 0;
#X connect 10 1 11 0;
#X connect 10 2 8 0;
#X connect 11 0 9 0;
#X connect 12 0 13 0;
#X connect 13 0 0 0;
#X connect 13 1 14 0;
#X connect 14 0 11 1;
#X connect 15 0 89 0;
#X connect 16 0 112 1;
#X connect 17 0 19 1;
#X connect 18 0 19 0;
#X connect 19 0 112 0;
#X connect 20 0 18 0;
#X connect 20 1 17 0;
#X connect 20 2 16 0;
#X connect 20 2 47 0;
#X connect 21 0 110 0;
#X connect 22 0 23 0;
#X connect 22 0 41 0;
#X connect 22 0 75 0;
#X connect 23 0 24 0;
#X connect 23 1 25 0;
#X connect 23 2 26 0;
#X connect 23 3 27 0;
#X connect 24 0 20 0;
#X connect 24 0 49 1;
#X connect 25 0 20 0;
#X connect 25 0 49 1;
#X connect 26 0 20 0;
#X connect 26 0 49 1;
#X connect 27 0 20 0;
#X connect 27 0 49 1;
#X connect 29 0 9 0;
#X connect 30 0 7 0;
#X connect 31 0 119 0;
#X connect 34 0 36 0;
#X connect 35 0 37 0;
#X connect 36 0 43 0;
#X connect 37 0 65 0;
#X connect 38 0 39 0;
#X connect 39 0 57 0;
#X connect 40 0 73 0;
#X connect 41 0 115 0;
#X connect 41 1 116 0;
#X connect 41 2 117 0;
#X connect 41 3 118 0;
#X connect 42 0 43 1;
#X connect 42 1 45 1;
#X connect 42 2 44 1;
#X connect 42 3 46 1;
#X connect 43 1 45 0;
#X connect 44 1 46 0;
#X connect 45 0 67 0;
#X connect 46 0 68 0;
#X connect 48 0 50 0;
#X connect 49 0 20 0;
#X connect 52 0 49 0;
#X connect 54 0 48 0;
#X connect 54 1 51 0;
#X connect 54 2 62 0;
#X connect 55 0 22 0;
#X connect 56 0 57 1;
#X connect 57 0 54 0;
#X connect 59 0 61 0;
#X connect 59 1 60 0;
#X connect 60 0 63 0;
#X connect 61 0 64 0;
#X connect 62 0 74 0;
#X connect 63 0 64 1;
#X connect 64 0 80 0;
#X connect 65 0 44 0;
#X connect 65 1 66 0;
#X connect 66 0 69 1;
#X connect 67 0 40 0;
#X connect 67 1 70 0;
#X connect 68 0 38 1;
#X connect 68 1 71 0;
#X connect 69 0 72 0;
#X connect 70 0 69 0;
#X connect 71 0 69 1;
#X connect 72 0 73 1;
#X connect 73 0 38 0;
#X connect 74 0 59 0;
#X connect 75 0 76 0;
#X connect 75 1 77 0;
#X connect 75 2 78 0;
#X connect 75 3 79 0;
#X connect 76 0 74 1;
#X connect 77 0 74 1;
#X connect 78 0 74 1;
#X connect 79 0 74 1;
#X connect 80 0 100 0;
#X connect 82 0 83 0;
#X connect 83 0 12 0;
#X connect 85 0 1 0;
#X connect 87 0 86 0;
#X connect 89 0 32 0;
#X connect 89 1 87 0;
#X connect 93 0 96 0;
#X connect 95 0 101 0;
#X connect 96 0 97 0;
#X connect 96 1 95 0;
#X connect 97 0 98 0;
#X connect 98 0 99 0;
#X connect 98 1 95 0;
#X connect 99 0 106 0;
#X connect 100 0 93 1;
#X connect 100 1 93 0;
#X connect 100 2 95 1;
#X connect 101 0 106 0;
#X connect 101 1 102 0;
#X connect 102 0 97 0;
#X connect 103 0 105 0;
#X connect 103 1 104 0;
#X connect 104 0 48 1;
#X connect 105 0 48 1;
#X connect 106 0 84 0;
#X connect 106 1 103 0;
#X connect 107 0 105 0;
#X connect 108 0 107 0;
#X connect 110 1 81 0;
#X connect 110 2 22 0;
#X connect 110 3 111 0;
#X connect 111 0 1 0;
#X connect 112 0 28 0;
#X connect 113 0 110 0;
#X connect 115 0 42 0;
#X connect 116 0 42 0;
#X connect 117 0 42 0;
#X connect 118 0 42 0;
#X connect 119 0 12 0;
#X connect 119 1 1 0;
#X connect 119 2 2 0;
#X connect 119 3 55 0;
#X connect 119 4 3 0;
#X connect 119 5 113 0;
#X connect 119 6 120 0;
#X connect 119 7 121 0;
#X connect 119 8 122 0;
#X connect 123 0 126 0;
#X connect 124 0 127 0;
#X connect 125 0 128 0;
#X connect 126 0 129 0;
#X connect 127 0 129 0;
#X connect 128 0 129 0;