[linux-audio-user] batch sample editing
Kjetil Svalastog Matheussen <k.s.matheussen@notam02.no>
k.s.matheussen at notam02.no
Sat Aug 6 09:25:50 EDT 2005
> John Mulholland:
>>
>> 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)
>
>
>
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))
More information about the Linux-audio-user
mailing list