forked from solipd/AudioLab
-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathpp.pitchshift-st~.pd
391 lines (391 loc) · 9.15 KB
/
pp.pitchshift-st~.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
#N canvas 85 202 1051 382 10;
#X text 285 256 simple rotating-head pitchshifter based on G09-pitchshift
\$1 = windowsize (ms);
#N canvas 377 145 450 300 delwrite 0;
#X obj 59 60 inlet~;
#X obj 61 125 outlet~;
#X obj 60 84 delwrite~ \$0-del 1000;
#X connect 0 0 2 0;
#X restore 335 112 pd delwrite;
#X obj 335 87 inlet~;
#N canvas 211 52 680 637 delread 0;
#X obj 173 503 *~;
#X obj 120 514 cos~;
#X obj 120 541 *~;
#X obj 120 570 +~;
#X obj 309 437 wrap~;
#X obj 372 474 *~;
#X obj 310 526 cos~;
#X obj 310 553 *~;
#X obj 309 415 +~ 0.5;
#X obj 120 471 -~ 0.5;
#X obj 120 491 *~ 0.5;
#X obj 310 477 -~ 0.5;
#X obj 310 498 *~ 0.5;
#X obj 192 319 phasor~;
#X obj 387 223 max 1;
#X obj 159 251 *~ -1;
#X obj 159 225 +~ -1;
#X obj 160 87 inlet~;
#X obj 120 592 outlet~;
#X obj 387 303 sig~;
#X obj 173 525 vd~ \$0-del;
#X obj 373 528 vd~ \$0-del;
#X obj 104 89 inlet~;
#X obj 218 264 /;
#X msg 218 243 1000 \$1;
#X obj 159 288 *~;
#X obj 160 140 *~ 0.01;
#X obj 160 161 expr~ pow(2 \, $v1/12);
#X obj 387 195 r \$0-window;
#X connect 0 0 20 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 18 0;
#X connect 4 0 5 0;
#X connect 4 0 11 0;
#X connect 5 0 21 0;
#X connect 6 0 7 0;
#X connect 7 0 3 1;
#X connect 8 0 4 0;
#X connect 9 0 10 0;
#X connect 10 0 1 0;
#X connect 11 0 12 0;
#X connect 12 0 6 0;
#X connect 13 0 0 0;
#X connect 13 0 9 0;
#X connect 13 0 8 0;
#X connect 14 0 19 0;
#X connect 14 0 24 0;
#X connect 15 0 25 0;
#X connect 16 0 15 0;
#X connect 17 0 26 0;
#X connect 19 0 0 1;
#X connect 19 0 5 1;
#X connect 20 0 2 1;
#X connect 21 0 7 1;
#X connect 23 0 25 1;
#X connect 24 0 23 0;
#X connect 25 0 13 0;
#X connect 26 0 27 0;
#X connect 27 0 16 0;
#X connect 28 0 14 0;
#X restore 335 193 pd delread;
#X obj 335 215 outlet~;
#X obj 610 87 inlet~;
#X obj 610 123 +~;
#X obj 103 115 hsl 105 15 -1200 1200 0 0 \$0-gui \$0-guir Transposition(cents)
3 8 2 10 -233017 -1 -1 5200 1;
#X obj 251 115 hsl 2 8 0 1 0 0 \$0-gui \$0-guir empty 3 8 2 10 -233017
-228856 -1 0 1;
#X obj 210 115 nbx 5 15 -1e+09 1e+12 0 0 \$0-transpo \$0-transpor empty
0 -8 2 10 -228856 -1 -1 0 256;
#X msg 128 179 set \$1;
#X msg 64 71 0;
#X obj 128 158 i;
#X obj 64 50 loadbang;
#X obj 101 216 s \$0-transpo;
#X msg 213 150 set \$1;
#X obj 661 87 r \$0-transpo;
#N canvas 0 50 305 260 init 0;
#X obj 108 54 f \$1;
#X obj 108 31 loadbang;
#X floatatom 109 129 0 0 0 0 - - -;
#X obj 109 82 sel 0;
#X msg 109 102 100;
#X text 148 129 window (msec);
#X obj 109 161 s \$0-window;
#X connect 0 0 3 0;
#X connect 1 0 0 0;
#X connect 2 0 6 0;
#X connect 3 0 4 0;
#X connect 3 1 2 0;
#X connect 4 0 2 0;
#X restore 761 127 pd init;
#N canvas 377 145 450 300 delwrite 0;
#X obj 59 60 inlet~;
#X obj 61 125 outlet~;
#X obj 60 84 delwrite~ \$0-del2 1000;
#X connect 0 0 2 0;
#X restore 460 117 pd delwrite;
#X obj 460 92 inlet~;
#N canvas 211 52 680 637 delread 0;
#X obj 173 503 *~;
#X obj 120 514 cos~;
#X obj 120 541 *~;
#X obj 120 570 +~;
#X obj 309 437 wrap~;
#X obj 372 474 *~;
#X obj 310 526 cos~;
#X obj 310 553 *~;
#X obj 309 415 +~ 0.5;
#X obj 120 471 -~ 0.5;
#X obj 120 491 *~ 0.5;
#X obj 310 477 -~ 0.5;
#X obj 310 498 *~ 0.5;
#X obj 192 319 phasor~;
#X obj 387 223 max 1;
#X obj 159 251 *~ -1;
#X obj 159 225 +~ -1;
#X obj 160 87 inlet~;
#X obj 120 592 outlet~;
#X obj 387 303 sig~;
#X obj 104 89 inlet~;
#X obj 218 264 /;
#X msg 218 243 1000 \$1;
#X obj 159 288 *~;
#X obj 160 140 *~ 0.01;
#X obj 160 161 expr~ pow(2 \, $v1/12);
#X obj 387 195 r \$0-window;
#X obj 173 525 vd~ \$0-del2;
#X obj 373 528 vd~ \$0-del2;
#X connect 0 0 27 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 18 0;
#X connect 4 0 5 0;
#X connect 4 0 11 0;
#X connect 5 0 28 0;
#X connect 6 0 7 0;
#X connect 7 0 3 1;
#X connect 8 0 4 0;
#X connect 9 0 10 0;
#X connect 10 0 1 0;
#X connect 11 0 12 0;
#X connect 12 0 6 0;
#X connect 13 0 0 0;
#X connect 13 0 9 0;
#X connect 13 0 8 0;
#X connect 14 0 19 0;
#X connect 14 0 22 0;
#X connect 15 0 23 0;
#X connect 16 0 15 0;
#X connect 17 0 24 0;
#X connect 19 0 0 1;
#X connect 19 0 5 1;
#X connect 21 0 23 1;
#X connect 22 0 21 0;
#X connect 23 0 13 0;
#X connect 24 0 25 0;
#X connect 25 0 16 0;
#X connect 26 0 14 0;
#X connect 27 0 2 1;
#X connect 28 0 7 1;
#X restore 460 198 pd delread;
#X obj 460 220 outlet~;
#X text 867 359 philipp schmalfuß \, 2018;
#X obj 847 87 inlet;
#X obj 850 301 outlet;
#N canvas 118 64 450 475 outlet-message 0;
#X obj 100 25 r \$0-window;
#X obj 124 120 pack f f;
#X obj 165 57 t b f;
#X obj 123 81 del 0;
#X msg 157 173 transposition \$2 \, window \$1;
#X obj 164 291 list trim;
#X msg 84 289 addcomma;
#X msg 43 299 set;
#X obj 164 268 list prepend add2;
#X obj 164 376 outlet;
#X obj 180 24 r \$0-transpo;
#X obj 100 47 t b f;
#X obj 123 100 f;
#X obj 124 141 t b a b;
#X obj 145 197 t b a a;
#N canvas 497 319 297 264 save 0;
#X obj 48 16 inlet;
#N canvas 690 259 481 384 collect 0;
#X obj 47 60 inlet;
#X obj 47 274 outlet;
#X obj 98 180 list;
#X obj 166 181 t l;
#X obj 47 225 list;
#X obj 98 139 list append |;
#X obj 47 126 del 0;
#X obj 47 82 t b a;
#X text 119 75 hacky thing... replaycing " \, " with "|";
#X connect 0 0 7 0;
#X connect 2 0 3 0;
#X connect 2 0 4 1;
#X connect 3 0 2 1;
#X connect 4 0 1 0;
#X connect 5 0 2 0;
#X connect 6 0 2 1;
#X connect 6 0 4 0;
#X connect 7 0 6 0;
#X connect 7 1 5 0;
#X restore 48 38 pd collect;
#X obj 117 16 r \$0-save;
#X obj 27 130 text set \$0-savestates;
#X obj 27 104 list;
#X obj 117 62 t b f;
#X obj 117 39 clip 0 20;
#X connect 0 0 1 0;
#X connect 1 0 4 1;
#X connect 2 0 6 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 1 3 1;
#X connect 6 0 5 0;
#X restore 184 223 pd save;
#X connect 0 0 11 0;
#X connect 1 0 13 0;
#X connect 2 0 3 0;
#X connect 2 1 1 1;
#X connect 3 0 12 0;
#X connect 4 0 14 0;
#X connect 5 0 9 0;
#X connect 6 0 9 0;
#X connect 7 0 9 0;
#X connect 8 0 5 0;
#X connect 10 0 2 0;
#X connect 11 0 3 0;
#X connect 11 1 12 1;
#X connect 12 0 1 0;
#X connect 13 0 9 0;
#X connect 13 1 4 0;
#X connect 13 2 7 0;
#X connect 14 0 6 0;
#X connect 14 1 8 0;
#X connect 14 2 15 0;
#X restore 850 259 pd outlet-message;
#N canvas 728 569 200 197 in 0;
#X obj 20 20 inlet;
#X obj 21 121 route window transposition;
#X obj 21 148 s \$0-window;
#X obj 97 168 s \$0-transpor;
#N canvas 698 546 200 251 route 0;
#X obj 20 20 inlet;
#X obj 30 60 route save recall;
#X obj 30 85 route float;
#X obj 97 111 route float;
#X obj 30 136 s \$0-save;
#X obj 30 108 i;
#X obj 98 133 i;
#X obj 98 161 s \$0-recall;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 2 0 5 0;
#X connect 3 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X restore 51 63 pd route save-recall;
#N canvas 362 125 450 479 recall 0;
#X obj 49 145 outlet;
#N canvas 3 54 450 600 listsplit 0;
#X obj 158 23 inlet;
#X obj 220 87 list length;
#X obj 220 113 until;
#X obj 182 150 f;
#X obj 278 150 + 1;
#X msg 265 111 0;
#X obj 182 226 list store;
#X msg 182 202 get \$1 1;
#X obj 154 367 list split;
#X obj 222 342 f;
#X obj 154 334 list;
#X obj 98 124 list;
#X obj 182 389 list split 1;
#X obj 154 274 t bang bang bang;
#X obj 182 179 t f f;
#X obj 158 48 t l l l b;
#X obj 154 473 outlet;
#X obj 154 440 list trim;
#X obj 163 248 sel |;
#X text 275 197 hacky split list at "|";
#X connect 0 0 15 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 14 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 18 0;
#X connect 7 0 6 0;
#X connect 8 0 17 0;
#X connect 8 1 12 0;
#X connect 9 0 8 1;
#X connect 10 0 8 0;
#X connect 11 0 15 0;
#X connect 12 1 11 0;
#X connect 13 0 10 0;
#X connect 13 1 9 0;
#X connect 13 2 2 1;
#X connect 14 0 7 0;
#X connect 14 1 9 1;
#X connect 15 0 1 0;
#X connect 15 1 10 1;
#X connect 15 2 6 1;
#X connect 15 3 5 0;
#X connect 17 0 16 0;
#X connect 18 0 13 0;
#X restore 49 117 pd listsplit;
#X obj 49 24 r \$0-recall;
#X obj 49 54 pipe 1;
#X obj 221 409 text fromlist \$0-savestates;
#X obj 49 77 text get \$0-savestates;
#X msg 253 246 21;
#X obj 253 269 until;
#X obj 253 292 f;
#X obj 300 295 + 1;
#X obj 253 315 t b f;
#X obj 253 367 text set \$0-savestates;
#X obj 221 114 text tolist \$0-savestates;
#X msg 253 342 list empty_slot;
#X obj 221 160 t a b;
#X obj 151 166 loadbang;
#X obj 221 137 savestate;
#X obj 221 33 text define \$0-savestates;
#X obj 151 189 del 0;
#X msg 298 199 0;
#X obj 253 220 spigot 1;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 13 0;
#X connect 10 1 11 1;
#X connect 12 0 16 0;
#X connect 13 0 11 0;
#X connect 14 0 4 0;
#X connect 14 1 19 0;
#X connect 15 0 18 0;
#X connect 16 0 14 0;
#X connect 16 1 12 0;
#X connect 18 0 20 0;
#X connect 19 0 20 1;
#X connect 20 0 6 0;
#X restore 117 88 pd recall;
#X connect 0 0 1 0;
#X connect 0 0 4 0;
#X connect 1 0 2 0;
#X connect 1 1 3 0;
#X connect 5 0 1 0;
#X restore 847 116 pd in;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 5 0 6 0;
#X connect 6 0 3 1;
#X connect 6 0 20 1;
#X connect 7 0 12 0;
#X connect 9 0 15 0;
#X connect 10 0 9 0;
#X connect 11 0 7 0;
#X connect 12 0 10 0;
#X connect 12 0 14 0;
#X connect 13 0 11 0;
#X connect 15 0 7 0;
#X connect 16 0 6 1;
#X connect 18 0 20 0;
#X connect 19 0 18 0;
#X connect 20 0 21 0;
#X connect 23 0 26 0;
#X connect 25 0 24 0;
#X coords 0 -1 1 1 155 33 1 100 100;