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

Update Nyquist plug-in headers

Browse Source 
Mostly consistency updates, plus a couple of minor fixes.
Line breaks in translated control text strings do not work, so have
been removed.
Obsolete ";categories" commands removed, and ";info" commands replaced
with standard Lisp comments.
This commit is contained in:
Steve Daulton
2018-03-21 22:49:35 +00:00
parent 2ccc8eec9b
commit 975e95abad
26 changed files with 627 additions and 559 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
plug-ins/SpectralEditParametricEQ.ny
View File

@@ -1,19 +1,23 @@
;nyquist plug-in
;version 4
;type process spectral
;preview linear
$name (_"Spectral edit parametric EQ")
;manpage "Spectral_edit_parametric_EQ"
$action (_"Filtering...")
$author (_"Paul Licameli")
$copyright (_"Released under terms of the GNU General Public License version 2")
$nyquist plug-in
$version 4
$type process spectral
$preview linear
$name (_ "Spectral edit parametric EQ")
$manpage "Spectral_edit_parametric_EQ"
$action (_ "Filtering...")
$author (_ "Paul Licameli")
$copyright (_ "Released under terms of the GNU General Public License version 2")
;; SpectralEditParametricEQ.ny by Paul Licameli, November 2014.
;; Updated by Steve Daulton 2014 / 2015.
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;;
;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control control-gain (_"Gain (dB)") real "" 0 -24 24
$control control-gain (_ "Gain (dB)") real "" 0 -24 24
(defun wet (sig gain fc bw)
(eq-band sig fc gain (/ bw 2)))
@@ -33,22 +37,22 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24
(env (snd-pwl 0.0 rate breakpoints)))
(cond
((not (or f0 f1)) ; This should never happen for a 'spectral' effect.
(throw 'error-message (format nil (_"~aPlease select frequencies.") p-err)))
(throw 'error-message (format nil (_ "~aPlease select frequencies.") p-err)))
((not f0)
(throw 'error-message (format nil (_"~aLow frequency is undefined.") p-err)))
(throw 'error-message (format nil (_ "~aLow frequency is undefined.") p-err)))
((not f1)
(throw 'error-message (format nil (_"~aHigh frequency is undefined.") p-err)))
(throw 'error-message (format nil (_ "~aHigh frequency is undefined.") p-err)))
((and fc (= fc 0))
(throw 'error-message (format nil (_"~aCenter frequency must be above 0 Hz.") p-err)))
(throw 'error-message (format nil (_ "~aCenter frequency must be above 0 Hz.") p-err)))
((and f1 (> f1 (/ *sound-srate* 2)))
(throw 'error-message
(format nil (_"~aFrequency selection is too high for track sample rate.~%~
(format nil (_ "~aFrequency selection is too high for track sample rate.~%~
For the current track, the high frequency setting cannot~%~
be greater than ~a Hz")
p-err (/ *sound-srate* 2))))
((and bw (= bw 0))
(throw 'error-message
(format nil (_"~aBandwidth is zero (the upper and lower~%~
(format nil (_ "~aBandwidth is zero (the upper and lower~%~
frequencies are both ~a Hz).~%~
Please select a frequency range.")
p-err f0)))
@@ -59,7 +63,7 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24
(prod (diff 1.0 env) sig))))))
(catch 'error-message
(setf p-err (format nil (_"Error.~%")))
(setf p-err (format nil (_ "Error.~%")))
(if (= control-gain 0)
nil ; Do nothing
(multichan-expand #'result *track*)))