#N canvas 569 167 782 538 12;
#X obj 95 252 soundfiler;
#N canvas 0 50 450 278 (subpatch) 0;
#X array \$1-R 361620 float 2;
#X coords 0 1 361620 -1 200 140 1;
#X restore 509 207 graph;
#N canvas 0 50 450 278 (subpatch) 0;
#X array \$1-L 361620 float 2;
#X coords 0 1 361620 -1 200 140 1 0 0;
#X restore 510 44 graph;
#X msg 95 226 read -resize \$2 \$1-L \$1-R;
#X obj 64 378 i;
#X text 3 166 name of enquiring lecteur;
#X obj 32 350 t a b;
#N canvas 380 413 636 509 arguments 0;
#X obj 107 152 select symbol;
#X obj 182 126 symbol;
#X obj 242 126 symbol \$2;
#X obj 107 126 symbol \$1;
#X obj 111 273 pack s s;
#X obj 111 373 spigot;
#X obj 111 399 outlet;
#X obj 242 152 select symbol;
#X text 333 152 detect empty symbol arguments;
#X obj 107 50 t b b b b;
#X obj 317 126 symbol;
#X obj 329 270 ||;
#X msg 144 202 1;
#X msg 242 177 1;
#X obj 111 298 t l b;
#X obj 317 176 t s b;
#X msg 344 199 0;
#X obj 182 176 t s b;
#X msg 209 199 0;
#X obj 329 293 t f f;
#X obj 361 320 == 0;
#X text 368 293 1 if one or two args missing;
#X text 374 339 closing spigot if args missing;
#X obj 314 369 i;
#X obj 314 404 sel 1;
#X obj 107 178 t b b;
#X obj 107 23 inlet;
#X msg 314 436 Error: needs two arguments;
#X obj 314 472 print memoire;
#X connect 0 0 25 0;
#X connect 0 1 17 0;
#X connect 1 0 0 1;
#X connect 2 0 7 0;
#X connect 3 0 0 0;
#X connect 4 0 14 0;
#X connect 5 0 6 0;
#X connect 7 0 13 0;
#X connect 7 1 15 0;
#X connect 9 0 3 0;
#X connect 9 1 1 0;
#X connect 9 2 2 0;
#X connect 9 3 10 0;
#X connect 10 0 7 1;
#X connect 11 0 19 0;
#X connect 12 0 11 0;
#X connect 13 0 11 1;
#X connect 14 0 5 0;
#X connect 14 1 23 0;
#X connect 15 0 4 1;
#X connect 15 1 16 0;
#X connect 16 0 11 1;
#X connect 17 0 4 0;
#X connect 17 1 18 0;
#X connect 18 0 11 0;
#X connect 19 0 23 1;
#X connect 19 1 20 0;
#X connect 20 0 5 1;
#X connect 23 0 24 0;
#X connect 24 0 27 0;
#X connect 25 0 23 0;
#X connect 25 1 12 0;
#X connect 26 0 9 0;
#X connect 27 0 28 0;
#X restore 95 201 pd arguments;
#X text 453 516 (c) 2018 Peter P. under the BSD license;
#X msg 400 197 dsp 1;
#X obj 400 225 s pd;
#X obj 341 141 loadbang;
#X obj 341 166 t b b b;
#X obj 364 261 samplerate~;
#X obj 95 329 t f f;
#X obj 127 357 /;
#X obj 127 385 outlet;
#X obj 378 362 ==;
#X obj 364 289 t f f;
#X text 404 362 do samplerates match?;
#X obj 378 387 sel 0;
#X obj 32 145 r \$1-memoire;
#X obj 378 415 symbol \$2;
#X msg 378 442 \$1 sampling rate is different from Pd's sampling rate!
;
#X obj 378 481 print memoire \$1;
#X obj 162 278 route 0;
#X text 19 81 Arg2: Filename of mono or stereo audiofile to load;
#X text 20 6 [memoire]: Abstraction reading soundfiles into tables.
;
#X obj 162 307 list split 1;
#X obj 242 372 list split 1;
#X obj 242 398 list split 1;
#X msg 32 497 \; \$1 \$2 \$3;
#X obj 242 433 outlet;
#X text 119 404 length(sec);
#X text 106 516 send length in samples and nums of channels;
#X text 240 453 num channels;
#X obj 99 445 list trim;
#X obj 32 471 pack s f f;
#X obj 278 130 inlet;
#X text 21 43 Arg1: Unique name by which this abstraction is addressed
from [lecteur~];
#X text 98 21 Use together with [lecteur~].;
#X text 266 112 bang to reload file;
#X connect 0 0 14 0;
#X connect 0 1 25 0;
#X connect 3 0 0 0;
#X connect 4 0 37 1;
#X connect 6 0 37 0;
#X connect 6 1 4 0;
#X connect 7 0 3 0;
#X connect 9 0 10 0;
#X connect 11 0 12 0;
#X connect 12 0 7 0;
#X connect 12 1 13 0;
#X connect 12 2 9 0;
#X connect 13 0 18 0;
#X connect 14 0 4 1;
#X connect 14 1 15 0;
#X connect 15 0 16 0;
#X connect 17 0 20 0;
#X connect 18 0 15 1;
#X connect 18 1 17 1;
#X connect 20 0 22 0;
#X connect 21 0 6 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 25 1 28 0;
#X connect 28 0 17 0;
#X connect 28 1 29 0;
#X connect 29 1 30 0;
#X connect 30 0 32 0;
#X connect 30 0 36 0;
#X connect 36 0 37 2;
#X connect 37 0 31 0;
#X connect 38 0 12 0;