From f18d063d9312c95e25294e0777bc135ee9a3fd8a Mon Sep 17 00:00:00 2001 From: Thomas O Fredericks Date: Sun, 25 Oct 2009 00:39:13 +0000 Subject: Adding mtl svn path=/trunk/abstractions/mtl/; revision=12667 --- VCR.pd | 150 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 150 insertions(+) create mode 100644 VCR.pd (limited to 'VCR.pd') diff --git a/VCR.pd b/VCR.pd new file mode 100644 index 0000000..6de44d3 --- /dev/null +++ b/VCR.pd @@ -0,0 +1,150 @@ +#N canvas 1079 50 947 563 10; +#X obj 101 116 cnv 15 198 58 empty empty empty 20 12 0 14 -233017 -66577 +0; +#X obj 257 133 tgl 15 0 empty empty Autostart -14 -8 1 9 -195568 -1 +-1 1 1; +#X obj 103 132 hradio 15 1 0 9 empty empty empty 4 -8 0 10 -195568 +-1 -1 4; +#X obj -279 366 outlet; +#X obj -279 -82 inlet; +#X obj 195 -108 inlet; +#X text 102 117 FRW -RW -0- Play FF; +#X obj 105 157 hsl 128 15 0 1 0 0 empty empty Smoothing 132 10 1 9 +-195568 -1 -1 11600 0; +#X obj 203 -24 route autostart smooth; +#X obj 344 118 t b; +#X obj 403 87 t b; +#X msg 43 58 4; +#X obj 462 97 t b; +#X obj 521 96 t b; +#X obj 580 115 t b; +#X msg 262 222 autostart \$1; +#X obj -215 364 outlet; +#X msg 29 283 smooth \$1; +#X msg -112 158 speed \$1; +#X obj 444 194 f; +#N canvas 128 137 974 631 VCR 0; +#X obj -269 140 t a b; +#X obj -153 134 r autostart\$0; +#X obj 107 63 s autostart\$0; +#X floatatom -36 469 5 0 0 0 - - -; +#X text 5 468 Playback speed; +#X obj -269 376 outlet; +#X obj -269 -72 inlet; +#X obj 205 -98 inlet; +#X obj -36 493 outlet; +#X text -254 81 catches the new filename and; +#X text -254 98 starts playback (or not); +#X obj 397 111 t b; +#X obj 456 80 t b; +#X msg -28 72 1; +#X obj -28 196 metro 40; +#X obj 515 90 t b; +#X obj 574 89 t b; +#X obj 633 108 t b; +#X obj -36 441 change; +#X obj 196 -15 route autostart smooth speed; +#X obj -20 -23 loadbang; +#X obj 83 405 t f f; +#X obj -34 301 f; +#X msg 397 137 -4; +#X msg 515 134 0; +#X msg 574 129 1; +#X msg 456 106 -1; +#X msg 633 136 4; +#X obj 304 48 - 4; +#X obj 397 55 route fastrewind rewind stop play fastforward; +#X obj 65 295 clip 0 1; +#X obj 64 317 pow 0.3; +#X obj -35 348 expr $f3 + ((1-$f2) * ($f1-$f3)); +#X obj -240 185 zexy/demultiplex 0 1; +#X msg -223 213 0; +#X msg -112 218 1; +#X obj -44 377 maxlib/split -0.01 0.01; +#X msg -41 403 0; +#X connect 0 0 5 0; +#X connect 0 1 33 0; +#X connect 1 0 33 1; +#X connect 3 0 8 0; +#X connect 6 0 0 0; +#X connect 7 0 19 0; +#X connect 11 0 23 0; +#X connect 12 0 26 0; +#X connect 13 0 14 0; +#X connect 14 0 22 0; +#X connect 15 0 24 0; +#X connect 16 0 25 0; +#X connect 17 0 27 0; +#X connect 18 0 3 0; +#X connect 19 0 2 0; +#X connect 19 1 30 0; +#X connect 19 2 28 0; +#X connect 19 3 29 0; +#X connect 20 0 13 0; +#X connect 21 0 18 0; +#X connect 21 1 32 2; +#X connect 22 0 32 0; +#X connect 23 0 22 1; +#X connect 24 0 22 1; +#X connect 25 0 22 1; +#X connect 26 0 22 1; +#X connect 27 0 22 1; +#X connect 28 0 22 1; +#X connect 29 0 11 0; +#X connect 29 1 12 0; +#X connect 29 2 15 0; +#X connect 29 3 16 0; +#X connect 29 4 17 0; +#X connect 30 0 31 0; +#X connect 31 0 32 1; +#X connect 32 0 36 0; +#X connect 33 0 34 0; +#X connect 33 1 35 0; +#X connect 34 0 22 1; +#X connect 35 0 22 1; +#X connect 36 0 37 0; +#X connect 36 1 21 0; +#X connect 37 0 21 0; +#X restore -275 175 pd VCR; +#X obj -13 -94 loadbang; +#X msg 5 58 0.5; +#X obj 344 62 route fastrewind rewind stop play fastforward; +#X msg 344 144 -4; +#X msg 403 113 -1; +#X msg 462 141 0; +#X msg 521 136 1; +#X msg 580 143 4; +#X connect 1 0 15 0; +#X connect 2 0 18 0; +#X connect 4 0 20 0; +#X connect 5 0 8 0; +#X connect 7 0 17 0; +#X connect 8 0 1 0; +#X connect 8 1 7 0; +#X connect 8 2 23 0; +#X connect 9 0 24 0; +#X connect 10 0 25 0; +#X connect 11 0 2 0; +#X connect 12 0 26 0; +#X connect 13 0 27 0; +#X connect 14 0 28 0; +#X connect 15 0 20 1; +#X connect 17 0 20 1; +#X connect 18 0 20 1; +#X connect 19 0 2 0; +#X connect 20 0 3 0; +#X connect 20 1 16 0; +#X connect 21 0 11 0; +#X connect 21 0 22 0; +#X connect 22 0 7 0; +#X connect 23 0 9 0; +#X connect 23 1 10 0; +#X connect 23 2 12 0; +#X connect 23 3 13 0; +#X connect 23 4 14 0; +#X connect 24 0 19 0; +#X connect 25 0 19 0; +#X connect 26 0 19 0; +#X connect 27 0 19 0; +#X connect 28 0 19 0; +#X coords 0 -1 1 1 200 75 1 100 100; -- cgit v1.2.1