PD-Audio-Video-Patches/13-liverecording.pd

#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;