1 files changed, 122 insertions, 0 deletions
diff --git a/qtrack.pd b/qtrack.pd
new file mode 100644
index 0000000..4c1456e
--- /dev/null
+++ b/qtrack.pd
@@ -0,0 +1,122 @@
+#N canvas 103 299 915 701 10;
+#X obj 285 388 cnv 15 100 100 empty empty empty 20 12 0 14 -258699
+-66577 0;
+#X obj 71 83 cnv 15 100 100 empty empty empty 20 12 0 14 -258699 -66577
+0;
+#X obj 24 277 cnv 15 100 100 empty empty empty 20 12 0 14 -258699 -66577
+0;
+#X msg 525 257 clear;
+#X text 398 608 This outlet gets a bang when you hit the end of the
+sequence.;
+#X msg 525 235 print;
+#X obj 214 33 inlet;
+#X obj 88 13 inlet;
+#X obj 112 129 timer;
+#X obj 305 427 qlist;
+#X msg 526 280 bang;
+#X msg 328 130 tempo \$1;
+#X obj 115 216 * 1;
+#X obj 645 585 outlet;
+#X obj 90 89 t a b b;
+#X obj 29 186 t b a;
+#X msg 243 191 clear;
+#X msg 210 189 1;
+#X obj 88 58 spigot;
+#X obj 307 110 t f f b;
+#X msg 327 251 0;
+#X obj 298 170 t b b;
+#X obj 5 251 f;
+#X obj 95 403 list append;
+#X text 136 12 inlet: data to be recorded;
+#X text 569 284 sequenced automagically;
+#X obj 96 425 route list;
+#X obj 209 133 t b b b;
+#X obj 93 288 loadbang;
+#X text 97 450 add <receive symbol> <time> <data>;
+#X obj 44 302 t b f;
+#X msg 31 322 add;
+#X obj 23 349 pack s f s;
+#X text 523 4 Sequencer abstraction. Interface to qlist.;
+#X text 572 17 Copyleft )c( Alexandre Quessy 2006;
+#X obj 524 153 list prepend write;
+#X obj 524 172 route list;
+#X obj 523 213 route list;
+#X obj 523 194 list prepend read;
+#X msg 367 249 rewind;
+#X text 344 30 inlet: record \, play \, tempo \, clear \, print \,
+read <file.txt> \, write <file.txt> \, stop \, loop <1 \, 0>;
+#X text 35 260 Add cue and set receive symbol;
+#X obj 216 71 route record play tempo clear print read write stop loop
+;
+#X obj 524 100 spigot;
+#X text 299 148 play;
+#X text 313 95 tempo;
+#X text 220 118 rec;
+#X text 382 204 stop;
+#X obj 367 221 t b b;
+#X obj 526 304 spigot;
+#X msg 224 322 1;
+#X text 225 305 enable playing;
+#X obj 92 310 symbol \$1-r;
+#X obj 105 499 cnv 15 100 100 empty empty empty 20 12 0 14 -258699
+-66577 0;
+#X text 62 599 this outlet gets the lines in sequence.;
+#X obj 132 573 outlet;
+#X obj 132 535 r \$1-r;
+#X connect 3 0 9 0;
+#X connect 5 0 9 0;
+#X connect 6 0 42 0;
+#X connect 7 0 18 0;
+#X connect 8 0 12 0;
+#X connect 9 1 13 0;
+#X connect 9 1 43 0;
+#X connect 10 0 49 0;
+#X connect 11 0 9 0;
+#X connect 12 0 22 1;
+#X connect 14 0 15 0;
+#X connect 14 1 8 0;
+#X connect 14 2 8 1;
+#X connect 15 0 22 0;
+#X connect 15 1 23 1;
+#X connect 16 0 9 0;
+#X connect 17 0 18 1;
+#X connect 18 0 14 0;
+#X connect 19 0 12 1;
+#X connect 19 1 11 0;
+#X connect 20 0 18 1;
+#X connect 21 0 10 0;
+#X connect 21 1 20 0;
+#X connect 22 0 30 0;
+#X connect 23 0 26 0;
+#X connect 26 0 9 0;
+#X connect 27 0 17 0;
+#X connect 27 0 50 0;
+#X connect 27 1 16 0;
+#X connect 27 2 8 0;
+#X connect 28 0 52 0;
+#X connect 30 0 31 0;
+#X connect 30 1 32 1;
+#X connect 31 0 32 0;
+#X connect 32 0 23 0;
+#X connect 35 0 36 0;
+#X connect 36 0 9 0;
+#X connect 37 0 9 0;
+#X connect 38 0 37 0;
+#X connect 39 0 9 0;
+#X connect 42 0 27 0;
+#X connect 42 1 21 0;
+#X connect 42 2 19 0;
+#X connect 42 3 3 0;
+#X connect 42 4 5 0;
+#X connect 42 5 38 0;
+#X connect 42 5 50 0;
+#X connect 42 6 35 0;
+#X connect 42 7 48 0;
+#X connect 42 8 43 1;
+#X connect 43 0 21 0;
+#X connect 48 0 39 0;
+#X connect 48 1 20 0;
+#X connect 49 0 9 0;
+#X connect 50 0 49 1;
+#X connect 52 0 32 2;
+#X connect 56 0 55 0;