-
Notifications
You must be signed in to change notification settings - Fork 9
/
pp.fft-stretch~-help.pd
219 lines (219 loc) · 6.38 KB
/
pp.fft-stretch~-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
#N struct 1232-template float x float y float c float s float th float
stretch array 1232-plus 1232-template-y array 1232-minus 1232-template-y
;
#N struct 1232-template-y float y;
#N struct 1233-template float x float y float c float s float th float
stretch array 1233-plus 1233-template-y array 1233-minus 1233-template-y
;
#N struct 1233-template-y float y;
#N canvas 154 122 860 311 10;
#X obj 397 248 pp.out~;
#A saved;
#X obj 2 2 cnv 15 380 300 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj 12 15 cnv 15 10 10 empty empty pp.fft-stretch~ 0 0 2 16 -233017
-262144 0;
#X obj 570 117 cnv 15 118 17 empty empty empty 20 12 0 14 -260097 -66577
0;
#N canvas 311 54 872 703 control-messages 0;
#X obj 67 694 outlet;
#X msg 126 123 play \$1;
#X msg 158 188 stop;
#X obj 126 103 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 194 443 position \$1;
#X floatatom 194 425 5 0 1e+21 0 - - -;
#X msg 168 227 loop \$1;
#X obj 168 209 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 70 2 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 70 22 openpanel;
#X msg 70 42 open \$1;
#X msg 99 83 record \$1;
#X obj 99 64 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
;
#X floatatom 194 468 5 0 100 0 - - -;
#X msg 193 486 position% \$1;
#X text 121 44 load a soundfile into the buffer;
#X text 167 84 record into the buffer;
#X text 179 123 play / pause;
#X text 194 188 stop playback & jump to position;
#X text 248 353 playback-speed in %;
#X text 275 442 position in ms;
#X text 277 487 position in %;
#X text 361 487 (this is helpful if you don't know the exact lenght
of your soundfile);
#X msg 188 353 speed \$1;
#X floatatom 188 334 5 0 0 0 - - -;
#X obj 144 143 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 144 163 freeze \$1;
#X text 209 164 freeze at current position;
#X obj 174 249 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 174 267 phaselock \$1;
#X msg 183 552 blocksize \$1;
#X msg 184 602 overlap \$1;
#X msg 184 577 2;
#X msg 213 578 4;
#X msg 244 578 8;
#X text 269 552 fft-blocksize;
#X floatatom 194 379 5 0 0 0 - - -;
#X msg 194 399 transposition \$1;
#X text 302 400 transposition in cents;
#N canvas 0 50 450 250 (subpatch) 0;
#X array source-stretch 998865 float 2;
#X coords 0 1 998865 -1 200 140 1 0 0;
#X restore 433 548 graph;
#N canvas 3 52 450 300 source 0;
#X obj 71 99 soundfiler;
#X obj 71 53 loadbang;
#X msg 71 76 read -resize ./Examples/audio/MusicBox.wav source-stretch
;
#X connect 1 0 2 0;
#X connect 2 0 0 0;
#X restore 433 693 pd source;
#X msg 181 638 set source-stretch;
#X obj 178 678 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 178 677 pd save&recall;
#X obj 181 290 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X msg 181 308 random-phase \$1;
#X text 282 306 randomize phases \, like paulstretch;
#X msg 183 526 1024;
#X msg 217 526 4096;
#X msg 253 527 8192;
#X msg 291 529 16384;
#X connect 1 0 0 0;
#X connect 2 0 0 0;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 4 0;
#X connect 6 0 0 0;
#X connect 7 0 6 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 0 0;
#X connect 11 0 0 0;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 0 0;
#X connect 23 0 0 0;
#X connect 24 0 23 0;
#X connect 25 0 26 0;
#X connect 26 0 0 0;
#X connect 28 0 29 0;
#X connect 29 0 0 0;
#X connect 30 0 0 0;
#X connect 31 0 0 0;
#X connect 32 0 31 0;
#X connect 33 0 31 0;
#X connect 34 0 31 0;
#X connect 36 0 37 0;
#X connect 37 0 0 0;
#X connect 41 0 0 0;
#X connect 43 0 0 0;
#X connect 44 0 45 0;
#X connect 45 0 0 0;
#X connect 47 0 30 0;
#X connect 48 0 30 0;
#X connect 49 0 30 0;
#X connect 50 0 30 0;
#X restore 570 117 pd control-messages;
#X obj 397 24 adc~;
#X obj 482 58 sig~;
#X floatatom 482 39 5 0 0 0 - - -;
#X text 518 40 playback-speed in %;
#X text 579 153 <-- click to open GUI;
#X text 10 97 Inlets:;
#X text 67 96 1:(~)record-in left;
#X text 67 109 2:(~)record-in right;
#X text 67 121 3:(~)playback-speed;
#X text 67 146 4:control-messages;
#X text 11 171 Outlets:;
#X text 67 171 1:(~)left out;
#X text 67 184 2:(~)right out;
#X text 67 196 3:message;
#X obj 7 280 cnv 15 81 17 empty empty empty 20 12 0 14 -260097 -66577
0;
#N canvas 596 106 504 105 references 0;
#X obj 2 1 cnv 15 500 100 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 3 2 cnv 15 498 98 empty empty empty 20 12 0 14 -233017 -66577
0;
#X text 21 41 help -> browser -> PureData/audio-examples/I07.phase.vocoder.pd
;
#X text 21 12 this abstraction uses the pd-implementation of the phase
vocoder;
#X restore 7 279 pd references;
#X obj 525 87 sig~;
#X floatatom 525 68 5 0 0 0 - - -;
#X text 561 69 transposition(cents);
#X text 67 133 3:(~)transposition;
#X text 10 29 pvoc time stretching;
#X text 11 61 Creation arguments: \$1: fft-blocksize \, default: 1024
;
#X text 131 73 \$2: overlap \, default: 4;
#N canvas 740 417 503 292 message-out 0;
#X obj 30 33 inlet;
#X msg 30 60 open symbol \, play 0 \, freeze 0 \, speed 100 \, transposition
0 \, position 0 \, position% 0 \, loop 0 \, phaselock 0 \, random-phase
0 \, blocksize 1024 \, overlap 4 \,;
#X connect 0 0 1 0;
#X restore 570 178 pd message-out;
#X obj 397 139 pp.fft-stretch~ 1024 4;
#A saved;
#X obj 737 3 cnv 15 120 30 empty empty empty 20 12 0 14 -260097 -66577
0;
#X obj 743 11 bng 15 250 50 0 \$0-example1 \$0-example1r empty 17 7
0 10 -262144 -1 -1;
#X text 762 9 open example-1;
#N canvas 102 154 450 300 examples 0;
#X obj 94 107 s pd;
#X obj 94 11 r \$0-example1;
#X msg 94 34 dir;
#X obj 94 57 pdcontrol;
#X msg 94 84 open 06-time-stretching.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 308 281 pd examples;
#X connect 4 0 29 4;
#X connect 5 0 29 0;
#X connect 5 1 29 1;
#X connect 6 0 29 2;
#X connect 7 0 6 0;
#X connect 21 0 29 3;
#X connect 22 0 21 0;
#X connect 29 0 0 0;
#X connect 29 1 0 1;
#X connect 29 2 28 0;