Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2026-01-12 07:35:51 +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

35
plug-ins/highpass.ny
View File

@@ -1,28 +1,31 @@
;nyquist plug-in
;version 4
;type process
;preview linear
$name (_"High Pass Filter")
;manpage "High_Pass_Filter"
;debugbutton disabled
$action (_"Performing High Pass Filter...")
$author (_"Dominic Mazzoni")
$copyright (_"Released under terms of the GNU General Public License version 2")
$nyquist plug-in
$version 4
$type process
$preview linear
$name (_ "High Pass Filter")
$manpage "High_Pass_Filter"
$debugbutton disabled
$action (_ "Performing High Pass Filter...")
$author (_ "Dominic Mazzoni")
$copyright (_ "Released under terms of the GNU General Public License version 2")
;; highpass.ny by Dominic Mazzoni
;; Last updated August 2015
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
;; 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 frequency (_"Frequency (Hz)") float-text "" 1000 0 nil
$control rolloff (_"Rolloff (dB per octave)") choice ((_"6 dB") (_"12 dB") (_"24 dB") (_"36 dB") (_"48 dB")) 0
$control frequency (_ "Frequency (Hz)") float-text "" 1000 0 nil
$control rolloff (_ "Rolloff (dB per octave)") choice ((_ "6 dB") (_ "12 dB") (_ "24 dB") (_ "36 dB") (_ "48 dB")) 0
(cond
((< frequency 0.1) (_"Frequency must be at least 0.1 Hz."))
((< frequency 0.1) (_ "Frequency must be at least 0.1 Hz."))
((>= frequency (/ *sound-srate* 2.0))
(format nil (_"Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~
(format nil (_ "Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~
Track sample rate is ~a Hz~%~
Frequency must be less than ~a Hz.")
frequency