aboutsummaryrefslogtreecommitdiff
path: root/externals/gridflow/pd_examples/scratch_video.pd
blob: c322b745497141981f3c6e38a63ee4a3dc8da05b (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
#N canvas 622 70 580 592 10;
#X obj 109 21 tgl 15 0 empty empty empty 0 -6 0 8 -24198 -1 -1 1 1
;
#X obj 109 329 listelement 1;
#X floatatom 109 352 5 0 0 0 - - -;
#X floatatom 132 244 5 0 0 0 - - -;
#X obj 109 305 route position;
#X obj 109 221 #in;
#X msg 142 167 open /home/alx/Documents/images/videos/bus_1.mov;
#X obj 112 391 hsl 128 15 1 320 0 0 empty empty empty -2 -6 0 8 -260818
-1 -1 3145 1;
#X obj -13 -85 cnv 15 580 30 empty empty empty 20 12 0 14 -233017 -66577
0;
#X obj -16 472 cnv 15 580 30 empty empty empty 20 12 0 14 -200249 -66577
0;
#X text 16 476 GridFlow 0.8.0;
#X text 16 476 GridFlow 0.8.0;
#X text 0 -85 traveling.pd;
#X text 0 -72 Copyright 2003 Alexandre Castonguay;
#X text -1 -34 Use the mouse position to scratch the video \, a touchscreen
works well.;
#N canvas 0 0 450 300 decide_framerate 0;
#X obj 6 56 - 160;
#X floatatom 6 80 5 0 0 0 - - -;
#X obj 55 122 hsl 128 15 20 150 0 0 empty empty empty -2 -6 0 8 -24198
-1 -1 5862 1;
#X obj 6 99 abs;
#X floatatom 6 142 5 0 0 0 - - -;
#X obj 6 121 / 3;
#X floatatom 6 226 5 0 0 0 - - -;
#X obj 6 184 abs;
#X obj 6 162 - 64;
#X obj 6 205 + 5;
#X obj -25 21 inlet;
#X obj 34 263 outlet;
#X connect 0 0 1 0;
#X connect 1 0 3 0;
#X connect 3 0 2 0;
#X connect 3 0 5 0;
#X connect 4 0 8 0;
#X connect 5 0 4 0;
#X connect 6 0 11 0;
#X connect 7 0 9 0;
#X connect 8 0 7 0;
#X connect 9 0 6 0;
#X connect 10 0 0 0;
#X restore 257 390 pd decide_framerate;
#X obj 257 414 s framerate;
#X obj 181 31 r framerate;
#X obj 109 279 #out window;
#X text 176 242 <-- frame number;
#X text 213 328 <-- get x values;
#X text 142 184 load your own until we get a bundled video for the
docs;
#X text 142 197 this one is 320 x 240;
#N canvas 0 0 450 300 frame_count 1;
#X msg 103 112 1;
#X floatatom 103 168 5 0 0 0 - - -;
#X obj 153 153 float \$1;
#X obj 103 86 shunt 2;
#X msg 173 69 1;
#X msg 173 46 0;
#X obj 103 140 + 1;
#X msg 147 112 -1;
#X msg 208 109 0;
#X obj 46 -34 inlet;
#X obj 231 68 inlet;
#X obj 113 212 outlet;
#X floatatom 147 -41 5 0 0 0 - - -;
#X obj 147 -19 > 160;
#X floatatom 147 8 5 0 0 0 - - -;
#X text 192 -20 <-- is the direction left or right on a width of 320
pixels;
#X text 242 109 <-- reset;
#X obj 147 -64 r position;
#X connect 0 0 6 0;
#X connect 1 0 2 0;
#X connect 1 0 11 0;
#X connect 2 0 6 1;
#X connect 3 0 0 0;
#X connect 3 1 7 0;
#X connect 4 0 3 1;
#X connect 5 0 3 1;
#X connect 6 0 1 0;
#X connect 7 0 6 0;
#X connect 8 0 1 0;
#X connect 9 0 3 0;
#X connect 10 0 8 0;
#X connect 12 0 13 0;
#X connect 13 0 14 0;
#X connect 14 0 3 1;
#X connect 17 0 12 0;
#X restore 109 113 pd frame_count;
#X obj 202 86 bng 15 250 50 0 empty empty empty 0 -6 0 8 -241291 -1
-1;
#X text 226 85 <-- reset;
#X obj 13 391 s position;
#X msg 314 230 loop 1;
#X obj 206 266 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 224 62 r loopit;
#X obj 236 264 print loopit;
#X obj 109 56 metro 100.33;
#X obj 71 175 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X connect 0 0 31 0;
#X connect 1 0 2 0;
#X connect 2 0 7 0;
#X connect 2 0 15 0;
#X connect 2 0 26 0;
#X connect 4 0 1 0;
#X connect 5 0 18 0;
#X connect 5 1 3 0;
#X connect 5 1 28 0;
#X connect 6 0 5 0;
#X connect 15 0 16 0;
#X connect 17 0 31 1;
#X connect 18 0 4 0;
#X connect 23 0 5 0;
#X connect 24 0 23 1;
#X connect 27 0 5 0;
#X connect 28 0 30 0;
#X connect 31 0 23 0;
#X connect 32 0 5 0;