/
pp.graindelay~-help.pd
261 lines (261 loc) · 8.2 KB
/
pp.graindelay~-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
#N struct 1222-template float x float y float c float s float th float
stretch array 1222-plus 1222-template-y array 1222-minus 1222-template-y
;
#N struct 1222-template-y float y;
#N struct 1223-template float x float y float c float s float th float
stretch array 1223-plus 1223-template-y array 1223-minus 1223-template-y
;
#N struct 1223-template-y float y;
#N canvas 62 324 840 363 10;
#X declare -path ./Examples/audio;
#X obj 397 297 pp.out~;
#A saved;
#X obj 2 2 cnv 15 380 350 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 12 15 cnv 15 10 10 empty empty pp.graindelay~ 0 0 2 16 -233017
-262144 0;
#X obj 545 152 cnv 15 118 17 empty empty empty 20 12 0 14 -260097 -66577
0;
#N canvas 281 54 1027 712 control-messages 0;
#X obj 27 551 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 27 572 metro 100;
#X obj 27 593 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 52 593 bang to trigger the next grain;
#X obj 645 53 cnv 15 250 150 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 668 74 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 668 95 int.grain-trigger \$1;
#X floatatom 669 117 5 0 1e+13 0 - - -;
#X msg 669 137 grain-distance \$1;
#X floatatom 669 161 5 0 1e+16 0 - - -;
#X msg 669 180 random-grain-distance \$1;
#X text 696 77 internal trigger metro on/off;
#X text 707 118 internal trigger speed;
#X text 653 55 internal metro;
#X obj 252 726 outlet;
#X floatatom 259 225 5 -inf 1e+37 0 - - -;
#X floatatom 258 265 5 0 1e+33 0 - - -;
#X msg 252 244 grainsize \$1;
#X text 336 245 grainsize in msec.;
#X msg 252 285 random-grainsize \$1;
#X floatatom 259 307 5 -1e+07 1e+10 0 - - -;
#X floatatom 258 346 5 0 1e+20 0 - - -;
#X msg 252 365 random-pitch \$1;
#X msg 252 326 pitch \$1;
#X floatatom 259 389 5 -100 100 0 - - -;
#X floatatom 258 428 5 0 100 0 - - -;
#X msg 252 408 panorama \$1;
#X msg 252 447 random-panorama \$1;
#X text 313 325 grain-pitch in cents;
#X floatatom 258 468 5 -100 0 0 - - -;
#X msg 252 487 amplitude \$1;
#X floatatom 258 508 5 0 100 0 - - -;
#X msg 252 528 random-amplitude \$1;
#X obj 687 473 cnv 15 200 200 empty empty empty 20 12 0 14 -233017
-66577 0;
#X floatatom 699 519 5 0 20000 0 - - -;
#X obj 691 480 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 691 499 filter-bypass \$1;
#X msg 699 538 frequency \$1;
#X floatatom 701 596 5 0 100000 0 - - -;
#X msg 701 614 q \$1;
#X floatatom 700 557 5 0 100 0 - - -;
#X msg 700 576 random-frequency \$1;
#X floatatom 702 634 5 0 100000 0 - - -;
#X msg 702 652 random-q \$1;
#X obj 671 214 cnv 15 280 250 empty empty empty 20 12 0 14 -233017
-66577 0;
#X obj 678 222 hradio 15 1 0 5 empty empty empty 0 -8 0 10 -262144
-1 -1 0;
#X floatatom 678 243 5 0 4 0 - - -;
#X msg 678 263 env-type \$1;
#X floatatom 677 305 5 0 1 0 - - -;
#X msg 677 323 env-bias \$1;
#X obj 680 286 hsl 100 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X floatatom 676 364 5 0 1 0 - - -;
#X obj 679 345 hsl 100 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X msg 676 382 env-shape \$1;
#X text 775 220 grain-envelope;
#X text 807 479 grain-filter;
#X floatatom 258 551 5 0 100 0 - - -;
#X msg 252 571 dry/wet \$1;
#X text 295 552 %;
#X floatatom 259 21 5 0 1e+37 0 - - -;
#X floatatom 258 61 5 0 1e+33 0 - - -;
#X msg 252 40 delay \$1;
#X msg 252 81 random-delay \$1;
#X msg 675 415 set-env myenvelope;
#N canvas 0 50 450 250 (subpatch) 0;
#X array myenvelope 100 float 5;
#A 0 0.00999975 0.00999975 0.00999337 0.0299938 0.0399941 0.0699947
0.0699947 0.0899952 0.109996 0.139996 0.179997 0.199998 0.219998 0.249999
0.360008 0.46001 0.500011 0.570013 0.590013 0.630014 0.680015 0.9 0.900001
0.900001 0.900001 0.900001 0.890001 0.87 0.87 0.84 0.84 0.854999 0.829998
0.819998 0.809998 0.769997 0.739996 0.719996 0.709995 0.689995 0.659994
0.629994 0.589993 0.579992 0.569992 0.549992 0.519991 0.509991 0.48999
0.46999 0.46999 0.46999 0.46999 0.46999 0.46999 0.46999 0.46999 0.46999
0.47999 0.47999 0.48999 0.499991 0.499991 0.499991 0.504991 0.509991
0.514991 0.519991 0.526658 0.533325 0.539992 0.539991 0.539991 0.544992
0.549992 0.559992 0.550004 0.580004 0.600005 0.620005 0.635006 0.650006
0.720008 0.760008 0.82001 0.83001 0.860011 0.84001 0.800009 0.760008
0.720008 0.550004 0.259997 0.239997 0.179995 0.129994 0.109994 0.0299917
0.0199915 0.00999129;
#X coords 0 1 100 0 140 100 1 0 0;
#X restore 804 362 graph;
#X obj 693 688 cnv 16 87 16 empty empty empty 20 12 0 14 -260097 -66577
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 694 687 pd save&recall;
#X floatatom 257 103 5 0 100 0 - - -;
#X msg 252 123 feedback \$1;
#X text 293 105 %;
#X floatatom 260 144 5 0 0 0 - - -;
#X msg 252 164 feedback-damping \$1;
#X text 295 145 hz;
#X obj 261 185 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 252 203 x-feed \$1;
#X text 314 204 feedback to the next grain;
#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 34 0 37 0;
#X connect 35 0 36 0;
#X connect 36 0 14 0;
#X connect 37 0 14 0;
#X connect 38 0 39 0;
#X connect 39 0 14 0;
#X connect 40 0 41 0;
#X connect 41 0 14 0;
#X connect 42 0 43 0;
#X connect 43 0 14 0;
#X connect 45 0 46 0;
#X connect 46 0 47 0;
#X connect 47 0 14 0;
#X connect 48 0 49 0;
#X connect 49 0 14 0;
#X connect 50 0 48 0;
#X connect 51 0 53 0;
#X connect 52 0 51 0;
#X connect 53 0 14 0;
#X connect 56 0 57 0;
#X connect 57 0 14 0;
#X connect 59 0 61 0;
#X connect 60 0 62 0;
#X connect 61 0 14 0;
#X connect 62 0 14 0;
#X connect 63 0 14 0;
#X connect 66 0 14 0;
#X connect 67 0 68 0;
#X connect 68 0 14 0;
#X connect 70 0 71 0;
#X connect 71 0 14 0;
#X connect 73 0 74 0;
#X connect 74 0 14 0;
#X restore 545 152 pd control-messages;
#X obj 397 24 adc~;
#X text 555 192 <-- click to open GUI;
#X text 23 111 Inlets:;
#X text 24 151 Outlets:;
#X text 80 151 1:(~)left out;
#X text 80 164 2:(~)right out;
#X text 80 176 3:message;
#X text 24 75 Creation arguments: none;
#X text 80 123 2:control-messages;
#X text 80 110 1:(~)in;
#X text 23 34 granular-delay;
#X obj 537 28 pp.sfplayer~;
#A saved;
#X obj 413 92 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 398 112 *~;
#X obj 551 97 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 536 117 *~;
#N canvas 3 52 450 300 init 0;
#X obj 146 118 outlet;
#X obj 146 72 loadbang;
#X msg 146 95 open MusicBox.wav \, play 1 \, loop 1;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X restore 710 7 pd init;
#X obj 5 330 declare -path ./Examples/audio;
#X text 413 73 mic.input;
#X text 551 78 soundfile;
#X obj 397 178 pp.graindelay~;
#A saved;
#N canvas 708 424 476 180 message-out 0;
#X obj 20 20 inlet;
#X msg 30 60 int.grain-trigger 0 \, grain-distance 50 \, random-grain-distance
0 \, delay 0 \, random-delay 0 \, grainsize 0 \, random-grainsize 0
\, pitch 0 \, random-pitch 0 \, panorama 0 \, random-panorama 0 \,
amplitude 0 \, random-amplitude 0 \, feedback 0 \, feedback-damping
5000 \, filter-bypass 1 \, frequency 100 \, random-frequency 5000 \,
q 1 \, random-q 0 \, dry/wet 100 \, env-type 0 \, env-bias 0.5 \, env-shape
0.5 \, x-feed 0 \,;
#X connect 0 0 1 0;
#X restore 545 227 pd message-out;
#X connect 4 0 25 1;
#X connect 5 0 18 0;
#X connect 16 0 20 0;
#X connect 17 0 18 1;
#X connect 18 0 25 0;
#X connect 19 0 20 1;
#X connect 20 0 25 0;
#X connect 21 0 16 3;
#X connect 25 0 0 0;
#X connect 25 1 0 1;
#X connect 25 2 26 0;