[PD] a safe sound file loader with readsf~

[eskogen at usfamily.net]

hi list,

as per miller's advice, i've tried to make an abstraction to load .wavs into a table using readsf~. i start by resizing the table to fit the wav size, but this seems to always turn the audio off (at least, i think it's the resize that's doing it). so i'm getting sporadic results.

any pd guru care to take a look and tell me what i'm doing wrong?

thanks,

-- eric

PS: thanks to all on the list who have helped me sort out my questions. i'm slowly getting the hang of pd.. ha









SAFELOADER:

#N canvas 407 115 313 546 12;
#X obj 31 16 inlet;
#X msg 149 395 \; \$1 resize \$2;
#X obj 149 350 symbol \$1;
#X obj 149 377 pack s 0;
#X obj 31 204 readsf~ 2;
#X msg 31 39 open \$1;
#X obj 31 308 /~ 2;
#X obj 31 474 tabwrite~ \$1;
#X obj 63 173 b;
#X obj 80 243 b;
#X msg 53 115 1;
#X obj 53 76 b;
#X obj 149 326 b;
#X msg 63 308 bang;
#X msg 80 385 stop;
#X msg 151 153 \; \$1 normalize 1;
#X obj 80 451 outlet;
#X obj 80 428 b;
#X obj 149 430 b;
#X msg 149 458 \; pd dsp 1;
#X obj 149 247 wavinfo;
#X floatatom 206 296 10 0 0;
#X obj 193 431 print;
#X text 136 31 needs wavinfo from ext13;
#X text 122 15 e.skogen safeloader;
#X obj 53 95 delay 50;
#X msg 233 395 \; \$1 const 0;
#X connect 0 0 5 0;
#X connect 0 0 20 0;
#X connect 1 0 22 0;
#X connect 2 0 3 0;
#X connect 3 0 1 0;
#X connect 3 0 26 0;
#X connect 4 0 6 0;
#X connect 4 1 6 0;
#X connect 4 2 9 0;
#X connect 5 0 11 0;
#X connect 5 0 4 0;
#X connect 6 0 7 0;
#X connect 8 0 13 0;
#X connect 9 0 14 0;
#X connect 10 0 8 0;
#X connect 10 0 4 0;
#X connect 11 0 25 0;
#X connect 12 0 2 0;
#X connect 13 0 7 0;
#X connect 14 0 7 0;
#X connect 14 0 17 0;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 20 0 12 0;
#X connect 20 0 3 1;
#X connect 20 0 21 0;
#X connect 25 0 10 0;
#X connect 25 0 18 0;







TESTPATCH:

#N canvas 96 257 320 289 12;
#X obj 112 76 openpanel;
#X obj 112 51 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X obj 45 215 dac~;
#X obj 45 149 bng 15 250 50 0 empty empty empty 0 -6 0 8 -262144 -1
-1;
#X text 63 150 trigger;
#X obj 45 172 tabplay~ sample1;
#X obj 182 25 table sample1;
#X obj 112 102 safeloader sample1;
#X obj 45 123 delay 500;
#X obj 45 104 b;
#X text 16 2 // safe loader for PD;
#X connect 0 0 7 0;
#X connect 0 0 9 0;
#X connect 1 0 0 0;
#X connect 3 0 5 0;
#X connect 5 0 2 0;
#X connect 5 0 2 1;
#X connect 8 0 3 0;
#X connect 9 0 8 0;



------ http://USFamily.Net/info - Unlimited Internet - From $8.99/mo! ------