/
pp.grainrev~-help.pd
332 lines (332 loc) · 11.5 KB
/
pp.grainrev~-help.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 371 151 973 459 10;
#X obj 400 388 pp.out~;
#A saved;
#X obj 2 2 cnv 15 380 450 empty empty empty 20 12 0 14 #e0e0e0 #404040 0;
#X obj 12 20 cnv 15 10 10 empty empty pp.grainrev~ 0 0 2 16 #e0e0e0 #fcfcfc 0;
#X obj 548 164 cnv 15 118 17 empty empty empty 20 12 0 14 #fc8000 #404040 0;
#N canvas 693 57 1055 948 control-messages 0;
#X obj 51 606 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 51 627 metro 100;
#X obj 51 648 bng 15 250 50 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000;
#X text 76 648 bang to trigger the next grain;
#X obj 561 71 cnv 15 250 150 empty empty empty 20 12 0 14 #e0e0e0 #404040 0;
#X obj 584 92 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 584 113 int.grain-trigger \$1;
#X floatatom 585 135 5 0 1e+13 0 - - - 0;
#X msg 585 155 grain-distance \$1;
#X floatatom 585 179 5 0 1e+16 0 - - - 0;
#X msg 585 198 random-grain-distance \$1;
#X text 602 92 internal trigger metro on/off;
#X text 623 136 internal trigger speed;
#X text 569 73 internal metro;
#X obj 281 909 outlet;
#X floatatom 288 169 5 0 1e+37 0 - - - 0;
#X floatatom 287 211 5 0 1e+33 0 - - - 0;
#X msg 281 188 grainsize \$1;
#X text 365 189 grainsize in msec.;
#X msg 281 231 random-grainsize \$1;
#X floatatom 288 276 5 -1e+07 1e+10 0 - - - 0;
#X floatatom 287 318 5 0 1e+20 0 - - - 0;
#X msg 281 337 random-pitch \$1;
#X msg 281 295 pitch \$1;
#X floatatom 288 373 5 -100 100 0 - - - 0;
#X floatatom 287 414 5 0 100 0 - - - 0;
#X msg 281 392 panorama \$1;
#X msg 281 433 random-panorama \$1;
#X text 342 294 grain-pitch in cents;
#X floatatom 287 466 5 -100 0 0 - - - 0;
#X msg 281 485 amplitude \$1;
#X floatatom 287 507 5 0 100 0 - - - 0;
#X msg 281 527 random-amplitude \$1;
#X obj 596 485 cnv 15 350 320 empty empty empty 20 12 0 14 #e0e0e0 #404040 0;
#X obj 597 228 cnv 15 280 250 empty empty empty 20 12 0 14 #e0e0e0 #404040 0;
#X obj 604 236 hradio 15 1 0 5 empty empty empty 0 -8 0 10 #fcfcfc #000000 #000000 0;
#X floatatom 604 257 5 0 4 0 - - - 0;
#X msg 604 277 env-type \$1;
#X floatatom 603 319 5 0 1 0 - - - 0;
#X msg 603 337 env-bias \$1;
#X obj 606 300 hsl 100 15 0 1 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X floatatom 602 378 5 0 1 0 - - - 0;
#X obj 605 359 hsl 100 15 0 1 0 0 empty empty empty -2 -8 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 602 396 env-shape \$1;
#X text 701 234 grain-envelope;
#X floatatom 287 565 5 0 100 0 - - - 0;
#X msg 281 585 dry/wet \$1;
#X text 324 566 %;
#X floatatom 288 75 5 0 1e+37 0 - - - 0;
#X floatatom 287 116 5 0 1e+33 0 - - - 0;
#X msg 281 94 delay \$1;
#X msg 281 136 random-delay \$1;
#X msg 601 429 set-env myenvelope;
#N canvas 0 50 450 250 (subpatch) 0;
#X array myenvelope 100 float 5;
#A 0 -7.09295e-06 0.0199934 0.0299936 0.0599943 0.0699945 0.0999952 0.159997 0.3 0.360001 0.400002 0.440003 0.500004 0.540005 0.610007 0.630007 0.640008 0.690009 0.720009 0.76001 0.790011 0.790011 0.830012 0.840012 0.860013 0.870013 0.870013 0.880013 0.880013 0.880013 0.880013 0.880013 0.880013 0.880013 0.67 0.609998 0.579998 0.569997 0.509996 0.489996 0.439995 0.379993 0.329992 0.179989 0.149988 0.129987 0.129987 0.129987 0.129987 0.129987 0.129987 0.129987 0.129987 0.129987 0.149988 0.399994 0.460003 0.480004 0.500004 0.540005 0.550005 0.570006 0.580006 0.580006 0.580006 0.580006 0.429999 0.279996 0.259995 0.229995 0.209994 0.209994 0.209994 0.209994 0.209994 0.219994 0.259995 0.369998 0.419999 0.540002 0.620004 0.620004 0.620004 0.620004 0.620004 0.620004 0.600003 0.500001 0.44 0.419999 0.379998 0.359998 0.259995 0.259995 0.149996 0.149996 0.129994 0.109994 0.0299917 0.0199915 0.00999129;
#X coords 0 1 100 0 140 100 1 0 0;
#X restore 730 376 graph;
#X obj 421 876 cnv 16 87 16 empty empty empty 20 12 0 14 #fc8000 #404040 0;
#N canvas 864 246 634 307 save&recall 0;
#X obj 93 233 outlet;
#X msg 93 60 0;
#X msg 125 60 1;
#X msg 158 60 2;
#X msg 93 99 save \$1;
#X text 185 63 ...;
#X msg 207 60 20;
#X msg 149 154 0;
#X msg 181 154 1;
#X msg 214 154 2;
#X text 241 157 ...;
#X msg 263 154 20;
#X msg 149 193 recall \$1;
#X text 249 93 save & recall up to 20 presets \, presets will be saved with the parrent patch;
#X connect 1 0 4 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X connect 6 0 4 0;
#X connect 7 0 12 0;
#X connect 8 0 12 0;
#X connect 9 0 12 0;
#X connect 11 0 12 0;
#X connect 12 0 0 0;
#X restore 421 875 pd save&recall;
#X floatatom 606 500 5 0 100 0 - - - 0;
#X msg 606 520 feedback \$1;
#X text 642 502 %;
#X floatatom 609 581 5 0 0 0 - - - 0;
#X text 644 582 hz;
#X obj 610 759 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X msg 609 601 lop \$1;
#X msg 610 777 x-pan \$1;
#X floatatom 609 626 5 0 0 0 - - - 0;
#X text 644 627 hz;
#X msg 609 646 hip \$1;
#X floatatom 287 607 5 0 100 0 - - - 0;
#X msg 281 627 gain \$1;
#X text 323 607 dBFS;
#X msg 609 689 pitch-feedback \$1;
#X msg 610 734 random-pitch-feedback \$1;
#X text 672 778 ping-pong pan;
#X floatatom 609 669 5 0 0 0 - - - 0;
#X floatatom 610 713 5 0 0 0 - - - 0;
#X text 601 549 damping filter \, grain-pitch and ping-pong pan in the feedback chain;
#X floatatom 287 27 5 0 100 0 - - - 0;
#X msg 281 47 max-grains \$1;
#X text 342 26 set max nr. of parallel grain streams;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 14 0;
#X connect 5 0 6 0;
#X connect 6 0 14 0;
#X connect 7 0 8 0;
#X connect 8 0 14 0;
#X connect 9 0 10 0;
#X connect 10 0 14 0;
#X connect 15 0 17 0;
#X connect 16 0 19 0;
#X connect 17 0 14 0;
#X connect 19 0 14 0;
#X connect 20 0 23 0;
#X connect 21 0 22 0;
#X connect 22 0 14 0;
#X connect 23 0 14 0;
#X connect 24 0 26 0;
#X connect 25 0 27 0;
#X connect 26 0 14 0;
#X connect 27 0 14 0;
#X connect 29 0 30 0;
#X connect 30 0 14 0;
#X connect 31 0 32 0;
#X connect 32 0 14 0;
#X connect 35 0 36 0;
#X connect 36 0 37 0;
#X connect 37 0 14 0;
#X connect 38 0 39 0;
#X connect 39 0 14 0;
#X connect 40 0 38 0;
#X connect 41 0 43 0;
#X connect 42 0 41 0;
#X connect 43 0 14 0;
#X connect 45 0 46 0;
#X connect 46 0 14 0;
#X connect 48 0 50 0;
#X connect 49 0 51 0;
#X connect 50 0 14 0;
#X connect 51 0 14 0;
#X connect 52 0 14 0;
#X connect 55 0 14 0;
#X connect 56 0 57 0;
#X connect 57 0 14 0;
#X connect 59 0 62 0;
#X connect 61 0 63 0;
#X connect 62 0 14 0;
#X connect 63 0 14 0;
#X connect 64 0 66 0;
#X connect 66 0 14 0;
#X connect 67 0 68 0;
#X connect 68 0 14 0;
#X connect 70 0 14 0;
#X connect 71 0 14 0;
#X connect 73 0 70 0;
#X connect 74 0 71 0;
#X connect 76 0 77 0;
#X connect 77 0 14 0;
#X restore 548 164 pd control-messages;
#X obj 399 24 adc~;
#X text 566 204 <-- click to open GUI;
#X text 24 167 Inlets:;
#X text 25 221 Outlets:;
#X text 81 221 1:(~)left out;
#X text 81 234 2:(~)right out;
#X text 81 248 3:message;
#X text 81 179 2:control-messages;
#X text 81 166 1:(~)in;
#X obj 414 72 tgl 15 0 empty empty empty 17 7 0 10 #fcfcfc #000000 #000000 0 1;
#X obj 399 92 *~;
#X text 414 53 mic.input;
#N canvas 909 30 476 180 message-out 0;
#X obj 20 20 inlet;
#X msg 20 55 max-grains 4 \, int.grain-trigger 0 \, grain-distance 25 \, random-grain-distance 0 \, delay 50 \, random-delay 0 \, grainsize 100 \, random-grainsize 0 \, pitch 0 \, random-pitch 0 \, panorama 0 \, random-panorama 0 \, amplitude 0 \, random-amplitude 0 \, feedback 0 \, lop 7000 \, hip 50 \, pan-feedback 0 \, random-pan-feedback 0 \, pitch-feedback 0 \, random-pitch-feedback 0 \, env-type 0 \, env-bias 0.5 \, env-shape 0.5 \, x-pan 0 \, gain 0 \, dry/wet 100 \,;
#X connect 0 0 1 0;
#X restore 548 242 pd message-out;
#X obj 401 302 pp.limit-st~ 1000;
#A saved empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \;;
#X obj 421 126 bng 18 250 50 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000;
#X obj 484 127 bng 18 250 50 0 empty empty empty 0 -9 0 10 #fcfcfc #000000 #000000;
#X text 504 124 plish;
#X text 445 125 beep;
#N canvas 1053 224 742 460 testtone 0;
#X obj 59 350 *~;
#X obj 173 131 mtof;
#X obj 58 115 vline~;
#X obj 58 181 *~;
#X obj 73 247 osc~;
#X obj 135 250 osc~;
#X obj 135 223 * 3;
#X obj 184 249 osc~;
#X obj 235 249 osc~;
#X obj 290 248 osc~;
#X obj 342 249 osc~;
#X obj 184 222 * 5.01;
#X obj 235 222 * 7.02;
#X obj 290 221 * 9.03;
#X obj 342 222 * 11.04;
#X obj 136 277 *~ 0.3;
#X obj 183 278 *~ 0.2;
#X obj 234 275 *~ 0.15;
#X obj 289 276 *~ 0.1;
#X obj 343 274 *~ 0.1;
#X obj 73 320 +~;
#X obj 137 322 +~;
#X obj 184 323 +~;
#X obj 234 323 +~;
#X obj 289 324 +~;
#X obj 58 373 *~ 0.5;
#X obj 528 162 noise~;
#X obj 557 231 bp~, f 6;
#X obj 536 269 *~;
#X obj 571 181 t f b;
#X obj 572 161 mtof;
#X obj 449 164 vline~;
#X obj 449 199 *~;
#X obj 573 139 + 84;
#X msg 589 205 5;
#X obj 573 116 random 36;
#X obj 118 34 inlet;
#X obj 449 44 inlet;
#X obj 174 109 + 38;
#X obj 174 87 random 58;
#X obj 537 304 clip~ -1 1;
#X obj 118 57 t b b;
#X msg 58 90 0 \, 1 1 \, 0 1000 3;
#X obj 227 434 outlet~;
#X msg 449 132 2 0 \, 0 100;
#X obj 449 71 t b b;
#X connect 0 0 25 0;
#X connect 1 0 6 0;
#X connect 1 0 4 0;
#X connect 1 0 11 0;
#X connect 1 0 12 0;
#X connect 1 0 13 0;
#X connect 1 0 14 0;
#X connect 2 0 3 0;
#X connect 2 0 3 1;
#X connect 3 0 0 0;
#X connect 4 0 20 0;
#X connect 5 0 15 0;
#X connect 6 0 5 0;
#X connect 7 0 16 0;
#X connect 8 0 17 0;
#X connect 9 0 18 0;
#X connect 10 0 19 0;
#X connect 11 0 7 0;
#X connect 12 0 8 0;
#X connect 13 0 9 0;
#X connect 14 0 10 0;
#X connect 15 0 21 0;
#X connect 16 0 22 0;
#X connect 17 0 23 0;
#X connect 18 0 24 0;
#X connect 19 0 24 1;
#X connect 20 0 0 1;
#X connect 21 0 20 1;
#X connect 22 0 21 1;
#X connect 23 0 22 1;
#X connect 24 0 23 1;
#X connect 25 0 43 0;
#X connect 26 0 27 0;
#X connect 27 0 28 1;
#X connect 28 0 40 0;
#X connect 29 0 27 1;
#X connect 29 1 34 0;
#X connect 30 0 29 0;
#X connect 31 0 32 0;
#X connect 31 0 32 1;
#X connect 32 0 28 0;
#X connect 33 0 30 0;
#X connect 34 0 27 2;
#X connect 35 0 33 0;
#X connect 36 0 41 0;
#X connect 37 0 45 0;
#X connect 38 0 1 0;
#X connect 39 0 38 0;
#X connect 40 0 43 0;
#X connect 41 0 42 0;
#X connect 41 1 39 0;
#X connect 42 0 2 0;
#X connect 44 0 31 0;
#X connect 45 0 44 0;
#X connect 45 1 35 0;
#X restore 421 151 pd testtone;
#X text 563 302 Safety limiter. Some settings in pp.grainrev~ can cause the output signals to exceed the threshold value of 0 dBFS.;
#X text 23 48 granular delay/reverb;
#N canvas 102 154 450 300 examples 0;
#X obj 95 98 s pd;
#X obj 95 7 r \$0-example1;
#X msg 95 30 dir;
#X obj 95 53 pdcontrol;
#X msg 95 75 open 12-granular-reverb.pd \$1/Examples;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 4 0 0 0;
#X restore 9 429 pd examples;
#X obj 843 8 cnv 15 120 30 empty empty empty 20 12 0 14 #fc8000 #404040 0;
#X obj 849 16 bng 15 250 50 0 \$0-example1 \$0-example1r empty 17 7 0 10 #fcfcfc #000000 #000000;
#X text 866 14 open example-1;
#X text 142 109 \$2: max. number of grains (default 4);
#X text 22 92 Creation arguments: \$1: (obligatory) max. delay time;
#X obj 400 200 pp.grainrev~ 2000 4;
#A saved empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \; empty_slot \;;
#X connect 4 0 32 1;
#X connect 5 0 15 0;
#X connect 14 0 15 1;
#X connect 15 0 32 0;
#X connect 18 0 0 0;
#X connect 18 1 0 1;
#X connect 19 0 23 0;
#X connect 20 0 23 1;
#X connect 23 0 32 0;
#X connect 32 0 18 0;
#X connect 32 1 18 1;
#X connect 32 2 17 0;