aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/pd_examples/videodev_effects.pd
blob: 3678293106302ef173bd7f2ade94bd7d159eb85e (plain)
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
#N canvas 522 50 597 660 10;
#X obj 85 386 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1
;
#X obj 71 138 # max 0;
#N canvas 52 305 399 248 motion 0;
#X obj 60 49 inlet;
#X obj 60 72 # +;
#X obj 60 158 outlet;
#X msg 108 51 0;
#X obj 60 142 fork;
#X text 164 114 divide by 32 \, 16 \, 4;
#X text 4 1 we do like #fade but faster (because of >>);
#X text 4 15 feedback factors are 1/32 for red \, 1/16 for green \,
1/8 for blue.;
#X obj 60 114 # >> ( 5 4 2 );
#X obj 175 85 # * ( 31 15 3 );
#X connect 0 0 1 0;
#X connect 1 0 8 0;
#X connect 3 0 1 1;
#X connect 4 0 2 0;
#X connect 4 1 9 0;
#X connect 8 0 4 0;
#X connect 9 0 1 1;
#X restore 129 207 pd motion fade;
#X obj 27 252 shunt 2;
#X obj 71 58 #downscale_by 2 smoothly;
#X obj 27 387 shunt 2;
#X obj 81 254 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1
;
#X obj 86 77 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1
;
#X obj 26 -36 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 0 1
;
#X obj 315 250 fork;
#X obj 27 37 shunt 2;
#X msg 285 232 256;
#X obj 27 463 #out window;
#X obj 83 38 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1
;
#X obj 27 504 print;
#X obj 284 273 #for 0 256 1;
#X floatatom 315 231 5 0 0 0 - - -;
#N canvas 67 462 236 230 detect 0;
#X obj 66 59 # * ( -1 -1 2 );
#X obj 66 171 # max 0;
#X obj 66 31 inlet;
#X obj 66 222 #outer ignore ( 0 0 0 );
#X obj 66 197 # min 255;
#X obj 66 249 outlet;
#X obj 65 82 #fold + \, seed -20;
#X connect 0 0 6 0;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 3 0 5 0;
#X connect 4 0 3 0;
#X connect 6 0 1 0;
#X restore 436 225 pd detect blue;
#X obj 71 274 #outer ignore ( 0 );
#X obj 102 120 hsl 128 15 0 127 0 0 empty empty empty -2 -6 0 8 -260818
-1 -1 0 1;
#X obj 27 178 shunt 2;
#X obj 169 324 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0
1;
#X obj 27 324 shunt 2;
#X obj 27 484 fps detailed;
#X obj 285 212 loadbang;
#X obj 86 324 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1
;
#X obj 71 296 #store;
#N canvas 81 205 480 500 sort 0;
#X obj 10 305 # * ( 1 0 );
#X obj 180 260 # * 255;
#X obj 194 331 #outer ignore ( 0 0 0 );
#X obj 10 345 # >> 0;
#X obj 43 432 outlet;
#X obj 181 53 inlet;
#X obj 225 191 # / 2;
#X obj 10 285 #for ( 0 0 ) ( 288 352 ) ( 1 1 );
#X obj 10 325 # +;
#X obj 44 9 inlet;
#X obj 242 150 # - 1;
#X obj 121 382 # +;
#X obj 180 238 # < 176;
#X obj 10 369 #store;
#X obj 97 31 #grade;
#X obj 121 404 # >> 1;
#X obj 283 269 # / 351;
#X obj 97 53 shunt 2;
#X obj 145 77 #grade;
#X obj 112 210 #outer & ( 0 -1 );
#X obj 121 127 inlet;
#X text 271 128 extract width;
#X obj 10 266 #finished;
#X obj 283 247 # * 255;
#X obj 96 9 #fold +;
#X obj 97 153 shunt 4;
#X obj 107 359 shunt 4;
#X msg 235 126 \$2;
#X obj 204 77 #dim;
#X obj 44 37 t a a;
#X msg 186 127 \$1 \$2;
#X obj 204 97 #export_list;
#X connect 0 0 8 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 3 0 13 0;
#X connect 5 0 17 1;
#X connect 6 0 12 1;
#X connect 7 0 0 0;
#X connect 8 0 3 0;
#X connect 9 0 29 0;
#X connect 10 0 16 1;
#X connect 11 0 15 0;
#X connect 12 0 1 0;
#X connect 13 0 26 0;
#X connect 14 0 17 0;
#X connect 15 0 4 0;
#X connect 16 0 2 0;
#X connect 17 0 25 0;
#X connect 17 1 18 0;
#X connect 18 0 25 0;
#X connect 19 0 8 1;
#X connect 20 0 25 1;
#X connect 20 0 26 1;
#X connect 22 0 7 0;
#X connect 23 0 16 0;
#X connect 24 0 14 0;
#X connect 25 0 22 0;
#X connect 25 0 19 0;
#X connect 25 1 22 0;
#X connect 25 1 19 0;
#X connect 25 2 12 0;
#X connect 25 3 23 0;
#X connect 26 0 4 0;
#X connect 26 1 11 0;
#X connect 27 0 6 0;
#X connect 27 0 10 0;
#X connect 28 0 31 0;
#X connect 29 0 24 0;
#X connect 29 1 13 1;
#X connect 29 1 28 0;
#X connect 29 1 11 1;
#X connect 30 0 7 1;
#X connect 31 0 27 0;
#X connect 31 0 30 0;
#X restore 86 344 pd sort me out;
#X obj 284 293 # gamma;
#X obj 71 118 # -;
#X obj 81 180 tgl 15 0 empty empty empty 0 -6 0 8 -241291 -1 -1 0 1
;
#X text 73 227 enable gamma correction;
#X obj 284 255 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1
-1;
#N canvas 372 198 399 273 motion 0;
#X obj 15 113 # << 2;
#X obj 15 162 @! abs;
#X obj 15 9 inlet;
#X obj 18 80 # -;
#X obj 70 174 # + 128;
#X obj 15 245 outlet;
#X obj 15 204 # min 255;
#X obj 15 224 # max 0;
#X obj 70 155 # << 2;
#X obj 15 35 t a a;
#X obj 15 134 shunt 2;
#X obj 70 133 inlet render;
#X obj 155 54 inlet type;
#X obj 15 54 shunt 2;
#X connect 0 0 10 0;
#X connect 1 0 6 0;
#X connect 2 0 9 0;
#X connect 3 0 0 0;
#X connect 4 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 4 0;
#X connect 9 0 13 0;
#X connect 9 1 3 0;
#X connect 10 0 1 0;
#X connect 10 1 8 0;
#X connect 11 0 10 1;
#X connect 12 0 13 1;
#X connect 13 0 3 1;
#X restore 71 98 pd motion detection;
#X obj 104 324 hradio 15 1 0 4 empty empty empty 0 -6 0 8 -241291 -1
-1 0;
#X text 125 138 noise reduction (on find-edges only);
#N canvas 67 462 236 230 detect 0;
#X obj 66 171 # max 0;
#X obj 66 31 inlet;
#X obj 66 222 #outer ignore ( 0 0 0 );
#X obj 66 197 # min 255;
#X obj 66 249 outlet;
#X obj 65 82 #fold + \, seed -20;
#X obj 66 59 # * ( 2 -1 -1 );
#X connect 0 0 3 0;
#X connect 1 0 6 0;
#X connect 2 0 4 0;
#X connect 3 0 2 0;
#X connect 5 0 0 0;
#X connect 6 0 5 0;
#X restore 436 206 pd detect red;
#X obj 26 -8 metro 33.3667;
#X obj 27 58 t a a;
#X text 100 38 Smaller Picture;
#X obj 27 78 shunt 2;
#X obj 210 85 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -1
-1 0;
#X obj 162 416 #centroid;
#X obj 162 437 #export_list;
#X floatatom 164 476 5 0 0 0 - - -;
#X obj 163 456 unpack 0 0;
#X floatatom 228 476 5 0 0 0 - - -;
#N canvas 639 147 477 267 crosshair 0;
#X obj 12 224 outlet;
#X obj 12 9 inlet;
#X obj 95 169 # + ( 120 160 );
#X msg 21 125 12 2 # \$1 \$2 \$1 \$3 \$2 \$3 \$2 \$4 \$3 \$4 \$3 \$3
\$4 \$3 \$4 \$2 \$3 \$2 \$3 \$1 \$2 \$1 \$2 \$2;
#X msg 54 95 -32 -1 1 32;
#X obj 12 205 #draw_polygon + ( 0 170 0 );
#X obj 175 37 #fade 8;
#X obj 175 18 inlet;
#X obj 170 60 #finished;
#X connect 1 0 5 0;
#X connect 2 0 5 2;
#X connect 3 0 2 0;
#X connect 4 0 3 0;
#X connect 5 0 0 0;
#X connect 6 0 2 1;
#X connect 6 0 8 0;
#X connect 7 0 6 0;
#X connect 8 0 4 0;
#X restore 71 417 pd crosshair;
#X msg 127 -9 open dc1394;
#X msg 216 -8 open mpeg file images/movies/washington_zoom_in.mpeg
;
#X msg 216 12 open xine images/movies/washington_zoom_in.mpeg;
#X obj 27 16 #camera;
#X obj 185 13 #in;
#X obj 103 181 #fade;
#X msg 144 181 32 16 4;
#X obj 27 439 t a;
#X text 230 99 emboss;
#X text 229 85 hilite;
#X text 109 386 designed to work with "hilite" above;
#X obj 280 85 vradio 15 1 0 2 empty empty empty 0 -6 0 8 -241291 -1
-1 0;
#X text 299 85 motion;
#X text 300 99 presence;
#X obj -15 542 cnv 15 620 30 empty empty empty 20 12 0 14 -200249 -66577
0;
#X text -7 550 GridFlow 0.8.0;
#X text -7 550 GridFlow 0.8.0;
#X obj -13 -85 cnv 15 620 30 empty empty empty 20 12 0 14 -233017 -66577
0;
#X text 0 -72 Copyright 2002 Mathieu Bouchard;
#X text 0 -86 videodev_effects.pd;
#X connect 0 0 5 1;
#X connect 1 0 20 0;
#X connect 2 0 3 0;
#X connect 3 0 22 0;
#X connect 3 1 18 0;
#X connect 4 0 38 0;
#X connect 5 0 55 0;
#X connect 5 1 42 0;
#X connect 5 1 47 0;
#X connect 6 0 3 1;
#X connect 7 0 40 1;
#X connect 8 0 37 0;
#X connect 9 0 32 0;
#X connect 9 1 28 1;
#X connect 10 0 38 0;
#X connect 10 1 4 0;
#X connect 11 0 16 0;
#X connect 12 0 23 0;
#X connect 13 0 10 1;
#X connect 15 0 28 0;
#X connect 16 0 9 0;
#X connect 18 0 26 0;
#X connect 19 0 29 1;
#X connect 20 0 3 0;
#X connect 20 1 2 0;
#X connect 21 0 27 2;
#X connect 22 0 5 0;
#X connect 22 1 27 0;
#X connect 23 0 14 0;
#X connect 24 0 11 0;
#X connect 25 0 22 1;
#X connect 26 0 22 0;
#X connect 27 0 5 0;
#X connect 28 0 26 1;
#X connect 29 0 1 0;
#X connect 30 0 20 1;
#X connect 32 0 15 0;
#X connect 33 0 29 0;
#X connect 34 0 27 1;
#X connect 37 0 51 0;
#X connect 38 0 40 0;
#X connect 40 0 20 0;
#X connect 40 1 33 0;
#X connect 41 0 33 1;
#X connect 42 0 43 0;
#X connect 42 0 47 1;
#X connect 43 0 45 0;
#X connect 45 0 44 0;
#X connect 45 1 46 0;
#X connect 47 0 55 0;
#X connect 51 0 10 0;
#X connect 53 0 3 0;
#X connect 54 0 53 1;
#X connect 55 0 12 0;
#X connect 59 0 33 2;