aboutsummaryrefslogtreecommitdiff
path: root/patches/test-harmonizer2.pd
blob: ced7281228042508c3dc705df2b2f889c71d7f88 (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
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
#N canvas 14 34 915 687 12;
#X symbolatom 731 341 18 0 0 2 next_chord - -;
#N canvas 39 349 531 328 readme 0;
#X text 59 31 howto populate the graph: play the chord \, when the
output of [chord] is ok bang the "add" message. bang it each time you
change chord \, it will store the transitions;
#X text 56 120 howto ask for the next chord: play the chord \, bang
the "set" message \, this will set the current chord without adding
it to the graph's memory \, now bang the next 1 message. this chord_graph
will respond with the chord you played most of the times after the
current chord. you can send "next x" where x is from 0 to 1 \, 0 =
max novelty \, 1= min novelty;
#X text 56 259 you can save graph state sending the write message;
#X restore 607 47 pd readme;
#X obj 121 329 harmonizer;
#X msg 44 298 current \$1;
#X msg 158 283 target \$1;
#X obj 44 274 symbol;
#X obj 44 254 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 157 261 symbol;
#X obj 289 261 int 36;
#X obj 355 262 int 60;
#X obj 426 260 int 67;
#X obj 494 259 int 76;
#X obj 566 262 int 84;
#X obj 335 289 pack f f f f f;
#X obj 358 233 t b b b b b;
#X obj 245 347 unpack f f f f f;
#X obj 153 97 symbol;
#X obj 98 43 bng 15 250 50 0 empty empty change_chord 0 -6 0 8 -262144
-1 -1;
#X msg 153 121 set \$1;
#N canvas 0 0 718 428 midi 0;
#X obj 141 253 outlet;
#X obj 271 31 notein;
#X obj 271 66 chord 59;
#X msg 175 149 add \$1;
#X obj 175 121 symbol;
#X obj 176 94 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 248 163 symbol;
#X obj 249 136 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X msg 248 191 set \$1;
#X symbolatom 311 101 25 0 0 0 - - -;
#X connect 1 0 2 0;
#X connect 1 1 2 1;
#X connect 2 2 4 1;
#X connect 2 2 6 1;
#X connect 2 2 9 0;
#X connect 3 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 0 0;
#X restore 423 135 pd midi;
#N canvas 0 0 466 316 fileIO 0;
#X obj 143 225 outlet;
#X msg 175 135 init 1;
#X msg 115 77 write strani;
#X msg 145 105 read strani;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 0 0;
#X restore 340 134 pd fileIO;
#X obj 100 73 t b b;
#X obj 157 228 t b a;
#X obj 49 348 bang;
#X obj 190 607 dac~;
#X obj 74 111 f 1;
#X msg 59 135 next \$1;
#X obj 63 70 vsl 15 30 0 1 0 0 empty empty empty 0 -8 0 8 -262144 -1
-1 2900 1;
#X floatatom 32 112 5 0 0 0 - - -;
#X obj 178 571 csoundapi~ bay.orc;
#X msg 463 545 event i 10 0 17000 10 30;
#X msg 463 568 event i 30 0 17000 2 30;
#X msg 464 521 event i 25 0 17000 0.98 0.8 20000;
#X obj 466 497 loadbang;
#X msg 171 522 event i 9 0 10 \$1 80 0.5;
#X obj 462 22 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 462 41 metro 7000;
#X obj 13 32 r novelty;
#X obj 599 121 int 0;
#X obj 646 120 + 1;
#X obj 600 171 tabread tab-novelty;
#X obj 600 194 s novelty;
#X obj 685 119 table tab-novelty;
#X obj 600 147 % 10;
#X obj 462 63 t b b;
#X msg 463 457 \; tab-novelty 0 1 1 0.8 0.7 0.3 0.5 0.9 0.1 0 0.2;
#X obj 220 96 symbol;
#X msg 220 124 tonality \$1;
#X obj 220 72 bng 15 250 50 0 empty empty change 0 -6 0 8 -262144 -1
-1;
#X obj 19 160 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X symbolatom 305 204 15 0 0 2 tonality - -;
#X text 529 392 this transposes of a + minor 3rd;
#X obj 458 348 loadbang;
#X msg 457 395 3;
#X symbolatom 575 339 18 0 0 2 curr_chord - -;
#X obj 42 218 symbol;
#X obj 42 194 t s b;
#X obj 64 604 outlet~;
#X obj 124 605 outlet~;
#X obj 578 358 outlet;
#X obj 733 360 outlet;
#N canvas 0 0 812 538 prepare_voice 0;
#X obj 48 57 inlet;
#X obj 392 55 inlet;
#X obj 46 422 outlet;
#X obj 52 95 + 0;
#X obj 49 184 mtof;
#X obj 52 129 t f b;
#X obj 50 154 int 60;
#X text 399 138 this adds a 1 chord delay;
#X obj 115 55 inlet;
#X obj 113 420 outlet;
#X obj 119 93 + 0;
#X obj 116 179 mtof;
#X obj 119 127 t f b;
#X obj 117 152 int 60;
#X obj 176 52 inlet;
#X obj 174 417 outlet;
#X obj 180 90 + 0;
#X obj 177 179 mtof;
#X obj 180 124 t f b;
#X obj 178 149 int 60;
#X obj 242 54 inlet;
#X obj 240 419 outlet;
#X obj 246 92 + 0;
#X obj 243 181 mtof;
#X obj 246 126 t f b;
#X obj 244 151 int 60;
#X obj 307 54 inlet;
#X obj 305 419 outlet;
#X obj 311 92 + 0;
#X obj 308 181 mtof;
#X obj 311 126 t f b;
#X obj 309 151 int 60;
#X text 383 38 semitones;
#X obj 47 313 spigot;
#X obj 505 268 loadbang;
#X msg 506 291 1;
#X obj 63 290 r v1;
#X obj 119 313 spigot;
#X obj 180 314 spigot;
#X obj 247 313 spigot;
#X obj 312 313 spigot;
#X obj 135 290 r v2;
#X obj 196 291 r v3;
#X obj 263 291 r v4;
#X obj 328 290 r v5;
#X connect 0 0 3 0;
#X connect 1 0 3 1;
#X connect 1 0 28 1;
#X connect 1 0 22 1;
#X connect 1 0 10 1;
#X connect 1 0 16 1;
#X connect 3 0 5 0;
#X connect 4 0 33 0;
#X connect 5 0 6 1;
#X connect 5 1 6 0;
#X connect 6 0 4 0;
#X connect 8 0 10 0;
#X connect 10 0 12 0;
#X connect 11 0 37 0;
#X connect 12 0 13 1;
#X connect 12 1 13 0;
#X connect 13 0 11 0;
#X connect 14 0 16 0;
#X connect 16 0 18 0;
#X connect 17 0 38 0;
#X connect 18 0 19 1;
#X connect 18 1 19 0;
#X connect 19 0 17 0;
#X connect 20 0 22 0;
#X connect 22 0 24 0;
#X connect 23 0 39 0;
#X connect 24 0 25 1;
#X connect 24 1 25 0;
#X connect 25 0 23 0;
#X connect 26 0 28 0;
#X connect 28 0 30 0;
#X connect 29 0 40 0;
#X connect 30 0 31 1;
#X connect 30 1 31 0;
#X connect 31 0 29 0;
#X connect 33 0 2 0;
#X connect 34 0 35 0;
#X connect 35 0 33 1;
#X connect 35 0 37 1;
#X connect 35 0 38 1;
#X connect 35 0 39 1;
#X connect 35 0 40 1;
#X connect 36 0 33 1;
#X connect 37 0 9 0;
#X connect 38 0 15 0;
#X connect 39 0 21 0;
#X connect 40 0 27 0;
#X connect 41 0 37 1;
#X connect 42 0 38 1;
#X connect 43 0 39 1;
#X connect 44 0 40 1;
#X restore 237 387 pd prepare_voice;
#X obj 45 415 tgl 20 0 v1 empty toggle_v1 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 44 446 tgl 20 0 v2 empty toggle_v2 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 43 476 tgl 20 0 v3 empty toggle_v3 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 43 507 tgl 20 0 v4 empty toggle_v4 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 40 537 tgl 20 0 v5 empty toggle_v5 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 7 376 loadbang;
#X msg 8 399 1;
#X obj 83 169 chords_memory strani;
#X connect 2 0 15 0;
#X connect 3 0 2 0;
#X connect 4 0 2 0;
#X connect 5 0 3 0;
#X connect 6 0 5 0;
#X connect 7 0 4 0;
#X connect 8 0 13 0;
#X connect 9 0 13 1;
#X connect 10 0 13 2;
#X connect 11 0 13 3;
#X connect 12 0 13 4;
#X connect 13 0 2 0;
#X connect 14 0 8 0;
#X connect 14 1 9 0;
#X connect 14 2 10 0;
#X connect 14 3 11 0;
#X connect 14 4 12 0;
#X connect 15 0 8 1;
#X connect 15 0 23 0;
#X connect 15 0 61 0;
#X connect 15 1 9 1;
#X connect 15 1 61 1;
#X connect 15 2 10 1;
#X connect 15 2 61 2;
#X connect 15 3 11 1;
#X connect 15 3 61 3;
#X connect 15 4 12 1;
#X connect 15 4 61 4;
#X connect 16 0 18 0;
#X connect 17 0 21 0;
#X connect 18 0 69 0;
#X connect 19 0 69 0;
#X connect 20 0 69 0;
#X connect 21 0 25 0;
#X connect 22 0 14 0;
#X connect 22 1 7 0;
#X connect 23 0 5 0;
#X connect 25 0 26 0;
#X connect 26 0 69 0;
#X connect 27 0 25 1;
#X connect 27 0 28 0;
#X connect 29 0 24 0;
#X connect 29 0 57 0;
#X connect 29 1 24 1;
#X connect 29 1 58 0;
#X connect 30 0 29 0;
#X connect 31 0 29 0;
#X connect 32 0 29 0;
#X connect 33 0 32 0;
#X connect 33 0 30 0;
#X connect 33 0 31 0;
#X connect 33 0 45 0;
#X connect 34 0 29 0;
#X connect 35 0 36 0;
#X connect 36 0 44 0;
#X connect 37 0 27 0;
#X connect 38 0 39 0;
#X connect 38 0 43 0;
#X connect 39 0 38 1;
#X connect 40 0 41 0;
#X connect 43 0 40 0;
#X connect 44 0 21 0;
#X connect 44 1 38 0;
#X connect 46 0 47 0;
#X connect 47 0 69 0;
#X connect 48 0 46 0;
#X connect 49 0 69 0;
#X connect 53 0 61 5;
#X connect 55 0 54 0;
#X connect 55 0 59 0;
#X connect 56 0 55 1;
#X connect 56 1 55 0;
#X connect 61 0 34 0;
#X connect 61 1 34 0;
#X connect 61 2 34 0;
#X connect 61 3 34 0;
#X connect 61 4 34 0;
#X connect 67 0 68 0;
#X connect 68 0 62 0;
#X connect 68 0 63 0;
#X connect 68 0 64 0;
#X connect 68 0 65 0;
#X connect 68 0 66 0;
#X connect 69 0 0 0;
#X connect 69 0 5 1;
#X connect 69 0 22 0;
#X connect 69 0 46 1;
#X connect 69 0 16 0;
#X connect 69 0 56 0;
#X connect 69 0 60 0;
#X connect 69 1 50 0;