17 Jan
2013
17 Jan
'13
4:24 p.m.
Bill Schottstaedt:
(call-with-output-file "test.ascii" (lambda
(p)
(let ((r (make-readin "filename.wav")))
(do () ((= (mus-location r) (mus-length r)))
(format p "~A~%" (r))))))
Can't get my head around 'do'. Prefer this:
(call-with-output-file "test.ascii" (lambda (p)
(let ((r (make-readin "filename.wav")))
(while (< (mus-location r) (mus-length r))
(format p "~A~%" (r))))))
17 Jan
17 Jan
4:33 p.m.
New subject: Library for simple audio programming
i note that the sox command for this is still the winner if we're just
counting brevity.
On Thu, Jan 17, 2013 at 10:24 AM, Kjetil Matheussen <
k.s.matheussen(a)notam02.no> wrote:
Bill Schottstaedt:
(call-with-output-file "test.ascii" (lambda (p)
(let ((r (make-readin
"filename.wav")))
(do () ((= (mus-location r) (mus-length r)))
(format p "~A~%" (r))))))
Can't get my head around 'do'. Prefer this:
(call-with-output-file "test.ascii" (lambda (p)
(let ((r (make-readin "filename.wav")))
(while (< (mus-location r) (mus-length r))
(format p "~A~%" (r))))))
______________________________**_________________
Linux-audio-user mailing list
Linux-audio-user@lists.**linuxaudio.org<Linux-audio-user@lists.linuxaudio.org>
http://lists.linuxaudio.org/**listinfo/linux-audio-user<http://lists.lin…
5:12 p.m.
New subject: Library for simple audio programming
Not if you're unsure about which channel to read from:
(call-with-output-file "test.ascii" (lambda (p)
(let ((r0 (make-readin "filename.wav" 0))
(r1 (make-readin "filename.wav" 1)))
(while (and (< (mus-location r0) (mus-length r0))
(< (mus-location r1) (mus-length r1)))
(format p "~A~%" (if (= 0 (random 1)) (r0) (r1)))))))
On 17.01.2013 16:33, Paul Davis wrote:
i note that the sox command for this is still the
winner if we're
just counting brevity.
On Thu, Jan 17, 2013 at 10:24 AM, Kjetil Matheussen wrote:
Bill Schottstaedt:
Links:
------
[1] mailto:Linux-audio-user@lists.linuxaudio.org
[2] http://lists.linuxaudio.org/listinfo/linux-audio-user
[3] mailto:k.s.matheussen@notam02.no (call-with-output-file "test.ascii"
(lambda (p)
(let ((r (make-readin "filename.wav")))
(do () ((= (mus-location r) (mus-length r)))
(format p "~A~%" (r))))))
Can't get my head around 'do'. Prefer this:
(call-with-output-file "test.ascii" (lambda (p)
(let ((r (make-readin "filename.wav")))
(while (< (mus-location r) (mus-length r))
(format p "~A~%" (r))))))
_______________________________________________
Linux-audio-user mailing list
Linux-audio-user(a)lists.linuxaudio.org [1]
http://lists.linuxaudio.org/listinfo/linux-audio-user [2]
4357
days inactive
4357
days old
linux-audio-user@lists.linuxaudio.org
2 comments
2 participants
participants (2)
-
Kjetil Matheussen -
Paul Davis