16 Jan
2013
16 Jan
'13
12:28 p.m.
James Harkins:
FWIW, this task is incredibly easy in SuperCollider:
Perhaps it's easier than writing C, but there
should be many alternatives that are easier than your example.
For instance SND:
(define reader (make-readin "filename.wav"))
(call-with-output-file "outfile.txt"
(lambda (out)
(let loop ((i 0))
(if (< i (mus-length reader))
(begin
(format out "~A\n" (readin reader))
(loop (1+ i)))))))
(There are probably systems where you can do this far simpler though.)
17 Jan
17 Jan
4:10 a.m.
New subject: Library for simple audio programming
On 01/16/2013 07:28 PM, Kjetil Matheussen wrote:
James Harkins:
I would debate that SND is "easier." Mine appeared to be more verbose
because I commented heavily to explain everything. Without comments:
f = SoundFile.openRead(Platform.resourceDir +/+ "sounds/a11wlk01.wav");
f.seek(4410); // 0.1 seconds in
f.readData(d = FloatArray.newClear(50));
f.close;
o = File("~/samples.txt", "w");
d.do { |sample| o << sample << Char.nl };
o.close;
... SC actually clocks in with one less line.
Not many people use SC for commandline scripting, but it is possible
(attached).
sclang sf-to-text.scd ~/share/SC/sounds/drums/kix/aphexbd.aif
~/tmp/testout.txt 100 50
hjh
FWIW, this task is incredibly easy in
SuperCollider:
Perhaps it's easier than writing C, but there
should be many alternatives that are easier than your example.
For instance SND:
(define reader (make-readin "filename.wav"))
(call-with-output-file "outfile.txt"
(lambda (out)
(let loop ((i 0))
(if (< i (mus-length reader))
(begin
(format out "~A\n" (readin reader))
(loop (1+ i)))))))
4419
days inactive
4420
days old
linux-audio-user@lists.linuxaudio.org
1 comments
2 participants
participants (2)
-
James Harkins -
Kjetil Matheussen