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

38
plug-ins/SilenceMarker.ny
View File

@@ -1,24 +1,28 @@
;nyquist plug-in $nyquist plug-in
;version 1 $version 1
;type analyze $type analyze
;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" $name (_ "Silence Finder")
$name (_"Silence Finder") $manpage "Silence_Finder"
;manpage "Silence_Finder" $action (_ "Finding silence...")
$action (_"Finding silence...") $author (_ "Alex S. Brown")
$info (_"Adds point labels in areas of silence according to the specified $copyright (_ "Released under terms of the GNU General Public License version 2")
level and duration of silence. If too many silences are detected,
increase the silence level and duration; if too few are detected,
reduce the level and duration.")
$author (_"Alex S. Brown")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; by Alex S. Brown, PMP (http://www.alexsbrown.com) ;; by Alex S. Brown, PMP (http://www.alexsbrown.com)
;;
;; Adds point labels in areas of silence according to the specified
;; level and duration of silence. If too many silences are detected,
;; increase the silence level and duration; if too few are detected,
;; reduce the level and duration."
;; Released under terms of the GNU General Public License version 2: ;; 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 sil-lev (_"Treat audio below this level as silence [ -dB]") real "" 26 0 100 $control sil-lev (_ "Treat audio below this level as silence [ -dB]") real "" 26 0 100
$control sil-dur (_"Minimum duration of silence [seconds]") real "" 1.0 0.1 5.0 $control sil-dur (_ "Minimum duration of silence [seconds]") real "" 1.0 0.1 5.0
$control labelbeforedur (_"Label placement [seconds before silence ends]") real "" 0.3 0.0 1.0 $control labelbeforedur (_ "Label placement [seconds before silence ends]") real "" 0.3 0.0 1.0
;Create a function to make the sum the two channels if they are stereo ;Create a function to make the sum the two channels if they are stereo
(defun mono-s (s-in) (if (arrayp s-in) (snd-add (aref s-in 0) (aref s-in 1)) (defun mono-s (s-in) (if (arrayp s-in) (snd-add (aref s-in 0) (aref s-in 1))
@@ -114,6 +118,6 @@ s-in))
;If no silence markers were found, return a message ;If no silence markers were found, return a message
(if (null l) (if (null l)
(setq l (format nil (_"No silences found. Try reducing the silence~%level and minimum silence duration."))) (setq l (format nil (_ "No silences found. Try reducing the silence~%level and minimum silence duration.")))
) )
l l

44
plug-ins/SoundFinder.ny
View File

@@ -1,27 +1,31 @@
;nyquist plug-in $nyquist plug-in
;version 1 $version 1
;type analyze $type analyze
;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" $name (_ "Sound Finder")
$name (_"Sound Finder") $manpage "Sound_Finder"
;manpage "Sound_Finder" $action (_ "Finding sound...")
$action (_"Finding sound...") $author (_ "Jeremy R. Brown")
$info (_"Adds region labels for areas of sound according to the specified level $copyright (_ "Released under terms of the GNU General Public License version 2")
and duration of surrounding silence. If too many labels are produced,
increase the silence level and duration; if too few are produced,
reduce the level and duration.")
$author (_"Jeremy R. Brown")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; by Jeremy R. Brown (http://www.jeremy-brown.com/) ;; by Jeremy R. Brown (http://www.jeremy-brown.com/)
;; based on the Silence Finder script by Alex S. Brown (http://www.alexsbrown.com) ;; based on the Silence Finder script by Alex S. Brown (http://www.alexsbrown.com)
;;
;; Adds region labels for areas of sound according to the specified level
;; and duration of surrounding silence. If too many labels are produced,
;; increase the silence level and duration$ if too few are produced,
;; reduce the level and duration.
;; Released under terms of the GNU General Public License version 2: ;; 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 sil-lev (_"Treat audio below this level as silence [ -dB]") real "" 26 0 100 $control sil-lev (_ "Treat audio below this level as silence [ -dB]") real "" 26 0 100
$control sil-dur (_"Minimum duration of silence between sounds [seconds]") real "" 1.0 0.1 5.0 $control sil-dur (_ "Minimum duration of silence between sounds [seconds]") real "" 1.0 0.1 5.0
$control labelbeforedur (_"Label starting point [seconds before sound starts]") real "" 0.1 0.0 1.0 $control labelbeforedur (_ "Label starting point [seconds before sound starts]") real "" 0.1 0.0 1.0
$control labelafterdur (_"Label ending point [seconds after sound ends]") real "" 0.1 0.0 1.0 $control labelafterdur (_ "Label ending point [seconds after sound ends]") real "" 0.1 0.0 1.0
$control finallabel (_"Add a label at the end of the track? [No=0, Yes=1]") int "" 0 0 1 $control finallabel (_ "Add a label at the end of the track? [No=0, Yes=1]") int "" 0 0 1
;30Dec09: couple of changes made to default control values by Gale Andrews ;30Dec09: couple of changes made to default control values by Gale Andrews
@@ -152,7 +156,7 @@ s-in))
;If no sound markers were found, return a message ;If no sound markers were found, return a message
;Otherwise, if some sounds were found, also optionally place a label at the end of the file. ;Otherwise, if some sounds were found, also optionally place a label at the end of the file.
(if (null l) (if (null l)
(setq l (format nil (_"No sounds found. Try reducing the silence~%level and minimum silence duration."))) (setq l (format nil (_ "No sounds found. Try reducing the silence~%level and minimum silence duration.")))
(if (= finallabel 1) (add-label (/ s1-length s1-srate) (/ s1-length s1-srate) (_"[End]"))) (if (= finallabel 1) (add-label (/ s1-length s1-srate) (/ s1-length s1-srate) (_ "[End]")))
) )
l l

28
plug-ins/SpectralEditMulti.ny
View File

@@ -1,16 +1,20 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process spectral $type process spectral
$name (_"Spectral edit multi tool") $name (_ "Spectral edit multi tool")
;manpage "Spectral_edit_multi_tool" $manpage "Spectral_edit_multi_tool"
$action (_"Filtering...") $action (_ "Filtering...")
$author (_"Paul Licameli") $author (_ "Paul Licameli")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; SpectralEditMulti.ny by Paul Licameli, November 2014. ;; SpectralEditMulti.ny by Paul Licameli, November 2014.
;; Updated by Steve Daulton 2014 / 2015. ;; Updated by Steve Daulton 2014 / 2015.
;; Released under terms of the GNU General Public License version 2: ;; 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
(defun wet (sig f0 f1 fc) (defun wet (sig f0 f1 fc)
(cond (cond
@@ -34,10 +38,10 @@ $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~%~
frequencies are both ~a Hz).~%~ frequencies are both ~a Hz).~%~
Please select a frequency range.") Please select a frequency range.")
p-err f0))) p-err f0)))
@@ -45,7 +49,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
;; 'Magic numbers' 10 Hz and 10 octaves are experimental. ;; 'Magic numbers' 10 Hz and 10 octaves are experimental.
((and f0 (< f0 10) (or (not bw)(> bw 10))) ((and f0 (< f0 10) (or (not bw)(> bw 10)))
(throw 'error-message (throw 'error-message
(format nil (_"~aNotch filter parameters cannot be applied.~%~ (format nil (_ "~aNotch filter parameters cannot be applied.~%~
Try increasing the low frequency bound~%~ Try increasing the low frequency bound~%~
or reduce the filter 'Width'.") or reduce the filter 'Width'.")
p-err))) p-err)))
@@ -62,5 +66,5 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
(prod (diff 1.0 env) sig)))))) (prod (diff 1.0 env) sig))))))
(catch 'error-message (catch 'error-message
(setf p-err (format nil (_"Error.~%"))) (setf p-err (format nil (_ "Error.~%")))
(multichan-expand #'result *track*)) (multichan-expand #'result *track*))

38
plug-ins/SpectralEditParametricEQ.ny
View File

@@ -1,19 +1,23 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process spectral $type process spectral
;preview linear $preview linear
$name (_"Spectral edit parametric EQ") $name (_ "Spectral edit parametric EQ")
;manpage "Spectral_edit_parametric_EQ" $manpage "Spectral_edit_parametric_EQ"
$action (_"Filtering...") $action (_ "Filtering...")
$author (_"Paul Licameli") $author (_ "Paul Licameli")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; SpectralEditParametricEQ.ny by Paul Licameli, November 2014. ;; SpectralEditParametricEQ.ny by Paul Licameli, November 2014.
;; Updated by Steve Daulton 2014 / 2015. ;; Updated by Steve Daulton 2014 / 2015.
;; Released under terms of the GNU General Public License version 2: ;; 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 control-gain (_"Gain (dB)") real "" 0 -24 24 $control control-gain (_ "Gain (dB)") real "" 0 -24 24
(defun wet (sig gain fc bw) (defun wet (sig gain fc bw)
(eq-band sig fc gain (/ bw 2))) (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))) (env (snd-pwl 0.0 rate breakpoints)))
(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 (format nil (_"~aPlease select frequencies.") p-err))) (throw 'error-message (format nil (_ "~aPlease select frequencies.") p-err)))
((not f0) ((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) ((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)) ((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))) ((and f1 (> f1 (/ *sound-srate* 2)))
(throw 'error-message (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~%~ For the current track, the high frequency setting cannot~%~
be greater than ~a Hz") be greater than ~a Hz")
p-err (/ *sound-srate* 2)))) p-err (/ *sound-srate* 2))))
((and bw (= bw 0)) ((and bw (= bw 0))
(throw 'error-message (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).~%~ frequencies are both ~a Hz).~%~
Please select a frequency range.") Please select a frequency range.")
p-err f0))) p-err f0)))
@@ -59,7 +63,7 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24
(prod (diff 1.0 env) sig)))))) (prod (diff 1.0 env) sig))))))
(catch 'error-message (catch 'error-message
(setf p-err (format nil (_"Error.~%"))) (setf p-err (format nil (_ "Error.~%")))
(if (= control-gain 0) (if (= control-gain 0)
nil ; Do nothing nil ; Do nothing
(multichan-expand #'result *track*))) (multichan-expand #'result *track*)))

30
plug-ins/SpectralEditShelves.ny
View File

@@ -1,20 +1,24 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process spectral $type process spectral
;preview linear $preview linear
$name (_"Spectral edit shelves") $name (_ "Spectral edit shelves")
;manpage "Spectral_edit_shelves" $manpage "Spectral_edit_shelves"
$action (_"Filtering...") $action (_ "Filtering...")
$author (_"Paul Licameli") $author (_ "Paul Licameli")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; SpectralEditShelves.ny by Paul Licameli, November 2014. ;; SpectralEditShelves.ny by Paul Licameli, November 2014.
;; Updated by Steve Daulton 2014 / 2015. ;; Updated by Steve Daulton 2014 / 2015.
;; Released under terms of the GNU General Public License version 2: ;; 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 control-gain (_"Gain (dB)") real "" 0 -24 24 $control control-gain (_ "Gain (dB)") real "" 0 -24 24
(defmacro validate (hz) (defmacro validate (hz)
"If frequency is above Nyquist, don't use it" "If frequency is above Nyquist, don't use it"
@@ -49,13 +53,13 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24
(env (snd-pwl 0.0 rate breakpoints))) (env (snd-pwl 0.0 rate breakpoints)))
(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 (format nil (_"~aPlease select frequencies.") p-err))) (throw 'error-message (format nil (_ "~aPlease select frequencies.") p-err)))
((and f0 (>= f0 (/ *sound-srate* 2.0))) ((and f0 (>= f0 (/ *sound-srate* 2.0)))
; Shelf is above Nyquist frequency so do nothing. ; Shelf is above Nyquist frequency so do nothing.
nil) nil)
((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~%~
frequencies are both ~a Hz).~%~ frequencies are both ~a Hz).~%~
Please select a frequency range.") Please select a frequency range.")
p-err f0))) p-err f0)))
@@ -67,7 +71,7 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24
(prod (diff 1.0 env) sig))))))) (prod (diff 1.0 env) sig)))))))
(catch 'error-message (catch 'error-message
(setf p-err (format nil (_"Error.~%"))) (setf p-err (format nil (_ "Error.~%")))
(if (= control-gain 0) (if (= control-gain 0)
nil ; Do nothing nil ; Do nothing
(multichan-expand #'result *track*))) (multichan-expand #'result *track*)))

29
plug-ins/StudioFadeOut.ny
View File

@@ -1,24 +1,25 @@
;nyquist plug-in $nyquist plug-in
;version 1 $version 4
;type process $type process
;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" $name (_ "Studio Fade Out")
$name (_"Studio Fade Out") $manpage "Fades#studio_fadeout"
;manpage "Fades#studio_fadeout" $action (_ "Applying Fade...")
$action (_"Applying Fade...") $author (_ "Steve Daulton")
$author (_"Steve Daulton") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; StudioFadeOut.ny by Steve Daulton December 2012. ;; StudioFadeOut.ny by Steve Daulton December 2012.
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;; ;;
;; Produce a smooth and musical sounding fade out. ;; Produce a smooth and musical sounding fade out.
;; Applies a sinusoidal fade out with a progressive low-pass ;; Applies a sinusoidal fade out with a progressive low-pass
;; filter from full spectrum at start to 100 Hz at end. ;; filter from full spectrum at start to 100 Hz at end.
;; 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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;;; sweeping low pass filter ;;; sweeping low pass filter
(defun filter (sig dur) (defun filter (sig dur)
(abs-env (abs-env
@@ -39,7 +40,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
(let ((dur (get-duration 1))) (let ((dur (get-duration 1)))
(cond (cond
((< len 3) (format nil (_"Selection too short.~%It must be more than 2 samples."))) ((< len 3) (format nil (_ "Selection too short.~%It must be more than 2 samples.")))
((< dur 0.2) (mult s (r-cos dur))) ((< dur 0.2) (mult *track* (r-cos dur)))
(t (mult (filter s dur)(r-cos dur))))) (t (mult (filter *track* dur)(r-cos dur)))))

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

@@ -1,38 +1,36 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process $type process
;preview linear $preview linear
;preview selection $preview selection
;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" $name (_ "Adjustable Fade")
$name (_"Adjustable Fade") $manpage "Adjustable_Fade"
;manpage "Adjustable_Fade" $debugbutton false
;debugbutton false $action (_ "Applying Fade...")
$action (_"Applying Fade...") $author (_ "Steve Daulton")
$author (_"Steve Daulton") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; adjustable-fade.ny by Steve Daulton Dec 2012 ;; adjustable-fade.ny by Steve Daulton Dec 2012
;; Released under terms of the GNU General Public License version 2: ;; 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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control type (_"Fade Type") choice ((_"Fade Up") (_"Fade Down") (_"S-Curve Up") (_"S-Curve Down")) 0 $control type (_ "Fade Type") choice ((_ "Fade Up") (_ "Fade Down") (_ "S-Curve Up") (_ "S-Curve Down")) 0
$control curve (_"Mid-fade Adjust (%)") real "" 0 -100 100 $control curve (_ "Mid-fade Adjust (%)") real "" 0 -100 100
$control units (_"Start/End as") choice ((_"% of Original") (_"dB Gain")) 0 $control units (_ "Start/End as") choice ((_ "% of Original") (_ "dB Gain")) 0
$control gain0 (_"Start (or end)") float-text "" 0 nil nil $control gain0 (_ "Start (or end)") float-text "" 0 nil nil
$control gain1 (_"End (or start)") float-text "" 100 nil nil $control gain1 (_ "End (or start)") float-text "" 100 nil nil
$control preset (_" Handy Presets $control preset (_ "Handy Presets (override controls)") choice (
(override controls)") choice ( (_ "None Selected")
(_"None Selected") (_ "Linear In") (_ "Linear Out")
(_"Linear In") (_"Linear Out") (_ "Exponential In") (_ "Exponential Out")
(_"Exponential In") (_"Exponential Out") (_ "Logarithmic In") (_ "Logarithmic Out")
(_"Logarithmic In") (_"Logarithmic Out") (_ "Rounded In") (_ "Rounded Out")
(_"Rounded In") (_"Rounded Out") (_ "Cosine In") (_ "Cosine Out")
(_"Cosine In") (_"Cosine Out") (_ "S-Curve In") (_ "S-Curve Out")) 0
(_"S-Curve In") (_"S-Curve Out")
) 0
(defun get-input (sig) (defun get-input (sig)
@@ -54,12 +52,12 @@ selection length, but preview only needs to process preview length."
(if (= units 0) ;percentage values (if (= units 0) ;percentage values
(cond (cond
((or (< x 0)(< y 0)) ((or (< x 0)(< y 0))
(throw 'err (format nil (_"~aPercentage values cannot be negative.") err))) (throw 'err (format nil (_ "~aPercentage values cannot be negative.") err)))
((or (> x 1000)(> y 1000)) ((or (> x 1000)(> y 1000))
(throw 'err (format nil (_"~aPercentage values cannot be more than 1000 %.") err)))) (throw 'err (format nil (_ "~aPercentage values cannot be more than 1000 %.") err))))
(cond ;dB values (cond ;dB values
((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~%~
\t-6 dB halves the amplitude." err))))))) \t-6 dB halves the amplitude." err)))))))
@@ -193,7 +191,7 @@ selection length, but preview only needs to process preview length."
(setf curve (/ curve 100.0)) (setf curve (/ curve 100.0))
(setf gain0 (gainscale gain0 units)) (setf gain0 (gainscale gain0 units))
(setf gain1 (gainscale gain1 units)) (setf gain1 (gainscale gain1 units))
(setf err (format nil (_"Error~%~%"))) (setf err (format nil (_ "Error~%~%")))
(catch 'err (fade *track* type curve gain0 gain1)) (catch 'err (fade *track* type curve gain0 gain1))

23
plug-ins/beat.ny
View File

@@ -1,17 +1,20 @@
;nyquist plug-in $nyquist plug-in
;version 1 $version 1
;type analyze $type analyze
;categories "https://audacityteam.org/namespace#OnsetDetector" $name (_ "Beat Finder")
$name (_"Beat Finder") $manpage "Beat_Finder"
;manpage "Beat_Finder" $action (_ "Finding beats...")
$action (_"Finding beats...") $author (_ "Audacity")
$author (_"Audacity") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; Released under terms of the GNU General Public License version 2: ;; 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 thresval (_"Threshold Percentage") int "" 65 5 100
$control thresval (_ "Threshold Percentage") int "" 65 5 100
(setf s1 (if (arrayp s) (snd-add (aref s 0) (aref s 1)) s)) (setf s1 (if (arrayp s) (snd-add (aref s 0) (aref s 1)) s))
(defun signal () (force-srate 1000 (lp (snd-follow (lp s1 50) 0.001 0.01 0.1 512) 10))) (defun signal () (force-srate 1000 (lp (snd-follow (lp s1 50) 0.001 0.01 0.1 512) 10)))
(setq max (peak (signal) NY:ALL)) (setq max (peak (signal) NY:ALL))

29
plug-ins/clipfix.ny
View File

@@ -1,12 +1,18 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process $type process
;preview enabled $preview enabled
$name (_"Clip Fix") $name (_ "Clip Fix")
;manpage "Clip_Fix" $manpage "Clip_Fix"
$action (_"Reconstructing clips...") $action (_ "Reconstructing clips...")
$author (_"Benjamin Schwartz and Steve Daulton") $author (_ "Benjamin Schwartz and Steve Daulton")
$copyright (_"Licensing confirmed under terms of the GNU General Public License version 2") $copyright (_ "Licensing confirmed under terms of the GNU General Public License version 2")
;; 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
;; Algorithm by Benjamin Schwartz ;; Algorithm by Benjamin Schwartz
;; Clip Fix is a simple, stupid (but not blind) digital-clipping-corrector ;; Clip Fix is a simple, stupid (but not blind) digital-clipping-corrector
@@ -16,8 +22,9 @@ $copyright (_"Licensing confirmed under terms of the GNU General Public License
;; 3. Do a cubic spline interpolation. ;; 3. Do a cubic spline interpolation.
;; 4. Go to next region ;; 4. Go to next region
$control threshold (_"Threshold of Clipping (%)") float "" 95 0 100
$control gain (_"Reduce amplitude to allow for restored peaks (dB)") float "" -9 -30 0 $control threshold (_ "Threshold of Clipping (%)") float "" 95 0 100
$control gain (_ "Reduce amplitude to allow for restored peaks (dB)") float "" -9 -30 0
(setf threshold (/ threshold 100)) (setf threshold (/ threshold 100))
(setf gain (db-to-linear gain)) (setf gain (db-to-linear gain))

30
plug-ins/crossfadeclips.ny
View File

@@ -1,18 +1,22 @@
;nyquist plugin $nyquist plugin
;version 4 $version 4
;type process $type process
;mergeclips 1 $mergeclips 1
;restoresplits 0 $restoresplits 0
$name (_"Crossfade Clips") $name (_ "Crossfade Clips")
;manpage "Crossfade_Clips" $manpage "Crossfade_Clips"
$action (_"Crossfading...") $action (_ "Crossfading...")
$author (_"Steve Daulton") $author (_ "Steve Daulton")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; crossfadeclips.ny by Steve Daulton Dec 2014. ;; crossfadeclips.ny by Steve Daulton Dec 2014.
;; Released under terms of the GNU General Public License version 2: ;; 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
;; Instructions: ;; Instructions:
;; Place two audio clips into the same track. ;; Place two audio clips into the same track.
@@ -37,8 +41,8 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
;; 2) The selection may not start or end in white-space. ;; 2) The selection may not start or end in white-space.
(setf err1 (format nil (_"Error.~%Invalid selection.~%More than 2 audio clips selected."))) (setf err1 (format nil (_ "Error.~%Invalid selection.~%More than 2 audio clips selected.")))
(setf err2 (format nil (_"Error.~%Invalid selection.~%Empty space at start/ end of the selection."))) (setf err2 (format nil (_ "Error.~%Invalid selection.~%Empty space at start/ end of the selection.")))
(defun find-ends (T0 T1 clips) (defun find-ends (T0 T1 clips)
@@ -128,4 +132,4 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
(get '*selection* 'start) (get '*selection* 'start)
(get '*selection* 'end) (get '*selection* 'end)
(get '*track* 'clips))) (get '*track* 'clips)))
(format nil (_"Error.~%Crossfade Clips may only be applied to one track."))) (format nil (_ "Error.~%Crossfade Clips may only be applied to one track.")))

36
plug-ins/crossfadetracks.ny
View File

@@ -1,21 +1,25 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process $type process
$name (_"Crossfade Tracks") $name (_ "Crossfade Tracks")
;manpage "Crossfade_Tracks" $manpage "Crossfade_Tracks"
;debugbutton disabled $debugbutton disabled
$action (_"Crossfading...") $action (_ "Crossfading...")
;preview selection $preview selection
$author (_"Steve Daulton") $author (_ "Steve Daulton")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; crossfadetracks.ny by Steve Daulton Nov 2014 / Sep 2015 ;; crossfadetracks.ny by Steve Daulton Nov 2014 / Sep 2015
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
$control type (_"Fade type") choice ((_"Constant Gain") (_"Constant Power 1") (_"Constant Power 2") (_"Custom Curve")) 0 ;; Released under terms of the GNU General Public License version 2:
$control curve (_"Custom curve") real "" 0 0 1 ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
$control direction (_"Fade direction") choice ((_"Automatic") (_"Alternating Out / In") (_"Alternating In / Out")) 0 ;;
;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control type (_ "Fade type") choice ((_ "Constant Gain") (_ "Constant Power 1") (_ "Constant Power 2") (_ "Custom Curve")) 0
$control curve (_ "Custom curve") real "" 0 0 1
$control direction (_ "Fade direction") choice ((_ "Automatic") (_ "Alternating Out / In") (_ "Alternating In / Out")) 0
(defun crossfade (type dir curve) (defun crossfade (type dir curve)
@@ -72,5 +76,5 @@ audio clip, fade in, otherwise fade out."
(if (< in-dist out-dist) 'in 'out))) (if (< in-dist out-dist) 'in 'out)))
(if (< (length (get '*selection* 'tracks)) 2) (if (< (length (get '*selection* 'tracks)) 2)
(format nil (_"Error.~%Select 2 (or more) tracks to crossfade.")) (format nil (_ "Error.~%Select 2 (or more) tracks to crossfade."))
(crossfade type direction curve)) (crossfade type direction curve))

44
plug-ins/delay.ny
View File

@@ -1,29 +1,29 @@
;nyquist plug-in $nyquist plug-in
;version 3 $version 3
;type process $type process
;preview linear $preview linear
;categories "http://lv2plug.in/ns/lv2core#DelayPlugin" $name (_ "Delay")
$name (_"Delay") $manpage "Delay"
;manpage "Delay" $action (_ "Applying Delay Effect...")
$action (_"Applying Delay Effect...") $author (_ "Steve Daulton")
$author (_"Steve Daulton") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; by Steve Daulton, July 2012. ;; by Steve Daulton, July 2012.
;; based on 'Delay' by David R. Sky ;; based on 'Delay' by David R. Sky
;; Released under terms of the GNU General Public License version 2: ;; 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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control delay-type (_"Delay type") choice ((_"regular") (_"bouncing ball") (_"reverse bouncing ball")) 0 $control delay-type (_ "Delay type") choice ((_ "regular") (_ "bouncing ball") (_ "reverse bouncing ball")) 0
$control dgain (_"Delay level per echo (dB)") real "" -6 -30 1 $control dgain (_ "Delay level per echo (dB)") real "" -6 -30 1
$control delay (_"Delay time (seconds)") real "" 0.3 0 5 $control delay (_ "Delay time (seconds)") real "" 0.3 0 5
$control pitch-type (_"Pitch change effect") choice ((_"Pitch/Tempo") (_"LQ Pitch Shift")) 0 $control pitch-type (_ "Pitch change effect") choice ((_ "Pitch/Tempo") (_ "LQ Pitch Shift")) 0
$control shift (_"Pitch change per echo (semitones)") real "" 0 -2 2 $control shift (_ "Pitch change per echo (semitones)") real "" 0 -2 2
$control number (_"Number of echoes") int "" 5 1 30 $control number (_ "Number of echoes") int "" 5 1 30
$control constrain (_"Allow duration to change") choice ((_"Yes") (_"No")) 0 $control constrain (_ "Allow duration to change") choice ((_ "Yes") (_ "No")) 0
;; The default pitch shift effect is a simple resampling, ;; The default pitch shift effect is a simple resampling,
@@ -42,19 +42,19 @@ $control constrain (_"Allow duration to change") choice ((_"Yes") (_"No")) 0
T nil)) T nil))
(when (err-chk number 1 50)(setq err (format nil (when (err-chk number 1 50)(setq err (format nil
(_"Number of echoes '~a' outside valid range 1 to 50.~%~a") (_ "Number of echoes '~a' outside valid range 1 to 50.~%~a")
number err))) number err)))
(when (err-chk shift -12 12)(setq err (format nil (when (err-chk shift -12 12)(setq err (format nil
(_"Pitch change '~a' outside valid range -12 to +12 semitones.~%~a") (_ "Pitch change '~a' outside valid range -12 to +12 semitones.~%~a")
shift err))) shift err)))
(when (err-chk delay 0 10)(setq err (format nil (when (err-chk delay 0 10)(setq err (format nil
(_"Delay time '~a' outside valid range 0 to 10 seconds.~%~a") (_ "Delay time '~a' outside valid range 0 to 10 seconds.~%~a")
delay err))) delay err)))
(when (err-chk dgain -30 6)(setq err (format nil (when (err-chk dgain -30 6)(setq err (format nil
(_"Delay level '~a' outside valid range -30 to +6 dB.~%~a") (_ "Delay level '~a' outside valid range -30 to +6 dB.~%~a")
dgain err))) dgain err)))
@@ -121,7 +121,7 @@ $control constrain (_"Allow duration to change") choice ((_"Yes") (_"No")) 0
;;; return errors or process ;;; return errors or process
(if (> (length err) 0) (if (> (length err) 0)
(format nil (_"Error.~%~a") err) ; return error (format nil (_ "Error.~%~a") err) ; return error
(let* ((delay (if (= delay-type 0) delay (/ delay number))) (let* ((delay (if (= delay-type 0) delay (/ delay number)))
(output (output
(multichan-expand #'delays (multichan-expand #'delays

47
plug-ins/equalabel.ny
View File

@@ -1,31 +1,34 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type tool $type tool
$name (_"Regular Interval Labels") $name (_ "Regular Interval Labels")
;manpage "Regular_Interval_Labels" $manpage "Regular_Interval_Labels"
$action (_"Adding equally-spaced labels to the label track...") $action (_ "Adding equally-spaced labels to the label track...")
$author (_"Steve Daulton") $author (_ "Steve Daulton")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;;
;; Original version by David R. Sky (http://www.garyallendj.com/davidsky/) 2007. ;; Original version by David R. Sky (http://www.garyallendj.com/davidsky/) 2007.
;; Based on an idea by Sami Jumppanen, with contributions from ;; Based on an idea by Sami Jumppanen, with contributions from
;; Alex S.Brown, Dominic Mazzoni, Pierre M.I., Gale Andrews, Steve Daulton. ;; Alex S.Brown, Dominic Mazzoni, Pierre M.I., Gale Andrews, Steve Daulton.
;; This version by Steve Daulton (http://easyspacepro.com) 2016 ;; This version by Steve Daulton (http://easyspacepro.com) 2016
$control mode (_"Use 'Number of labels' OR 'Label interval'") choice ((_"Number of labels") (_"Label interval")) 0 ;; Released under terms of the GNU General Public License version 2:
$control totalnum (_"Number of labels") int-text "" 10 1 1000 ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
$control interval (_"Label interval (seconds)") float-text "" 60 0.001 3600 ;;
$control adjust (_"Adjust label interval to fit length") choice ((_"No") (_"Yes")) 0 ;; For information about writing and modifying Nyquist plug-ins:
$control labeltext (_"Label text") string "" (_"Label") ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control zeros (_"Minimum number of digits in label") choice (
(_"None - text only")
(_"1 (before label)") (_"2 (before label)") (_"3 (before label)") $control mode (_ "Use 'Number of labels' OR 'Label interval'") choice ((_ "Number of labels") (_ "Label interval")) 0
(_"1 (after label)") (_"2 (after label)") (_"3 (after label)") $control totalnum (_ "Number of labels") int-text "" 10 1 1000
) 2 $control interval (_ "Label interval (seconds)") float-text "" 60 0.001 3600
$control firstnum (_"Begin numbering from") int-text "" 1 0 nil $control adjust (_ "Adjust label interval to fit length") choice ((_ "No") (_ "Yes")) 0
$control labeltext (_ "Label text") string "" (_ "Label")
$control zeros (_ "Minimum number of digits in label") choice (
(_ "None - text only")
(_ "1 (before label)") (_ "2 (before label)") (_ "3 (before label)")
(_ "1 (after label)") (_ "2 (after label)") (_ "3 (after label)")) 2
$control firstnum (_ "Begin numbering from") int-text "" 1 0 nil
(defun make-labels () (defun make-labels ()

35
plug-ins/highpass.ny
View File

@@ -1,28 +1,31 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process $type process
;preview linear $preview linear
$name (_"High Pass Filter") $name (_ "High Pass Filter")
;manpage "High_Pass_Filter" $manpage "High_Pass_Filter"
;debugbutton disabled $debugbutton disabled
$action (_"Performing High Pass Filter...") $action (_ "Performing High Pass Filter...")
$author (_"Dominic Mazzoni") $author (_ "Dominic Mazzoni")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; highpass.ny by Dominic Mazzoni ;; highpass.ny by Dominic Mazzoni
;; Last updated August 2015
;; Released under terms of the GNU General Public License version 2: ;; 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 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 rolloff (_ "Rolloff (dB per octave)") choice ((_ "6 dB") (_ "12 dB") (_ "24 dB") (_ "36 dB") (_ "48 dB")) 0
(cond (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)) ((>= 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~%~ Track sample rate is ~a Hz~%~
Frequency must be less than ~a Hz.") Frequency must be less than ~a Hz.")
frequency frequency

34
plug-ins/limiter.ny
View File

@@ -1,30 +1,30 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process $type process
;categories "http://lv2plug.in/ns/lv2core/#DynamicsPlugin" $name (_ "Limiter")
$name (_"Limiter") $manpage "Limiter"
;manpage "Limiter" $debugbutton false
;debugbutton false $action (_ "Limiting...")
$action (_"Limiting...") $preview enabled
;preview enabled $author (_ "Steve Daulton")
$author (_"Steve Daulton") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; limiter.ny by Steve Daulton November 2011, updated May 2015. ;; limiter.ny by Steve Daulton November 2011, updated May 2015.
;; Released under terms of the GNU General Public License version 2: ;; 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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control type (_"Type") choice ((_"Soft Limit") (_"Hard Limit") (_"Soft Clip") (_"Hard Clip")) 0 $control type (_ "Type") choice ((_ "Soft Limit") (_ "Hard Limit") (_ "Soft Clip") (_ "Hard Clip")) 0
$control gain-L (_"Input Gain (dB) $control gain-L (_ "Input Gain (dB)
mono/Left") real "" 0 0 10 mono/Left") real "" 0 0 10
$control gain-R (_"Input Gain (dB) $control gain-R (_ "Input Gain (dB)
Right channel") real "" 0 0 10 Right channel") real "" 0 0 10
$control thresh (_"Limit to (dB)") real "" -3 -10 0 $control thresh (_ "Limit to (dB)") real "" -3 -10 0
$control hold (_"Hold (ms)") real "" 10 1 50 $control hold (_ "Hold (ms)") real "" 10 1 50
$control makeup (_"Apply Make-up Gain") choice ((_"No") (_"Yes")) 0 $control makeup (_ "Apply Make-up Gain") choice ((_ "No") (_ "Yes")) 0
(if (not (boundp 'type)) (if (not (boundp 'type))
(setf type 0)) (setf type 0))

35
plug-ins/lowpass.ny
View File

@@ -1,28 +1,31 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process $type process
;preview linear $preview linear
$name (_"Low Pass Filter") $name (_ "Low Pass Filter")
;manpage "Low_Pass_Filter" $manpage "Low_Pass_Filter"
;debugbutton disabled $debugbutton disabled
$action (_"Performing Low Pass Filter...") $action (_ "Performing Low Pass Filter...")
$author (_"Dominic Mazzoni") $author (_ "Dominic Mazzoni")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; lowpass.ny by Dominic Mazzoni ;; lowpass.ny by Dominic Mazzoni
;; Last updated August 2015
;; Released under terms of the GNU General Public License version 2: ;; 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 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 rolloff (_ "Rolloff (dB per octave)") choice ((_ "6 dB") (_ "12 dB") (_ "24 dB") (_ "36 dB") (_ "48 dB")) 0
(cond (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)) ((>= 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~%~ Track sample rate is ~a Hz~%~
Frequency must be less than ~a Hz.") Frequency must be less than ~a Hz.")
frequency frequency

34
plug-ins/notch.ny
View File

@@ -1,26 +1,30 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process $type process
;preview linear $preview linear
$name (_"Notch Filter") $name (_ "Notch Filter")
;manpage "Notch_Filter" $manpage "Notch_Filter"
;debugbutton false $debugbutton false
$action (_"Applying Notch Filter...") $action (_ "Applying Notch Filter...")
$author (_"Steve Daulton and Bill Wharrie") $author (_ "Steve Daulton and Bill Wharrie")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; notch.ny by Steve Daulton and Bill Wharrie ;; notch.ny by Steve Daulton and Bill Wharrie
;; Released under terms of the GNU General Public License version 2: ;; 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 "" 60 0 nil $control frequency (_ "Frequency (Hz)") float-text "" 60 0 nil
$control q (_"Q (higher value reduces width)") float-text "" 1 0.1 1000 $control q (_ "Q (higher value reduces width)") float-text "" 1 0.1 1000
(cond (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)) ((>= 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.~%~ Track sample rate is ~a Hz.~%~
Frequency must be less than ~a Hz.") Frequency must be less than ~a Hz.")
frequency frequency

37
plug-ins/pluck.ny
View File

@@ -1,22 +1,20 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type generate $type generate
;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin" $name (_ "Pluck")
$name (_"Pluck") $manpage "Pluck"
;manpage "Pluck" $debugbutton false
;debugbutton false $preview linear
;preview linear $action (_ "Generating pluck sound...")
$action (_"Generating pluck sound...") $info (_ "MIDI values for C notes: 36, 48, 60 [middle C], 72, 84, 96.")
$info (_"MIDI values for C notes: 36, 48, 60 [middle C], 72, 84, 96.") $author (_ "David R.Sky")
$author (_"David R.Sky") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; Released under terms of the GNU General Public License version 2: ;; 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
;;
$control pitch (_"Pluck MIDI pitch") int "" 60 1 120 ;; For information about writing and modifying Nyquist plug-ins:
$control fade (_"Fade-out type") choice ((_"abrupt") (_"gradual")) 0 ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control dur (_"Duration [seconds]") real "" 1 0.1 30
; original pluck.ny modified by David R.Sky October 2007 ; original pluck.ny modified by David R.Sky October 2007
; [vastly simplified later] ; [vastly simplified later]
@@ -31,6 +29,11 @@ $control dur (_"Duration [seconds]") real "" 1 0.1 30
; Updated to v4 by Steve Daulton May 2015 ; Updated to v4 by Steve Daulton May 2015
$control pitch (_ "Pluck MIDI pitch") int "" 60 1 120
$control fade (_ "Fade-out type") choice ((_ "abrupt") (_ "gradual")) 0
$control dur (_ "Duration [seconds]") real "" 1 0.1 30
; set final-amp for abrupt or gradual fade ; set final-amp for abrupt or gradual fade
(setf final-amp (if (= fade 1) 0.001 0.000001)) (setf final-amp (if (= fade 1) 0.001 0.000001))

74
plug-ins/rhythmtrack.ny
View File

@@ -1,38 +1,40 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type generate $type generate
;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin" $name (_ "Rhythm Track")
$name (_"Rhythm Track") $manpage "Rhythm_Track"
;manpage "Rhythm_Track" $preview linear
;preview linear $action (_ "Generating Rhythm...")
$action (_"Generating Rhythm...") $author (_ "Dominic Mazzoni")
$author (_"Dominic Mazzoni") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; by Dominic Mazzoni, David R. Sky and Steve Daulton. ;; by Dominic Mazzoni, David R. Sky and Steve Daulton.
;; Drip sound generator by Paul Beach ;; Drip sound generator by Paul Beach
;; Released under terms of the GNU General Public License version 2: ;; 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 action (_"Action choice") choice ((_"Generate track") (_"Help screen 1") (_"Help screen 2")) 0 $control action (_ "Action choice") choice ((_ "Generate track") (_ "Help screen 1") (_ "Help screen 2")) 0
$control tempo (_"Tempo (beats per minute)") real (_"30 - 300 beats/minute") 120 30 300 $control tempo (_ "Tempo (beats per minute)") real (_ "30 - 300 beats/minute") 120 30 300
$control timesig (_"Beats per measure (bar)") int (_"1 - 20 beats/measure") 4 1 20 $control timesig (_ "Beats per measure (bar)") int (_ "1 - 20 beats/measure") 4 1 20
$control swing (_"Swing amount") float (_"+/- 1") 0 -1 1 $control swing (_ "Swing amount") float (_ "+/- 1") 0 -1 1
$control measures (_"Number of measures (bars)") int (_"1 - 1000 bars") 16 1 1000 $control measures (_ "Number of measures (bars)") int (_ "1 - 1000 bars") 16 1 1000
$control click-track-dur (_"Optional rhythm track duration (minutes seconds)") string (_"Whole numbers only") "" $control click-track-dur (_ "Optional rhythm track duration (minutes seconds)") string (_ "Whole numbers only") ""
;;control ticklen "Individual beat duration (milliseconds)" int "1 - 100 ms" 10 1 100 ;;control ticklen "Individual beat duration (milliseconds)" int "1 - 100 ms" 10 1 100
$control offset (_"Start time offset (seconds)") real (_"0 - 30 seconds") 0 0 30 $control offset (_ "Start time offset (seconds)") real (_ "0 - 30 seconds") 0 0 30
$control click-type (_"Beat sound") choice ( $control click-type (_ "Beat sound") choice (
(_"Metronome tick") (_"Ping") (_"Cowbell") (_"Resonant noise") (_"Noise click") (_"Drip") (_ "Metronome tick") (_ "Ping") (_ "Cowbell") (_ "Resonant noise") (_ "Noise click") (_ "Drip")) 0
) 0
;;control q "Noise click resonance - discernable pitch (q)" int "1 - 20" 1 1 20 ;;control q "Noise click resonance - discernable pitch (q)" int "1 - 20" 1 1 20
$control high (_"MIDI pitch of strong beat") int (_"18 - 116") 84 18 116 $control high (_ "MIDI pitch of strong beat") int (_ "18 - 116") 84 18 116
$control low (_"MIDI pitch of weak beat") int (_"18 - 116") 80 18 116 $control low (_ "MIDI pitch of weak beat") int (_ "18 - 116") 80 18 116
;; allow q control to be commented out. ;; allow q control to be commented out.
(if (not (boundp 'q)) (if (not (boundp 'q))
@@ -48,7 +50,7 @@ $control low (_"MIDI pitch of weak beat") int (_"18 - 116") 80 18 116
(defun help1 () (defun help1 ()
(format nil (format nil
(_"Rhythm Track Generator help - screen 1 of 2 (_ "Rhythm Track Generator help - screen 1 of 2
Generates a rhythm track at the selected tempo, beats per Generates a rhythm track at the selected tempo, beats per
measure, and either number of measures or track duration, measure, and either number of measures or track duration,
@@ -80,7 +82,7 @@ restart Rhythm Track and select from 'Action choice'."))) ;end of help1
(defun help2 () (defun help2 ()
(format nil (format nil
(_"Rhythm Track Generator help - screen 2 of 2 (_ "Rhythm Track Generator help - screen 2 of 2
'Start time offset': makes the rhythm track start at a later 'Start time offset': makes the rhythm track start at a later
time than the very beginning (zero seconds), maximum time than the very beginning (zero seconds), maximum
@@ -156,43 +158,43 @@ restart Rhythm Track and select from 'Action choice'."))) ;end of help 2
; tempo ; tempo
(if (= (check tempo 30 300) 1) (if (= (check tempo 30 300) 1)
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"Tempo ~a outside valid range 30 to 300 bpm (_ "Tempo ~a outside valid range 30 to 300 bpm
") tempo)))) ") tempo))))
;beats per measure ;beats per measure
(if (= (check timesig 1 20) 1) (if (= (check timesig 1 20) 1)
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"Beats per measure ~a outside valid range 1 to 20 (_ "Beats per measure ~a outside valid range 1 to 20
") timesig)))) ") timesig))))
;number of measures ;number of measures
(if (= (check measures 1 1000) 1) (if (= (check measures 1 1000) 1)
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"Number of measures ~a outside valid range 1 to 1000 (_ "Number of measures ~a outside valid range 1 to 1000
") measures)))) ") measures))))
;time start offset ;time start offset
(if (= (check offset 0 30) 1) (if (= (check offset 0 30) 1)
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"Time offset ~a outside valid range 0 to 30 seconds (_ "Time offset ~a outside valid range 0 to 30 seconds
") offset)))) ") offset))))
; q ; q
(if (= (check q 1 20) 1) (if (= (check q 1 20) 1)
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"Filter quality q ~a outside valid range 1 to 20 (_ "Filter quality q ~a outside valid range 1 to 20
") q)))) ") q))))
;high MIDI pitch ;high MIDI pitch
(if (= (check high 18 116) 1) (if (= (check high 18 116) 1)
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"High MIDI pitch ~a outside valid range 18 to 116 (_ "High MIDI pitch ~a outside valid range 18 to 116
") high)))) ") high))))
;low MIDI pitch ;low MIDI pitch
(if (= (check low 18 116) 1) (if (= (check low 18 116) 1)
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"Low MIDI pitch ~a outside valid range 18 to 116 (_ "Low MIDI pitch ~a outside valid range 18 to 116
") low)))) ") low))))
;validate string ;validate string
@@ -203,7 +205,7 @@ restart Rhythm Track and select from 'Action choice'."))) ;end of help 2
(not (integerp (first m-s))) ;first is not an integer or (not (integerp (first m-s))) ;first is not an integer or
(and (= (length m-s) 2)(not (integerp (second m-s))))) ;second is not an integer (and (= (length m-s) 2)(not (integerp (second m-s))))) ;second is not an integer
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"If used, 'Optional rhythm track duration' must be (_ "If used, 'Optional rhythm track duration' must be
entered as either one number (seconds), or two entered as either one number (seconds), or two
numbers (minutes seconds) separated by a space. numbers (minutes seconds) separated by a space.
Use whole numbers only.~%"))))) Use whole numbers only.~%")))))
@@ -212,7 +214,7 @@ Use whole numbers only.~%")))))
(= (length m-s) 1) ;one integer and (= (length m-s) 1) ;one integer and
(= (check (first m-s) 0 3660) 1)) ;outside valid range (= (check (first m-s) 0 3660) 1)) ;outside valid range
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"~a seconds is outside valid range 0 to 3660~%") (first m-s))))) (_ "~a seconds is outside valid range 0 to 3660~%") (first m-s)))))
;one or two integers ;one or two integers
((and ((and
(= (length m-s) 2) ;2 integers and (= (length m-s) 2) ;2 integers and
@@ -220,7 +222,7 @@ Use whole numbers only.~%")))))
(= (check (first m-s) 0 60) 1) ;1st is outside valid range or (= (check (first m-s) 0 60) 1) ;1st is outside valid range or
(= (check (second m-s) 0 59) 1))) ;2nd is outside valid range or (= (check (second m-s) 0 59) 1))) ;2nd is outside valid range or
(setq error-msg (strcat error-msg (format nil (setq error-msg (strcat error-msg (format nil
(_"~a is outside valid range 0 to (60 59)~%") (_ "~a is outside valid range 0 to (60 59)~%")
m-s))))))) ;end of error checking m-s))))))) ;end of error checking
(defun metronome-tick (hz peak) (defun metronome-tick (hz peak)
@@ -366,4 +368,4 @@ Use whole numbers only.~%")))))
(make-click-track measures (* timesig beatlen)))) ;click track (make-click-track measures (* timesig beatlen)))) ;click track
;Else error message ;Else error message
(setq error-msg (strcat (format nil (setq error-msg (strcat (format nil
(_"Error.~%You have entered at least one invalid value:~%~%")) error-msg))))) (_ "Error.~%You have entered at least one invalid value:~%~%")) error-msg)))))

