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

Whitespace corrections in Nyquist plug-ins

This commit is contained in:
SteveDaulton 2021-01-29 11:42:13 +00:00
parent 2ecc98225f
commit e5ca3cefba
6 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plug-ins/SpectralEditMulti.ny
View File

@ -39,7 +39,7 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
(cond
((not (or f0 f1)) ; This should never happen for a 'spectral' effect.
(throw 'error-message
(format nil (_ "~aPlease select frequencies.") p-err)))
(format nil (_ "~aPlease select frequencies.") p-err)))
((and f0 f1 (= f0 f1))
(throw 'error-message
(format nil (_ "~aBandwidth is zero (the upper and lower~%~

2
plug-ins/adjustable-fade.ny
View File

@ -68,7 +68,7 @@ $control preset (_ "Handy Presets (override controls)") choice (("None" (_ "None
((or (> x 100)(> y 100))
(throw 'err (format nil (_ "~adB values cannot be more than +100 dB.~%~%~
Hint: 6 dB doubles the amplitude~%~
-6 dB halves the amplitude.") err))))))
-6 dB halves the amplitude.") err))))))
;;; Select and apply fade
(defun fade (sig type curve g0 g1)

2
plug-ins/eq-xml-to-txt-converter.ny
View File

@ -21,7 +21,7 @@ $control fxname (_ "Select target EQ effect") choice (("Graphic" (_ "Graphic EQ"
("FilterCurve" (_ "Filter Curve EQ"))) 0
$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"))
("Overwrite" (_ "Overwrite"))

10
plug-ins/nyquist-plug-in-installer.ny
View File

@ -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.
$control files (_ "Select file(s) to install") file (_ "Browse...") "~/Desktop/" (((_ "Plug-in") (ny NY))
((_ "Lisp file") (lsp LSP))
((_ "HTML file") (htm HTM html HTML))
((_ "Text file") (txt TXT))
((_ "All supported") (ny NY lsp LSP htm HTM html HTML txt TXT))
((_ "All files") (""))) "open,exists,multiple"
((_ "Lisp file") (lsp LSP))
((_ "HTML file") (htm HTM html HTML))
((_ "Text file") (txt TXT))
((_ "All supported") (ny NY lsp LSP htm HTM html HTML txt TXT))
((_ "All files") (""))) "open,exists,multiple"
$control overwrite (_ "Allow overwriting") choice ((_ "Disallow") (_ "Allow")) 0

6
plug-ins/sample-data-export.ny
View File

@ -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 units (_ "Measurement scale") choice ((_ "dB") (_ "Linear")) 0
$control filename (_ "Export data to") file (_ "Select a file") "*default*/sample-data.txt" (((_ "Text file") (txt TXT))
((_ "CSV files") (csv CSV))
((_ "HTML files") (html HTML htm HTM))
((_ "All files") (""))) "save,overwrite"
((_ "CSV files") (csv CSV))
((_ "HTML files") (html HTML htm HTM))
((_ "All files") (""))) "save,overwrite"
$control fileformat (_ "Index (text files only)") choice ((_ "None")
("Count" (_ "Sample Count"))
("Time" (_ "Time Indexed")))

2
plug-ins/sample-data-import.ny
View File

@ -9,7 +9,7 @@ $release 2.3.0
$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))
((_ "All files") (""))) "open,exists"
((_ "All files") (""))) "open,exists"
$control bad-data (_ "Invalid data handling") choice (("ThrowError" (_ "Throw Error"))
("ReadAsZero" (_ "Read as Zero"))) 0