[PD] vide-o-matic

Tue Oct 22 13:14:53 CEST 2002

hi all,

as Marc accepted my wish on helping him with hes new software 
(http://www.xynth.net) by doing the helpfile, icons & fonts i got so 
ispired (again) on visualisation that i had to start to code my own soft 
too :) but i don't know how long my ispiration lasts (again), so i desided 
to post it right away :)

as it will follow the PD license heres the first test patches.
(the "_*.pd" files are abstractions used by "vide-o-matic_002-test.pd")
...

what it does:
- plays video
- with zoom
- tap-BPM
- FPB (Frames Pro Beat)

what it's gonna do:
- Better GUI (Flash!?)
- MIDI
- loop-points
- select position in film with mouse (scratz)
- leftMouseButton = zoomin, rightMouseButton = zoomout
- envelopes

here i could need some help from devs/experienced user:
- GEM : pix_coordinate, i don't quite understand the "coordination-system"
- GEM : pix_zoom, what would it do if it worked on win2k :) ?
- is there a "mousewheel" object ? (i think framestein does this, but i'm 
not planning on using framestein @ all)
- GEM : whats the status of "videoIN" on windows
- is exporting/playing audio from video file in GEM todo/wish list :)))

and ofcourse, any GEM tips would be VERY lovely !!!

ok, i got too many questions but i think thats enough for now. so 1000x 
thanx for any reply and positive karma :)

