#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;