-
Notifications
You must be signed in to change notification settings - Fork 6
/
07a-av-filename.pd
164 lines (164 loc) · 4.35 KB
/
07a-av-filename.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
#N canvas 549 62 798 781 10;
#X declare -lib Gem;
#X declare -lib Gem;
#X obj 16 0 cnv 15 480 60 empty empty Adding_convenience 20 30 0 20
-262130 -99865 0;
#X obj 41 443 dac~;
#X obj 41 392 vline~;
#X obj 39 597 soundfiler;
#X obj 39 660 / 48;
#X obj 39 618 t f f;
#N canvas 0 50 450 300 sample 0;
#N canvas 0 50 450 300 (subpatch) 0;
#X array \$0-soundfile 214603 float 2;
#X coords 0 1 214603 -1 200 140 1;
#X restore 17 27 graph;
#X restore 38 211 pd sample;
#X obj 271 318 gemwin;
#X msg 271 274 create \, 1;
#X msg 283 296 0 \, destroy;
#X obj 271 630 pix_texture;
#X obj 271 375 gemhead;
#X msg 438 413 open \$1;
#X obj 438 459 unpack f f f;
#X obj 41 343 *;
#X msg 41 365 \$1 50;
#X obj 44 302 hsl 128 15 0 1 0 0 empty empty empty -2 -8 0 10 -262144
-1 -1 0 1;
#X obj 298 510 *;
#X obj 298 422 snapshot~;
#X obj 271 397 t a b;
#X obj 298 466 /;
#X obj 298 552 int;
#X obj 298 574 change;
#X obj 271 678 rectangle 3 2;
#X text 38 191 Audio;
#X text 270 193 Video;
#X text 99 213 Storage for the sample;
#X text 464 204 Storage for the video;
#X text 269 251 Gem window;
#X obj 521 487 cnv 15 45 110 empty empty empty 20 12 0 14 -261234 -66577
0;
#X obj 524 493 /;
#X obj 524 570 *;
#X obj 524 514 t b f;
#X msg 524 536 3;
#X msg 112 365 1 \, 214603 4470.9 \;;
#N canvas 762 50 450 300 laden 0;
#X obj 20 166 outlet;
#X obj 20 69 pack f f;
#X obj 20 92 trigger list bang bang;
#X msg 149 129 set 1;
#X msg 84 129 addcomma;
#X msg 20 128 add \$2 \$1;
#X obj 20 19 r \$0-miliseconds;
#X obj 65 44 r \$0-samples;
#X connect 1 0 2 0;
#X connect 2 0 5 0;
#X connect 2 1 4 0;
#X connect 2 2 3 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 0 0;
#X connect 6 0 1 0;
#X connect 7 0 1 1;
#X restore 112 342 pd laden;
#X obj 56 321 r \$0-samples;
#X obj 66 640 s \$0-samples;
#X obj 39 680 s \$0-miliseconds;
#X obj 41 418 tabread4~ \$0-soundfile;
#X obj 271 213 pix_buffer \$0-speicher 800;
#X obj 438 436 pix_buffer_filmopen \$0-speicher;
#X obj 271 605 pix_buffer_read \$0-speicher;
#X obj 313 443 r \$0-samples;
#X obj 313 488 r \$0-frames;
#X obj 39 512 t a b;
#X obj 66 532 symbol \$0-soundfile;
#X obj 39 555 pack s s;
#X msg 39 576 read -resize \$1 \$2;
#X text 465 217 maximum 800 frames in this case;
#X obj 438 493 s \$0-frames;
#X obj 40 105 openpanel;
#X obj 40 87 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X text 437 345 loading the video into the buffer;
#X obj 39 491 makefilename %s.aiff;
#X obj 438 391 makefilename %s.mov;
#X text 158 131 this is part of the iemlib external;
#X text 566 513 this adjusts the rectangle;
#X text 578 526 dimensions to fit to the;
#X text 572 539 aspect ratio of the video;
#X obj 438 369 r \$0-filename;
#X obj 39 470 r \$0-filename;
#X obj 248 271 cnv 15 20 20 empty empty 1 6 10 0 14 -261234 -66577
0;
#X obj 16 83 cnv 15 20 20 empty empty 2 6 10 0 14 -261234 -66577 0
;
#X obj 19 298 cnv 15 20 20 empty empty 3 6 10 0 14 -261234 -66577 0
;
#X obj 90 364 cnv 15 20 20 empty empty 3 6 10 0 14 -261234 -66577 0
;
#X obj 40 149 s \$0-filename;
#N canvas 0 62 399 216 init 0;
#X obj 10 38 declare -lib Gem;
#X obj 10 62 loadbang;
#X msg 10 83 \; pd dsp 1;
#X obj 134 38 iemlib/iemlib2;
#X connect 1 0 2 0;
#X restore 508 15 pd init;
#X obj 298 531 + 0.5;
#X text 39 709 Max Neupert \, GMU - Bauhaus-Universität Weimar 2009
;
#X obj 40 128 splitfilename .;
#X connect 2 0 18 0;
#X connect 2 0 39 0;
#X connect 3 0 5 0;
#X connect 4 0 38 0;
#X connect 5 0 4 0;
#X connect 5 1 37 0;
#X connect 8 0 7 0;
#X connect 9 0 7 0;
#X connect 10 0 23 0;
#X connect 11 0 19 0;
#X connect 12 0 41 0;
#X connect 13 0 50 0;
#X connect 13 1 30 0;
#X connect 13 2 30 1;
#X connect 14 0 15 0;
#X connect 15 0 2 0;
#X connect 16 0 14 0;
#X connect 17 0 68 0;
#X connect 18 0 20 0;
#X connect 19 0 42 0;
#X connect 19 1 18 0;
#X connect 20 0 17 0;
#X connect 21 0 22 0;
#X connect 22 0 42 1;
#X connect 30 0 32 0;
#X connect 31 0 23 1;
#X connect 32 0 33 0;
#X connect 32 1 31 1;
#X connect 33 0 31 0;
#X connect 33 0 23 2;
#X connect 34 0 2 0;
#X connect 35 0 34 0;
#X connect 36 0 14 1;
#X connect 39 0 1 0;
#X connect 39 0 1 1;
#X connect 41 0 13 0;
#X connect 42 0 10 0;
#X connect 43 0 20 1;
#X connect 44 0 17 1;
#X connect 45 0 47 0;
#X connect 45 1 46 0;
#X connect 46 0 47 1;
#X connect 47 0 48 0;
#X connect 48 0 3 0;
#X connect 51 0 70 0;
#X connect 52 0 51 0;
#X connect 54 0 45 0;
#X connect 55 0 12 0;
#X connect 60 0 55 0;
#X connect 61 0 54 0;
#X connect 68 0 21 0;
#X connect 70 0 66 0;