-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy path12a-av-envelope.pd
314 lines (314 loc) · 8.06 KB
/
12a-av-envelope.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
#N canvas 651 56 570 726 10;
#X declare -lib Gem;
#X declare -lib iemlib;
#X declare -lib Gem;
#X obj 14 12 cnv 15 480 60 empty empty A/V_playback_with_enveloping
20 30 0 20 -262130 -99865 0;
#X obj 40 645 dac~;
#X obj 40 561 vline~;
#X msg 267 182 create \, 1;
#X msg 279 204 0 \, destroy;
#X obj 40 590 tabread4~ \$0-soundfile;
#X obj 314 378 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 40 155 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 314 566 pd loading_files;
#X obj 43 305 hsl 195 15 0 1 0 0 \$0-in \$0-in-init empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj 43 320 hsl 195 15 0 1 0 0 \$0-out \$0-out-init empty -2 -8 0
10 -262144 -1 -1 19400 1;
#X obj 43 295 hsl 195 10 0 1 0 0 empty \$0-playhead empty -2 -8 0 10
-228856 -1 -1 0 1;
#X text 19 305 in;
#X text 16 320 out;
#X text -16 291 playhead;
#N canvas 848 516 574 406 video_processing 0;
#X obj 142 16 inlet~;
#X obj 274 15 inlet;
#X obj -17 296 pix_texture;
#X obj -17 42 gemhead;
#X obj 274 151 unpack f f f;
#X obj 142 183 *;
#X obj 142 93 snapshot~;
#X obj -17 64 t a b;
#X obj 142 139 /;
#X obj 142 224 int;
#X obj 142 246 change;
#X obj -17 367 rectangle 3 2;
#X obj 351 185 /;
#X obj 351 262 *;
#X obj 351 206 t b f;
#X msg 351 228 3;
#X obj -17 271 pix_buffer_read \$0-speicher;
#X obj 157 116 r \$0-samples;
#X obj 157 161 r \$0-frames;
#X obj 274 185 s \$0-frames;
#X obj 53 206 s \$0-playhead;
#X obj 53 185 speedlim 100;
#X obj -17 322 alpha;
#X obj -17 345 colorRGB;
#X obj 235 15 inlet;
#X obj 235 245 line;
#X obj 142 204 + 0.5;
#X connect 0 0 6 0;
#X connect 1 0 4 0;
#X connect 2 0 22 0;
#X connect 3 0 7 0;
#X connect 4 0 19 0;
#X connect 4 1 12 0;
#X connect 4 2 12 1;
#X connect 5 0 26 0;
#X connect 6 0 8 0;
#X connect 7 0 16 0;
#X connect 7 1 6 0;
#X connect 8 0 5 0;
#X connect 8 0 21 0;
#X connect 9 0 10 0;
#X connect 10 0 16 1;
#X connect 12 0 14 0;
#X connect 13 0 11 1;
#X connect 14 0 15 0;
#X connect 14 1 13 1;
#X connect 15 0 13 0;
#X connect 15 0 11 2;
#X connect 16 0 2 0;
#X connect 17 0 8 1;
#X connect 18 0 5 1;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 23 0 11 0;
#X connect 24 0 25 0;
#X connect 25 0 23 4;
#X connect 26 0 9 0;
#X restore 203 591 pd video_processing;
#X obj 43 335 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 1 335 speed;
#N canvas 0 56 450 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 299 30 declare -lib Gem;
#X obj 298 10 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 415 148 pd init;
#N canvas 84 72 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 40 529 pd inpoint;
#N canvas 1463 76 450 300 outpoint 0;
#X obj 38 -25 inlet;
#X obj 38 206 outlet;
#X obj 38 181 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 40 486 pd outpoint;
#N canvas 86 115 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 67 417 pd speed;
#X obj 40 375 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 40 462 metro;
#X text 57 372 play looping;
#X text 185 346 |;
#X text 152 356 normal speed;
#X msg 288 245 frame \$1;
#X floatatom 288 227 5 0 0 0 - - -, f 5;
#X obj 267 266 gemwin 30;
#N canvas 990 327 450 300 envelope 0;
#X obj 32 32 inlet~;
#X obj 35 264 outlet~;
#X obj 35 237 *~;
#X obj 94 38 inlet;
#X obj 191 109 delay;
#X obj 221 42 inlet;
#X obj 217 85 - 20;
#X text 217 20 zeit (abspieldauer);
#X text 88 17 start (bang);
#X obj 52 180 pack f f;
#X msg 191 134 0;
#X msg 98 94 1;
#X obj 295 125 r \$0-env;
#X obj 52 206 vline~;
#X obj 95 61 t b b b;
#X obj 230 267 outlet;
#X connect 0 0 2 0;
#X connect 2 0 1 0;
#X connect 3 0 14 0;
#X connect 4 0 10 0;
#X connect 5 0 6 0;
#X connect 6 0 4 1;
#X connect 9 0 13 0;
#X connect 9 0 15 0;
#X connect 10 0 9 0;
#X connect 11 0 9 0;
#X connect 12 0 6 1;
#X connect 12 0 9 1;
#X connect 13 0 2 1;
#X connect 14 0 11 0;
#X connect 14 1 4 0;
#X connect 14 2 6 0;
#X restore 40 616 pd envelope;
#X obj 67 439 t f f f;
#X obj 393 268 hsl 50 15 0 150 0 0 \$0-env \$0-env-init empty -2 -8
0 10 -262144 -1 -1 0 1;
#X obj 244 180 cnv 15 20 20 empty empty 1 6 10 0 14 -261234 -66577
0;
#X text 342 183 create Gem window;
#X text 331 377 load files;
#X obj 291 376 cnv 15 20 20 empty empty 2 6 10 0 14 -261234 -66577
0;
#X obj 247 317 cnv 15 20 20 empty empty 3 6 10 0 14 -261234 -66577
0;
#X obj 16 373 cnv 15 20 20 empty empty 4 6 10 0 14 -261234 -66577 0
;
#X text 388 250 envelope;
#X text 270 319 choose in \, out \, speed and envelope size;
#X floatatom 390 288 5 0 0 0 - - -, f 5;
#X text 18 78 to avoid clicks at the loop point we can ad small fade-ins
and fade-outs. Notice the effect when setting the envelope to zero
and then slowly increasing it while the video loops.;
#X text 39 668 Max Neupert - Bauhaus-Universität Weimar 2010-2012
;
#X connect 2 0 5 0;
#X connect 2 0 15 0;
#X connect 3 0 29 0;
#X connect 4 0 29 0;
#X connect 5 0 30 0;
#X connect 6 0 8 0;
#X connect 8 0 15 2;
#X connect 19 0 2 0;
#X connect 20 0 19 0;
#X connect 21 0 31 0;
#X connect 22 0 23 0;
#X connect 23 0 20 0;
#X connect 23 0 30 1;
#X connect 27 0 29 0;
#X connect 28 0 27 0;
#X connect 30 0 1 1;
#X connect 30 0 1 0;
#X connect 30 1 15 1;
#X connect 31 0 23 1;
#X connect 31 1 20 1;
#X connect 31 2 30 2;
#X connect 32 0 41 0;