Whitespace corrections in Nyquist plug-ins
This commit is contained in:
parent
2ecc98225f
commit
e5ca3cefba
|
@ -39,7 +39,7 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
|
||||||
(cond
|
(cond
|
||||||
((not (or f0 f1)) ; This should never happen for a 'spectral' effect.
|
((not (or f0 f1)) ; This should never happen for a 'spectral' effect.
|
||||||
(throw 'error-message
|
(throw 'error-message
|
||||||
(format nil (_ "~aPlease select frequencies.") p-err)))
|
(format nil (_ "~aPlease select frequencies.") p-err)))
|
||||||
((and f0 f1 (= f0 f1))
|
((and f0 f1 (= f0 f1))
|
||||||
(throw 'error-message
|
(throw 'error-message
|
||||||
(format nil (_ "~aBandwidth is zero (the upper and lower~%~
|
(format nil (_ "~aBandwidth is zero (the upper and lower~%~
|
||||||
|
|
|
@ -68,7 +68,7 @@ $control preset (_ "Handy Presets (override controls)") choice (("None" (_ "None
|
||||||
((or (> x 100)(> y 100))
|
((or (> x 100)(> y 100))
|
||||||
(throw 'err (format nil (_ "~adB values cannot be more than +100 dB.~%~%~
|
(throw 'err (format nil (_ "~adB values cannot be more than +100 dB.~%~%~
|
||||||
Hint: 6 dB doubles the amplitude~%~
|
Hint: 6 dB doubles the amplitude~%~
|
||||||
-6 dB halves the amplitude.") err))))))
|
-6 dB halves the amplitude.") err))))))
|
||||||
|
|
||||||
;;; Select and apply fade
|
;;; Select and apply fade
|
||||||
(defun fade (sig type curve g0 g1)
|
(defun fade (sig type curve g0 g1)
|
||||||
|
|
|
@ -21,7 +21,7 @@ $control fxname (_ "Select target EQ effect") choice (("Graphic" (_ "Graphic EQ"
|
||||||
("FilterCurve" (_ "Filter Curve EQ"))) 0
|
("FilterCurve" (_ "Filter Curve EQ"))) 0
|
||||||
|
|
||||||
$control infile (_ "Equalization XML file") file "" "*default*/EQCurves.xml" (((_ "XML file") (xml XML))
|
$control infile (_ "Equalization XML file") file "" "*default*/EQCurves.xml" (((_ "XML file") (xml XML))
|
||||||
((_ "All files") (""))) "open,exists"
|
((_ "All files") (""))) "open,exists"
|
||||||
|
|
||||||
$control overwrite (_ "If output text file exists") choice (("Append" (_ "Append number"))
|
$control overwrite (_ "If output text file exists") choice (("Append" (_ "Append number"))
|
||||||
("Overwrite" (_ "Overwrite"))
|
("Overwrite" (_ "Overwrite"))
|
||||||
|
|
|
@ -18,11 +18,11 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
|
||||||
|
|
||||||
;i18n-hint: "Browse..." is text on a button that launches a file browser.
|
;i18n-hint: "Browse..." is text on a button that launches a file browser.
|
||||||
$control files (_ "Select file(s) to install") file (_ "Browse...") "~/Desktop/" (((_ "Plug-in") (ny NY))
|
$control files (_ "Select file(s) to install") file (_ "Browse...") "~/Desktop/" (((_ "Plug-in") (ny NY))
|
||||||
((_ "Lisp file") (lsp LSP))
|
((_ "Lisp file") (lsp LSP))
|
||||||
((_ "HTML file") (htm HTM html HTML))
|
((_ "HTML file") (htm HTM html HTML))
|
||||||
((_ "Text file") (txt TXT))
|
((_ "Text file") (txt TXT))
|
||||||
((_ "All supported") (ny NY lsp LSP htm HTM html HTML txt TXT))
|
((_ "All supported") (ny NY lsp LSP htm HTM html HTML txt TXT))
|
||||||
((_ "All files") (""))) "open,exists,multiple"
|
((_ "All files") (""))) "open,exists,multiple"
|
||||||
$control overwrite (_ "Allow overwriting") choice ((_ "Disallow") (_ "Allow")) 0
|
$control overwrite (_ "Allow overwriting") choice ((_ "Disallow") (_ "Allow")) 0
|
||||||
|
|
||||||
|
|
||||||
|
|
|
@ -13,9 +13,9 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
|
||||||
$control number (_ "Limit output to first") int-text (_ "samples") 100 1 1000000
|
$control number (_ "Limit output to first") int-text (_ "samples") 100 1 1000000
|
||||||
$control units (_ "Measurement scale") choice ((_ "dB") (_ "Linear")) 0
|
$control units (_ "Measurement scale") choice ((_ "dB") (_ "Linear")) 0
|
||||||
$control filename (_ "Export data to") file (_ "Select a file") "*default*/sample-data.txt" (((_ "Text file") (txt TXT))
|
$control filename (_ "Export data to") file (_ "Select a file") "*default*/sample-data.txt" (((_ "Text file") (txt TXT))
|
||||||
((_ "CSV files") (csv CSV))
|
((_ "CSV files") (csv CSV))
|
||||||
((_ "HTML files") (html HTML htm HTM))
|
((_ "HTML files") (html HTML htm HTM))
|
||||||
((_ "All files") (""))) "save,overwrite"
|
((_ "All files") (""))) "save,overwrite"
|
||||||
$control fileformat (_ "Index (text files only)") choice ((_ "None")
|
$control fileformat (_ "Index (text files only)") choice ((_ "None")
|
||||||
("Count" (_ "Sample Count"))
|
("Count" (_ "Sample Count"))
|
||||||
("Time" (_ "Time Indexed")))
|
("Time" (_ "Time Indexed")))
|
||||||
|
|
|
@ -9,7 +9,7 @@ $release 2.3.0
|
||||||
$copyright (_ "Released under terms of the GNU General Public License version 2")
|
$copyright (_ "Released under terms of the GNU General Public License version 2")
|
||||||
|
|
||||||
$control filename (_ "Select file") file "" "*default*/sample-data.txt" (((_ "Text file") (txt TXT))
|
$control filename (_ "Select file") file "" "*default*/sample-data.txt" (((_ "Text file") (txt TXT))
|
||||||
((_ "All files") (""))) "open,exists"
|
((_ "All files") (""))) "open,exists"
|
||||||
$control bad-data (_ "Invalid data handling") choice (("ThrowError" (_ "Throw Error"))
|
$control bad-data (_ "Invalid data handling") choice (("ThrowError" (_ "Throw Error"))
|
||||||
("ReadAsZero" (_ "Read as Zero"))) 0
|
("ReadAsZero" (_ "Read as Zero"))) 0
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue