[CM] Scheme - cm 3.6.0 beta

Heinrich Taube taube at uiuc.edu
Wed Apr 21 05:05:35 PDT 2010

;                               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))

More information about the Cmdist mailing list