1 files changed, 272 insertions, 0 deletions
diff --git a/sfIndexer.pd b/sfIndexer.pd
new file mode 100644
index 0000000..9d4cc66
--- /dev/null
+++ b/sfIndexer.pd
@@ -0,0 +1,272 @@
+#N canvas 1067 100 981 616 10;
+#X obj 171 25 inlet;
+#N canvas 477 373 450 300 \$0tables 0;
+#X restore 437 56 pd \$0tables;
+#N canvas 199 153 767 523 check_if_loaded 0;
+#X obj 93 44 inlet check;
+#X obj 384 36 inlet remove;
+#X obj 86 434 outlet found;
+#X obj 226 426 outlet new;
+#X obj 99 298 ./indexer;
+#X obj 214 42 inlet test;
+#X obj 150 323 route bang;
+#X obj 369 107 t b b;
+#X msg 423 126 clear;
+#X obj 551 200 route clear;
+#X obj 492 438 outlet reset;
+#X obj 614 249 list split 1;
+#X obj 598 368 pack f s;
+#X obj 647 289 cyclone/tosymbol;
+#X obj 324 211 unpack f s;
+#X obj 381 237 tof/path relative;
+#X obj 327 255 pack f s;
+#X obj 643 334 tof/path absolute;
+#X obj 423 158 tof/param custom /samples /nps;
+#X connect 0 0 4 0;
+#X connect 1 0 4 1;
+#X connect 4 0 2 0;
+#X connect 4 1 3 0;
+#X connect 4 2 6 0;
+#X connect 4 3 14 0;
+#X connect 5 0 4 2;
+#X connect 6 1 2 0;
+#X connect 7 0 4 3;
+#X connect 7 1 8 0;
+#X connect 8 0 18 0;
+#X connect 9 0 10 0;
+#X connect 9 1 11 0;
+#X connect 11 0 12 0;
+#X connect 11 1 13 0;
+#X connect 12 0 4 0;
+#X connect 13 0 17 0;
+#X connect 14 0 16 0;
+#X connect 14 1 15 0;
+#X connect 15 0 16 1;
+#X connect 16 0 18 0;
+#X connect 17 0 12 1;
+#X connect 18 0 7 0;
+#X connect 18 1 9 0;
+#X restore 221 220 pd check_if_loaded;
+#N canvas 91 71 926 583 load_soundfile 0;
+#X obj 47 11 inlet;
+#X obj 46 366 soundfiler;
+#X obj 479 395 s pd-\$0tables;
+#X obj 284 145 tof/iterate;
+#X obj 286 193 t f f;
+#X obj 516 308 iemlib/iem_send;
+#X msg 596 279 set \$3/\$1/i;
+#X obj 676 252 t l l;
+#X msg 517 115 0 \$2 \$3 \$4;
+#X msg 673 307 obj 0 \$2 table \$3/\$1/i 3;
+#X obj 317 231 * 130;
+#X obj 317 256 + 130;
+#X text 339 195 Create data tables;
+#X text 575 196 Create and fill info table;
+#X msg 288 122 \$4;
+#X msg 687 61 \$1;
+#X obj 140 257 list prepend;
+#X obj 142 288 t l l;
+#X obj 48 113 zexy/packel 5;
+#X obj 46 298 list append;
+#X obj 48 160 list prepend read -resize;
+#X obj 46 340 list trim;
+#X obj 701 118 * 22;
+#X obj 48 137 t s s;
+#X obj 113 140 print READING;
+#X obj 46 387 t b f;
+#X obj 180 530 outlet index;
+#X obj 155 348 print READ;
+#X msg 155 323 \$1 samples;
+#X obj 684 88 t f f f;
+#X obj 836 20 inlet id;
+#X obj 294 287 pack f f f f s;
+#X obj 680 225 pack f f s;
+#X msg 296 326 obj \$2 \$4 table \$5/\$3/\$1;
+#X msg 161 202 symbol \$5/\$3/\$1;
+#X obj 179 500 pack f s;
+#X obj 179 461 f;
+#X obj 48 44 t l l l l b l;
+#X text 90 10 index rate length channels filename;
+#X connect 0 0 37 0;
+#X connect 1 0 25 0;
+#X connect 3 0 4 0;
+#X connect 4 0 31 0;
+#X connect 4 1 10 0;
+#X connect 6 0 5 1;
+#X connect 7 0 6 0;
+#X connect 7 1 9 0;
+#X connect 8 0 5 0;
+#X connect 9 0 2 0;
+#X connect 10 0 11 0;
+#X connect 11 0 31 1;
+#X connect 14 0 3 0;
+#X connect 15 0 29 0;
+#X connect 16 0 17 0;
+#X connect 17 0 19 1;
+#X connect 17 1 16 1;
+#X connect 18 0 23 0;
+#X connect 19 0 21 0;
+#X connect 20 0 19 0;
+#X connect 21 0 1 0;
+#X connect 22 0 31 3;
+#X connect 22 0 32 1;
+#X connect 23 0 20 0;
+#X connect 23 1 24 0;
+#X connect 23 1 35 1;
+#X connect 25 0 36 0;
+#X connect 25 1 28 0;
+#X connect 28 0 27 0;
+#X connect 29 0 31 2;
+#X connect 29 0 32 0;
+#X connect 29 1 22 0;
+#X connect 29 2 36 1;
+#X connect 30 0 32 2;
+#X connect 30 0 31 4;
+#X connect 31 0 33 0;
+#X connect 31 0 34 0;
+#X connect 32 0 7 0;
+#X connect 33 0 2 0;
+#X connect 34 0 16 0;
+#X connect 35 0 26 0;
+#X connect 36 0 35 0;
+#X connect 37 0 18 0;
+#X connect 37 1 14 0;
+#X connect 37 2 8 0;
+#X connect 37 3 15 0;
+#X connect 37 4 16 1;
+#X restore 326 327 pd load_soundfile;
+#N canvas 302 198 532 423 check_soundfile 0;
+#X obj 164 141 iemlib/soundfile_info;
+#X msg 163 115 read \$1;
+#X obj 52 -37 inlet;
+#X obj 72 69 unpack f s;
+#X obj 165 168 t l b;
+#X obj 367 326 outlet bad_load;
+#X obj 171 209 unpack f s f f f;
+#X obj 100 341 outlet create;
+#X obj 104 281 pack f f f f s;
+#X text 110 309 index rate length channels filename;
+#X obj 33 202 zexy/demultiplex 0 1;
+#X msg 114 170 0;
+#X obj 90 8 t l b;
+#X msg 157 38 1;
+#X connect 0 0 4 0;
+#X connect 1 0 0 0;
+#X connect 2 0 12 0;
+#X connect 3 0 10 0;
+#X connect 3 1 1 0;
+#X connect 4 0 6 0;
+#X connect 4 1 11 0;
+#X connect 6 0 8 1;
+#X connect 6 1 8 4;
+#X connect 6 2 8 2;
+#X connect 6 4 8 3;
+#X connect 8 0 7 0;
+#X connect 10 0 8 0;
+#X connect 10 1 5 0;
+#X connect 11 0 10 1;
+#X connect 12 0 3 0;
+#X connect 12 1 13 0;
+#X connect 13 0 10 1;
+#X restore 326 264 pd check_soundfile;
+#X msg 521 205 clear;
+#X obj 522 228 s pd-\$0tables;
+#X obj 624 90 loadbang;
+#X obj 586 122 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 432 558 outlet index;
+#X obj 154 555 outlet tables;
+#X obj 308 557 outlet info;
+#N canvas 0 0 1018 692 output_data 0;
+#X obj 160 335 zexy/tabdump;
+#X msg 280 226 symbol \$2/\$1;
+#X obj 838 590 outlet index;
+#X obj 111 624 outlet tables;
+#X obj 672 597 outlet info;
+#X obj 218 16 inlet;
+#X msg 186 427 \$3;
+#X obj 186 456 tof/iterate;
+#X obj 187 478 pack f s;
+#X obj 280 251 t s s b;
+#X obj 187 529 list prepend;
+#X obj 184 556 t l l;
+#X obj 160 365 t b l l;
+#X obj 115 582 list;
+#X msg 160 309 set \$1/i \, bang;
+#X obj 254 85 t l l;
+#X obj 280 155 unpack f s;
+#X obj 280 201 pack f s;
+#X obj 789 91 inlet id;
+#X msg 187 504 \$2/\$1;
+#X connect 0 0 12 0;
+#X connect 1 0 9 0;
+#X connect 5 0 15 0;
+#X connect 6 0 7 0;
+#X connect 7 0 8 0;
+#X connect 8 0 19 0;
+#X connect 9 0 14 0;
+#X connect 9 1 8 1;
+#X connect 9 2 10 1;
+#X connect 10 0 11 0;
+#X connect 11 0 13 1;
+#X connect 11 1 10 1;
+#X connect 12 0 13 0;
+#X connect 12 1 6 0;
+#X connect 12 2 4 0;
+#X connect 13 0 3 0;
+#X connect 14 0 0 0;
+#X connect 15 0 16 0;
+#X connect 15 1 2 0;
+#X connect 16 0 17 0;
+#X connect 17 0 1 0;
+#X connect 18 0 17 1;
+#X connect 19 0 10 0;
+#X restore 221 417 pd output_data;
+#X obj 221 159 cyclone/tosymbol;
+#X obj 625 149 t b b b b;
+#X obj 395 165 f 0;
+#X obj 326 292 t l l;
+#X msg 445 222 \$1;
+#X obj 171 76 route add float bang symbol;
+#X obj 646 116 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X obj 162 120 t b a b;
+#X obj 221 367 spigot 1;
+#X msg 265 319 0;
+#X msg 165 308 1;
+#X obj 648 241 tof/param id;
+#X connect 0 0 18 0;
+#X connect 2 0 21 0;
+#X connect 2 1 4 0;
+#X connect 2 2 8 0;
+#X connect 3 0 21 0;
+#X connect 4 0 16 0;
+#X connect 4 1 2 2;
+#X connect 5 0 6 0;
+#X connect 7 0 14 0;
+#X connect 8 0 14 0;
+#X connect 12 0 10 0;
+#X connect 12 1 11 0;
+#X connect 12 2 9 0;
+#X connect 13 0 2 0;
+#X connect 14 0 2 2;
+#X connect 14 1 5 0;
+#X connect 14 2 24 0;
+#X connect 15 0 2 1;
+#X connect 16 0 3 0;
+#X connect 16 1 17 0;
+#X connect 17 0 15 1;
+#X connect 18 0 20 0;
+#X connect 18 1 2 1;
+#X connect 18 2 15 0;
+#X connect 18 3 2 0;
+#X connect 18 4 13 0;
+#X connect 19 0 14 0;
+#X connect 20 0 23 0;
+#X connect 20 1 13 0;
+#X connect 20 2 22 0;
+#X connect 21 0 12 0;
+#X connect 22 0 21 1;
+#X connect 23 0 21 1;
+#X connect 24 0 3 1;
+#X connect 24 0 12 1;