it's only a matter of interface...
-andre
-------------- next part --------------
#N canvas 395 153 485 314 10;
#N canvas 179 40 625 606 code 0;
#X obj 408 234 pix_film;
#X obj 338 131 openpanel;
#X msg 338 161 open \$1;
#X obj 191 274 gemwin;
#X msg 90 161 create;
#X msg 138 189 destroy;
#X msg 191 147 dimen 358 288;
#X obj 408 194 gemhead 11;
#X obj 408 268 pix_texture2;
#X obj 357 458 scaleXYZ;
#X obj 357 496 translateXYZ;
#X obj 355 529 square 1;
#X msg 539 334 4;
#X msg 499 337 5;
#X obj 257 57 loadbang;
#X obj 254 81 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 497 197 metro 25;
#X obj 497 233 counter 0 10 1;
#X obj 338 104 r s-open;
#X obj 333 190 s sf;
#X obj 334 251 s r-ps;
#X obj 486 144 r s-ps;
#X msg 334 219 1;
#X msg 296 216 0;
#X obj 89 90 r s-gw;
#X obj 88 125 sel 1 0;
#X obj 207 208 r s-ren;
#X obj 470 404 _gem-mousezoom;
#X msg 424 337 352;
#X msg 462 338 288;
#X obj 558 167 r s-dir;
#X obj 557 193 + 1;
#X obj 542 25 r s-bpm;
#X obj 547 95 /;
#X obj 540 51 t b f;
#X msg 515 72 60000;
#X obj 584 72 r s-fpb;
#X obj 560 119 int;
#X obj 581 94 t b f;
#X obj 472 119 r s-cntres;
#X obj 546 144 /;
#N canvas 275 259 628 473 tap 0;
#X obj 34 15 key;
#X floatatom 65 15 5 0 0;
#X obj 6 277 mean;
#X obj 27 157 timer;
#X msg 65 233 add2 \$1;
#X msg 169 279;
#X obj 33 96 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 31 128 sel 0 1;
#X obj 34 39 sel 9 49;
#X msg 148 90 set;
#X msg 53 67 set 1;
#X obj 29 189 t b f;
#X obj 7 397 outlet;
#X floatatom 54 293 5 0 0;
#X obj 10 349 /;
#X obj 6 312 t b f;
#X msg 58 320 60000;
#X obj 150 37 r s-tapres;
#X msg 232 92 0;
#X connect 0 0 8 0;
#X connect 2 0 13 0;
#X connect 2 0 15 0;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 2 0;
#X connect 6 0 7 0;
#X connect 7 0 3 0;
#X connect 7 1 3 1;
#X connect 8 0 6 0;
#X connect 8 1 9 0;
#X connect 8 1 10 0;
#X connect 9 0 5 0;
#X connect 10 0 6 0;
#X connect 11 0 5 0;
#X connect 11 1 4 0;
#X connect 14 0 12 0;
#X connect 15 0 16 0;
#X connect 15 1 14 1;
#X connect 16 0 14 0;
#X connect 17 0 9 0;
#X connect 17 0 10 0;
#X connect 17 0 18 0;
#X connect 18 0 12 0;
#X restore 367 27 pd tap;
#X obj 402 59 s r-tapbpm;
#X obj 414 113 f;
#X obj 414 151 s r-bpm;
#X obj 409 85 r s-tapuse;
#X obj 664 168 key;
#X obj 633 206 sel 109 110 98;
#X msg 632 238 1;
#X msg 660 238 2;
#X msg 687 238 3;
#X obj 630 273 - 1;
#X obj 628 300 s r-dir;
#X connect 0 0 8 0;
#X connect 0 1 17 3;
#X connect 0 1 22 0;
#X connect 1 0 2 0;
#X connect 1 0 19 0;
#X connect 2 0 0 0;
#X connect 4 0 3 0;
#X connect 5 0 3 0;
#X connect 6 0 3 0;
#X connect 7 0 0 0;
#X connect 8 0 9 0;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 12 0 9 2;
#X connect 12 0 27 3;
#X connect 13 0 9 1;
#X connect 13 0 27 2;
#X connect 14 0 15 0;
#X connect 15 0 6 0;
#X connect 15 0 12 0;
#X connect 15 0 28 0;
#X connect 15 0 13 0;
#X connect 15 0 29 0;
#X connect 16 0 17 0;
#X connect 17 0 0 1;
#X connect 18 0 1 0;
#X connect 18 0 23 0;
#X connect 21 0 16 0;
#X connect 22 0 20 0;
#X connect 23 0 20 0;
#X connect 24 0 25 0;
#X connect 25 0 4 0;
#X connect 25 1 5 0;
#X connect 26 0 3 0;
#X connect 27 0 9 1;
#X connect 27 1 9 2;
#X connect 27 2 10 1;
#X connect 27 3 10 2;
#X connect 28 0 27 0;
#X connect 29 0 27 1;
#X connect 30 0 31 0;
#X connect 31 0 17 1;
#X connect 32 0 34 0;
#X connect 33 0 37 1;
#X connect 33 0 40 0;
#X connect 34 0 35 0;
#X connect 34 1 33 1;
#X connect 35 0 33 0;
#X connect 36 0 38 0;
#X connect 37 0 40 0;
#X connect 38 0 37 0;
#X connect 38 1 40 1;
#X connect 39 0 16 0;
#X connect 40 0 16 1;
#X connect 41 0 42 0;
#X connect 41 0 43 1;
#X connect 43 0 34 0;
#X connect 43 0 44 0;
#X connect 45 0 43 0;
#X connect 46 0 47 0;
#X connect 47 0 48 0;
#X connect 47 1 49 0;
#X connect 47 2 50 0;
#X connect 48 0 51 0;
#X connect 48 0 17 1;
#X connect 49 0 17 1;
#X connect 49 0 51 0;
#X connect 50 0 17 1;
#X connect 50 0 51 0;
#X connect 51 0 52 0;
#X restore 411 29 pd code;
#X obj 191 138 tgl 15 0 s-ps r-ps empty 0 -6 192 8 -262144 -1 -1 1
1;
#X obj 48 138 bng 15 250 50 0 s-open r-open empty 0 -6 192 8 -262144
-1 -1;
#X text 68 137 open video file;
#X obj 17 164 r sf;
#X msg 51 163 set \$1;
#X text 211 136 play/stop video file;
#X obj 46 49 tgl 15 0 s-gw r-gw empty 0 -6 192 8 -262144 -1 -1 1 1
;
#X text 64 48 open/close GEM window;
#X obj 47 91 tgl 15 0 s-ren r-ren empty 0 -6 192 8 -262144 -1 -1 1
1;
#X text 67 90 rendering on/off;
#X text 360 46 andre at vju-tv.net;
#X text 28 74 2 turn rendering on;
#X text 31 120 3 open video file;
#X text 220 90 (start ONLY from left-top corner);
#X text 29 29 1 open GEM window;
#X text 13 7 start here;
#X text 210 81 - leftMouseButton pressed select zoomarea;
#X text 200 67 GEMWIN (where the video is);
#X text 210 110 - rightMouseButton sets zoom to normal;
#X obj 22 197 vdl 15 1 1 3 s-dir r-dir empty 0 -6 192 8 -262144 -1
-1 0;
#X text 44 195 forward;
#X text 44 211 backward;
#X text 257 7 VIDE-O-MATIC v0.02-test (temp GUI);
#X obj 130 199 nbx 5 14 1 999 0 1 s-bpm r-bpm empty 0 -6 192 10 -262144
-1 -1 120 256;
#X text 187 197 BPM;
#X obj 224 199 nbx 3 14 1 999 0 1 s-fpb r-fpb empty 0 -6 192 10 -262144
-1 -1 8 256;
#X text 265 200 FPB;
#X obj 301 201 bng 15 250 50 0 s-cntres r-cntres empty 0 -6 192 8 -262144
-1 -1;
#X text 321 200 bang;
#X obj 133 247 nbx 5 14 -1e+037 1e+037 0 0 s-tapbpm r-tapbpm empty
0 -6 192 10 -262144 -1 -1 0 256;
#X obj 147 268 bng 15 250 50 0 s-tapres r-tapres empty 0 -6 192 8 -262144
-1 -1;
#X obj 260 250 bng 15 250 50 0 s-tapuse r-tapuse empty 0 -6 192 8 -262144
-1 -1;
#X text 45 226 ping-pong;
#X text 192 248 TAB BPM;
#X text 277 250 use tabBPM;
#X text 255 278 TAB = tab tempo;
#X text 169 265 reset TAb;
#X msg 97 163;
#X connect 4 0 5 0;
#X connect 5 0 38 0;
-------------- next part --------------
#N canvas 434 162 452 392 12;
#X obj 44 169 /;
#X obj 44 140 -;
#X obj 45 201 *;
#X obj 45 231 +;
#X obj 51 52 route map;
#X obj 14 10 inlet;
#X obj 123 94 unpack f f f f;
#X obj 108 138 -;
#X obj 182 146 -;
#X obj 52 316 outlet;
#X obj 58 267 clip;
#X connect 0 0 2 0;
#X connect 1 0 0 0;
#X connect 2 0 3 0;
#X connect 3 0 10 0;
#X connect 4 0 6 0;
#X connect 4 1 1 0;
#X connect 5 0 4 0;
#X connect 6 0 1 1;
#X connect 6 0 7 0;
#X connect 6 1 7 1;
#X connect 6 2 3 1;
#X connect 6 2 8 0;
#X connect 6 2 10 1;
#X connect 6 3 8 1;
#X connect 6 3 10 2;
#X connect 7 0 0 1;
#X connect 8 0 2 1;
#X connect 10 0 9 0;
-------------- next part --------------
#N canvas 145 78 614 554 10;
#X obj 148 67 gemmouse;
#X msg 179 125 clear;
#X msg 221 123 clear;
#X obj 203 95 sel 1 0;
#X obj 150 178 oneshot;
#X obj 213 178 oneshot;
#X obj 150 212 -;
#X obj 151 240 t b f;
#X obj 153 303 /;
#X msg 121 266 352;
#X obj 151 340 * 3.7;
#X msg 40 190 set \$1;
#X obj 41 33 inlet;
#X obj 58 508 outlet;
#X text 55 529 scaleX;
#X obj 257 239 / 2;
#X obj 254 280 +;
#X text 39 15 X res;
#X obj 95 33 inlet;
#X text 93 15 Y res;
#X obj 268 32 inlet;
#X text 266 14 X mult;
#X obj 393 31 inlet;
#X text 391 13 Y mult;
#X msg 261 320 map 0 \$1 -1 1;
#X obj 230 346 _remap;
#X obj 230 373 * -1;
#X obj 245 503 outlet;
#X text 386 520 translateX;
#X msg 41 253 3.7;
#X msg 207 434 0;
#X msg 81 73 set \$1;
#X obj 395 186 oneshot;
#X obj 458 186 oneshot;
#X obj 395 220 -;
#X obj 396 248 t b f;
#X obj 398 311 /;
#X obj 502 247 / 2;
#X obj 499 288 +;
#X msg 506 328 map 0 \$1 -1 1;
#X obj 475 354 _remap;
#X msg 366 274 288;
#X msg 331 242 set \$1;
#X obj 396 348 * 3;
#X obj 407 496 outlet;
#X text 238 522 scaleY;
#X obj 492 491 outlet;
#X text 485 519 translateY;
#X msg 384 407 set \$1;
#X msg 382 434 3;
#X connect 0 0 4 0;
#X connect 0 0 5 0;
#X connect 0 1 32 0;
#X connect 0 1 33 0;
#X connect 0 2 3 0;
#X connect 0 4 29 0;
#X connect 0 4 30 0;
#X connect 0 4 49 0;
#X connect 1 0 4 0;
#X connect 1 0 32 0;
#X connect 2 0 5 0;
#X connect 2 0 33 0;
#X connect 3 0 1 0;
#X connect 3 1 2 0;
#X connect 4 0 6 1;
#X connect 4 0 16 1;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 6 0 15 0;
#X connect 7 0 9 0;
#X connect 7 1 8 1;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 10 0 13 0;
#X connect 11 0 9 0;
#X connect 12 0 11 0;
#X connect 12 0 24 0;
#X connect 15 0 16 0;
#X connect 16 0 25 0;
#X connect 18 0 42 0;
#X connect 18 0 39 0;
#X connect 20 0 10 1;
#X connect 20 0 31 0;
#X connect 22 0 43 1;
#X connect 22 0 48 0;
#X connect 24 0 25 0;
#X connect 25 0 26 0;
#X connect 26 0 44 0;
#X connect 29 0 13 0;
#X connect 30 0 44 0;
#X connect 30 0 46 0;
#X connect 31 0 29 0;
#X connect 32 0 34 1;
#X connect 32 0 38 1;
#X connect 33 0 34 0;
#X connect 34 0 35 0;
#X connect 34 0 37 0;
#X connect 35 0 41 0;
#X connect 35 1 36 1;
#X connect 36 0 43 0;
#X connect 37 0 38 0;
#X connect 38 0 40 0;
#X connect 39 0 40 0;
#X connect 40 0 46 0;
#X connect 41 0 36 0;
#X connect 42 0 41 0;
#X connect 43 0 27 0;
#X connect 48 0 49 0;
#X connect 49 0 27 0;