diff options
author | B. Bogart <bbogart@users.sourceforge.net> | 2005-11-26 22:21:07 +0000 |
---|---|---|
committer | B. Bogart <bbogart@users.sourceforge.net> | 2005-11-26 22:21:07 +0000 |
commit | 33789244c6dbe3611607e77fa98f0f0c72f354ee (patch) | |
tree | c1c0c3d40f010b7be1e3bc223cecdaaf2e0bd74b /abstractions/pt.loop.pd |
Initial Commit of pixelTANGO 0.3.4svn2git-root
svn path=/trunk/abstractions/pixelTANGO/; revision=4049
Diffstat (limited to 'abstractions/pt.loop.pd')
-rw-r--r-- | abstractions/pt.loop.pd | 153 |
1 files changed, 153 insertions, 0 deletions
diff --git a/abstractions/pt.loop.pd b/abstractions/pt.loop.pd new file mode 100644 index 0000000..6657ceb --- /dev/null +++ b/abstractions/pt.loop.pd @@ -0,0 +1,153 @@ +#N canvas 1024 150 130 138 10; +#X obj 1 1 cnv 5 128 136 empty empty empty 5 6 1 9 -249661 -66577 0 +; +#X obj 4 4 tgl 15 0 \$0-loop \$0- Loop_Film 25 8 1 8 -262144 -1 -33289 +0 1; +#X obj 8 92 hsl 112 15 198 5 1 0 \$0-rate empty play_rate 38 8 1 8 +-262144 -1 -128992 0 1; +#X obj 8 23 hsl 115 15 0 100 0 0 \$0-in_slider \$0-ins in_point 40 +8 1 8 -262144 -1 -128992 0 1; +#X obj 8 38 hsl 115 15 0 100 0 0 \$0-out_slider \$0-outs out_point +37 8 1 8 -262144 -1 -128992 0 1; +#N canvas 722 265 625 550 interna 0; +#X text 15 9 Film Looper; +#X obj 146 8 cnv 15 270 340 empty empty empty 5 8 1 10 -260390 -1 0 +; +#X obj 353 16 inlet; +#X obj 366 325 outlet; +#X obj 8 27 cnv 15 100 320 empty empty empty 5 8 1 10 -3121 -1 0; +#X obj 16 38 inlet; +#X obj 19 326 outlet; +#X obj 178 259 prepend loopPos; +#X obj 151 149 route loop rate type in out numFrames; +#N canvas 207 285 609 630 looper 0; +#X text 74 18 Initialize; +#X msg 26 78 33; +#X obj 87 157 r \$0-loop; +#X obj 87 205 metro 33; +#X obj 152 231 + 1; +#X obj 152 206 r \$0-direction; +#X obj 86 407 outlet; +#X obj 87 382 counter 1 100 3; +#X obj 102 102 s \$0-ins; +#X obj 163 102 s \$0-outs; +#X obj 43 157 inlet; +#X obj 247 179 inlet; +#X obj 257 206 inlet; +#X obj 283 240 inlet; +#X obj 312 312 inlet; +#X obj 158 328 t b f; +#X msg 163 77 100; +#X obj 382 107 inlet; +#X obj 211 355 expr ($f1/100)*$f2; +#X obj 189 283 expr ($f1/100)*$f2; +#X obj 122 38 r \$0-reset; +#X obj 233 101 s \$0-directions; +#X obj 26 102 s \$0-rates; +#X msg 233 77 0; +#X obj 382 134 t b b f f; +#X msg 102 77 0; +#X text 42 455 Replace with cyclone counter in future?; +#X text 45 476 * added to fix expr /0 error; +#X msg 99 355 clear; +#X obj 21 39 bang; +#X obj 20 14 inlet; +#X obj 189 240 r \$0-loop-in; +#X obj 211 312 r \$0-loop-out; +#X obj 137 179 r \$0-rate; +#X connect 1 0 22 0; +#X connect 2 0 3 0; +#X connect 3 0 7 0; +#X connect 4 0 7 1; +#X connect 5 0 4 0; +#X connect 7 0 6 0; +#X connect 10 0 3 0; +#X connect 11 0 3 1; +#X connect 12 0 4 0; +#X connect 13 0 19 0; +#X connect 14 0 18 0; +#X connect 15 0 28 0; +#X connect 15 1 7 2; +#X connect 16 0 9 0; +#X connect 17 0 24 0; +#X connect 18 0 7 3; +#X connect 19 0 15 0; +#X connect 20 0 1 0; +#X connect 20 0 25 0; +#X connect 20 0 16 0; +#X connect 20 0 23 0; +#X connect 23 0 21 0; +#X connect 24 0 25 0; +#X connect 24 1 16 0; +#X connect 24 2 19 1; +#X connect 24 3 18 1; +#X connect 25 0 8 0; +#X connect 28 0 7 0; +#X connect 29 0 1 0; +#X connect 29 0 25 0; +#X connect 29 0 16 0; +#X connect 30 0 29 0; +#X connect 31 0 19 0; +#X connect 32 0 18 0; +#X connect 33 0 3 1; +#X restore 178 216 pd looper ------------; +#X text 16 356 Outputs absolute frame numbers; +#X text 19 378 Find different method to send "numFrames" through control +bus.; +#X obj 178 46 mementoSetup pt.loop \$0; +#X obj 178 72 delay 250; +#X connect 2 0 12 0; +#X connect 2 0 8 0; +#X connect 5 0 6 0; +#X connect 7 0 3 0; +#X connect 8 0 9 1; +#X connect 8 1 9 2; +#X connect 8 2 9 3; +#X connect 8 3 9 4; +#X connect 8 4 9 5; +#X connect 8 5 9 6; +#X connect 8 6 3 0; +#X connect 9 0 7 0; +#X connect 12 0 13 0; +#X connect 12 1 3 0; +#X connect 13 0 9 0; +#X restore 10 219 pd interna; +#X obj 10 197 inlet; +#X obj 75 198 inlet; +#X obj 10 241 outlet; +#X obj 75 242 outlet; +#X obj 193 185 s \$0-direction; +#X obj 5 57 nbx 8 15 0 1e+06 0 0 \$0-loop-in \$0-in_slider In_Point +65 8 1 8 -262144 -1 -1 0 256; +#X obj 5 73 nbx 8 15 0 1e+06 0 0 \$0-loop-out \$0-out_slider Out_Point +65 8 1 8 -262144 -1 -1 0 256; +#X obj 113 6 bng 11 250 50 0 \$0-reset \$0- Reset -25 6 1 8 -262144 +-1 -1; +#X obj 168 136 r \$0-directions; +#X obj 143 5 commun /loop \$0; +#X obj 151 51 commun /in-point \$0; +#X obj 151 74 commun /out-point \$0; +#X obj 151 106 commun /rate \$0; +#X obj 151 205 commun /direction \$0; +#X text 14 148 Film Looper; +#X obj 128 163 route bang; +#X obj 2 110 popup 124 25 grey95 Direction Forward Reverse Ping-Pong +; +#X connect 1 0 15 0; +#X connect 2 0 18 0; +#X connect 3 0 16 0; +#X connect 4 0 17 0; +#X connect 5 0 8 0; +#X connect 5 1 9 0; +#X connect 6 0 5 0; +#X connect 7 0 5 1; +#X connect 14 0 22 0; +#X connect 15 0 1 0; +#X connect 16 0 3 0; +#X connect 17 0 4 0; +#X connect 18 0 2 0; +#X connect 19 0 22 0; +#X connect 21 1 19 0; +#X connect 21 1 10 0; +#X connect 22 0 21 0; +#X coords 0 0 1 1 130 138 1; |