Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-15 15:11:12 +02:00
Code Issues Releases Wiki Activity

Bug 2808 Nyquist GATE function limits floor level to -60 dB

Browse Source
This commit is contained in:
SteveDaulton
2021-06-16 15:11:12 +01:00
committed by Paul Licameli
parent 6b82f43000
commit d8010a7bc6
2 changed files with 3 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
nyquist/nyquist.lsp
View File

@@ -1501,10 +1501,10 @@ loop
(format t "WARNING: ~A ~A function; setting falltime to 0.01.\n"
"falltime must be greater than zero in" source)
(setf falltime 0.01)))
(cond ((< floor 0.001)
(format t "WARNING: ~A ~A function; setting floor to 0.001.\n"
(cond ((< floor 0.00001)
(format t "WARNING: ~A ~A function; setting floor to 0.00001.\n"
"floor must be greater than zero in" source)
(setf floor 0.001)))
(setf floor 0.00001)))
(let (s) ;; s becomes sound after collapsing to one channel
(cond ((arrayp sound) ;; use s-max over all channels so that
(setf s (aref sound 0)) ;; ANY channel opens the gate