-
Notifications
You must be signed in to change notification settings - Fork 0
/
113-hardwaregenerative8stepjam.pd
278 lines (278 loc) · 6.88 KB
/
113-hardwaregenerative8stepjam.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
#N canvas 0 38 1512 884 12;
#X obj 763 489 generative16step 120 240;
#X obj 92 98 s step;
#X obj 763 465 r step;
#X obj 644 208 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 311 571 generative16step 120 240;
#X obj 311 547 r step;
#X obj 1117 585 generative16step 120 240;
#X obj 1117 561 r step;
#X obj 311 619 sel 1;
#X obj 1117 633 sel 1;
#X obj 1117 609 >;
#X obj 311 595 >;
#X text 703 10 controls;
#X obj 644 232 s generate-l-pitch-sequence;
#X obj 840 208 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 840 232 s generate-r-pitch-sequence;
#X obj 921 465 r generate-r-pitch-sequence;
#X obj 75 507 generative16step 120 240;
#X obj 75 483 r step;
#X obj 233 483 r generate-l-pitch-sequence;
#X obj 469 547 r generate-l-pitch-sequence;
#X obj 1275 561 r generate-r-pitch-sequence;
#N canvas 63 101 450 300 quantize 0;
#X obj 81 78 scaled 0 1 0 800;
#X obj 81 102 ftom;
#X obj 81 126 quantizedmode harmonicminor 60;
#X obj 81 54 inlet;
#X obj 81 238 outlet;
#X obj 81 174 maybe 0.3;
#X obj 141 198 - 12;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 5 0 4 0;
#X connect 5 1 6 0;
#X connect 6 0 4 0;
#X restore 75 531 pd quantize;
#N canvas 63 101 450 300 quantize 0;
#X obj 81 78 scaled 0 1 0 800;
#X obj 81 102 ftom;
#X obj 81 126 quantizedmode harmonicminor 60;
#X obj 81 54 inlet;
#X obj 81 238 outlet;
#X obj 81 174 maybe 0.3;
#X obj 141 198 - 12;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 3 0 0 0;
#X connect 5 0 4 0;
#X connect 5 1 6 0;
#X connect 6 0 4 0;
#X restore 763 513 pd quantize;
#X obj 75 599 spigot;
#X obj 763 581 spigot;
#N canvas 92 130 149 132 lock-pitches 0;
#X obj 19 24 r lock-l-pitches;
#X obj 19 48 sel 0 1, f 9;
#X msg 19 72 1;
#X msg 49 72 0;
#X obj 19 96 outlet;
#X obj 102 51 loadbang;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 5 0 2 0;
#X restore 114 555 pd lock-pitches;
#X obj 114 579 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#N canvas 92 130 149 132 lock-pitches 0;
#X obj 19 48 sel 0 1, f 9;
#X msg 19 72 1;
#X msg 49 72 0;
#X obj 19 96 outlet;
#X obj 19 24 r lock-r-pitches;
#X obj 102 51 loadbang;
#X connect 0 0 1 0;
#X connect 0 1 2 0;
#X connect 1 0 3 0;
#X connect 2 0 3 0;
#X connect 4 0 0 0;
#X connect 5 0 1 0;
#X restore 802 537 pd lock-pitches;
#X obj 802 561 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#N canvas 150 188 740 224 saveandrecall 0;
#X floatatom 179 137 5 1 8 0 - - - 0;
#X msg 179 160 save \$1;
#X floatatom 239 137 5 1 8 0 - - - 0;
#X msg 239 160 recall \$1;
#X obj 179 184 outlet;
#X msg 41 93 1;
#X msg 87 93 2;
#X msg 228 93 1;
#X msg 275 93 2;
#X obj 33 29 r ffb1;
#X obj 79 29 r ffb2;
#X obj 217 29 r ffb5;
#X obj 263 29 r ffb6;
#X floatatom 554 134 5 1 8 0 - - - 0;
#X msg 554 157 save \$1;
#X floatatom 614 134 5 1 8 0 - - - 0;
#X msg 614 157 recall \$1;
#X obj 554 181 outlet;
#X msg 416 90 1;
#X msg 462 90 2;
#X msg 603 90 1;
#X msg 650 90 2;
#X obj 408 26 r ffb3;
#X obj 454 26 r ffb4;
#X obj 592 26 r ffb7;
#X obj 638 26 r ffb8;
#X obj 33 53 sel 1;
#X obj 79 53 sel 1;
#X obj 217 53 sel 1;
#X obj 263 53 sel 1;
#X obj 408 50 sel 1;
#X obj 454 50 sel 1;
#X obj 592 50 sel 1;
#X obj 638 50 sel 1;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 5 0 0 0;
#X connect 6 0 0 0;
#X connect 7 0 2 0;
#X connect 8 0 2 0;
#X connect 9 0 26 0;
#X connect 10 0 27 0;
#X connect 11 0 28 0;
#X connect 12 0 29 0;
#X connect 13 0 14 0;
#X connect 14 0 17 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 18 0 13 0;
#X connect 19 0 13 0;
#X connect 20 0 15 0;
#X connect 21 0 15 0;
#X connect 22 0 30 0;
#X connect 23 0 31 0;
#X connect 24 0 32 0;
#X connect 25 0 33 0;
#X connect 26 0 5 0;
#X connect 27 0 6 0;
#X connect 28 0 7 0;
#X connect 29 0 8 0;
#X connect 30 0 18 0;
#X connect 31 0 19 0;
#X connect 32 0 20 0;
#X connect 33 0 21 0;
#X restore 547 358 pd saveandrecall;
#X obj 92 30 midiclockin;
#X obj 92 54 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000;
#X obj 92 74 counter 8;
#X obj 1318 39 ff;
#X text 550 295 1-2: save microbrute pattern \; 3-4: save minilogue
xd pattern \; 5-6: recall microbrute pattern \; 7-8: recall minilogue
xd pattern;
#X obj 615 72 r ffs1;
#X obj 615 120 sel 1;
#X obj 615 144 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 647 144 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 615 164 1;
#X obj 691 121 sel 1;
#X obj 691 145 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X obj 723 145 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc
#000000 #000000;
#X msg 691 165 1;
#X obj 75 715 microbrute;
#X obj 75 643 spigot;
#X obj 114 623 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 763 625 spigot;
#X obj 802 605 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000
#000000 0 1;
#X obj 763 697 miniloguexd;
#X msg 311 643 1;
#X msg 343 643 0;
#X msg 1117 657 1;
#X msg 1149 657 0;
#X text 546 37 generate microbrute seq;
#X text 630 51 generate minilogue xd seq;
#X msg 647 164 0;
#X msg 723 165 0;
#X obj 75 667 makenote 127 50;
#X obj 763 649 makenote 127 50;
#X obj 615 96 > 0;
#X obj 691 97 > 0;
#X obj 900 58 r ffs2;
#X obj 900 122 s l-density;
#X obj 995 121 s r-density;
#X obj 341 595 r l-density;
#X obj 1148 610 r r-density;
#X obj 900 82 oneminus;
#X obj 995 81 oneminus;
#X obj 691 73 r ffs5;
#X obj 995 57 r ffs6;
#X connect 0 0 23 0;
#X connect 2 0 0 0;
#X connect 3 0 13 0;
#X connect 4 0 11 0;
#X connect 5 0 4 0;
#X connect 6 0 10 0;
#X connect 7 0 6 0;
#X connect 8 0 51 0;
#X connect 8 1 52 0;
#X connect 9 0 53 0;
#X connect 9 1 54 0;
#X connect 10 0 9 0;
#X connect 11 0 8 0;
#X connect 14 0 15 0;
#X connect 16 0 0 1;
#X connect 17 0 22 0;
#X connect 18 0 17 0;
#X connect 19 0 17 1;
#X connect 20 0 4 1;
#X connect 21 0 6 1;
#X connect 22 0 24 0;
#X connect 23 0 25 0;
#X connect 24 0 46 0;
#X connect 25 0 48 0;
#X connect 26 0 27 0;
#X connect 27 0 24 1;
#X connect 28 0 29 0;
#X connect 29 0 25 1;
#X connect 30 0 4 2;
#X connect 30 0 17 2;
#X connect 30 1 6 2;
#X connect 30 1 0 2;
#X connect 31 0 32 0;
#X connect 32 0 33 0;
#X connect 33 0 1 0;
#X connect 36 0 61 0;
#X connect 37 0 38 0;
#X connect 37 1 39 0;
#X connect 38 0 40 0;
#X connect 39 0 57 0;
#X connect 40 0 3 0;
#X connect 41 0 42 0;
#X connect 41 1 43 0;
#X connect 42 0 44 0;
#X connect 43 0 58 0;
#X connect 44 0 14 0;
#X connect 46 0 59 0;
#X connect 47 0 46 1;
#X connect 48 0 60 0;
#X connect 49 0 48 1;
#X connect 51 0 47 0;
#X connect 52 0 47 0;
#X connect 53 0 49 0;
#X connect 54 0 49 0;
#X connect 57 0 3 0;
#X connect 58 0 14 0;
#X connect 59 0 45 0;
#X connect 59 1 45 1;
#X connect 60 0 50 0;
#X connect 60 1 50 1;
#X connect 61 0 37 0;
#X connect 62 0 41 0;
#X connect 63 0 68 0;
#X connect 66 0 11 1;
#X connect 67 0 10 1;
#X connect 68 0 64 0;
#X connect 69 0 65 0;
#X connect 70 0 62 0;
#X connect 71 0 69 0;