[PD] sndfiler - or other ogg audio wavetable object in pd-extended

[Frank Barknecht]

Hallo,
glerm soares hat gesagt: // glerm soares wrote:

> Is there new versions of the [sndfiler] object or something similar (an
> object similar to [soundfiler] that could read ogg sound files into tables )
> that comes with pd-extended compilation? Why pd-extended can't compile this?

You can also use oggread~ with tabwrite~ to load ogg files into tables.
Use an upsampled subpatch to do this faster than the file's duration as
in the attached example.

Ciao
-- 
Frank
-------------- next part --------------
#N canvas 334 258 840 468 10;
#N canvas 285 182 836 478 loadfast 0;
#X obj 114 152 switch~;
#X obj 68 55 inlet;
#X msg 114 123 1;
#X obj 167 53 loadbang;
#X text 63 34 filename;
#X obj 91 216 oggread~;
#X msg 91 191 open \$1 \, start;
#X msg 165 216 0;
#X obj 68 77 t b a b;
#X obj 156 244 outlet;
#X obj 250 52 inlet;
#X text 290 94 <--- upsampled by factor of 128 \, then switched off
;
#X obj 38 317 tabwrite~ \$0-samp-1;
#X obj 180 317 tabwrite~ \$0-samp-2;
#X msg 250 72 set 64 1 \$1 \, 0;
#X msg 167 96 set 64 1 128 \, 0;
#X text 315 129 Make sure to use blocksize 64 here \, as oggread doesn't
like anything else!;
#X connect 1 0 8 0;
#X connect 2 0 0 0;
#X connect 3 0 15 0;
#X connect 5 0 12 0;
#X connect 5 1 13 0;
#X connect 5 3 7 0;
#X connect 5 3 9 0;
#X connect 6 0 5 0;
#X connect 7 0 0 0;
#X connect 8 0 12 0;
#X connect 8 0 13 0;
#X connect 8 1 6 0;
#X connect 8 2 2 0;
#X connect 10 0 14 0;
#X connect 14 0 0 0;
#X connect 15 0 0 0;
#X restore 111 159 pd loadfast;
#X obj 129 194 bng 15 250 50 0 empty empty done 17 7 1 10 -262144 -1
-1;
#X obj 79 71 openpanel;
#X msg 79 49 bang;
#X obj 413 206 * 44100;
#X floatatom 413 145 5 0 0 1 buffer_length_in_seconds - -;
#X msg 413 235 resize \$1;
#X msg 459 183 22050;
#X msg 508 183 44100;
#X text 569 185 choose file samplerate;
#X obj 79 244 timer;
#X obj 79 129 t b a;
#X floatatom 79 275 10 0 0 0 - - -;
#X obj 413 60 loadbang;
#X msg 449 93 \; pd dsp 1;
#X msg 413 124 8;
#X obj 79 107 symbol;
#X msg 152 71 bang;
#X floatatom 185 138 5 0 0 0 - - -;
#X msg 152 93 64;
#X msg 185 94 128;
#X msg 218 93 512;
#X msg 253 93 1024;
#X msg 339 222 const 0;
#X obj 507 261 table \$0-samp-1;
#X obj 507 287 table \$0-samp-2;
#X obj 413 286 s \$0-samp-2;
#X obj 413 262 s \$0-samp-1;
#X connect 0 0 1 0;
#X connect 0 0 10 1;
#X connect 2 0 16 0;
#X connect 3 0 2 0;
#X connect 4 0 6 0;
#X connect 5 0 4 0;
#X connect 6 0 26 0;
#X connect 6 0 27 0;
#X connect 7 0 4 1;
#X connect 8 0 4 1;
#X connect 10 0 12 0;
#X connect 11 0 10 0;
#X connect 11 1 0 0;
#X connect 13 0 15 0;
#X connect 13 0 14 0;
#X connect 15 0 5 0;
#X connect 16 0 11 0;
#X connect 17 0 16 0;
#X connect 18 0 0 1;
#X connect 19 0 18 0;
#X connect 20 0 18 0;
#X connect 21 0 18 0;
#X connect 22 0 18 0;
#X connect 23 0 26 0;
#X connect 23 0 27 0;