-
Notifications
You must be signed in to change notification settings - Fork 6
/
13-liverecording.pd
362 lines (362 loc) · 9.07 KB
/
13-liverecording.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
#N canvas 510 105 654 703 10;
#X declare -lib Gem;
#X obj 14 12 cnv 15 480 60 empty empty recording_live 20 30 0 20 -262130
-99865 0;
#X obj 280 595 dac~;
#X obj 280 514 vline~;
#X msg 272 92 create \, 1;
#X msg 284 114 0 \, destroy;
#X obj 43 241 hsl 195 15 0 1 0 0 \$0-scratch empty empty -2 -8 0 10
-262144 -1 -1 0 1;
#X obj 280 565 tabread4~ \$0-soundfile;
#X obj 271 201 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 180288 float 2;
#X coords 0 1 180288 -1 200 140 1;
#X restore 40 91 graph;
#X obj 43 256 hsl 195 15 0 1 0 0 \$0-in \$0-in-init empty -2 -8 0 10
-262144 -1 -1 7400 1;
#X obj 43 271 hsl 195 15 0 1 0 0 \$0-out \$0-out-init empty -2 -8 0
10 -262144 -1 -1 11100 1;
#X obj 43 231 hsl 195 10 0 1 0 0 empty \$0-playhead empty -2 -8 0 10
-228856 -1 -1 8272 1;
#N canvas 362 673 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 floatatom 88 137 5 0 0 0 - - -, f 5;
#X obj 68 84 * 600;
#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 7 0 4 1;
#X restore 193 485 pd scratch;
#X text 19 256 in;
#X text 16 271 out;
#X text -8 242 scratch;
#X text -16 227 playhead;
#N canvas 1169 96 559 566 video_processing 0;
#X obj 222 33 inlet~;
#X obj 36 477 pix_texture;
#X obj 36 28 gemhead;
#X obj 222 203 *;
#X obj 222 71 snapshot~;
#X obj 36 50 t a b;
#X obj 222 117 /;
#X obj 222 248 int;
#X obj 222 270 change;
#X obj 36 503 rectangle 3 2;
#X text 171 414 this takes care of the;
#X text 195 428 right aspect ratio;
#X text 232 442 of the video;
#X obj 120 389 cnv 15 45 110 empty empty empty 20 12 0 14 -261234 -66577
0;
#X obj 123 395 /;
#X obj 137 473 *;
#X obj 123 416 t b f;
#X msg 123 438 3;
#X obj 36 297 pix_buffer_read \$0-speicher;
#X obj 240 95 r \$0-samples;
#X obj 240 182 r \$0-frames;
#X obj 239 161 s \$0-playhead;
#X obj 222 226 + 0.5;
#X obj 36 319 pix_info;
#X obj 239 140 speedlimit 100;
#X connect 0 0 4 0;
#X connect 1 0 9 0;
#X connect 2 0 5 0;
#X connect 3 0 22 0;
#X connect 4 0 6 0;
#X connect 5 0 18 0;
#X connect 5 1 4 0;
#X connect 6 0 3 0;
#X connect 6 0 24 0;
#X connect 7 0 8 0;
#X connect 8 0 18 1;
#X connect 14 0 16 0;
#X connect 15 0 9 1;
#X connect 16 0 17 0;
#X connect 16 1 15 1;
#X connect 17 0 15 0;
#X connect 17 0 9 2;
#X connect 18 0 23 0;
#X connect 19 0 6 1;
#X connect 20 0 3 1;
#X connect 22 0 7 0;
#X connect 23 0 1 0;
#X connect 23 1 14 0;
#X connect 23 2 14 1;
#X connect 24 0 21 0;
#X restore 289 542 pd video_processing;
#X obj 43 286 hsl 195 15 1 0.0001 0 0 \$0-speed \$0-speed-init empty
-2 -8 0 10 -262144 -1 -1 14900 1;
#X text 1 286 speed;
#N canvas 0 65 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 299 50 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 503 14 pd init;
#N canvas 0 68 333 260 inpoint 0;
#X obj 26 52 inlet;
#X obj 26 170 outlet;
#X obj 26 78 t l b;
#X obj 76 78 r \$0-in;
#X obj 76 120 *;
#X obj 58 140 f;
#X obj 94 99 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 280 482 pd inpoint;
#N canvas 0 62 450 300 outpoint 0;
#X obj 40 23 inlet;
#X obj 40 222 outlet;
#X obj 40 197 pack f f;
#X obj 84 67 *;
#X obj 99 46 r \$0-samples;
#X obj 84 24 r \$0-out;
#X obj 40 171 f;
#X obj 67 171 f;
#X obj 40 49 t b b;
#X obj 238 25 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 280 460 pd outpoint;
#N canvas 0 65 450 319 speed 0;
#X obj 28 287 outlet;
#X obj 28 8 r \$0-out;
#X obj 54 29 r \$0-in;
#X obj 69 50 r \$0-samples;
#X obj 54 77 *;
#X obj 28 125 -;
#X obj 54 98 t b f;
#X obj 28 148 / 48;
#X obj 28 77 *;
#X obj 28 264 abs;
#X obj 28 241 *;
#X obj 59 172 r \$0-speed;
#X obj 59 216 t b f;
#X text 61 149 Samplingrate of the audio file;
#X obj 59 195 * 4;
#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 14 0 12 0;
#X restore 316 392 pd speed;
#X obj 316 414 t f f;
#X obj 289 349 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
1;
#X obj 289 437 metro;
#X text 306 346 play looping;
#X text 306 324 play once;
#X obj 280 326 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 185 297 |;
#X text 152 307 normal speed;
#X obj 248 91 cnv 15 20 20 empty empty 1 6 10 0 14 -261234 -66577 0
;
#X text 336 92 create Gem window;
#X obj 248 199 cnv 15 20 20 empty empty 2 6 10 0 14 -261234 -66577
0;
#X text 271 269 choose in \, out and speed;
#X obj 249 267 cnv 15 20 20 empty empty 3 6 10 0 14 -261234 -66577
0;
#X obj 251 334 cnv 15 20 20 empty empty 4 6 10 0 14 -261234 -66577
0;
#X text 289 199 record;
#X obj 272 176 gemwin 20;
#X msg 293 155 frame \$1;
#X floatatom 293 137 5 1 60 0 - - -, f 5;
#X text 334 133 while recording the framrate;
#X text 361 144 must be consistent;
#X obj 334 201 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 352 201 stop;
#X obj 271 241 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X text 289 241 end;
#X floatatom 334 240 5 0 0 0 - - -, f 5;
#N canvas 73 226 656 786 recorder 0;
#X obj 19 81 inlet;
#X obj 257 139 outlet;
#X obj 118 345 t f f;
#X obj 118 553 s \$0-samples;
#X obj 145 369 s \$0-miliseconds;
#X text 234 18 Storage for the video;
#X obj 16 21 pix_buffer \$0-speicher 800;
#X text 238 31 maximum 800 frames in this case;
#X obj 19 738 tabwrite~ \$0-soundfile;
#X obj 316 540 pix_buffer_write \$0-speicher;
#X obj 316 198 gemhead;
#X obj 316 432 t a b;
#X obj 541 465 + 1;
#X obj 19 182 t b b;
#X obj 316 255 pix_video;
#X msg 329 222 dialog;
#X obj 257 162 inlet;
#X msg 285 661 stop;
#X obj 118 253 timer;
#X obj 246 101 r \$0-stop;
#X obj 550 519 > 798;
#X obj 550 540 sel 1;
#X obj 550 564 s \$0-stop;
#X obj 509 490 t f f;
#X obj 316 406 spigot 0;
#X obj 246 194 t b b;
#X obj 19 247 t b b;
#X msg 340 359 1;
#X obj 246 265 t b b;
#X msg 392 330 0;
#X obj 42 694 adc~;
#X obj 509 465 f;
#X msg 527 435 0;
#X obj 340 337 t b b;
#X obj 424 512 s \$0-frames;
#X obj 392 304 t b b;
#X obj 424 491 f;
#X obj 118 468 * 48;
#X obj 139 419 samplerate~;
#X obj 118 390 t f b;
#X floatatom 152 471 5 0 0 0 - - -, f 5;
#X obj 139 442 / 1000;
#X obj 541 589 outlet;
#X obj 45 655 s \$0-soundfile;
#X msg 198 634 resize \$1;
#X msg 45 581 resize 1.92e+06;
#X obj 19 544 t b b;
#X obj 237 598 f;
#X obj 246 550 t b b b;
#X msg 124 620 normalize;
#X msg 384 222 device 1;
#X connect 0 0 13 0;
#X connect 2 0 39 0;
#X connect 2 1 4 0;
#X connect 10 0 14 0;
#X connect 11 0 9 0;
#X connect 11 1 31 0;
#X connect 12 0 31 1;
#X connect 13 0 26 0;
#X connect 13 1 18 0;
#X connect 14 0 24 0;
#X connect 15 0 14 0;
#X connect 16 0 25 0;
#X connect 17 0 8 0;
#X connect 18 0 2 0;
#X connect 19 0 1 0;
#X connect 19 0 25 0;
#X connect 20 0 21 0;
#X connect 21 0 22 0;
#X connect 23 0 9 1;
#X connect 23 1 20 0;
#X connect 23 1 42 0;
#X connect 24 0 11 0;
#X connect 25 0 28 0;
#X connect 25 1 18 1;
#X connect 26 0 46 0;
#X connect 26 1 33 0;
#X connect 27 0 24 1;
#X connect 28 0 48 0;
#X connect 28 1 35 0;
#X connect 29 0 24 1;
#X connect 30 0 8 0;
#X connect 31 0 12 0;
#X connect 31 0 23 0;
#X connect 31 0 36 1;
#X connect 32 0 31 1;
#X connect 33 0 27 0;
#X connect 33 1 32 0;
#X connect 35 0 29 0;
#X connect 35 1 36 0;
#X connect 36 0 34 0;
#X connect 37 0 3 0;
#X connect 37 0 47 1;
#X connect 38 0 41 0;
#X connect 39 0 37 0;
#X connect 39 1 38 0;
#X connect 41 0 37 1;
#X connect 41 0 40 0;
#X connect 44 0 43 0;
#X connect 45 0 43 0;
#X connect 46 0 8 0;
#X connect 46 1 45 0;
#X connect 47 0 44 0;
#X connect 48 0 49 0;
#X connect 48 1 47 0;
#X connect 48 2 17 0;
#X connect 49 0 43 0;
#X connect 50 0 14 0;
#X restore 271 220 pd recorder;
#X text 370 240 # frames;
#X text 39 635 Max Neupert \, GMU - Bauhaus-Universität Weimar 2012
;
#X connect 2 0 6 0;
#X connect 2 0 17 0;
#X connect 3 0 39 0;
#X connect 4 0 39 0;
#X connect 6 0 1 0;
#X connect 6 0 1 1;
#X connect 7 0 49 0;
#X connect 12 0 2 0;
#X connect 21 0 2 0;
#X connect 22 0 21 0;
#X connect 23 0 24 0;
#X connect 24 0 26 1;
#X connect 24 1 22 1;
#X connect 25 0 26 0;
#X connect 26 0 22 0;
#X connect 29 0 22 0;
#X connect 40 0 39 0;
#X connect 41 0 40 0;
#X connect 44 0 49 1;
#X connect 49 0 46 0;
#X connect 49 1 48 0;