35
plug-ins/rissetdrum.ny
View File

@@ -1,29 +1,30 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type generate $type generate
;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin" $preview linear
;preview linear $i18n-hint named for Jean-Claude Risset (silent t)
;i18n-hint named for Jean-Claude Risset (silent t) $name (_ "Risset Drum")
$name (_"Risset Drum") $manpage "Risset_Drum"
;manpage "Risset_Drum" $action (_ "Generating Risset Drum...")
$action (_"Generating Risset Drum...") $author (_ "Steven Jones")
$author (_"Steven Jones") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; rissetdrum.ny by Steven Jones, after Jean Claude Risset. ;; rissetdrum.ny by Steven Jones, after Jean Claude Risset.
;; Updated by Steve Daulton July 2012 and May 2015. ;; Updated by Steve Daulton July 2012 and May 2015.
;; Released under terms of the GNU General Public License version 2: ;; 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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control freq (_"Frequency (Hz)") real "" 100 50 2000
$control decay (_"Decay (seconds)") real "" 2 0.1 60 $control freq (_ "Frequency (Hz)") real "" 100 50 2000
$control cf (_"Center frequency of noise (Hz)") real "" 500 100 5000 $control decay (_ "Decay (seconds)") real "" 2 0.1 60
$control bw (_"Width of noise band (Hz)") real "" 400 10 1000 $control cf (_ "Center frequency of noise (Hz)") real "" 500 100 5000
$control noise (_"Amount of noise in mix (percent)") real "" 25 0 100 $control bw (_ "Width of noise band (Hz)") real "" 400 10 1000
$control gain (_"Amplitude (0 - 1)") real "" 0.8 0 1 $control noise (_ "Amount of noise in mix (percent)") real "" 25 0 100
$control gain (_ "Amplitude (0 - 1)") real "" 0.8 0 1
(defun sanitise (val minx maxx) (defun sanitise (val minx maxx)

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

@@ -1,51 +1,52 @@
;nyquist plug-in $nyquist plug-in
;version 3 $version 3
;type tool $type tool
$name (_"Sample Data Export") $name (_ "Sample Data Export")
;manpage "Sample_Data_Export" $manpage "Sample_Data_Export"
$action (_"Analyzing...") $action (_ "Analyzing...")
;maxlen 1000001 $maxlen 1000001
;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" $author (_ "Steve Daulton")
$author (_"Steve Daulton") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; sample-data-export.ny by Steve Daulton June 2012. ;; sample-data-export.ny by Steve Daulton June 2012.
;; Updated July 16 2012. ;; Updated July 16 2012.
;; Released under terms of the GNU General Public License version 2: ;; 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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control number (_"Limit output to first") string (_"samples") "100"
$control units (_"Measurement scale") choice ((_"dB") (_"Linear")) 0 $control number (_ "Limit output to first") string (_ "samples") "100"
$control fileformat (_"File data format") choice ( $control units (_ "Measurement scale") choice ((_ "dB") (_ "Linear")) 0
(_"Sample List (txt)") $control fileformat (_ "File data format") choice (
(_"Indexed List (txt)") (_ "Sample List (txt)")
(_"Time Indexed (txt)") (_ "Indexed List (txt)")
(_"Data (csv)") (_ "Time Indexed (txt)")
(_"Web Page (html)") (_ "Data (csv)")
(_ "Web Page (html)")
) 0 ) 0
$control header (_"Include header information") choice ( $control header (_ "Include header information") choice (
(_"None") (_ "None")
(_"Minimal") (_ "Minimal")
(_"Standard") (_ "Standard")
(_"All") (_ "All")
) 2 ) 2
$control optext (_"Optional header text") string "" $control optext (_ "Optional header text") string ""
$control chan (_"Channel layout for stereo") choice ( $control chan (_ "Channel layout for stereo") choice (
(_"L-R on Same Line") (_ "L-R on Same Line")
(_"Alternate Lines") (_ "Alternate Lines")
(_"L Channel First") (_ "L Channel First")
) 0 ) 0
$control messages (_"Show messages") choice ( $control messages (_ "Show messages") choice (
(_"Yes") (_ "Yes")
(_"Errors Only") (_ "Errors Only")
(_"None") (_ "None")
) 0 ) 0
$control filename (_"File name") string "" (_"sample-data") $control filename (_ "File name") string "" (_ "sample-data")
$control path (_"Output folder") string "" (_"Home directory") $control path (_ "Output folder") string "" (_ "Home directory")
$control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 $control owrite (_ "Allow files to be overwritten") choice ((_ "No") (_ "Yes")) 0
;; To enable L/R prefix before alternate L/R channels ;; To enable L/R prefix before alternate L/R channels
@@ -55,7 +56,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(when (not (boundp 'LR-prefix))(setq LR-prefix nil)) (when (not (boundp 'LR-prefix))(setq LR-prefix nil))
(setq default-filename (_"sample-data")) ; default filename (setq default-filename (_ "sample-data")) ; default filename
(setq err "") ; initialise error mesaage (setq err "") ; initialise error mesaage
(setq *float-format* "%1.5f") ; 5 decimal places (setq *float-format* "%1.5f") ; 5 decimal places
@@ -109,9 +110,9 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(defun checknumber () (defun checknumber ()
(setq number (min number len)) (setq number (min number len))
(if (< number 1) (if (< number 1)
(add-error (_"No samples selected."))) (add-error (_ "No samples selected.")))
(if (> number 1000000) (if (> number 1000000)
(add-error (_"Cannot export more than 1 million samples."))) (add-error (_ "Cannot export more than 1 million samples.")))
(setq number (truncate number))) (setq number (truncate number)))
@@ -132,7 +133,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(defun lin-to-db (val) (defun lin-to-db (val)
(if (= val 0) (if (= val 0)
;i18n-hint abbreviates negative infinity ;i18n-hint abbreviates negative infinity
(_"[-inf]") (_ "[-inf]")
(/ (log val) ln10over20))) (/ (log val) ln10over20)))
@@ -215,15 +216,15 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(if (and (arrayp s)(= chan 2)) (if (and (arrayp s)(= chan 2))
(progn (progn
(unless (= header 0) ; Don't print 'channel' if no header (unless (= header 0) ; Don't print 'channel' if no header
(format fp (_"Left Channel.~%~%"))) (format fp (_ "Left Channel.~%~%")))
(print-text (aref s 0)) (print-text (aref s 0))
(if (= header 0) ; Don't print 'channel' if no header (if (= header 0) ; Don't print 'channel' if no header
(format fp "~%") (format fp "~%")
(format fp (_"~%~%Right Channel.~%~%"))) (format fp (_ "~%~%Right Channel.~%~%")))
(print-text (aref s 1)) (print-text (aref s 1))
(close fp) (close fp)
(if (= messages 0) (if (= messages 0)
(format nil (_"~aData written to:~%~a~a~a") (format nil (_ "~aData written to:~%~a~a~a")
(normhead) path fileseparator filename) (normhead) path fileseparator filename)
nil)) nil))
;; mono or alternate ;; mono or alternate
@@ -231,7 +232,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(print-text s) (print-text s)
(close fp) (close fp)
(if (= messages 0) (if (= messages 0)
(format nil (_"~aData written to:~%~a~a~a") (format nil (_ "~aData written to:~%~a~a~a")
(normhead) path fileseparator filename) (normhead) path fileseparator filename)
nil)))) nil))))
@@ -260,7 +261,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(if (string-equal path "~/" :end1 2) (if (string-equal path "~/" :end1 2)
(setq path (strcat (home)(subseq path 1))))) (setq path (strcat (home)(subseq path 1)))))
;; If path not set use home directory ;; If path not set use home directory
(if (or (string-equal path (_"Home directory")) (if (or (string-equal path (_ "Home directory"))
(string-equal path "")) (string-equal path ""))
(setq path (home))) (setq path (home)))
;; if file name not set use default ;; if file name not set use default
@@ -275,7 +276,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(string-equal path realdir))) (string-equal path realdir)))
;; makefilename or error ;; makefilename or error
(setq filename (makefilename filename FileExt)) (setq filename (makefilename filename FileExt))
(add-error (format nil (_"Output folder \"~a~a\" cannot be accessed.") (add-error (format nil (_ "Output folder \"~a~a\" cannot be accessed.")
path fileseparator)))) path fileseparator))))
;; check if file is writeable ;; check if file is writeable
(when (= (length err) 0) (when (= (length err) 0)
@@ -283,7 +284,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(setq fp (open filename :direction :output)) (setq fp (open filename :direction :output))
;check file is writeable ;check file is writeable
(if (not fp) (if (not fp)
(add-error (format nil (_"\"~a~a~a\" cannot be written.") (add-error (format nil (_ "\"~a~a~a\" cannot be written.")
path fileseparator filename))))) path fileseparator filename)))))
@@ -299,7 +300,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(defun minhead () (defun minhead ()
(format nil (format nil
(_"Sample Rate: ~a Hz. Sample values on ~a scale.~%~a~%~a") (_ "Sample Rate: ~a Hz. Sample values on ~a scale.~%~a~%~a")
(get 'info 'srate) ; sample rate (get 'info 'srate) ; sample rate
(get 'info 'units) ; units (get 'info 'units) ; units
(get 'info 'chan-order) ; Channel Order (get 'info 'chan-order) ; Channel Order
@@ -311,7 +312,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(defun normhead () (defun normhead ()
(if (= fileformat 4) ; html (if (= fileformat 4) ; html
(format nil (format nil
(_"~a ~a~%~aSample Rate: ~a Hz.~%Length processed: ~a samples ~a seconds.~a") (_ "~a ~a~%~aSample Rate: ~a Hz.~%Length processed: ~a samples ~a seconds.~a")
filename ; file name filename ; file name
(get 'info 'channels) ; mono/stereo (get 'info 'channels) ; mono/stereo
(get 'info 'chan-order) ; Channel Order (get 'info 'chan-order) ; Channel Order
@@ -322,7 +323,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0
(format nil "~%~a~%~%~%" optext) ; optional text (format nil "~%~a~%~%~%" optext) ; optional text
(format nil "~%~%~%"))) ; no optional text (format nil "~%~%~%"))) ; no optional text
(format nil (format nil
(_"~a ~a~%~aSample Rate: ~a Hz. Sample values on ~a scale.~%~ (_ "~a ~a~%~aSample Rate: ~a Hz. Sample values on ~a scale.~%~
Length processed: ~a samples ~a seconds.~a") Length processed: ~a samples ~a seconds.~a")
filename ; file name filename ; file name
(get 'info 'channels) ; mono/stereo (get 'info 'channels) ; mono/stereo
@@ -338,7 +339,7 @@ Length processed: ~a samples ~a seconds.~a")
(defun fullhead () (defun fullhead ()
(format nil (format nil
(_"~a~%Sample Rate: ~a Hz. Sample values on ~a scale. ~a.~%~aLength processed: ~a ~ (_ "~a~%Sample Rate: ~a Hz. Sample values on ~a scale. ~a.~%~aLength processed: ~a ~
samples, ~a seconds.~%Peak amplitude: ~a (lin) ~a dB. Unweighted RMS: ~a dB.~%~ samples, ~a seconds.~%Peak amplitude: ~a (lin) ~a dB. Unweighted RMS: ~a dB.~%~
DC offset: ~a~a") DC offset: ~a~a")
filename ; file name filename ; file name
@@ -353,9 +354,9 @@ DC offset: ~a~a")
(srms s) ; rms (srms s) ; rms
(let ((vals (dc-off s))) ; DC offset (let ((vals (dc-off s))) ; DC offset
(if (= (length vals) 2) ; mono (if (= (length vals) 2) ; mono
(format nil (_"~a linear, ~a dB.") (format nil (_ "~a linear, ~a dB.")
(first vals)(second vals)) (first vals)(second vals))
(format nil (_"Left: ~a lin, ~a dB | Right: ~a lin, ~a dB.") (format nil (_ "Left: ~a lin, ~a dB | Right: ~a lin, ~a dB.")
(first vals)(second vals)(third vals)(fourth vals)))) (first vals)(second vals)(third vals)(fourth vals))))
(if (> (length optext)0) (if (> (length optext)0)
(format nil "~%~a~%~%~%" optext) ; optional text (format nil "~%~a~%~%~%" optext) ; optional text
@@ -447,7 +448,7 @@ ul {
color: blue; color: blue;
} }
</style> </style>
<title>" (_"Sample Data Export") "</title> <title>" (_ "Sample Data Export") "</title>
</head> </head>
")) "))
@@ -456,18 +457,18 @@ ul {
(defun doc-head () (defun doc-head ()
(format nil (format nil
(strcat "<body> (strcat "<body>
<h1>" (_"Sample Data Export") " - ~a</h1> <h1>" (_ "Sample Data Export") " - ~a</h1>
~a ~a
<h4>~a. &nbsp;&nbsp;" (_"~a samples.") " &nbsp;&nbsp; " (_"~a seconds.") "<br></h4> <h4>~a. &nbsp;&nbsp;" (_ "~a samples.") " &nbsp;&nbsp; " (_ "~a seconds.") "<br></h4>
<h3>" (_"Audio data analysis:") "</h3> <h3>" (_ "Audio data analysis:") "</h3>
<ul> <ul>
<li>" (_"<b>Sample Rate:</b> &nbsp;&nbsp;~a Hz.") "</li>" <li>" (_ "<b>Sample Rate:</b> &nbsp;&nbsp;~a Hz.") "</li>"
; i18n-hint: abbreviates "linear" and "decibels" ; i18n-hint: abbreviates "linear" and "decibels"
"<li>" (_"<b>Peak Amplitude:</b> &nbsp;&nbsp;~a (lin) &nbsp;&nbsp;~a dB.") "</li>" "<li>" (_ "<b>Peak Amplitude:</b> &nbsp;&nbsp;~a (lin) &nbsp;&nbsp;~a dB.") "</li>"
; i18n-hint: RMS abbreviates root-mean-square, a method of averaging a signal; there also "weighted" versions of it but this isn't that ; i18n-hint: RMS abbreviates root-mean-square, a method of averaging a signal; there also "weighted" versions of it but this isn't that
"<li>" (_"<b>RMS</b> (unweighted): &nbsp;&nbsp;~a dB.") "</li>" "<li>" (_ "<b>RMS</b> (unweighted): &nbsp;&nbsp;~a dB.") "</li>"
; i18n-hint: DC derives from "direct current" in electronics, really means the zero frequency component of a signal ; i18n-hint: DC derives from "direct current" in electronics, really means the zero frequency component of a signal
"<li>" (_"<b>DC Offset:</b> &nbsp;&nbsp;~a") "</li> "<li>" (_ "<b>DC Offset:</b> &nbsp;&nbsp;~a") "</li>
</ul> </ul>
") ; end concatenated format string with inserted translations ") ; end concatenated format string with inserted translations
(string-right-trim ".html" filename) (string-right-trim ".html" filename)
@@ -481,40 +482,40 @@ ul {
(srms s) ; rms (srms s) ; rms
(let ((vals (dc-off s))) ; DC offset (let ((vals (dc-off s))) ; DC offset
(if (= (length vals) 2) ; mono (if (= (length vals) 2) ; mono
(format nil (_"~a linear, &nbsp;&nbsp;~a dB.") (format nil (_ "~a linear, &nbsp;&nbsp;~a dB.")
(first vals)(second vals)) (first vals)(second vals))
(format nil (_"Left: ~a lin, ~a dB | Right: ~a linear, &nbsp;&nbsp;~a dB.") (format nil (_ "Left: ~a lin, ~a dB | Right: ~a linear, &nbsp;&nbsp;~a dB.")
(first vals)(second vals)(third vals)(fourth vals)))))) (first vals)(second vals)(third vals)(fourth vals))))))
;;; table headings (mono) ;;; table headings (mono)
(defun table-head-mono () (defun table-head-mono ()
(strcat "<table title=\"" (_"sample data") "\"> (strcat "<table title=\"" (_ "sample data") "\">
<tr> <tr>
<th>" (_"Sample #") "</th> <th>" (_ "Sample #") "</th>
<th>" (_"Seconds") "</th> <th>" (_ "Seconds") "</th>
<th>" (_"Value (linear)") "</th> <th>" (_ "Value (linear)") "</th>
<th>" (_"Value (dB)") "</th> <th>" (_ "Value (dB)") "</th>
</tr>")) </tr>"))
;;; table headings (stereo) ;;; table headings (stereo)
(defun table-head-stereo () (defun table-head-stereo ()
(strcat "<table title=\"" (_"audio sample value analysis") "\"> (strcat "<table title=\"" (_ "audio sample value analysis") "\">
<tr> <tr>
<th>" (_"Sample #") "</th> <th>" (_ "Sample #") "</th>
<th>" (_"Seconds") "</th> <th>" (_ "Seconds") "</th>
<th>" (_"Left (linear)") "</th> <th>" (_ "Left (linear)") "</th>
<th>" (_"Right (linear)") "</th> <th>" (_ "Right (linear)") "</th>
<th>" (_"Left (dB)") "</th> <th>" (_ "Left (dB)") "</th>
<th>" (_"Right (dB)") "</th> <th>" (_ "Right (dB)") "</th>
</tr>")) </tr>"))
(defun html-foot () (defun html-foot ()
(format nil (strcat (format nil (strcat
"</table> "</table>
<p id=\"footer\">" (_"Produced with <span>Sample Data Export</span> for <p id=\"footer\">" (_ "Produced with <span>Sample Data Export</span> for
<a href=\"~a\">Audacity</a> by Steve <a href=\"~a\">Audacity</a> by Steve
Daulton") " (<a href= Daulton") " (<a href=
\"http://www.easyspacepro.com\">www.easyspacepro.com</a>)</p> \"http://www.easyspacepro.com\">www.easyspacepro.com</a>)</p>
@@ -561,7 +562,7 @@ Daulton") " (<a href=
(format fp (html-foot)) (format fp (html-foot))
(close fp) (close fp)
(if (= messages 0) (if (= messages 0)
(format nil (_"~aData written to:~%~a~a~a") (format nil (_ "~aData written to:~%~a~a~a")
(normhead) path fileseparator filename) (normhead) path fileseparator filename)
nil)) nil))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -572,25 +573,25 @@ Daulton") " (<a href=
;;; basic info for headers ;;; basic info for headers
(defun put-head-info () (defun put-head-info ()
(putprop 'info (truncate *sound-srate*) 'srate) (putprop 'info (truncate *sound-srate*) 'srate)
(putprop 'info (if (= units 0) (_"dB") (_"linear")) 'units) (putprop 'info (if (= units 0) (_ "dB") (_ "linear")) 'units)
(putprop 'info (/ number *sound-srate*) 'duration) (putprop 'info (/ number *sound-srate*) 'duration)
(putprop 'info (putprop 'info
(if (arrayp s) (if (arrayp s)
(_"2 channels (stereo)") (_"1 channel (mono)")) (_ "2 channels (stereo)") (_ "1 channel (mono)"))
'channels) 'channels)
;; stereo sample order ;; stereo sample order
(putprop 'info (putprop 'info
(cond (cond
((and (= fileformat 3)(= chan 0)) ; csv, channel in column ((and (= fileformat 3)(= chan 0)) ; csv, channel in column
(format nil (_"One column per channel.~%"))) (format nil (_ "One column per channel.~%")))
((and (= fileformat 3)(= chan 2)) ; csv, channel in row ((and (= fileformat 3)(= chan 2)) ; csv, channel in row
(format nil (_"One row per channel.~%"))) (format nil (_ "One row per channel.~%")))
((or (soundp s)(= fileformat 4)) ; mono soundor HTML ((or (soundp s)(= fileformat 4)) ; mono soundor HTML
"") "")
((= chan 0) (format nil (_"Left channel then Right channel on same line.~%"))) ((= chan 0) (format nil (_ "Left channel then Right channel on same line.~%")))
((= chan 1) (format nil (_"Left and right channels on alternate lines.~%"))) ((= chan 1) (format nil (_ "Left and right channels on alternate lines.~%")))
((= chan 2) (format nil (_"Left channel first then right channel.~%"))) ((= chan 2) (format nil (_ "Left channel first then right channel.~%")))
(T (_"Unspecified channel order"))) (T (_ "Unspecified channel order")))
'chan-order)) 'chan-order))
@@ -598,14 +599,14 @@ Daulton") " (<a href=
(setq number (read (make-string-input-stream number))) (setq number (read (make-string-input-stream number)))
(if (numberp number) (if (numberp number)
(checknumber) (checknumber)
(add-error (format nil (_"~a is not a number.") number))) (add-error (format nil (_ "~a is not a number.") number)))
(filewriter) (filewriter)
(if (> (length err) 0) (if (> (length err) 0)
;; output error message if enabled ;; output error message if enabled
(if (= messages 2) (if (= messages 2)
nil ; return nil nil ; return nil
(format nil (_"Error.~%~a") err)) ; return errors (format nil (_ "Error.~%~a") err)) ; return errors
;; else print to file ;; else print to file
(progn (progn
(put-head-info) ; put basic info for headers (put-head-info) ; put basic info for headers

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

@@ -1,20 +1,21 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type tool $type tool
$name (_"Sample Data Import") $name (_ "Sample Data Import")
;manpage "Sample_Data_Import" $manpage "Sample_Data_Import"
$action (_"Reading and rendering samples...") $action (_ "Reading and rendering samples...")
$author (_"Steve Daulton") $author (_ "Steve Daulton")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;; sample-data-import.ny by Steve Daulton November 2016. ;; sample-data-import.ny by Steve Daulton November 2016.
;; Released under terms of the GNU General Public License version 2: ;; 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
;; Released under terms of the GNU General Public License version 2:
$control filename (_"File name") string "" "sample-data.txt" ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
$control path (_"File location (path to file)") string "" "Home directory" ;;
$control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as zero")) 0 ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;; Documentation. ;; Documentation.
@@ -91,6 +92,11 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as
;; https://manual.audacityteam.org/man/sample_data_import.html ;; https://manual.audacityteam.org/man/sample_data_import.html
$control filename (_ "File name") string "" "sample-data.txt"
$control path (_ "File location (path to file)") string "" "Home directory"
$control bad-data (_ "Invalid data handling") choice ((_ "Throw error") (_ "Read as zero")) 0
;; home directory ;; home directory
(defun home () (defun home ()
(if (windowsp) (if (windowsp)
@@ -107,9 +113,9 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as
(defun fileopensp (path fname) (defun fileopensp (path fname)
(let ((path (string-trim " " path))) (let ((path (string-trim " " path)))
(if (string-equal fname "") (if (string-equal fname "")
(throw 'err (format nil (_"Error~%No file name.")))) (throw 'err (format nil (_ "Error~%No file name."))))
(if (string-not-equal fname ".txt" :start1 (- (length fname) 4)) (if (string-not-equal fname ".txt" :start1 (- (length fname) 4))
(throw 'err (format nil (_"Error~%The file must be a plain ASCII text file~%with '.txt' file extension.")))) (throw 'err (format nil (_ "Error~%The file must be a plain ASCII text file~%with '.txt' file extension."))))
;; Handle special 'path' formats: ;; Handle special 'path' formats:
(cond (cond
; "~" without "/" is not recommended (or documented) ; "~" without "/" is not recommended (or documented)
@@ -117,15 +123,15 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as
((string= path "~") ((string= path "~")
(if (windowsp) (if (windowsp)
;i18n-hint: ~~ format directive must be preserved; displays as one ~ ;i18n-hint: ~~ format directive must be preserved; displays as one ~
(format nil (_"Error~%'~~/' is not valid on Windows")) (format nil (_ "Error~%'~~/' is not valid on Windows"))
(setq path (home)))) (setq path (home))))
;; replace "~/" on Linux/Mac ;; replace "~/" on Linux/Mac
((and (>= (length path) 2) (string= path "~/" :end1 2)) ((and (>= (length path) 2) (string= path "~/" :end1 2))
(if (windowsp) (if (windowsp)
;i18n-hint: ~~ format directive must be preserved; displays as one ~ ;i18n-hint: ~~ format directive must be preserved; displays as one ~
(format nil (_"Error~%'~~/' is not valid on Windows")) (format nil (_ "Error~%'~~/' is not valid on Windows"))
(setq path (strcat (home)(subseq path 1))))) (setq path (strcat (home)(subseq path 1)))))
((string-equal path (_"Home directory")) ((string-equal path (_ "Home directory"))
(setf path (home))) (setf path (home)))
;; If empty, use 'Home' ;; If empty, use 'Home'
((string-equal path "") ((string-equal path "")
@@ -133,10 +139,10 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as
;; Now check that the file can be opened: ;; Now check that the file can be opened:
(cond (cond
((not (setdir path)) ((not (setdir path))
(throw 'err (format nil (_"Error~%~ (throw 'err (format nil (_ "Error~%~
Directory '~a' could not be opened.") path))) Directory '~a' could not be opened.") path)))
((not (setf fstream (open fname))) ((not (setf fstream (open fname)))
(throw 'err (format nil (_"Error~%~ (throw 'err (format nil (_ "Error~%~
'~a~a~a' could not be opened.~%~ '~a~a~a' could not be opened.~%~
Check that file exists.") Check that file exists.")
path *file-separator* fname))) path *file-separator* fname)))
@@ -144,7 +150,7 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as
(t (do ((j 0 (1+ j))(b (read-byte fstream)(read-byte fstream))) (t (do ((j 0 (1+ j))(b (read-byte fstream)(read-byte fstream)))
((or (> j 100000)(not b))) ((or (> j 100000)(not b)))
(when (> b 127) (when (> b 127)
(throw 'err (format nil (_"Error:~%~ (throw 'err (format nil (_ "Error:~%~
The file must contain only plain ASCII text.~%~ The file must contain only plain ASCII text.~%~
(Invalid byte '~a' at byte number: ~a)") b (1+ j) )))) (Invalid byte '~a' at byte number: ~a)") b (1+ j) ))))
(close fstream) (close fstream)
@@ -185,7 +191,7 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as
((not val) nil) ;end of file ((not val) nil) ;end of file
((numberp val) (float val)) ;valid. ((numberp val) (float val)) ;valid.
((= bad-data 0) ;invalid. Throw error and quit ((= bad-data 0) ;invalid. Throw error and quit
(throw 'err (format nil (_"Error~%~ (throw 'err (format nil (_ "Error~%~
Data must be numbers in plain ASCII text.~%~ Data must be numbers in plain ASCII text.~%~
'~a' is not a numeric value.") val))) '~a' is not a numeric value.") val)))
(t 0.0)))) ;invalid. Replace with zero. (t 0.0)))) ;invalid. Replace with zero.
@@ -197,7 +203,7 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as
(defun sound-from-file (filename) (defun sound-from-file (filename)
;; Set path. fileopenp should return 'true' ;; Set path. fileopenp should return 'true'
(if (not (fileopensp path filename)) (if (not (fileopensp path filename))
(throw 'err (format nil (_"Error.~%Unable to open file")))) (throw 'err (format nil (_ "Error.~%Unable to open file"))))
; Note: we can't use (arrayp *track*) because ; Note: we can't use (arrayp *track*) because
; *track* is nil in generate type plug-ins. ; *track* is nil in generate type plug-ins.
(cond (cond

30
plug-ins/tremolo.ny
View File

@@ -1,27 +1,27 @@
;nyquist plug-in $nyquist plug-in
;version 3 $version 3
;type process $type process
;preview linear $preview linear
;categories "http://lv2plug.in/ns/lv2core#ModulatorPlugin" $name (_ "Tremolo")
$name (_"Tremolo") $manpage "Tremolo"
;manpage "Tremolo" $debugbutton disabled
;debugbutton disabled $action (_ "Applying Tremolo...")
$action (_"Applying Tremolo...") $author (_ "Steve Daulton")
$author (_"Steve Daulton") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; tremolo.ny by Steve Daulton (www.easyspacepro.com) July 2012. ;; tremolo.ny by Steve Daulton (www.easyspacepro.com) July 2012.
;; Based on Tremolo by Dominic Mazzoni and David R. Sky." ;; Based on Tremolo by Dominic Mazzoni and David R. Sky."
;; Released under terms of the GNU General Public License version 2: ;; 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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control wave (_"Waveform type") choice ((_"sine") (_"triangle") (_"sawtooth") (_"inverse sawtooth") (_"square")) 0 $control wave (_ "Waveform type") choice ((_ "sine") (_ "triangle") (_ "sawtooth") (_ "inverse sawtooth") (_ "square")) 0
$control phase (_"Starting phase (degrees)") int "" 0 -180 180 $control phase (_ "Starting phase (degrees)") int "" 0 -180 180
$control wet (_"Wet level (percent)") int "" 40 1 100 $control wet (_ "Wet level (percent)") int "" 40 1 100
$control lfo (_"Frequency (Hz)") float-text "" 4 0.001 1000 $control lfo (_ "Frequency (Hz)") float-text "" 4 0.001 1000
; Convert % to linear ; Convert % to linear
(setq wet (/ wet 200.0)) (setq wet (/ wet 200.0))

82
plug-ins/vocalrediso.ny
View File

@@ -1,37 +1,41 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process $type process
;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" $preview linear
$name (_"Vocal Reduction and Isolation") $name (_ "Vocal Reduction and Isolation")
;manpage "Vocal_Reduction_and_Isolation" $manpage "Vocal_Reduction_and_Isolation"
$action (_"Applying Action...") $action (_ "Applying Action...")
$author (_"Robert Haenggi") $author (_ "Robert Haenggi")
$copyright (_"Released under terms of the GNU General Public License version 2") $copyright (_ "Released under terms of the GNU General Public License version 2")
;;
;; vocrediso.ny, based on rjh-stereo-tool.ny ;; vocrediso.ny, based on rjh-stereo-tool.ny
;; Released under terms of the GNU General Public License version 2: ;;
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;; Plug-in version 1.56, June 2015 ;; Plug-in version 1.56, June 2015
;; Requires Audacity 2.1.1 or later, developed under Audacity 2.1.1 ;; Requires Audacity 2.1.1 or later, developed under Audacity 2.1.1
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;; ;;
$control action (_"Action") choice ( ;; For information about writing and modifying Nyquist plug-ins:
(_"Remove Vocals") ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
(_"Isolate Vocals")
(_"Isolate Vocals and Invert") $control action (_ "Action") choice (
(_"Remove Center") (_ "Remove Vocals")
(_"Isolate Center") (_ "Isolate Vocals")
(_"Isolate Center and Invert") (_ "Isolate Vocals and Invert")
(_"Remove Center Classic: Mono") (_ "Remove Center")
(_"Analyze") (_ "Isolate Center")
) 0 (_ "Isolate Center and Invert")
(setf rotation 0.0) (_ "Remove Center Classic: Mono")
(_ "Analyze")) 0
$control strength (_ "Strength") real "" 1.0 0.0 50.0
$control low-transition (_ "Low Cut for Vocals (Hz)") real "" 120 1 24000
$control high-transition (_ "High Cut for Vocals (Hz)") real "" 9000 1 24000
;;control rotation "Rotation (Degrees)" real "" 0 -180 180 ;;control rotation "Rotation (Degrees)" real "" 0 -180 180
$control strength (_"Strength") real "" 1.0 0.0 50.0 (setf rotation 0.0)
$control low-transition (_"Low Cut for Vocals (Hz)") real "" 120 1 24000
$control high-transition (_"High Cut for Vocals (Hz)") real "" 9000 1 24000
;
;preview linear
;
;; make aref shorter ;; make aref shorter
(defmacro : (array index) (backquote (aref ,array ,index))) (defmacro : (array index) (backquote (aref ,array ,index)))
;; ;;
@@ -70,7 +74,7 @@ $control high-transition (_"High Cut for Vocals (Hz)") real "" 9000 1 24000
(t (/ s-xy s-x2)))) (t (/ s-xy s-x2))))
(a0 (- bar-y (* a1 bar-x)))) (a0 (- bar-y (* a1 bar-x))))
(if show (format t (if show (format t
(_"Average x: ~a, y: ~a (_ "Average x: ~a, y: ~a
Covariance x y: ~a Covariance x y: ~a
Average variance x: ~a, y: ~a Average variance x: ~a, y: ~a
Standard deviation x: ~a, y: ~a Standard deviation x: ~a, y: ~a
@@ -86,31 +90,31 @@ bar-x bar-y s-xy s-x2 s-y2 (sqrt s-x2) (sqrt s-y2) r r2 (* s-y2 (- 1 r2)) a0 a1)
;; ;;
;; Summary for "Analyse", fed with coeff. of correlation ;; Summary for "Analyse", fed with coeff. of correlation
(defun summary (analysis &aux (corr (car analysis)) (pan-position (third analysis))) (defun summary (analysis &aux (corr (car analysis)) (pan-position (third analysis)))
(format nil (_"Pan position: ~a~%The left and right channels are correlated by about ~a %. This means:~%~a~%") (format nil (_ "Pan position: ~a~%The left and right channels are correlated by about ~a %. This means:~%~a~%")
pan-position pan-position
(round (* corr 100)) (round (* corr 100))
(cond (cond
((between corr 0.97 1.1) ((between corr 0.97 1.1)
(_" - The two channels are identical, i.e. dual mono. (_ " - The two channels are identical, i.e. dual mono.
The center can't be removed. The center can't be removed.
Any remaining difference may be caused by lossy encoding.")) Any remaining difference may be caused by lossy encoding."))
((between corr 0.9 0.97) ((between corr 0.9 0.97)
(_" - The two Channels are strongly related, i.e. nearly mono or extremely panned. (_ " - The two Channels are strongly related, i.e. nearly mono or extremely panned.
Most likely, the center extraction will be poor.")) Most likely, the center extraction will be poor."))
((between corr 0.5 0.9) ((between corr 0.5 0.9)
(_" - A fairly good value, at least stereo in average and not too wide spread.")) (_ " - A fairly good value, at least stereo in average and not too wide spread."))
((between corr 0.2 0.5) ((between corr 0.2 0.5)
(_" - An ideal value for Stereo. (_ " - An ideal value for Stereo.
However, the center extraction depends also on the used reverb.")) However, the center extraction depends also on the used reverb."))
((between corr -0.2 0.2) ((between corr -0.2 0.2)
(_" - The two channels are almost not related. (_ " - The two channels are almost not related.
Either you have only noise or the piece is mastered in a unbalanced manner. Either you have only noise or the piece is mastered in a unbalanced manner.
The center extraction can still be good though.")) The center extraction can still be good though."))
((between corr -0.8 -0.2) ((between corr -0.8 -0.2)
(_" - Although the Track is stereo, the field is obviously extra wide. (_ " - Although the Track is stereo, the field is obviously extra wide.
This can cause strange effects. This can cause strange effects.
Especially when played by only one speaker.")) Especially when played by only one speaker."))
(t (_" - The two channels are nearly identical. (t (_ " - The two channels are nearly identical.
Obviously, a pseudo stereo effect has been used Obviously, a pseudo stereo effect has been used
to spread the signal over the physical distance between the speakers. to spread the signal over the physical distance between the speakers.
Don't expect good results from a center removal."))))) Don't expect good results from a center removal.")))))
@@ -195,7 +199,7 @@ bar-x bar-y s-xy s-x2 s-y2 (sqrt s-x2) (sqrt s-y2) r r2 (* s-y2 (- 1 r2)) a0 a1)
;;; main procedure ;;; main procedure
(defun catalog (&aux snd (defun catalog (&aux snd
(original-len (/ (+ len hop) *sr*)) (dur (get-duration 1))) (original-len (/ (+ len hop) *sr*)) (dur (get-duration 1)))
(if (soundp *track*) (return-from catalog (_"This plug-in works only with stereo tracks.")) (if (soundp *track*) (return-from catalog (_ "This plug-in works only with stereo tracks."))
(setf snd (vector (snd-copy (: *track* 0)) (snd-copy (: *track* 1))))) (setf snd (vector (snd-copy (: *track* 0)) (snd-copy (: *track* 1)))))
(cond (cond
((= action 7) ((= action 7)

50
plug-ins/vocalremover.ny
View File

@@ -1,13 +1,12 @@
;nyquist plug-in $nyquist plug-in
;version 4 $version 4
;type process $type process
;preview linear $preview linear
$name (_"Vocal Remover") $name (_ "Vocal Remover")
;manpage "Vocal_Remover" $manpage "Vocal_Remover"
$action (_"Removing center-panned audio...") $action (_ "Removing center-panned audio...")
$info (_"For reducing center-panned vocals") $author (_ "Steve Daulton")
$author (_"Steve Daulton") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; This version of vocalremover.ny by Steve Daulton June 2013. ;; This version of vocalremover.ny by Steve Daulton June 2013.
;; ;;
@@ -16,26 +15,29 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
;; the default, restore a single Help screen and restore error checking. ;; the default, restore a single Help screen and restore error checking.
;; Thanks to David Hostetler for notes in his own vocal remover plug-in, ;; Thanks to David Hostetler for notes in his own vocal remover plug-in,
;; http://www.freelists.org/archives/audacity4blind/06-2006/msg00049.html ;; http://www.freelists.org/archives/audacity4blind/06-2006/msg00049.html
;;
;; Released under terms of the GNU General Public License version 2: ;; 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 action (_"Remove vocals or view Help") choice ( $control action (_ "Remove vocals or view Help") choice (
(_"Remove vocals") (_ "Remove vocals")
(_"View Help") (_ "View Help")
) 0 ) 0
$control band-choice (_"Removal choice") choice ( $control band-choice (_ "Removal choice") choice (
(_"Simple (entire spectrum)") (_ "Simple (entire spectrum)")
(_"Remove frequency band") (_ "Remove frequency band")
(_"Retain frequency band") (_ "Retain frequency band")
) 0 ) 0
$control low-range (_"Frequency band from (Hz)") float-text "" 500 0 nil $control low-range (_ "Frequency band from (Hz)") float-text "" 500 0 nil
$control high-range (_"Frequency band to (Hz)") float-text "" 2000 0 nil $control high-range (_ "Frequency band to (Hz)") float-text "" 2000 0 nil
(defun help () (defun help ()
(let ((msg (format nil (let ((msg (format nil
(_"Vocal Remover requires a stereo track. It works best with (_ "Vocal Remover requires a stereo track. It works best with
lossless files like WAV or AIFF, rather than MP3 or lossless files like WAV or AIFF, rather than MP3 or
other compressed formats. It only removes vocals or other other compressed formats. It only removes vocals or other
audio that is panned to center (sounds equally loud in left audio that is panned to center (sounds equally loud in left
@@ -67,7 +69,7 @@ frequencies outside the limits, retaining the others."))))
(defun check-stereo () (defun check-stereo ()
(when (soundp *track*) (when (soundp *track*)
(throw 'err (format nil (throw 'err (format nil
(_"~%Vocal Remover requires an unsplit, stereo track.~%~ (_ "~%Vocal Remover requires an unsplit, stereo track.~%~
If you have a stereo track split into left and right~%~ If you have a stereo track split into left and right~%~
channels, use 'Make Stereo Track' on the Track~%~ channels, use 'Make Stereo Track' on the Track~%~
Drop-Down Menu, then run Vocal Remover again.~%"))))) Drop-Down Menu, then run Vocal Remover again.~%")))))
@@ -100,7 +102,7 @@ Drop-Down Menu, then run Vocal Remover again.~%")))))
(defun bandstop (sig low high) (defun bandstop (sig low high)
(if (and low high (< (/ (- high low) low) 0.1)) (if (and low high (< (/ (- high low) low) 0.1))
(format t (_"Warning:~%~ (format t (_ "Warning:~%~
Selected band-stop filter is~%~ Selected band-stop filter is~%~
~a Hz to ~a Hz.~%~ ~a Hz to ~a Hz.~%~
A very narrow stop-band filter may have~%~ A very narrow stop-band filter may have~%~
@@ -121,7 +123,7 @@ Drop-Down Menu, then run Vocal Remover again.~%")))))
(bandstop (aref *track* 1) low-range high-range))) (bandstop (aref *track* 1) low-range high-range)))
; Nothing to remove - skip effect. ; Nothing to remove - skip effect.
((and (= band-choice 2)(not low-range)(not high-range)) ((and (= band-choice 2)(not low-range)(not high-range))
(format t (_"Current settings returned the original audio.")) (format t (_ "Current settings returned the original audio."))
nil) nil)
((= band-choice 2) ; remove frequencies inside range ((= band-choice 2) ; remove frequencies inside range
(sum (aref *track* 0) (sum (aref *track* 0)

35
plug-ins/vocoder.ny
View File

@@ -1,13 +1,12 @@
;nyquist plug-in $nyquist plug-in
;version 3 $version 3
;type process $type process
;preview enabled $preview enabled
;categories "http://lv2plug.in/ns/lv2core#SpectralPlugin" $name (_ "Vocoder")
$name (_"Vocoder") $manpage "Vocoder"
;manpage "Vocoder" $action (_ "Processing Vocoder...")
$action (_"Processing Vocoder...") $author (_ "Edgar-RFT")
$author (_"Edgar-RFT") $copyright (_ "Released under terms of the GNU General Public License version 2")
$copyright (_"Released under terms of the GNU General Public License version 2")
;; vocoder.ny by Edgar-RFT ;; vocoder.ny by Edgar-RFT
;; a bit of code added by David R. Sky ;; a bit of code added by David R. Sky
@@ -21,13 +20,13 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
;; For information about writing and modifying Nyquist plug-ins: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control dst (_"Distance: (1 to 120, default = 20)") real "" 20 1 120 $control dst (_ "Distance: (1 to 120, default = 20)") real "" 20 1 120
$control mst (_"Output choice") choice ((_"both channels") (_"right only")) 0 $control mst (_ "Output choice") choice ((_ "both channels") (_ "right only")) 0
$control bands (_"Number of vocoder bands") int "" 40 10 240 $control bands (_ "Number of vocoder bands") int "" 40 10 240
$control track-vl (_"Amplitude of original audio (percent)") real "" 100 0 100 $control track-vl (_ "Amplitude of original audio (percent)") real "" 100 0 100
$control noise-vl (_"Amplitude of white noise (percent)") real "" 0 0 100 $control noise-vl (_ "Amplitude of white noise (percent)") real "" 0 0 100
$control radar-vl (_"Amplitude of Radar Needles (percent)") real "" 0 0 100 $control radar-vl (_ "Amplitude of Radar Needles (percent)") real "" 0 0 100
$control radar-f (_"Frequency of Radar Needles (Hz)") real "" 30 1 100 $control radar-f (_ "Frequency of Radar Needles (Hz)") real "" 30 1 100
; maybe the code once again has to be changed into _one_ local let-binding ; maybe the code once again has to be changed into _one_ local let-binding
; if you have lots of nyquist "[gc:" messages try this: ; if you have lots of nyquist "[gc:" messages try this:
@@ -136,4 +135,4 @@ $control radar-f (_"Frequency of Radar Needles (Hz)") real "" 30 1 100
(0 s) ; let Audacity coerce back to stereo (0 s) ; let Audacity coerce back to stereo
(1 (vector original s))))) (1 (vector original s)))))
(t ; this effect isn't meant for mono (t ; this effect isn't meant for mono
(format nil (_"Error.~%Stereo track required.")))) (format nil (_ "Error.~%Stereo track required."))))