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;