-
Notifications
You must be signed in to change notification settings - Fork 6
/
11-av-speed.pd
291 lines (291 loc) · 7.53 KB
/
11-av-speed.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
#N canvas 651 59 561 679 10;
#X declare -lib Gem;
#X declare -lib iemlib;
#X declare -lib Gem;
#X obj 44 13 cnv 15 480 60 empty empty A/V_Combination_using_a_video_buffer
20 30 0 20 -262130 -99865 0;
#X obj 70 588 dac~;
#X obj 70 529 vline~;
#X msg 309 120 create \, 1;
#X msg 321 142 0 \, destroy;
#X obj 73 242 hsl 195 15 0 1 0 0 \$0-scratch empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj 70 558 tabread4~ \$0-soundfile;
#X obj 413 336 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-soundfile 214599 float 2;
#X coords 0 1 214599 -1 200 140 1;
#X restore 70 92 graph;
#N canvas 525 115 431 529 loading_files 0;
#X obj 150 67 inlet;
#X obj 177 476 outlet;
#X obj 19 394 soundfiler;
#X obj 19 457 / 48;
#X obj 19 415 t f f;
#X msg 177 424 open \$1;
#X obj 46 438 s \$0-samples;
#X obj 19 477 s \$0-miliseconds;
#X obj 177 447 pix_buffer_filmopen \$0-speicher;
#X obj 19 308 t a b;
#X obj 46 328 symbol \$0-soundfile;
#X obj 19 351 pack s s;
#X msg 19 373 read -resize \$1 \$2;
#X obj 150 91 openpanel;
#X text 197 214 loading the video into the buffer;
#X obj 150 114 splitfilename .;
#X obj 150 140 t s s;
#X obj 150 166 makefilename %s.aiff;
#X obj 177 189 makefilename %s.mov;
#X text 181 13 Storage for the video;
#X obj 16 21 pix_buffer \$0-speicher 800;
#X text 185 26 maximum 800 frames in this case;
#X obj 267 113 declare -lib iemlib;
#X connect 0 0 13 0;
#X connect 2 0 4 0;
#X connect 3 0 7 0;
#X connect 4 0 3 0;
#X connect 4 1 6 0;
#X connect 5 0 8 0;
#X connect 8 0 1 0;
#X connect 9 0 11 0;
#X connect 9 1 10 0;
#X connect 10 0 11 1;
#X connect 11 0 12 0;
#X connect 12 0 2 0;
#X connect 13 0 15 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 16 1 18 0;
#X connect 17 0 9 0;
#X connect 18 0 5 0;
#X restore 413 357 pd loading_files;
#X obj 73 257 hsl 195 15 0 1 0 0 \$0-in \$0-in-init empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj 73 272 hsl 195 15 0 1 0 0 \$0-out \$0-out-init empty -2 -8 0
10 -262144 -1 -1 19400 1;
#X obj 73 232 hsl 195 10 0 1 0 0 empty \$0-playhead empty -2 -8 0 10
-228856 -1 -1 0 1;
#N canvas 374 553 146 180 scratch 0;
#X obj 23 134 outlet;
#X obj 23 59 *;
#X obj 38 37 r \$0-samples;
#X obj 23 16 r \$0-scratch;
#X obj 23 106 pack f f;
#X obj 68 60 r \$0-speed;
#X obj 68 84 * 900;
#X floatatom 88 137 5 0 0 0 - - -, f 5;
#X connect 1 0 4 0;
#X connect 2 0 1 1;
#X connect 3 0 1 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 4 1;
#X restore -7 496 pd scratch;
#X text 49 257 in;
#X text 46 272 out;
#X text 22 243 scratch;
#X text 14 228 playhead;
#N canvas 36 128 580 428 video_processing 0;
#X obj 175 33 inlet~;
#X obj 270 32 inlet;
#X obj 16 322 pix_texture;
#X obj 16 65 gemhead;
#X obj 270 149 unpack f f f;
#X obj 175 203 *;
#X obj 175 113 snapshot~;
#X obj 16 87 t a b;
#X obj 175 159 /;
#X obj 175 247 int;
#X obj 175 269 change;
#X obj 16 370 rectangle 3 2;
#X text 388 203 this takes care of the;
#X text 412 217 right aspect ratio;
#X text 449 231 of the video;
#X obj 343 177 cnv 15 45 110 empty empty empty 20 12 0 14 -261234 -66577
0;
#X obj 346 183 /;
#X obj 346 260 *;
#X obj 346 204 t b f;
#X msg 346 226 3;
#X obj 16 297 pix_buffer_read \$0-speicher;
#X obj 190 136 r \$0-samples;
#X obj 190 181 r \$0-frames;
#X obj 270 183 s \$0-frames;
#X obj 87 223 s \$0-playhead;
#X obj 87 202 speedlim 100;
#X obj 175 226 + 0.5;
#X connect 0 0 6 0;
#X connect 1 0 4 0;
#X connect 2 0 11 0;
#X connect 3 0 7 0;
#X connect 4 0 23 0;
#X connect 4 1 16 0;
#X connect 4 2 16 1;
#X connect 5 0 26 0;
#X connect 6 0 8 0;
#X connect 7 0 20 0;
#X connect 7 1 6 0;
#X connect 8 0 5 0;
#X connect 8 0 25 0;
#X connect 9 0 10 0;
#X connect 10 0 20 1;
#X connect 16 0 18 0;
#X connect 17 0 11 1;
#X connect 18 0 19 0;
#X connect 18 1 17 1;
#X connect 19 0 17 0;
#X connect 19 0 11 2;
#X connect 20 0 2 0;
#X connect 21 0 8 1;
#X connect 22 0 5 1;
#X connect 25 0 24 0;
#X connect 26 0 9 0;
#X restore 302 558 pd video_processing;
#X obj 73 287 hsl 195 15 1 0.0001 0 0 \$0-speed \$0-speed-init empty
-2 -8 0 10 -262144 -1 -1 14551 1;
#X text 31 287 speed;
#N canvas 163 563 475 300 init 0;
#X obj 14 42 loadbang;
#X msg 44 73 \; pd dsp 1;
#X obj 37 141 s \$0-in-init;
#X msg 37 121 0;
#X msg 25 172 1;
#X obj 25 192 s \$0-out-init;
#X msg 14 226 0.25;
#X obj 14 247 s \$0-speed-init;
#X text 15 12 this subpatch initializes the patch;
#X text 118 82 switches audio comptation on;
#X text 116 123 sets the in-point to the beginning of the sample;
#X text 115 175 sets the outpoint to the end of the sample;
#X text 114 229 sets speed to normal speed;
#X obj 296 54 declare -lib Gem;
#X obj 298 31 iemlib/iemlib2;
#X connect 0 0 1 0;
#X connect 0 0 3 0;
#X connect 0 0 4 0;
#X connect 0 0 6 0;
#X connect 3 0 2 0;
#X connect 4 0 5 0;
#X connect 6 0 7 0;
#X restore 445 85 pd init;
#N canvas 0 50 450 300 inpoint 0;
#X obj 24 -59 inlet;
#X obj 24 59 outlet;
#X obj 24 -33 t l b;
#X obj 66 -33 r \$0-in;
#X obj 66 9 *;
#X obj 51 30 f;
#X obj 81 -12 r \$0-samples;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 2 1 5 0;
#X connect 3 0 4 0;
#X connect 4 0 5 1;
#X connect 5 0 1 0;
#X connect 6 0 4 1;
#X restore 70 497 pd inpoint;
#N canvas 0 50 450 300 outpoint 0;
#X obj 38 -25 inlet;
#X obj 38 174 outlet;
#X obj 38 149 pack f f;
#X obj 82 19 *;
#X obj 97 -2 r \$0-samples;
#X obj 82 -24 r \$0-out;
#X obj 38 123 f;
#X obj 65 123 f;
#X obj 38 1 t b b;
#X obj 236 -23 inlet;
#X connect 0 0 8 0;
#X connect 2 0 1 0;
#X connect 3 0 6 1;
#X connect 4 0 3 1;
#X connect 5 0 3 0;
#X connect 6 0 2 0;
#X connect 7 0 2 1;
#X connect 8 0 6 0;
#X connect 8 1 7 0;
#X connect 9 0 7 1;
#X restore 70 475 pd outpoint;
#N canvas 0 50 450 300 speed 0;
#X obj 21 194 outlet;
#X obj 21 -85 r \$0-out;
#X obj 47 -64 r \$0-in;
#X obj 62 -43 r \$0-samples;
#X obj 47 -16 *;
#X obj 21 32 -;
#X obj 47 5 t b f;
#X obj 21 55 / 48;
#X obj 21 -16 *;
#X obj 21 171 abs;
#X obj 21 148 *;
#X obj 52 79 r \$0-speed;
#X obj 52 123 t b f;
#X text 54 56 Samplingrate of the audio file;
#X obj 52 102 * 4;
#X floatatom 88 153 5 0 0 0 - - -, f 5;
#X connect 1 0 8 0;
#X connect 2 0 4 0;
#X connect 3 0 4 1;
#X connect 3 0 8 1;
#X connect 4 0 6 0;
#X connect 5 0 7 0;
#X connect 6 0 5 0;
#X connect 6 1 5 1;
#X connect 7 0 10 0;
#X connect 8 0 5 0;
#X connect 9 0 0 0;
#X connect 10 0 9 0;
#X connect 11 0 14 0;
#X connect 12 0 10 0;
#X connect 12 1 10 1;
#X connect 12 1 15 0;
#X connect 14 0 12 0;
#X restore 106 407 pd speed;
#X obj 106 429 t f f;
#X obj 79 364 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 79 452 metro;
#X text 96 361 play looping;
#X text 96 339 play once;
#X obj 70 341 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 215 298 |;
#X text 182 308 normal speed;
#X msg 330 183 frame \$1;
#X floatatom 330 165 5 0 0 0 - - -, f 5;
#X obj 309 204 gemwin 30;
#X obj 285 119 cnv 15 20 20 empty empty 1 6 10 0 14 -261234 -66577
0;
#X text 373 120 create Gem window;
#X text 436 333 load files;
#X obj 390 332 cnv 15 20 20 empty empty 2 6 10 0 14 -261234 -66577
0;
#X text 298 268 choose in \, out and speed;
#X obj 276 266 cnv 15 20 20 empty empty 3 6 10 0 14 -261234 -66577
0;
#X text 181 346 play or loop;
#X obj 41 349 cnv 15 20 20 empty empty 4 6 10 0 14 -261234 -66577 0
;
#X text 69 636 Max Neupert \, GMU - Bauhaus-Universität Weimar 2009
;
#X connect 2 0 6 0;
#X connect 2 0 18 0;
#X connect 3 0 35 0;
#X connect 4 0 35 0;
#X connect 6 0 1 0;
#X connect 6 0 1 1;
#X connect 7 0 9 0;
#X connect 9 0 18 1;
#X connect 13 0 2 0;
#X connect 22 0 2 0;
#X connect 23 0 22 0;
#X connect 24 0 25 0;
#X connect 25 0 27 1;
#X connect 25 1 23 1;
#X connect 26 0 27 0;
#X connect 27 0 23 0;
#X connect 30 0 23 0;
#X connect 33 0 35 0;
#X connect 34 0 33 0;