; name channels duration
(define sf1 '("\"C:/sampledir/samp1.wav\"" 2 10))
(define sf2 '("\"C:/sampledir/samp2.wav\"" 1 32))
doing this sort of thing for lots of files really qute simple using
just loop and clm file readers:
(define file-info
(loop for f in (directory "/sampledir/*.wav")
collect (list f (mus-sound-chans f) (mus-sound-duration f)))
)
(define sf1 (nth file-info 0))
_______________________________________________
Cmdist mailing list
[email protected]
http://ccrma-mail.stanford.edu/mailman/listinfo/cmdist
