Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 551595df76
Fetching contributors…

Cannot retrieve contributors at this time

227 lines (226 sloc) 5.776 kb
#N struct 1014-symarray float x array symbols 1014-sym;
#N struct 1014-sym symbol name float on;
#N canvas 144 105 1007 613 10;
#N canvas 21 0 676 355 \$0-tables 0;
#X restore 362 214 pd \$0-tables;
#X obj 652 164 select 0;
#X obj 652 70 loadbang;
#N canvas 264 188 685 679 make-table 0;
#X obj 75 564 outlet;
#X text 69 587 <filename \, tablename>;
#X obj 75 27 inlet;
#X obj 121 478 s pd-\$0-tables;
#X msg 317 288 clear;
#X obj 317 241 inlet;
#X text 363 241 reset;
#X text 73 7 filename index prefix;
#X obj 202 321 f;
#X obj 233 321 + 1;
#X msg 220 291 0;
#X obj 202 352 * 25;
#X obj 121 374 list prepend;
#X text 233 381 ypos filename index prefix;
#X text 298 459 table at ypos <\$1> with name <prefix-index>;
#X msg 135 81 \$2;
#X text 170 81 index;
#X obj 98 230 spigot;
#X obj 135 209 ==;
#X obj 75 58 t a a a;
#X obj 135 186 tabread \$0-created;
#X obj 98 251 t a a b;
#X text 133 503 index;
#X msg 98 503 \$2 1;
#X obj 98 534 s \$0-created;
#X text 195 537 register table;
#X msg 121 433 obj 100 \$1 table \$4-\$3-1 \, obj 300 \$1 table \$4-\$3-2
;
#X connect 2 0 19 0;
#X connect 4 0 3 0;
#X connect 5 0 4 0;
#X connect 5 0 10 0;
#X connect 8 0 9 0;
#X connect 8 0 11 0;
#X connect 9 0 8 1;
#X connect 10 0 8 1;
#X connect 11 0 12 1;
#X connect 12 0 26 0;
#X connect 15 0 20 0;
#X connect 17 0 21 0;
#X connect 18 0 17 1;
#X connect 19 0 0 0;
#X connect 19 1 17 0;
#X connect 19 2 15 0;
#X connect 20 0 18 0;
#X connect 21 0 23 0;
#X connect 21 1 12 0;
#X connect 21 2 8 0;
#X connect 23 0 24 0;
#X connect 26 0 3 0;
#X restore 72 315 pd make-table;
#X obj 174 315 r \$0-reset;
#N canvas 0 0 898 317 load-file-into-table 0;
#X obj 88 42 inlet;
#X obj 120 131 soundfiler;
#X text 134 41 filename index prefix;
#X obj 88 219 outlet;
#X obj 88 67 t a a a;
#X obj 120 179 tabwrite \$0-created;
#X obj 120 157 max 1;
#X msg 250 154 \$2;
#X text 274 180 store sample count in table cache (but never set it
to 0!);
#X msg 120 105 read -resize \$1 \$3-\$2-1 \$3-\$2-2;
#X connect 0 0 4 0;
#X connect 1 0 6 0;
#X connect 4 0 3 0;
#X connect 4 1 9 0;
#X connect 4 2 7 0;
#X connect 6 0 5 0;
#X connect 7 0 5 1;
#X connect 9 0 1 0;
#X restore 72 339 pd load-file-into-table;
#X obj 684 113 s \$0-reset;
#X obj 652 90 t b b;
#X msg 717 89 bang;
#X text 153 100 filename index;
#X obj 652 141 list append \$1;
#X obj 705 230 s \$0-prefix;
#X obj 72 245 list append;
#X obj 158 245 r \$0-prefix;
#X obj 362 56 inlet;
#X obj 652 190 f \$0;
#X text 768 145 add prefix or \$0;
#X obj 165 582 outlet;
#X obj 77 579 outlet;
#X obj 72 58 inlet;
#X obj 72 98 list trim;
#X obj 362 142 s \$0-reset;
#X text 640 45 Initialisation:;
#X obj 801 64 r \$0-reset;
#X obj 801 114 s \$0-size;
#X obj 216 292 s \$0-size;
#N canvas 0 0 917 610 setup-tablecache 0;
#X obj 191 209 f;
#X obj 133 239 change -1;
#X obj 179 130 r \$0-reset;
#X msg 220 209 set -1;
#X obj 133 314 s \$0-created;
#X msg 133 290 resize \$1;
#X obj 101 41 inlet;
#X obj 186 358 outlet;
#X obj 101 61 t a a;
#X text 93 18 filename index prefix;
#X msg 133 86 \$2;
#X text 161 86 index;
#X obj 101 358 outlet;
#X msg 179 171 128;
#X obj 133 208 max 128;
#X obj 179 150 t b b;
#X connect 0 0 14 1;
#X connect 1 0 5 0;
#X connect 1 0 7 0;
#X connect 2 0 15 0;
#X connect 3 0 1 0;
#X connect 5 0 4 0;
#X connect 6 0 8 0;
#X connect 8 0 12 0;
#X connect 8 1 10 0;
#X connect 10 0 14 0;
#X connect 13 0 14 1;
#X connect 14 0 0 0;
#X connect 14 0 1 0;
#X connect 15 0 13 0;
#X connect 15 1 3 0;
#X restore 72 292 pd setup-tablecache;
#X obj 77 505 m_symbolarray;
#X obj 77 421 r \$0-reset;
#X msg 77 447 reset;
#X text 100 364 filename index prefix;
#X msg 206 449 \$2 \$3-\$2;
#X obj 362 88 route reset;
#X obj 717 68 bng 15 250 50 0 empty empty reset 17 7 0 10 -204786 -1
-1;
#X text 199 480 "index prefix-index";
#X obj 846 219 r \$0-size;
#X floatatom 846 251 5 0 0 0 - - -;
#X msg 801 86 128;
#X obj 884 63 r \$0-reset;
#X msg 884 88 const 0;
#X obj 884 114 s \$0-created;
#X obj 361 256 table \$0-created 128;
#X obj 119 219 s \$0-symarray;
#X obj 89 469 r \$0-symarray;
#X obj 436 113 s \$0-symarray;
#X text 84 268 now: filename index prefix;
#X obj 166 196 s \$0-reset;
#N canvas 0 0 450 300 delete 0;
#X obj 83 47 f;
#X obj 229 91 r \$0-prefix;
#X obj 115 194 send;
#X obj 115 139 t a a;
#X obj 115 91 list prepend \$0;
#X obj 83 69 t a a;
#X msg 83 234 delete \$1;
#X obj 83 260 s \$0-symarray;
#X obj 83 19 inlet;
#X msg 115 168 resize 1;
#X msg 115 117 symbol \$1-\$2-1 \, symbol \$1-\$2-2;
#X connect 0 0 5 0;
#X connect 1 0 4 1;
#X connect 3 0 9 0;
#X connect 3 1 2 1;
#X connect 4 0 10 0;
#X connect 5 0 6 0;
#X connect 5 1 4 0;
#X connect 6 0 7 0;
#X connect 8 0 0 0;
#X connect 9 0 2 0;
#X connect 10 0 3 0;
#X restore 213 171 pd delete;
#X obj 72 126 route open float reset delete size;
#X obj 390 396 tabread \$0-created;
#X obj 390 369 t a a;
#X obj 390 419 list prepend;
#X msg 390 441 size \$1 \$2;
#X connect 1 0 15 0;
#X connect 1 1 11 0;
#X connect 2 0 7 0;
#X connect 3 0 5 0;
#X connect 4 0 3 1;
#X connect 5 0 31 0;
#X connect 7 0 10 0;
#X connect 7 1 6 0;
#X connect 8 0 6 0;
#X connect 10 0 1 0;
#X connect 12 0 26 0;
#X connect 13 0 12 1;
#X connect 14 0 32 0;
#X connect 15 0 11 0;
#X connect 19 0 20 0;
#X connect 20 0 48 0;
#X connect 23 0 37 0;
#X connect 26 0 3 0;
#X connect 26 1 25 0;
#X connect 27 0 18 0;
#X connect 27 1 17 0;
#X connect 28 0 29 0;
#X connect 29 0 27 0;
#X connect 31 0 27 1;
#X connect 32 0 21 0;
#X connect 32 1 44 0;
#X connect 33 0 8 0;
#X connect 35 0 36 0;
#X connect 37 0 24 0;
#X connect 38 0 39 0;
#X connect 39 0 40 0;
#X connect 43 0 27 0;
#X connect 48 0 12 0;
#X connect 48 1 42 0;
#X connect 48 2 46 0;
#X connect 48 3 47 0;
#X connect 48 4 50 0;
#X connect 49 0 51 0;
#X connect 50 0 49 0;
#X connect 50 1 51 1;
#X connect 51 0 52 0;
#X connect 52 0 17 0;
Jump to Line
Something went wrong with that request. Please try again.