[CM] Scheme - cm 3.6.0 beta

[Heinrich Taube]

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