-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy path09b-pd-tilde_video.pd
84 lines (84 loc) · 2.17 KB
/
09b-pd-tilde_video.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
#N canvas 807 35 532 616 10;
#X declare -lib Gem;
#X declare -lib Gem;
#X obj 5 -3 cnv 15 480 60 empty empty pd~_VIDEO_subprocess 20 30 0
20 -262130 -99865 0;
#X msg 16 116 create \, 1;
#X msg 28 138 0 \, destroy;
#X obj 18 500 pix_texture;
#X obj 18 206 gemhead;
#X msg 280 307 open \$1;
#X obj 280 353 unpack f f f;
#X obj 177 383 *;
#X obj 177 429 int;
#X obj 177 451 change;
#X obj 18 548 rectangle 3 2;
#X text 15 62 Video;
#X text 210 82 Storage for the video;
#X text 106 134 Gem window;
#X text 285 292 loading the video into the buffer;
#X text 356 418 this takes care of the;
#X text 380 432 right aspect ratio;
#X text 415 447 of the video;
#X obj 313 407 cnv 15 45 90 empty empty empty 20 12 0 14 -261234 -66577
0;
#X obj 314 411 /;
#X obj 314 476 *;
#X obj 314 432 t b f;
#X msg 314 454 3;
#X floatatom 197 244 5 0 0 0 - - -;
#X obj 280 244 symbol;
#X obj 16 160 gemwin 50;
#X obj 177 208 receive frame;
#X obj 280 208 receive file;
#X obj 16 82 pix_buffer \$0-speicher 800;
#X obj 18 475 pix_buffer_read \$0-speicher;
#N canvas 0 22 450 300 init 0;
#X obj 7 26 loadbang;
#X msg 7 107 0;
#X obj 7 77 del 1000;
#X msg 7 140 \; pd dsp \$1;
#X msg 39 107 1;
#X obj 7 53 t b b;
#X text 6 182 who knows why \, but without this the subprocess doesn't
start;
#X obj 247 35 declare -lib Gem;
#X connect 0 0 5 0;
#X connect 1 0 3 0;
#X connect 2 0 1 0;
#X connect 4 0 3 0;
#X connect 5 0 2 0;
#X connect 5 1 4 0;
#X restore 432 82 pd init;
#X obj 280 267 makefilename %s.mov;
#X obj 280 330 pix_buffer_filmopen \$0-speicher;
#X obj -7 114 cnv 15 20 20 empty empty 2 6 10 0 14 -261234 -66577 0
;
#X obj 178 407 + 0.5;
#X text 19 578 Max Neupert - Bauhaus-Universität Weimar 2009-2012
;
#X connect 1 0 25 0;
#X connect 2 0 25 0;
#X connect 3 0 10 0;
#X connect 4 0 29 0;
#X connect 5 0 32 0;
#X connect 6 0 7 1;
#X connect 6 1 19 0;
#X connect 6 2 19 1;
#X connect 7 0 34 0;
#X connect 8 0 9 0;
#X connect 9 0 29 1;
#X connect 19 0 21 0;
#X connect 20 0 10 1;
#X connect 21 0 22 0;
#X connect 21 1 20 1;
#X connect 22 0 20 0;
#X connect 22 0 10 2;
#X connect 24 0 31 0;
#X connect 26 0 7 0;
#X connect 26 0 23 0;
#X connect 27 0 24 0;
#X connect 29 0 3 0;
#X connect 31 0 5 0;
#X connect 32 0 6 0;
#X connect 34 0 8 0;