audacia
/
audacia
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Ensure that Silence Finder labels are not late

This commit is contained in:
SteveDaulton 2020-03-12 15:37:58 +00:00
parent f14a3dd90f
commit 70f981e847
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
plug-ins/SilenceMarker.ny
View File

@ -63,13 +63,13 @@ $control label-position (_ "Label placement (seconds before silence ends)") real
(min-len (* min-silence srate)))
(do ((val (snd-fetch sig) (snd-fetch sig)))
((not val) sil-count)
(incf sample-count)
(cond
((< val threshold)
(setf sil-count (1+ sil-count)))
(incf sil-count))
(t (when (> sil-count min-len)
(add-label sample-count srate label-position))
(setf sil-count 0))))
(setf sil-count 0)))
(incf sample-count))
;; If long trailing silence, add final label at 'min-silence' AFTER last sound.
(when (> sil-count min-len)
(setf final-silence (- sample-count sil-count))