6 Aug
2005
6 Aug
'05
11:25 a.m.
John Mulholland:
Oops, one ")" too much. Replace remove-preceding-silence with this one:
(define (remove-preceding-silence infile outfile how-much)
(open-sound infile)
(set! (selection-position) 0)
(set! (selection-frames) (* (srate) how-much))
(delete-selection)
(save-sound-as outfile))
I have a large amount of aiff samples that have a predecing second or
two of ambient silence. To trim this out of each file is going to take a
very long time. Is there a program that can do this for me?
Probably a lot of programs...
Heres a solution for SND. Its probably not the most
elegant way, but anyway:
(define (for-each-file path func)
(let* ((dir (opendir path))
(entry (readdir dir)))
(while (not (eof-object? entry))
(if (and (not (string=? "." entry))
(not (string=? ".." entry)))
(func entry))
(set! entry (readdir dir)))
(closedir dir)))
(define (remove-preceding-silence infile outfile how-much)
(open-sound infile))
(set! (selection-position) 0)
(set! (selection-frames) (* (srate) how-much))
(delete-selection)
(save-sound-as outfile))
(define (delete-preceding-silence-in-dir indir outdir how-much)
(for-each-file indir
(lambda (name)
(remove-preceding-silence (string-append indir "/" name)
(string-append outdir "/" name)
how-much))))
;;(delete-preceding-silence-in-dir "/home/kjetil/testdir"
"/home/kjetil/testdirout" 2)