-
Notifications
You must be signed in to change notification settings - Fork 0
/
test_delayfbck.pd
332 lines (332 loc) · 12.9 KB
/
test_delayfbck.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
#N canvas 203 161 1717 858 10;
#X text 123 644 audio output;
#N canvas 0 50 450 250 (subpatch) 0;
#X array DelayLineOut 50 float 3;
#A 0 -0.692866 -0.632792 -0.578453 -0.534137 -0.503379 -0.488703 -0.491411
-0.511468 -0.547462 -0.596675 -0.655266 -0.71856 -0.781425 -0.838717
-0.885734 -0.918646 -0.934831 -0.933089 -0.913713 -0.878406 -0.830092
-0.772628 -0.710473 -0.648347 -0.590888 -0.542347 -0.506295 -0.485389
-0.481167 -0.493909 -0.522571 -0.564824 -0.617182 -0.67526 -0.734125
-0.788732 -0.834377 -0.867141 -0.884252 -0.884306 -0.867354 -0.834832
-0.789369 -0.734506 -0.674377 -0.613377 -0.555861 -0.50585 -0.466794
-0.441339;
#X coords 0 1 50 -1 200 140 1 0 0;
#X restore 343 657 graph;
#X obj 33 257 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 97 59 noise~;
#X obj 97 154 *~;
#X obj 141 122 line~;
#X msg 141 61 0.1 100;
#X msg 147 93 0 100;
#X text 197 59 on;
#X obj 147 549 *~;
#X obj 171 521 line~;
#X msg 190 490 0 100;
#X text 242 453 on;
#X text 239 489 off;
#X text 228 518 envelope;
#X text 228 531 generator;
#X text 155 433 amplitude controls:;
#X obj 147 549 *~;
#X obj 171 521 line~;
#X msg 190 490 0 100;
#X text 242 453 on;
#X text 239 489 off;
#X text 228 518 envelope;
#X text 228 531 generator;
#X text 155 433 amplitude controls:;
#X obj 287 60 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#N canvas 379 254 494 344 META 0;
#X text 12 165 HELP_PATCH_AUTHORS "pd meta" information added by Jonathan
Wilkes for Pd version 0.42.;
#X text 12 45 DESCRIPTION exponential attack/decay envelope;
#X text 12 5 KEYWORDS signal ramp;
#X text 12 85 INLET_1 float;
#X text 12 65 INLET_0 bang;
#X text 12 105 INLET_2 float;
#X text 12 125 OUTLET_0 signal;
#X text 12 25 LICENSE GPL v2;
#X text 12 145 AUTHOR Tom Schouten <tom@zwizwa.be>;
#X restore 7 33 pd META;
#X obj 246 86 creb;
#X obj 167 192 receive delaypar;
#X floatatom 850 336 5 1 1000 0 - - -, f 5;
#X floatatom 644 341 5 1 10000 0 - - -, f 5;
#X obj 1180 241 mtof;
#X floatatom 1180 208 5 0 0 0 - - -, f 5;
#X floatatom 1216 278 7 0 0 0 - - -, f 7;
#X msg 1141 260 1;
#X obj 1147 292 /;
#X floatatom 1220 315 8 0 1 0 - - -, f 8;
#X obj 1140 234 bang;
#X msg 1179 183 30;
#X obj 396 344 *~;
#X obj 409 259 line~;
#X msg 425 231 0 100;
#X obj 397 179 osc~ 100;
#X msg 409 106 30;
#X floatatom 409 129 5 0 0 0 - - -, f 5;
#X obj 409 151 mtof;
#X obj 176 621 dac~ 2;
#X obj 125 620 dac~ 1;
#X msg 411 208 0.05 100;
#N canvas 0 50 450 250 (subpatch) 0;
#X array EnvelopeAmplitude 500 float 3;
#A 0 0.398385 0.398574 0.398721 0.398833 0.398919 0.398988 0.399053
0.399126 0.399218 0.399342 0.399503 0.399708 0.399957 0.400249 0.400578
0.400935 0.40131 0.401689 0.402061 0.402412 0.402734 0.403018 0.403259
0.403456 0.40361 0.403726 0.403812 0.403877 0.403934 0.403993 0.404067
0.404167 0.4043 0.404472 0.404686 0.40494 0.405229 0.405547 0.405882
0.406222 0.406557 0.406873 0.407162 0.407414 0.407626 0.407794 0.40792
0.408008 0.408063 0.408096 0.408116 0.408135 0.408162 0.40821 0.408285
0.408394 0.40854 0.408723 0.408938 0.40918 0.409439 0.409705 0.409967
0.410214 0.410436 0.410626 0.410778 0.41089 0.410962 0.410996 0.411
0.410979 0.410943 0.410902 0.410865 0.410843 0.410843 0.410872 0.410932
0.411025 0.411147 0.411294 0.411459 0.411631 0.411801 0.41196 0.412098
0.412209 0.412286 0.412326 0.412331 0.412301 0.41224 0.412156 0.412055
0.411947 0.411839 0.411742 0.411661 0.411604 0.411575 0.411574 0.4116
0.411649 0.411715 0.41179 0.411866 0.411934 0.411985 0.412013 0.412012
0.411979 0.411914 0.411816 0.411691 0.411541 0.411375 0.411199 0.411022
0.410851 0.410693 0.410555 0.41044 0.410351 0.410286 0.410244 0.410218
0.410203 0.410192 0.410175 0.410145 0.410096 0.410022 0.409921 0.409789
0.409628 0.40944 0.40923 0.409001 0.408762 0.408519 0.40828 0.408051
0.407838 0.407646 0.407477 0.407331 0.407207 0.407101 0.407007 0.406918
0.406826 0.406725 0.406608 0.40647 0.406306 0.406115 0.405896 0.405651
0.405383 0.405102 0.404824 0.404552 0.404279 0.403999 0.403719 0.403456
0.403215 0.402996 0.4028 0.402622 0.402457 0.402301 0.402144 0.401981
0.401805 0.401609 0.40139 0.401144 0.400872 0.4006 0.400353 0.400127
0.399914 0.399711 0.399508 0.399301 0.399082 0.398846 0.398589 0.398317
0.398051 0.397805 0.397575 0.397356 0.397139 0.396918 0.396686 0.396436
0.396166 0.395901 0.395665 0.395456 0.395274 0.395115 0.394973 0.394842
0.394715 0.394585 0.394444 0.394288 0.394111 0.39391 0.393686 0.39344
0.393176 0.392901 0.392623 0.392347 0.392076 0.391823 0.391593 0.391391
0.391218 0.391077 0.390965 0.390879 0.390815 0.390764 0.39072 0.390675
0.390621 0.390551 0.390461 0.390345 0.390204 0.390038 0.38985 0.389646
0.389434 0.389221 0.389015 0.388826 0.388661 0.388524 0.388421 0.388351
0.388315 0.388309 0.388328 0.388366 0.388413 0.388462 0.388503 0.388528
0.388532 0.388509 0.388457 0.388376 0.38827 0.388144 0.388006 0.387863
0.387726 0.387604 0.387506 0.387438 0.387405 0.387411 0.387454 0.387532
0.38764 0.387771 0.387915 0.388063 0.388204 0.388331 0.388434 0.388508
0.38855 0.388559 0.388539 0.388493 0.38843 0.38836 0.388292 0.388237
0.388205 0.388204 0.388241 0.388319 0.388439 0.388599 0.388793 0.389014
0.389252 0.389497 0.389737 0.389961 0.390162 0.39033 0.390464 0.39056
0.390621 0.390653 0.390662 0.390658 0.390653 0.390659 0.390685 0.390743
0.390839 0.390978 0.391162 0.39139 0.391655 0.391951 0.392268 0.392593
0.392915 0.393222 0.393503 0.393751 0.393961 0.39413 0.394259 0.394353
0.39442 0.39447 0.394513 0.394562 0.394629 0.394725 0.394858 0.395035
0.395258 0.395525 0.395833 0.396174 0.396537 0.39691 0.397282 0.397639
0.39797 0.398267 0.398524 0.398737 0.398907 0.399039 0.399139 0.399216
0.399282 0.39935 0.39943 0.399536 0.399676 0.399856 0.400081 0.40035
0.40066 0.401002 0.401368 0.401746 0.402123 0.402486 0.402825 0.403129
0.403393 0.403613 0.403789 0.403924 0.404024 0.404099 0.404157 0.404212
0.404276 0.404358 0.40447 0.404619 0.404808 0.405038 0.405306 0.405607
0.40593 0.406266 0.406603 0.406927 0.407229 0.4075 0.407731 0.40792
0.408066 0.408171 0.408241 0.408282 0.408305 0.40832 0.408338 0.408371
0.408427 0.408513 0.408635 0.408794 0.408988 0.409212 0.409459 0.409718
0.409979 0.410231 0.410463 0.410667 0.410836 0.410965 0.411055 0.411106
0.411122 0.411109 0.411077 0.411034 0.41099 0.410955 0.410938 0.410946
0.410984 0.411054 0.411156 0.411286 0.411436 0.4116 0.411768 0.411929
0.412075 0.412196 0.412287 0.412343 0.412363 0.412347 0.412298 0.412222
0.412125 0.412016 0.411903 0.411795 0.4117 0.411625 0.411576 0.411555
0.411561 0.411593 0.411646 0.411712 0.411784 0.411852 0.411908 0.411945
0.411955 0.411936 0.411884 0.411799 0.411685 0.411543 0.411382 0.411206
0.411025 0.410846 0.410676 0.410522 0.41039 0.410282 0.410199 0.410141
0.410102 0.410078 0.410061 0.410043 0.410017 0.409975 0.409911 0.409821
0.409701 0.409553 0.409375 0.409173 0.40895 0.408712 0.408466 0.40822
0.407981 0.407755 0.407547 0.407361 0.407199 0.407059 0.40694 0.406836
0.40674 0.406647 0.406549 0.406437 0.406308;
#X coords 0 1 500 0 200 140 1 0 0;
#X restore 591 657 graph;
#X msg 187 456 0.1 100;
#X obj 848 262 loadbang;
#X obj 1179 158 loadbang;
#X obj 406 79 loadbang;
#X obj 34 201 loadbang;
#X obj 836 633 loadbang;
#X obj 1129 650 loadbang;
#X obj 644 267 loadbang;
#X msg 644 316 500;
#X text 193 92 off;
#X text 125 32 NOISE;
#X text 394 35 DELAY LENGTH MODULATION;
#X obj 287 91 ead~ 3 3;
#X text 265 30 PULSE;
#X text 1313 720 No control;
#X obj 309 395 tabwrite~ EnvelopeAmplitude;
#X msg 644 364 \; delaypar filter 0 lp1 \$1 0.1;
#X msg 850 360 \; delaypar filter 1 hp1 \$1 0.1;
#X msg 644 421 \; delaypar filter 0 lp1 300 0.1 \, filter 1 hp1 10
0.1;
#X msg 1130 676 \; delaypar ampctrl 5 0.4 10 100 1.2;
#X msg 1129 713 \; delaypar ampctrl 0 0 0 0 0;
#X msg 1128 754 \; delaypar ampctrl 5 0.1 1 10 1;
#X msg 1128 793 \; delaypar ampctrl 5 0.2 1 5 1;
#X obj 221 283 delayfbck~ 2;
#X floatatom 468 539 5 0 0 0 - - -, f 5;
#X floatatom 532 541 5 0 0 0 - - -, f 5;
#X text 461 561 pitch;
#X text 509 560 envelope;
#X obj 465 492 sigmund~ -npts 8192 -hop 2048 pitch env;
#X msg 1228 183 1;
#X msg 1135 183 36;
#X msg 1095 183 40;
#X text 646 62 FILTERS;
#X text 646 78 command: filter 'num' 'type' 'arg1' ... 'argn' 'rampTime'
;
#X text 653 96 filter 'num' lp1 'f' 'rampTime' (1st order lp);
#X text 652 111 filter 'num' hp1 'f' 'rampTime' (1st order hp);
#X text 652 126 filter 'num' lp2 'f' 'z' 'rampTime' (2nd order lp)
;
#X text 652 142 filter 'num' hp2 'f' 'z' 'rampTime' (2nd order hp)
;
#X text 652 158 filter 'num' n 'f' 'g' 'b' 'rampTime' (notch);
#X text 651 196 type: lp1 \, hp1 \, lp2 \, lp2 \, n;
#X text 653 210 argi: 'f' (frequency) \, 'z' (damping) \, 'g' (gain)
\, 'b' (bandwidth);
#X text 653 239 rampTime: Smooth change if last filter was of same
type;
#X text 1083 77 DELAY LENGTH;
#X text 1083 92 command: delay 'len' 'rampTime' 'pitchCorrect';
#X text 1089 110 len: delay length in seconds;
#X text 1090 126 rampTime: Smooth change [s];
#X text 766 525 SATURATING NONLINEARITY;
#X text 772 561 type: See examples below;
#X text 773 576 gain: small signal gain;
#X text 1120 506 PI AMPLITUDE CONTROLLER;
#X text 1119 523 command: ampctrl 'lpFreq' 'ampl' 'P' 'I' 'sat';
#X text 1127 542 lpFreq: amplitude follower lowpass freq;
#X text 1128 556 ampl: amplitude reference;
#X text 1128 571 P: proportional gain;
#X text 1127 588 I: integral gain;
#X text 1125 603 sat: integrator saturation value;
#X text 1414 33 pitchCorrect: 0: No correction;
#X text 21 700 command: pluck 'ampl' 'pos';
#X text 30 716 ampl: pluck amplitude;
#X text 30 731 pos: pluck position alow string \, 0.0<pos<1.0;
#X text 21 684 PLUCK STRING (Karplus-Strong);
#X text 653 182 num: filter number 0 ... 4;
#X text 1426 253 <-- first argument \, number of voices \; second argument
selects voice stealing;
#X obj 1328 279 pack 0 0 0;
#X obj 1328 305 print;
#X text 1373 304 Output is in the printout window.;
#X obj 1323 170 notein;
#X obj 1323 209 poly 1 1;
#X floatatom 1487 435 5 0 0 0 - - -, f 5;
#X obj 1488 398 / 500;
#X floatatom 1590 363 0 0 0 0 - - -;
#X floatatom 1544 363 0 0 0 0 - - -;
#X obj 1544 336 touchin;
#X obj 117 549 *~;
#X obj 117 549 *~;
#X msg 644 392 \; delaypar filter 0 lp1 1000 0.1 \, filter 1 hp1 10
0.1;
#X msg 850 311 10;
#X obj 120 397 tabwrite~ DelayLineOut;
#X obj 849 289 delay 1000;
#X obj 644 295 delay 1000;
#X floatatom 589 293 5 20 120 0 - - -, f 5;
#X msg 589 266 60;
#X obj 589 317 mtof;
#X msg 836 703 \; delaypar nonlin asymmetric_sat 1.3 1 0.01;
#X msg 833 747 \; delaypar nonlin symmetric_sigmoid 1.3 1 0.01;
#X msg 832 791 \; delaypar nonlin asymmetric_sigmoid 1.3 1 0.01;
#X msg 836 664 \; delaypar nonlin symmetric_sat 1 1 0.01;
#X text 773 592 sat: saturation value (positive only if asymmetric)
;
#X text 766 541 command: nonlin 'type' 'gain' 'sat' 'rampTime';
#X text 773 607 rampTime: smooth change [s];
#X text 1419 128 amplCorrect : 0: No correction;
#X text 1503 143 1: correction based on filters magnitude;
#X text 1498 48 1: correction based on filters phase;
#X msg 18 755 \; delaypar nonlin symmetric_sat 1 1 \; delaypar pluck
0.5 0.2;
#X msg 1144 342 \; delaypar delay \$1 0.01;
#X msg 1416 68 \; delaypar pitchcorr 1;
#X msg 1559 68 \; delaypar pitchcorr 0;
#X msg 1421 165 \; delaypar gaincorr 1;
#X msg 1559 165 \; delaypar gaincorr 0;
#X msg 1459 770 \; delaypar nonlin symmetric_sat 0.99 1 \; delaypar
pluck 0.5 0.2;
#X msg 1459 648 \; delaypar linear;
#X msg 1571 648 \; delaypar cubic;
#X text 1457 592 DELAY LINE INTERPOLATION;
#X text 1458 608 Choose between linear and cubic;
#X text 1460 622 default is linear;
#X obj 34 229 metro 150;
#X connect 2 0 65 0;
#X connect 2 0 127 0;
#X connect 3 0 4 0;
#X connect 4 0 73 0;
#X connect 5 0 4 1;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 9 0 46 0;
#X connect 10 0 9 1;
#X connect 10 0 123 1;
#X connect 11 0 10 0;
#X connect 18 0 17 1;
#X connect 19 0 18 0;
#X connect 25 0 62 0;
#X connect 28 0 73 0;
#X connect 29 0 67 0;
#X connect 30 0 66 0;
#X connect 31 0 33 0;
#X connect 31 0 35 1;
#X connect 32 0 31 0;
#X connect 32 0 37 0;
#X connect 34 0 35 0;
#X connect 35 0 36 0;
#X connect 35 0 144 0;
#X connect 37 0 34 0;
#X connect 38 0 32 0;
#X connect 39 0 73 1;
#X connect 40 0 39 1;
#X connect 41 0 40 0;
#X connect 42 0 39 0;
#X connect 43 0 44 0;
#X connect 44 0 45 0;
#X connect 45 0 42 0;
#X connect 48 0 40 0;
#X connect 50 0 10 0;
#X connect 51 0 128 0;
#X connect 52 0 38 0;
#X connect 53 0 43 0;
#X connect 54 0 155 0;
#X connect 55 0 136 0;
#X connect 56 0 69 0;
#X connect 57 0 129 0;
#X connect 58 0 30 0;
#X connect 62 0 73 0;
#X connect 73 0 9 0;
#X connect 73 0 78 0;
#X connect 73 0 127 0;
#X connect 73 0 123 0;
#X connect 73 1 65 0;
#X connect 78 0 74 0;
#X connect 78 1 75 0;
#X connect 79 0 32 0;
#X connect 80 0 32 0;
#X connect 81 0 32 0;
#X connect 113 0 114 0;
#X connect 116 0 117 0;
#X connect 116 1 117 1;
#X connect 117 0 113 0;
#X connect 117 1 113 1;
#X connect 117 1 32 0;
#X connect 117 2 113 2;
#X connect 117 2 119 0;
#X connect 119 0 118 0;
#X connect 121 0 119 0;
#X connect 122 0 121 0;
#X connect 122 1 120 0;
#X connect 123 0 47 0;
#X connect 126 0 29 0;
#X connect 128 0 126 0;
#X connect 129 0 58 0;
#X connect 130 0 132 0;
#X connect 131 0 130 0;
#X connect 132 0 30 0;
#X connect 155 0 2 0;