-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathmain.pd
452 lines (452 loc) · 11.6 KB
/
main.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
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
#N canvas 0 0 2528 1340 10;
#X obj 28 135 vsl 15 128 0 1 0 0 empty empty sharp -7 -9 0 10 -262144
-1 -1 0 1;
#X floatatom 28 290 5 0 0 0 - - -, f 5;
#X obj 84 135 vsl 15 128 0 250 0 0 empty empty am 0 -9 0 10 -262144
-1 -1 0 1;
#X floatatom 84 290 5 0 0 0 - - -, f 5;
#X obj 135 135 vsl 15 128 0 1 0 0 empty empty am\ trem -12 -9 0 10
-262144 -1 -1 0 1;
#X floatatom 135 290 5 0 0 0 - - -, f 5;
#X obj 187 135 vsl 15 128 0.5 1 0 0 empty empty duty -4 -9 0 10 -262144
-1 -1 0 1;
#X floatatom 187 290 5 0 0 0 - - -, f 5;
#X obj 238 135 vsl 15 128 0 0.99 0 0 empty empty pw 0 -9 0 10 -262144
-1 -1 0 1;
#X floatatom 238 290 5 0 0 0 - - -, f 5;
#X obj 656 630 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#N canvas 0 0 450 300 (subpatch) 0;
#X array osc 777 float 0 black #000000;
#X coords 0 1 776 -1 75 50 1;
#X restore 9 43 graph;
#X obj 656 649 metro 100;
#X obj 656 670 tabwrite~ osc;
#X obj 276 103 vsl 15 128 2 1000 0 0 a empty a 0 -9 0 10 -262144 -1
-1 0 1;
#X obj 298 103 vsl 15 128 2 1000 0 0 d empty d 0 -9 0 10 -262144 -1
-1 0 1;
#X obj 343 103 vsl 15 128 0 1000 0 0 r empty r 0 -9 0 10 -262144 -1
-1 13 1;
#X obj 321 103 vsl 15 128 0 1 0 0 s empty s 0 -9 0 10 -262144 -1 -1
12700 1;
#X obj 28 365 notein;
#X obj 28 322 s sharp;
#X obj 84 322 s am;
#X obj 135 322 s trem;
#X obj 187 322 s duty;
#X obj 238 322 s pw;
#X obj 321 39 loadbang;
#X msg 321 63 1;
#X msg 135 65 0;
#X obj 28 437 pack f f f;
#X obj 28 395 poly 8 1, f 10;
#X obj 288 291 hsl 37 15 0 1 0 0 empty empty chorus -2 -11 0 10 -262144
-1 -1 0 1;
#X obj 288 322 s cdw;
#X floatatom 407 244 5 0 90 0 - - -, f 5;
#X floatatom 365 244 5 0 150 0 - - -, f 5;
#X obj 454 386 seq;
#X msg 535 342 stop;
#X msg 541 363 pause;
#X msg 546 384 continue;
#X msg 520 298 read prelude.mid;
#X obj 447 415 midiparse;
#X obj 429 443 unpack f f;
#X obj 415 316 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 365 268 s cut;
#X obj 407 268 s reso;
#X msg 365 64 150;
#X msg 407 64 0;
#X obj 365 103 vsl 15 128 0 150 0 0 empty empty cutoff 0 -9 0 10 -262144
-1 -1 12700 1;
#X obj 407 103 vsl 15 128 0 90 0 0 empty empty resonance 0 -9 0 10
-262144 -1 -1 0 1;
#X msg 530 318 read arab.mid;
#X text 455 262 when using higher oversampling (see lp_vcf) \, the
point of resonance self oscillation will be higher as well;
#X text 455 235 BE VERY VERY VERY CAREFUL WHEN USING HIGH RESONANCE
VALUES!!! NUMBER OBJECT IS LIMITED JUST IN CASE, f 63;
#X obj 656 609 loadbang;
#X obj 347 365 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X obj 28 473 clone russianVoice 8;
#X obj 28 416 - 1;
#X obj 28 509 /~ 4;
#X msg 619 64 \; pd dsp 1;
#X text 9 8 https://github.com/nooisy/pi-pd-synth;
#X obj 1022 120 adc~ 2;
#X obj 953 40 bng 26 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 959 96 are you using the right channel?;
#X text 984 45 record a sample!;
#N canvas 536 663 593 522 samplerec 0;
#X obj 323 224 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 200 192 sel 1, f 21;
#X msg 323 244 stop;
#X obj 323 286 tabwrite~ sample;
#X msg 200 321 \; sample const 0;
#X obj 213 223 del 64;
#X obj 261 223 del 2000;
#X obj 200 129 counter 1;
#X obj 261 286 s sr;
#X obj 200 100 inlet;
#X obj 216 161 outlet;
#X obj 371 244 inlet~;
#X obj 166 100 r sr;
#X obj 320 334 table sample 88200;
#X text 324 313 sample waveform:;
#X text 42 100 sr: stops recording;
#X text 40 260 start timer in pd samplestart subpatch, f 14;
#X obj 262 161 s recstate;
#X obj 133 273 s stim;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 1 0 5 0;
#X connect 1 0 6 0;
#X connect 1 0 18 0;
#X connect 1 1 0 0;
#X connect 2 0 3 0;
#X connect 2 0 6 0;
#X connect 5 0 3 0;
#X connect 6 0 8 0;
#X connect 7 0 1 0;
#X connect 7 0 10 0;
#X connect 7 0 17 0;
#X connect 9 0 7 0;
#X connect 11 0 3 0;
#X connect 12 0 7 0;
#X restore 953 160 pd samplerec;
#X obj 953 220 tgl 26 0 empty empty empty 17 7 0 10 -262144 -258049
-1 0 1;
#X text 886 225 recording?;
#X obj 718 827 dac~;
#X obj 769 670 *~;
#X obj 800 650 hsl 128 15 0 1 0 0 empty empty Volume\ Sampler 0 -10
0 10 -262144 -1 -1 0 1;
#N canvas 1039 520 450 300 killswitch 0;
#X obj 95 97 Uzi 8;
#X msg 144 148 60 0;
#X obj 95 61 inlet;
#X obj 95 205 outlet;
#X msg 95 148 60 60;
#X obj 144 125 pipe 60;
#X connect 0 0 4 0;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 2 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 1 0;
#X restore 347 385 pd killswitch;
#X text 364 364 test tone;
#X text 432 315 play demo;
#N canvas 1262 646 843 481 samplestart 0;
#X obj 202 143 bonk~;
#X obj 230 80 loadbang;
#X obj 115 275 timer, f 16;
#X obj 115 305 * 44.1;
#X obj 208 212 gate;
#X obj 208 240 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 177 227 0;
#X msg 230 108 minvel 40;
#X obj 115 362 outlet;
#X obj 202 48 inlet~;
#X obj 115 227 r stim;
#X text 23 212 receives from pd samplerec subpatch, f 13;
#X obj 129 143 r recstate;
#X text 57 122 checks recording state;
#X obj 115 333 - 4096;
#X connect 0 1 4 1;
#X connect 1 0 7 0;
#X connect 2 0 3 0;
#X connect 3 0 14 0;
#X connect 4 0 5 0;
#X connect 5 0 2 1;
#X connect 5 0 6 0;
#X connect 6 0 4 0;
#X connect 7 0 0 0;
#X connect 9 0 0 0;
#X connect 10 0 2 0;
#X connect 12 0 4 0;
#X connect 14 0 8 0;
#X restore 1037 160 pd samplestart;
#X obj 1037 195 / 88200;
#X obj 1037 229 s start;
#X obj 1168 55 notein;
#N canvas 1039 520 457 419 reverb 0;
#X obj 186 257 freeverb~;
#X msg 166 195 wet \$1;
#X msg 219 195 dry \$1;
#X obj 205 85 - 1;
#X floatatom 205 143 5 0 0 0 - - -, f 5;
#X obj 205 115 * -1;
#X floatatom 166 143 5 0 0 0 - - -, f 5;
#X obj 306 174 inlet~;
#X obj 366 175 inlet~;
#X obj 171 350 outlet~;
#X obj 243 346 outlet~;
#X obj 179 35 inlet;
#X obj 166 301 hip~ 1;
#X obj 276 301 hip~ 1;
#X connect 0 0 12 0;
#X connect 0 1 13 0;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 4 0 2 0;
#X connect 5 0 4 0;
#X connect 6 0 1 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 11 0 6 0;
#X connect 11 0 3 0;
#X connect 12 0 9 0;
#X connect 13 0 10 0;
#X restore 718 751 pd reverb;
#X obj 589 712 hsl 128 15 0 1 0 0 empty empty Reverb 0 -10 0 10 -262144
-1 -1 0 1;
#X obj 1168 85 stripnote;
#X obj 1168 146 s~ Sampler;
#X obj 769 617 r~ Sampler;
#X obj 28 620 s~ Synth;
#X obj 743 553 r~ Synth;
#X obj 743 670 *~;
#X obj 758 588 hsl 128 15 0 1 0 0 empty empty Volume\ Synth 0 -10 0
10 -262144 -1 -1 0 1;
#X text 751 827 can get pretty loud \, so beware...;
#N canvas 827 267 662 576 pg_chorus 0;
#X obj 588 380 delwrite~ \$0-delay 1000;
#X obj 179 65 osc~ 0.05;
#X obj 179 90 *~ 10;
#X obj 259 90 *~ 10;
#X obj 179 115 +~ 11;
#X obj 259 115 +~ 21;
#X obj 259 65 osc~ 0.08;
#X obj 339 90 *~ 10;
#X obj 419 90 *~ 10;
#X obj 339 65 osc~ 0.13;
#X obj 339 115 +~ 13;
#X obj 419 65 osc~ 0.21;
#X obj 419 115 +~ 34;
#X obj 509 90 *~ 10;
#X obj 509 115 +~ 55;
#X obj 509 65 osc~ 0.03;
#X obj 589 115 +~ 87;
#X obj 589 65 osc~ 0.015;
#X obj 679 65 osc~ 0.12;
#X obj 679 115 +~ 67;
#X obj 679 90 *~ 5;
#X obj 589 90 *~ 15;
#X obj 179 143 vd~ \$0-delay;
#X obj 259 143 vd~ \$0-delay;
#X obj 339 143 vd~ \$0-delay;
#X obj 419 143 vd~ \$0-delay;
#X obj 509 143 vd~ \$0-delay;
#X obj 589 143 vd~ \$0-delay;
#X obj 679 143 vd~ \$0-delay;
#X obj 588 228 inlet~;
#X obj 483 420 outlet~;
#X obj 460 293 r cdw;
#X text 31 453 chorus by Piere Guillot https://forum.pdpatchrepo.info/user/pierre-guillot
https://forum.pdpatchrepo.info/uploads/files/1459509331705-8_chorus.pd
, f 70;
#X obj 399 351 eqpdw;
#X obj 399 274 /~ 3.5;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 5 0;
#X connect 4 0 22 0;
#X connect 5 0 23 0;
#X connect 6 0 3 0;
#X connect 7 0 10 0;
#X connect 8 0 12 0;
#X connect 9 0 7 0;
#X connect 10 0 24 0;
#X connect 11 0 8 0;
#X connect 12 0 25 0;
#X connect 13 0 14 0;
#X connect 14 0 26 0;
#X connect 15 0 13 0;
#X connect 16 0 27 0;
#X connect 17 0 21 0;
#X connect 18 0 20 0;
#X connect 19 0 28 0;
#X connect 20 0 19 0;
#X connect 21 0 16 0;
#X connect 22 0 34 0;
#X connect 23 0 34 0;
#X connect 24 0 34 0;
#X connect 25 0 34 0;
#X connect 26 0 34 0;
#X connect 27 0 34 0;
#X connect 28 0 34 0;
#X connect 29 0 0 0;
#X connect 29 0 30 0;
#X connect 31 0 33 1;
#X connect 33 0 30 0;
#X connect 34 0 33 0;
#X restore 28 581 pd pg_chorus;
#N canvas 0 0 2544 1356 lp_vcf 0;
#X obj 112 130 / 25;
#X obj 49 113 mtof;
#X obj 50 158 pack 0 50;
#X obj 50 183 line~;
#X floatatom 49 136 7 0 0 0 - - -, f 7;
#X msg 238 154 saturation \$1;
#X obj 238 130 / 100;
#X msg 330 154 oversample \$1;
#X text 148 152 scaled to 0-8;
#X text 147 134 0-200 control;
#X obj 111 158 line~;
#X obj 36 234 bob~;
#X obj 36 59 inlet~;
#X obj 112 81 r reso;
#X obj 49 82 r cut;
#X obj 238 72 loadbang;
#X text 371 67 oversampling;
#X obj 375 90 loadbang;
#X text 230 33 saturation point;
#X text 227 50 of "transistors";
#X msg 238 97 300;
#X obj 36 273 outlet~;
#X msg 375 115 10;
#X connect 0 0 10 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 3 0 11 1;
#X connect 4 0 2 0;
#X connect 5 0 11 0;
#X connect 6 0 5 0;
#X connect 7 0 11 0;
#X connect 10 0 11 2;
#X connect 11 0 21 0;
#X connect 12 0 11 0;
#X connect 13 0 0 0;
#X connect 14 0 1 0;
#X connect 15 0 20 0;
#X connect 17 0 22 0;
#X connect 20 0 6 0;
#X connect 22 0 7 0;
#X restore 28 544 pd lp_vcf;
#N canvas -8 -8 2544 1379 sampleVoice 0;
#X obj 129 360 tabread4~ sample;
#X obj 129 283 phasor~ 0.5;
#X obj 129 334 *~ 88200;
#X obj 192 181 r start;
#X floatatom 192 233 5 0 0 0 - - -, f 5;
#X obj 20 233 expr~ $v1>0.99;
#X obj 20 268 edge~;
#X obj 20 303 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 20 335 0;
#X msg 129 233 \$1;
#X obj 129 59 mtof;
#X obj 129 87 / 44100;
#X obj 129 118 * 100;
#X obj 129 146 t f b;
#X obj 129 309 lop~ 44100;
#X obj 129 16 inlet;
#X obj 129 409 outlet~;
#X connect 0 0 16 0;
#X connect 1 0 5 0;
#X connect 1 0 14 0;
#X connect 2 0 0 0;
#X connect 3 0 4 0;
#X connect 4 0 1 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 1 0;
#X connect 9 0 1 0;
#X connect 10 0 11 0;
#X connect 11 0 12 0;
#X connect 12 0 13 0;
#X connect 13 0 9 0;
#X connect 13 1 4 0;
#X connect 14 0 2 0;
#X connect 15 0 10 0;
#X restore 1168 116 pd sampleVoice;
#X connect 0 0 1 0;
#X connect 1 0 19 0;
#X connect 2 0 3 0;
#X connect 3 0 20 0;
#X connect 4 0 5 0;
#X connect 5 0 21 0;
#X connect 6 0 7 0;
#X connect 7 0 22 0;
#X connect 8 0 9 0;
#X connect 9 0 23 0;
#X connect 10 0 12 0;
#X connect 12 0 13 0;
#X connect 18 0 28 0;
#X connect 18 1 28 1;
#X connect 24 0 25 0;
#X connect 24 0 26 0;
#X connect 24 0 43 0;
#X connect 24 0 44 0;
#X connect 24 0 55 0;
#X connect 25 0 17 0;
#X connect 25 0 16 0;
#X connect 26 0 4 0;
#X connect 26 0 0 0;
#X connect 26 0 2 0;
#X connect 26 0 6 0;
#X connect 26 0 8 0;
#X connect 26 0 14 0;
#X connect 26 0 15 0;
#X connect 26 0 29 0;
#X connect 27 0 52 0;
#X connect 28 0 53 0;
#X connect 28 1 27 1;
#X connect 28 2 27 2;
#X connect 29 0 30 0;
#X connect 31 0 42 0;
#X connect 32 0 41 0;
#X connect 33 0 38 0;
#X connect 34 0 33 0;
#X connect 35 0 33 0;
#X connect 36 0 33 0;
#X connect 37 0 33 0;
#X connect 38 0 39 0;
#X connect 39 0 28 0;
#X connect 39 1 28 1;
#X connect 40 0 33 0;
#X connect 43 0 45 0;
#X connect 44 0 46 0;
#X connect 45 0 32 0;
#X connect 46 0 31 0;
#X connect 47 0 33 0;
#X connect 50 0 10 0;
#X connect 51 0 67 0;
#X connect 52 0 54 0;
#X connect 53 0 27 0;
#X connect 54 0 85 0;
#X connect 57 0 61 1;
#X connect 57 0 70 0;
#X connect 58 0 61 0;
#X connect 61 0 62 0;
#X connect 65 0 74 1;
#X connect 65 0 74 2;
#X connect 66 0 65 1;
#X connect 67 0 39 0;
#X connect 70 0 71 0;
#X connect 71 0 72 0;
#X connect 73 0 76 0;
#X connect 73 1 76 1;
#X connect 74 0 64 0;
#X connect 74 1 64 1;
#X connect 75 0 74 0;
#X connect 76 0 86 0;
#X connect 78 0 65 0;
#X connect 80 0 81 0;
#X connect 81 0 74 2;
#X connect 81 0 74 1;
#X connect 81 0 13 0;
#X connect 82 0 81 1;
#X connect 84 0 79 0;
#X connect 85 0 84 0;
#X connect 86 0 77 0;
#X coords 0 0 1 1 543 290 0;