forked from bauhauslib/blib
-
Notifications
You must be signed in to change notification settings - Fork 0
/
pitchshifter~.pd
executable file
·167 lines (167 loc) · 3.97 KB
/
pitchshifter~.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
#N canvas -951 286 480 392 10;
#X declare -lib iemlib;
#X obj 368 252 table \$0-source;
#N canvas -715 237 358 467 load 1;
#X obj 20 75 openpanel;
#X msg 20 114 read \$1;
#X obj 20 150 soundfile_info;
#X obj 20 184 unpack f s f;
#X obj 54 230 pack s f \$0;
#X msg 54 272 read -maxsize \$2 -resize \$1 \$3-source;
#X obj 54 319 soundfiler;
#X obj 54 370 s \$0-filesize;
#X obj 20 425 s \$0-samplerate;
#X obj 20 16 inlet bang;
#X obj 110 16 inlet open;
#X obj 220 16 declare -lib iemlib;
#X obj 110 48 list prepend symbol;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 8 0;
#X connect 3 1 4 0;
#X connect 3 2 4 1;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 9 0 0 0;
#X connect 10 0 12 0;
#X connect 12 0 1 0;
#X coords 0 0 1 1 46 70 0;
#X restore 264 42 pd load;
#N canvas 351 169 209 374 read_original 0;
#X obj 28 173 phasor~;
#X obj 28 85 swap 44100;
#X obj 28 18 r \$0-filesize;
#X obj 28 125 /;
#X obj 85 48 r \$0-samplerate;
#X obj 28 283 *~;
#X obj 43 246 r \$0-filesize;
#X obj 27 345 outlet~;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 1 1 3 1;
#X connect 2 0 1 0;
#X connect 3 0 0 0;
#X connect 4 0 1 1;
#X connect 5 0 7 0;
#X connect 6 0 5 1;
#X restore 22 -105 pd read_original;
#X obj 93 95 phasor~;
#N canvas 454 416 368 439 hanning 0;
#X obj 134 130 r \$0-samplerate;
#X obj 26 107 t b b b;
#X msg 45 236 0;
#X obj 65 295 osc~;
#X obj 65 325 *~ -0.5;
#X obj 65 355 +~ 0.5;
#X obj 26 407 tabwrite~ \$0-hanning;
#X msg 218 318 \; \$2-hanning resize \$1;
#X obj 218 283 pack f \$0;
#X obj 218 246 r \$0-windowsize;
#X obj 65 147 f 44100;
#X obj 246 141 r \$0-windowsize;
#X obj 26 23 r \$0-samplerate;
#X msg 26 66 bang;
#X obj 126 23 r \$0-windowsize;
#X obj 246 179 int;
#X obj 93 242 s \$0-phasor_window;
#X obj 126 49 del 1;
#X obj 65 196 / 1024;
#X obj 218 407 table \$0-hanning 1024;
#X connect 0 0 10 1;
#X connect 1 0 6 0;
#X connect 1 1 2 0;
#X connect 1 2 10 0;
#X connect 2 0 3 1;
#X connect 3 0 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 0;
#X connect 8 0 7 0;
#X connect 9 0 8 0;
#X connect 10 0 18 0;
#X connect 11 0 15 0;
#X connect 12 0 13 0;
#X connect 13 0 1 0;
#X connect 14 0 17 0;
#X connect 15 0 18 1;
#X connect 17 0 13 0;
#X connect 18 0 3 0;
#X connect 18 0 16 0;
#X restore 397 232 pd hanning;
#N canvas -757 260 309 452 read_free 1;
#X obj 23 82 samphold~;
#X obj 7 204 +~;
#X obj 7 244 tabread4~ \$0-source;
#X obj 7 344 *~;
#X obj 22 31 inlet~;
#X obj 130 31 inlet~;
#X obj 128 244 tabread~ \$0-hanning;
#X obj 7 414 outlet~;
#X obj 204 55 r \$0-windowsize;
#X obj 204 85 int;
#X obj 129 102 *~ 1024;
#X connect 0 0 1 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 0 0;
#X connect 5 0 0 1;
#X connect 5 0 10 0;
#X connect 6 0 3 1;
#X connect 8 0 9 0;
#X connect 9 0 10 1;
#X connect 10 0 6 0;
#X connect 10 0 1 0;
#X restore 23 165 pd read_free;
#N canvas -670 273 313 437 read_free 1;
#X obj 23 83 samphold~;
#X obj 9 204 +~;
#X obj 9 244 tabread4~ \$0-source;
#X obj 9 344 *~;
#X obj 22 31 inlet~;
#X obj 130 31 inlet~;
#X obj 130 244 tabread~ \$0-hanning;
#X obj 9 414 outlet~;
#X obj 204 55 r \$0-windowsize;
#X obj 204 85 int;
#X obj 129 102 *~ 1024;
#X connect 0 0 1 1;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 4 0 0 0;
#X connect 5 0 0 1;
#X connect 5 0 10 0;
#X connect 6 0 3 1;
#X connect 8 0 9 0;
#X connect 9 0 10 1;
#X connect 10 0 6 0;
#X connect 10 0 1 0;
#X restore 43 195 pd read_free;
#X obj 111 154 wrap~;
#X obj 93 -79 r \$0-phasor_window;
#X obj 118 23 t b f;
#X obj 111 124 +~ 0.5;
#X obj 217 -105 inlet;
#X obj 358 42 s \$0-windowsize;
#X obj 24 252 outlet~;
#X obj 217 6 route float bang open windowsize;
#X obj 93 61 * 1;
#X connect 2 0 5 0;
#X connect 2 0 6 0;
#X connect 3 0 5 1;
#X connect 3 0 10 0;
#X connect 5 0 13 0;
#X connect 6 0 13 0;
#X connect 7 0 6 1;
#X connect 8 0 15 0;
#X connect 9 0 15 0;
#X connect 9 1 15 1;
#X connect 10 0 7 0;
#X connect 11 0 14 0;
#X connect 14 0 9 0;
#X connect 14 1 1 0;
#X connect 14 2 1 1;
#X connect 14 3 12 0;
#X connect 15 0 3 0;