/
pp.grainer~-onegrain.pd
203 lines (203 loc) · 4.59 KB
/
pp.grainer~-onegrain.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
#N canvas 294 74 1019 688 10;
#X msg 77 372 0 \, \$1 \$2;
#X obj 77 277 pack;
#X obj 77 165 / 1000;
#X obj 77 187 * 44100;
#X obj 320 301 / 1000;
#X obj 320 323 * 44100;
#X obj 77 252 * 1;
#X obj 75 527 *~;
#X obj 302 346 f;
#X obj 81 97 f 50;
#N canvas 779 288 280 225 cents 0;
#X obj 52 57 inlet;
#X obj 52 168 outlet;
#X obj 52 115 / 100;
#X obj 52 88 i;
#X obj 52 142 expr pow(2 \, $f1/12);
#X connect 0 0 3 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 4 0 1 0;
#X restore 137 235 pd cents;
#X obj 137 214 f;
#X obj 77 648 outlet~;
#X obj 117 77 r \$2-grainsize;
#X obj 127 164 r \$2-samplerate;
#X obj 320 278 r \$2-grainposition;
#X obj 377 322 r \$2-samplerate;
#X obj 76 471 tabread4~ \$2-sf;
#X obj 155 194 r \$2-grainpitch;
#X obj 387 135 switch~ 0;
#X msg 387 113 1;
#X obj 476 64 r \$2-grainsize;
#X msg 426 111 0;
#X obj 76 625 *~;
#X obj 289 657 outlet~;
#X obj 288 634 *~;
#X obj 426 87 del 50;
#X obj 158 284 < 0;
#X obj 77 304 list prepend 0;
#X obj 77 325 route 0 1;
#X msg 136 373 \$1 \, 0 \$2;
#X obj 476 86 abs;
#X obj 158 263 r \$2-grainsize;
#X obj 81 119 t f f f;
#X obj 302 368 mod;
#X obj 117 97 abs;
#X obj 332 368 r \$2-samplelength;
#X obj 76 582 *~;
#X obj 273 518 r \$2-grainamp;
#X obj 258 538 f;
#N canvas 3 52 450 300 filter 0;
#X obj 143 88 inlet~;
#X obj 142 198 outlet~;
#X obj 168 130 r \$2-filter-bypass;
#N canvas 337 195 450 300 sub 0;
#X obj 246 28 inlet~;
#X obj 246 186 outlet~;
#X obj 260 85 f;
#X obj 317 113 f;
#X obj 278 66 r \$2-freq;
#X obj 335 92 r \$2-q;
#X obj 247 130 vcf~;
#X obj 260 105 sig~;
#X obj 355 11 inlet;
#X obj 81 77 switch~ 0;
#X obj 81 28 r \$2-filter-bypass;
#X obj 81 50 == 0;
#X connect 0 0 6 0;
#X connect 2 0 7 0;
#X connect 3 0 6 2;
#X connect 4 0 2 1;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 7 0 6 1;
#X connect 8 0 3 0;
#X connect 8 0 2 0;
#X connect 10 0 11 0;
#X connect 11 0 9 0;
#X restore 203 157 pd sub;
#X obj 305 90 inlet;
#X obj 143 151 *~ 1;
#X connect 0 0 3 0;
#X connect 0 0 5 0;
#X connect 2 0 5 1;
#X connect 3 0 1 0;
#X connect 4 0 3 1;
#X connect 5 0 1 0;
#X restore 75 549 pd filter;
#X obj 214 39 t b b b b b b b;
#N canvas 3 54 450 300 set 0;
#X obj 170 55 inlet;
#X obj 233 128 array size \$2-window;
#X obj 233 59 r \$2-env-set;
#X obj 400 105 symbol;
#X obj 233 80 t b a;
#X obj 233 149 - 3;
#X obj 170 224 outlet;
#X obj 170 182 pack f 1022;
#X obj 400 225 outlet;
#X msg 170 203 1 \, \$2 \$1;
#X connect 0 0 7 0;
#X connect 1 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 1 1;
#X connect 3 0 8 0;
#X connect 4 0 1 0;
#X connect 4 1 3 0;
#X connect 5 0 7 1;
#X connect 7 0 9 0;
#X connect 9 0 6 0;
#X restore 289 414 pd set;
#X msg 412 458 set \$1;
#X obj 21 396 r \$2-set;
#X msg 21 419 set \$1;
#X obj 89 506 clip~ 0 1;
#N canvas 838 435 330 259 panorama 0;
#X obj 30 30 inlet;
#X obj 30 164 outlet;
#X obj 261 164 outlet;
#X obj 62 61 r \$2-grainpan;
#X obj 30 60 f;
#X obj 30 141 * 0.7071;
#X obj 261 141 * 0.7071;
#X obj 30 84 * 0.125;
#X obj 30 107 expr cos($f1*6.28319)-sin($f1*6.28319) \; cos($f1*6.28319)+sin($f1*6.28319)
;
#X connect 0 0 4 0;
#X connect 3 0 4 1;
#X connect 4 0 7 0;
#X connect 5 0 1 0;
#X connect 6 0 2 0;
#X connect 7 0 8 0;
#X connect 8 0 5 0;
#X connect 8 1 6 0;
#X restore 573 487 pd panorama;
#X obj 77 437 vline~;
#X obj 289 452 vline~;
#X obj 289 489 tabread4~ \$2-window;
#X obj 214 17 inlet;
#X text 253 14 trigger;
#X connect 0 0 48 0;
#X connect 1 0 28 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 5 0 8 1;
#X connect 6 0 1 0;
#X connect 7 0 40 0;
#X connect 8 0 34 0;
#X connect 9 0 33 0;
#X connect 10 0 6 1;
#X connect 11 0 10 0;
#X connect 13 0 35 0;
#X connect 14 0 3 1;
#X connect 15 0 4 0;
#X connect 16 0 5 1;
#X connect 17 0 7 0;
#X connect 18 0 11 1;
#X connect 20 0 19 0;
#X connect 21 0 31 0;
#X connect 22 0 19 0;
#X connect 23 0 12 0;
#X connect 25 0 24 0;
#X connect 26 0 22 0;
#X connect 27 0 28 1;
#X connect 28 0 29 0;
#X connect 29 0 0 0;
#X connect 29 1 30 0;
#X connect 30 0 48 0;
#X connect 31 0 26 1;
#X connect 32 0 27 0;
#X connect 33 0 2 0;
#X connect 33 1 1 1;
#X connect 33 2 42 0;
#X connect 34 0 17 1;
#X connect 35 0 9 1;
#X connect 36 0 34 1;
#X connect 37 0 23 0;
#X connect 37 0 25 0;
#X connect 38 0 39 1;
#X connect 39 0 37 1;
#X connect 40 0 37 0;
#X connect 41 0 9 0;
#X connect 41 1 11 0;
#X connect 41 2 40 1;
#X connect 41 3 39 0;
#X connect 41 4 8 0;
#X connect 41 5 47 0;
#X connect 41 6 20 0;
#X connect 41 6 26 0;
#X connect 42 0 49 0;
#X connect 42 1 43 0;
#X connect 43 0 50 0;
#X connect 44 0 45 0;
#X connect 45 0 17 0;
#X connect 46 0 7 1;
#X connect 47 0 23 1;
#X connect 47 1 25 1;
#X connect 48 0 17 0;
#X connect 49 0 50 0;
#X connect 50 0 46 0;
#X connect 51 0 41 0;