From a13827e0243270a6cec647fe77a21371d557c60a Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 14:36:17 -0500 Subject: [PATCH 01/13] Rewrite ;name --- plug-ins/SilenceMarker.ny | 2 +- plug-ins/SoundFinder.ny | 2 +- plug-ins/SpectralEditMulti.ny | 2 +- plug-ins/SpectralEditParametricEQ.ny | 2 +- plug-ins/SpectralEditShelves.ny | 2 +- plug-ins/StudioFadeOut.ny | 4 ++-- plug-ins/adjustable-fade.ny | 2 +- plug-ins/beat.ny | 2 +- plug-ins/clipfix.ny | 2 +- plug-ins/crossfadeclips.ny | 2 +- plug-ins/crossfadetracks.ny | 2 +- plug-ins/delay.ny | 2 +- plug-ins/equalabel.ny | 2 +- plug-ins/highpass.ny | 2 +- plug-ins/limiter.ny | 2 +- plug-ins/lowpass.ny | 2 +- plug-ins/notch.ny | 2 +- plug-ins/pluck.ny | 2 +- plug-ins/rhythmtrack.ny | 2 +- plug-ins/rissetdrum.ny | 3 ++- plug-ins/sample-data-export.ny | 2 +- plug-ins/sample-data-import.ny | 2 +- plug-ins/tremolo.ny | 2 +- plug-ins/vocalrediso.ny | 4 ++-- plug-ins/vocalremover.ny | 2 +- plug-ins/vocoder.ny | 2 +- 26 files changed, 29 insertions(+), 28 deletions(-) diff --git a/plug-ins/SilenceMarker.ny b/plug-ins/SilenceMarker.ny index 9377a5f15..ac3e355ce 100644 --- a/plug-ins/SilenceMarker.ny +++ b/plug-ins/SilenceMarker.ny @@ -2,7 +2,7 @@ ;version 1 ;type analyze ;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" -;name "Silence Finder..." +$name (_"Silence Finder...") ;manpage "Silence_Finder" ;action "Finding silence..." ;info "Adds point labels in areas of silence according to the specified\nlevel and duration of silence. If too many silences are detected,\nincrease the silence level and duration; if too few are detected,\nreduce the level and duration." diff --git a/plug-ins/SoundFinder.ny b/plug-ins/SoundFinder.ny index 042ff9d9c..a8812af28 100644 --- a/plug-ins/SoundFinder.ny +++ b/plug-ins/SoundFinder.ny @@ -2,7 +2,7 @@ ;version 1 ;type analyze ;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" -;name "Sound Finder..." +$name (_"Sound Finder...") ;manpage "Sound_Finder" ;action "Finding sound..." ;info "Adds region labels for areas of sound according to the specified level\nand duration of surrounding silence. If too many labels are produced,\nincrease the silence level and duration; if too few are produced,\nreduce the level and duration." diff --git a/plug-ins/SpectralEditMulti.ny b/plug-ins/SpectralEditMulti.ny index 2e8ca2400..3a039af1b 100644 --- a/plug-ins/SpectralEditMulti.ny +++ b/plug-ins/SpectralEditMulti.ny @@ -1,7 +1,7 @@ ;nyquist plug-in ;version 4 ;type process spectral -;name "Spectral edit multi tool" +$name (_"Spectral edit multi tool") ;manpage "Spectral_edit_multi_tool" ;action "Filtering..." ;author "Paul Licameli" diff --git a/plug-ins/SpectralEditParametricEQ.ny b/plug-ins/SpectralEditParametricEQ.ny index 8d7d3a35d..5a192b074 100644 --- a/plug-ins/SpectralEditParametricEQ.ny +++ b/plug-ins/SpectralEditParametricEQ.ny @@ -2,7 +2,7 @@ ;version 4 ;type process spectral ;preview linear -;name "Spectral edit parametric EQ..." +$name (_"Spectral edit parametric EQ...") ;manpage "Spectral_edit_parametric_EQ" ;action "Filtering..." ;author "Paul Licameli" diff --git a/plug-ins/SpectralEditShelves.ny b/plug-ins/SpectralEditShelves.ny index cde754cfa..5dced2595 100644 --- a/plug-ins/SpectralEditShelves.ny +++ b/plug-ins/SpectralEditShelves.ny @@ -2,7 +2,7 @@ ;version 4 ;type process spectral ;preview linear -;name "Spectral edit shelves..." +$name (_"Spectral edit shelves...") ;manpage "Spectral_edit_shelves" ;action "Filtering..." ;author "Paul Licameli" diff --git a/plug-ins/StudioFadeOut.ny b/plug-ins/StudioFadeOut.ny index 73570393c..9ea232ebf 100644 --- a/plug-ins/StudioFadeOut.ny +++ b/plug-ins/StudioFadeOut.ny @@ -2,7 +2,7 @@ ;version 1 ;type process ;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" -;name "Studio Fade Out" +$name (_"Studio Fade Out") ;manpage "Fades#studio_fadeout" ;action "Applying Fade..." ;author "Steve Daulton" @@ -42,4 +42,4 @@ ((< len 3) "Selection too short.\nIt must be more than 2 samples.") ((< dur 0.2) (mult s (r-cos dur))) (t (mult (filter s dur)(r-cos dur))))) - \ No newline at end of file + diff --git a/plug-ins/adjustable-fade.ny b/plug-ins/adjustable-fade.ny index a0c1f985f..28ff1c824 100644 --- a/plug-ins/adjustable-fade.ny +++ b/plug-ins/adjustable-fade.ny @@ -4,7 +4,7 @@ ;preview linear ;preview selection ;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" -;name "Adjustable Fade..." +$name (_"Adjustable Fade...") ;manpage "Adjustable_Fade" ;debugbutton false ;action "Applying Fade..." diff --git a/plug-ins/beat.ny b/plug-ins/beat.ny index ae9093aa0..150d82d1c 100644 --- a/plug-ins/beat.ny +++ b/plug-ins/beat.ny @@ -2,7 +2,7 @@ ;version 1 ;type analyze ;categories "https://audacityteam.org/namespace#OnsetDetector" -;name "Beat Finder..." +$name (_"Beat Finder...") ;manpage "Beat_Finder" ;action "Finding beats..." ;author "Audacity" diff --git a/plug-ins/clipfix.ny b/plug-ins/clipfix.ny index a341c0b70..4ea5bb446 100644 --- a/plug-ins/clipfix.ny +++ b/plug-ins/clipfix.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview enabled -;name "Clip Fix..." +$name (_"Clip Fix...") ;manpage "Clip_Fix" ;action "Reconstructing clips..." ;author "Benjamin Schwartz and Steve Daulton" diff --git a/plug-ins/crossfadeclips.ny b/plug-ins/crossfadeclips.ny index f0c82bfa0..925da4110 100644 --- a/plug-ins/crossfadeclips.ny +++ b/plug-ins/crossfadeclips.ny @@ -3,7 +3,7 @@ ;type process ;mergeclips 1 ;restoresplits 0 -;name "Crossfade Clips" +$name (_"Crossfade Clips") ;manpage "Crossfade_Clips" ;action "Crossfading..." ;author "Steve Daulton" diff --git a/plug-ins/crossfadetracks.ny b/plug-ins/crossfadetracks.ny index 4567e8d55..0ac084ed7 100644 --- a/plug-ins/crossfadetracks.ny +++ b/plug-ins/crossfadetracks.ny @@ -1,7 +1,7 @@ ;nyquist plug-in ;version 4 ;type process -;name "Crossfade Tracks..." +$name (_"Crossfade Tracks...") ;manpage "Crossfade_Tracks" ;debugbutton disabled ;action "Crossfading..." diff --git a/plug-ins/delay.ny b/plug-ins/delay.ny index 60f620c36..ae686d08d 100644 --- a/plug-ins/delay.ny +++ b/plug-ins/delay.ny @@ -3,7 +3,7 @@ ;type process ;preview linear ;categories "http://lv2plug.in/ns/lv2core#DelayPlugin" -;name "Delay..." +$name (_"Delay...") ;manpage "Delay" ;action "Applying Delay Effect..." ;author "Steve Daulton" diff --git a/plug-ins/equalabel.ny b/plug-ins/equalabel.ny index dcc67a259..14ed352e0 100644 --- a/plug-ins/equalabel.ny +++ b/plug-ins/equalabel.ny @@ -1,7 +1,7 @@ ;nyquist plug-in ;version 4 ;type analyze -;name "Regular Interval Labels..." +$name (_"Regular Interval Labels...") ;manpage "Regular_Interval_Labels" ;action "Adding equally-spaced labels to the label track..." ;author "Steve Daulton" diff --git a/plug-ins/highpass.ny b/plug-ins/highpass.ny index e5642b31b..dcb332909 100644 --- a/plug-ins/highpass.ny +++ b/plug-ins/highpass.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview linear -;name "High Pass Filter..." +$name (_"High Pass Filter...") ;manpage "High_Pass_Filter" ;debugbutton disabled ;action "Performing High Pass Filter..." diff --git a/plug-ins/limiter.ny b/plug-ins/limiter.ny index 0b0f41f5d..b4a3afce1 100644 --- a/plug-ins/limiter.ny +++ b/plug-ins/limiter.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;categories "http://lv2plug.in/ns/lv2core/#DynamicsPlugin" -;name "Limiter..." +$name (_"Limiter...") ;manpage "Limiter" ;debugbutton false ;action "Limiting..." diff --git a/plug-ins/lowpass.ny b/plug-ins/lowpass.ny index a2b8cd59a..e6800619a 100644 --- a/plug-ins/lowpass.ny +++ b/plug-ins/lowpass.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview linear -;name "Low Pass Filter..." +$name (_"Low Pass Filter...") ;manpage "Low_Pass_Filter" ;debugbutton disabled ;action "Performing Low Pass Filter..." diff --git a/plug-ins/notch.ny b/plug-ins/notch.ny index b6d011621..7190accdd 100644 --- a/plug-ins/notch.ny +++ b/plug-ins/notch.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview linear -;name "Notch Filter..." +$name (_"Notch Filter...") ;manpage "Notch_Filter" ;debugbutton false ;action "Applying Notch Filter..." diff --git a/plug-ins/pluck.ny b/plug-ins/pluck.ny index 23a1429c1..abb3e5300 100644 --- a/plug-ins/pluck.ny +++ b/plug-ins/pluck.ny @@ -2,7 +2,7 @@ ;version 4 ;type generate ;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin" -;name "Pluck..." +$name (_"Pluck...") ;manpage "Pluck" ;debugbutton false ;preview linear diff --git a/plug-ins/rhythmtrack.ny b/plug-ins/rhythmtrack.ny index c98323f15..f6049d0a3 100644 --- a/plug-ins/rhythmtrack.ny +++ b/plug-ins/rhythmtrack.ny @@ -2,7 +2,7 @@ ;version 4 ;type generate ;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin" -;name "Rhythm Track..." +$name (_"Rhythm Track...") ;manpage "Rhythm_Track" ;preview linear ;action "Generating Rhythm..." diff --git a/plug-ins/rissetdrum.ny b/plug-ins/rissetdrum.ny index 1f3287025..538eade96 100644 --- a/plug-ins/rissetdrum.ny +++ b/plug-ins/rissetdrum.ny @@ -3,7 +3,8 @@ ;type generate ;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin" ;preview linear -;name "Risset Drum..." +;i18n-hint named for Jean-Claude Risset (silent t) +$name (_"Risset Drum...") ;manpage "Risset_Drum" ;action "Generating Risset Drum..." ;author "Steven Jones" diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index 6626c5506..dd3024fa7 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -1,7 +1,7 @@ ;nyquist plug-in ;version 3 ;type analyze -;name "Sample Data Export..." +$name (_"Sample Data Export...") ;manpage "Sample_Data_Export" ;action "Analyzing..." ;maxlen 1000001 diff --git a/plug-ins/sample-data-import.ny b/plug-ins/sample-data-import.ny index f395bd48c..65504cfa4 100644 --- a/plug-ins/sample-data-import.ny +++ b/plug-ins/sample-data-import.ny @@ -1,7 +1,7 @@ ;nyquist plug-in ;version 4 ;type generate -;name "Sample Data Import..." +$name (_"Sample Data Import...") ;manpage "Sample_Data_Import" ;action "Reading and rendering samples..." ;author "Steve Daulton" diff --git a/plug-ins/tremolo.ny b/plug-ins/tremolo.ny index bbddbf151..ad9f0dd55 100644 --- a/plug-ins/tremolo.ny +++ b/plug-ins/tremolo.ny @@ -3,7 +3,7 @@ ;type process ;preview linear ;categories "http://lv2plug.in/ns/lv2core#ModulatorPlugin" -;name "Tremolo..." +$name (_"Tremolo...") ;manpage "Tremolo" ;debugbutton disabled ;action "Applying Tremolo..." diff --git a/plug-ins/vocalrediso.ny b/plug-ins/vocalrediso.ny index ace139fa3..805ba378a 100644 --- a/plug-ins/vocalrediso.ny +++ b/plug-ins/vocalrediso.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" -;name "Vocal Reduction and Isolation..." +$name (_"Vocal Reduction and Isolation...") ;manpage "Vocal_Reduction_and_Isolation" ;action "Applying Action..." ;author "Robert Haenggi" @@ -238,4 +238,4 @@ bar-x bar-y s-xy s-x2 s-y2 (sqrt s-x2) (sqrt s-y2) r r2 (* s-y2 (- 1 r2)) a0 a1) (setf *map* (snd-pwl 0 10000 (list 0 0.5 10000 0.0 20000 -0.5 20001))) (setf *norm* 1.0) (expand 120); remove for lower efficiency/more conservative memory management -(catalog) \ No newline at end of file +(catalog) diff --git a/plug-ins/vocalremover.ny b/plug-ins/vocalremover.ny index bbb97a176..5585abd3e 100644 --- a/plug-ins/vocalremover.ny +++ b/plug-ins/vocalremover.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview linear -;name "Vocal Remover..." +$name (_"Vocal Remover...") ;manpage "Vocal_Remover" ;action "Removing center-panned audio..." ;info "For reducing center-panned vocals" diff --git a/plug-ins/vocoder.ny b/plug-ins/vocoder.ny index 00da476b7..ac8d7c5eb 100644 --- a/plug-ins/vocoder.ny +++ b/plug-ins/vocoder.ny @@ -3,7 +3,7 @@ ;type process ;preview enabled ;categories "http://lv2plug.in/ns/lv2core#SpectralPlugin" -;name "Vocoder..." +$name (_"Vocoder...") ;manpage "Vocoder" ;action "Processing Vocoder..." ;author "Edgar-RFT" From 72df4e833c54e248d571e32884d9bac5ba1300c5 Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 14:37:59 -0500 Subject: [PATCH 02/13] Rewrite ;action --- plug-ins/SilenceMarker.ny | 2 +- plug-ins/SoundFinder.ny | 2 +- plug-ins/SpectralEditMulti.ny | 2 +- plug-ins/SpectralEditParametricEQ.ny | 2 +- plug-ins/SpectralEditShelves.ny | 2 +- plug-ins/StudioFadeOut.ny | 2 +- plug-ins/adjustable-fade.ny | 2 +- plug-ins/beat.ny | 2 +- plug-ins/clipfix.ny | 2 +- plug-ins/crossfadeclips.ny | 2 +- plug-ins/crossfadetracks.ny | 2 +- plug-ins/delay.ny | 2 +- plug-ins/equalabel.ny | 2 +- plug-ins/highpass.ny | 2 +- plug-ins/limiter.ny | 2 +- plug-ins/lowpass.ny | 2 +- plug-ins/notch.ny | 2 +- plug-ins/pluck.ny | 2 +- plug-ins/rhythmtrack.ny | 2 +- plug-ins/rissetdrum.ny | 2 +- plug-ins/sample-data-export.ny | 2 +- plug-ins/sample-data-import.ny | 2 +- plug-ins/tremolo.ny | 2 +- plug-ins/vocalrediso.ny | 2 +- plug-ins/vocalremover.ny | 2 +- plug-ins/vocoder.ny | 2 +- 26 files changed, 26 insertions(+), 26 deletions(-) diff --git a/plug-ins/SilenceMarker.ny b/plug-ins/SilenceMarker.ny index ac3e355ce..5f8a0cc55 100644 --- a/plug-ins/SilenceMarker.ny +++ b/plug-ins/SilenceMarker.ny @@ -4,7 +4,7 @@ ;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" $name (_"Silence Finder...") ;manpage "Silence_Finder" -;action "Finding silence..." +$action (_"Finding silence...") ;info "Adds point labels in areas of silence according to the specified\nlevel and duration of silence. If too many silences are detected,\nincrease the silence level and duration; if too few are detected,\nreduce the level and duration." ;author "Alex S. Brown" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/SoundFinder.ny b/plug-ins/SoundFinder.ny index a8812af28..23578c5f2 100644 --- a/plug-ins/SoundFinder.ny +++ b/plug-ins/SoundFinder.ny @@ -4,7 +4,7 @@ ;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" $name (_"Sound Finder...") ;manpage "Sound_Finder" -;action "Finding sound..." +$action (_"Finding sound...") ;info "Adds region labels for areas of sound according to the specified level\nand duration of surrounding silence. If too many labels are produced,\nincrease the silence level and duration; if too few are produced,\nreduce the level and duration." ;author "Jeremy R. Brown" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/SpectralEditMulti.ny b/plug-ins/SpectralEditMulti.ny index 3a039af1b..2d7c2696d 100644 --- a/plug-ins/SpectralEditMulti.ny +++ b/plug-ins/SpectralEditMulti.ny @@ -3,7 +3,7 @@ ;type process spectral $name (_"Spectral edit multi tool") ;manpage "Spectral_edit_multi_tool" -;action "Filtering..." +$action (_"Filtering...") ;author "Paul Licameli" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/SpectralEditParametricEQ.ny b/plug-ins/SpectralEditParametricEQ.ny index 5a192b074..17ae5a0b7 100644 --- a/plug-ins/SpectralEditParametricEQ.ny +++ b/plug-ins/SpectralEditParametricEQ.ny @@ -4,7 +4,7 @@ ;preview linear $name (_"Spectral edit parametric EQ...") ;manpage "Spectral_edit_parametric_EQ" -;action "Filtering..." +$action (_"Filtering...") ;author "Paul Licameli" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/SpectralEditShelves.ny b/plug-ins/SpectralEditShelves.ny index 5dced2595..fa1657834 100644 --- a/plug-ins/SpectralEditShelves.ny +++ b/plug-ins/SpectralEditShelves.ny @@ -4,7 +4,7 @@ ;preview linear $name (_"Spectral edit shelves...") ;manpage "Spectral_edit_shelves" -;action "Filtering..." +$action (_"Filtering...") ;author "Paul Licameli" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/StudioFadeOut.ny b/plug-ins/StudioFadeOut.ny index 9ea232ebf..879da08c9 100644 --- a/plug-ins/StudioFadeOut.ny +++ b/plug-ins/StudioFadeOut.ny @@ -4,7 +4,7 @@ ;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" $name (_"Studio Fade Out") ;manpage "Fades#studio_fadeout" -;action "Applying Fade..." +$action (_"Applying Fade...") ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/adjustable-fade.ny b/plug-ins/adjustable-fade.ny index 28ff1c824..b7e3d6691 100644 --- a/plug-ins/adjustable-fade.ny +++ b/plug-ins/adjustable-fade.ny @@ -7,7 +7,7 @@ $name (_"Adjustable Fade...") ;manpage "Adjustable_Fade" ;debugbutton false -;action "Applying Fade..." +$action (_"Applying Fade...") ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/beat.ny b/plug-ins/beat.ny index 150d82d1c..34db2f7ef 100644 --- a/plug-ins/beat.ny +++ b/plug-ins/beat.ny @@ -4,7 +4,7 @@ ;categories "https://audacityteam.org/namespace#OnsetDetector" $name (_"Beat Finder...") ;manpage "Beat_Finder" -;action "Finding beats..." +$action (_"Finding beats...") ;author "Audacity" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/clipfix.ny b/plug-ins/clipfix.ny index 4ea5bb446..aad42c214 100644 --- a/plug-ins/clipfix.ny +++ b/plug-ins/clipfix.ny @@ -4,7 +4,7 @@ ;preview enabled $name (_"Clip Fix...") ;manpage "Clip_Fix" -;action "Reconstructing clips..." +$action (_"Reconstructing clips...") ;author "Benjamin Schwartz and Steve Daulton" ;copyright "Licensing confirmed under terms of the GNU General Public License version 2" diff --git a/plug-ins/crossfadeclips.ny b/plug-ins/crossfadeclips.ny index 925da4110..92341fbfd 100644 --- a/plug-ins/crossfadeclips.ny +++ b/plug-ins/crossfadeclips.ny @@ -5,7 +5,7 @@ ;restoresplits 0 $name (_"Crossfade Clips") ;manpage "Crossfade_Clips" -;action "Crossfading..." +$action (_"Crossfading...") ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/crossfadetracks.ny b/plug-ins/crossfadetracks.ny index 0ac084ed7..b8809cd62 100644 --- a/plug-ins/crossfadetracks.ny +++ b/plug-ins/crossfadetracks.ny @@ -4,7 +4,7 @@ $name (_"Crossfade Tracks...") ;manpage "Crossfade_Tracks" ;debugbutton disabled -;action "Crossfading..." +$action (_"Crossfading...") ;preview selection ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/delay.ny b/plug-ins/delay.ny index ae686d08d..4af600eae 100644 --- a/plug-ins/delay.ny +++ b/plug-ins/delay.ny @@ -5,7 +5,7 @@ ;categories "http://lv2plug.in/ns/lv2core#DelayPlugin" $name (_"Delay...") ;manpage "Delay" -;action "Applying Delay Effect..." +$action (_"Applying Delay Effect...") ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/equalabel.ny b/plug-ins/equalabel.ny index 14ed352e0..816c124b2 100644 --- a/plug-ins/equalabel.ny +++ b/plug-ins/equalabel.ny @@ -3,7 +3,7 @@ ;type analyze $name (_"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" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/highpass.ny b/plug-ins/highpass.ny index dcb332909..7f03e9647 100644 --- a/plug-ins/highpass.ny +++ b/plug-ins/highpass.ny @@ -5,7 +5,7 @@ $name (_"High Pass Filter...") ;manpage "High_Pass_Filter" ;debugbutton disabled -;action "Performing High Pass Filter..." +$action (_"Performing High Pass Filter...") ;author "Dominic Mazzoni" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/limiter.ny b/plug-ins/limiter.ny index b4a3afce1..23718d741 100644 --- a/plug-ins/limiter.ny +++ b/plug-ins/limiter.ny @@ -5,7 +5,7 @@ $name (_"Limiter...") ;manpage "Limiter" ;debugbutton false -;action "Limiting..." +$action (_"Limiting...") ;preview enabled ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/lowpass.ny b/plug-ins/lowpass.ny index e6800619a..1c1523e6e 100644 --- a/plug-ins/lowpass.ny +++ b/plug-ins/lowpass.ny @@ -5,7 +5,7 @@ $name (_"Low Pass Filter...") ;manpage "Low_Pass_Filter" ;debugbutton disabled -;action "Performing Low Pass Filter..." +$action (_"Performing Low Pass Filter...") ;author "Dominic Mazzoni" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/notch.ny b/plug-ins/notch.ny index 7190accdd..8c75e5a4e 100644 --- a/plug-ins/notch.ny +++ b/plug-ins/notch.ny @@ -5,7 +5,7 @@ $name (_"Notch Filter...") ;manpage "Notch_Filter" ;debugbutton false -;action "Applying Notch Filter..." +$action (_"Applying Notch Filter...") ;author "Steve Daulton and Bill Wharrie" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/pluck.ny b/plug-ins/pluck.ny index abb3e5300..5c1915f87 100644 --- a/plug-ins/pluck.ny +++ b/plug-ins/pluck.ny @@ -6,7 +6,7 @@ $name (_"Pluck...") ;manpage "Pluck" ;debugbutton false ;preview linear -;action "Generating pluck sound..." +$action (_"Generating pluck sound...") ;info "MIDI values for C notes: 36, 48, 60 [middle C], 72, 84, 96." ;author "David R.Sky" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/rhythmtrack.ny b/plug-ins/rhythmtrack.ny index f6049d0a3..6a1a0bdcc 100644 --- a/plug-ins/rhythmtrack.ny +++ b/plug-ins/rhythmtrack.ny @@ -5,7 +5,7 @@ $name (_"Rhythm Track...") ;manpage "Rhythm_Track" ;preview linear -;action "Generating Rhythm..." +$action (_"Generating Rhythm...") ;author "Dominic Mazzoni" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/rissetdrum.ny b/plug-ins/rissetdrum.ny index 538eade96..4d38091bc 100644 --- a/plug-ins/rissetdrum.ny +++ b/plug-ins/rissetdrum.ny @@ -6,7 +6,7 @@ ;i18n-hint named for Jean-Claude Risset (silent t) $name (_"Risset Drum...") ;manpage "Risset_Drum" -;action "Generating Risset Drum..." +$action (_"Generating Risset Drum...") ;author "Steven Jones" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index dd3024fa7..9471cf546 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -3,7 +3,7 @@ ;type analyze $name (_"Sample Data Export...") ;manpage "Sample_Data_Export" -;action "Analyzing..." +$action (_"Analyzing...") ;maxlen 1000001 ;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" ;author "Steve Daulton" diff --git a/plug-ins/sample-data-import.ny b/plug-ins/sample-data-import.ny index 65504cfa4..84e2568d7 100644 --- a/plug-ins/sample-data-import.ny +++ b/plug-ins/sample-data-import.ny @@ -3,7 +3,7 @@ ;type generate $name (_"Sample Data Import...") ;manpage "Sample_Data_Import" -;action "Reading and rendering samples..." +$action (_"Reading and rendering samples...") ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/tremolo.ny b/plug-ins/tremolo.ny index ad9f0dd55..036bbf927 100644 --- a/plug-ins/tremolo.ny +++ b/plug-ins/tremolo.ny @@ -6,7 +6,7 @@ $name (_"Tremolo...") ;manpage "Tremolo" ;debugbutton disabled -;action "Applying Tremolo..." +$action (_"Applying Tremolo...") ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/vocalrediso.ny b/plug-ins/vocalrediso.ny index 805ba378a..1fb2ad46a 100644 --- a/plug-ins/vocalrediso.ny +++ b/plug-ins/vocalrediso.ny @@ -4,7 +4,7 @@ ;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" $name (_"Vocal Reduction and Isolation...") ;manpage "Vocal_Reduction_and_Isolation" -;action "Applying Action..." +$action (_"Applying Action...") ;author "Robert Haenggi" ;copyright "Released under terms of the GNU General Public License version 2" ;; diff --git a/plug-ins/vocalremover.ny b/plug-ins/vocalremover.ny index 5585abd3e..19b385d62 100644 --- a/plug-ins/vocalremover.ny +++ b/plug-ins/vocalremover.ny @@ -4,7 +4,7 @@ ;preview linear $name (_"Vocal Remover...") ;manpage "Vocal_Remover" -;action "Removing center-panned audio..." +$action (_"Removing center-panned audio...") ;info "For reducing center-panned vocals" ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/vocoder.ny b/plug-ins/vocoder.ny index ac8d7c5eb..af4ef9e93 100644 --- a/plug-ins/vocoder.ny +++ b/plug-ins/vocoder.ny @@ -5,7 +5,7 @@ ;categories "http://lv2plug.in/ns/lv2core#SpectralPlugin" $name (_"Vocoder...") ;manpage "Vocoder" -;action "Processing Vocoder..." +$action (_"Processing Vocoder...") ;author "Edgar-RFT" ;copyright "Released under terms of the GNU General Public License version 2" From 5e390f331a02be7f0e375ed88fc2752423b7e86c Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 14:38:38 -0500 Subject: [PATCH 03/13] Rewrite ;info --- plug-ins/SilenceMarker.ny | 2 +- plug-ins/SoundFinder.ny | 2 +- plug-ins/pluck.ny | 2 +- plug-ins/vocalremover.ny | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/plug-ins/SilenceMarker.ny b/plug-ins/SilenceMarker.ny index 5f8a0cc55..a6835f528 100644 --- a/plug-ins/SilenceMarker.ny +++ b/plug-ins/SilenceMarker.ny @@ -5,7 +5,7 @@ $name (_"Silence Finder...") ;manpage "Silence_Finder" $action (_"Finding silence...") -;info "Adds point labels in areas of silence according to the specified\nlevel and duration of silence. If too many silences are detected,\nincrease the silence level and duration; if too few are detected,\nreduce the level and duration." +$info (_"Adds point labels in areas of silence according to the specified\nlevel and duration of silence. If too many silences are detected,\nincrease the silence level and duration; if too few are detected,\nreduce the level and duration.") ;author "Alex S. Brown" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/SoundFinder.ny b/plug-ins/SoundFinder.ny index 23578c5f2..1a4806a1a 100644 --- a/plug-ins/SoundFinder.ny +++ b/plug-ins/SoundFinder.ny @@ -5,7 +5,7 @@ $name (_"Sound Finder...") ;manpage "Sound_Finder" $action (_"Finding sound...") -;info "Adds region labels for areas of sound according to the specified level\nand duration of surrounding silence. If too many labels are produced,\nincrease the silence level and duration; if too few are produced,\nreduce the level and duration." +$info (_"Adds region labels for areas of sound according to the specified level\nand duration of surrounding silence. If too many labels are produced,\nincrease the silence level and duration; if too few are produced,\nreduce the level and duration.") ;author "Jeremy R. Brown" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/pluck.ny b/plug-ins/pluck.ny index 5c1915f87..e53249439 100644 --- a/plug-ins/pluck.ny +++ b/plug-ins/pluck.ny @@ -7,7 +7,7 @@ $name (_"Pluck...") ;debugbutton false ;preview linear $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" ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/vocalremover.ny b/plug-ins/vocalremover.ny index 19b385d62..850a20689 100644 --- a/plug-ins/vocalremover.ny +++ b/plug-ins/vocalremover.ny @@ -5,7 +5,7 @@ $name (_"Vocal Remover...") ;manpage "Vocal_Remover" $action (_"Removing center-panned audio...") -;info "For reducing center-panned vocals" +$info (_"For reducing center-panned vocals") ;author "Steve Daulton" ;copyright "Released under terms of the GNU General Public License version 2" From 6298ac947a8a6f643ab66edda4a3bbafed697c6a Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 14:39:44 -0500 Subject: [PATCH 04/13] Rewrite ;author --- plug-ins/SilenceMarker.ny | 2 +- plug-ins/SoundFinder.ny | 2 +- plug-ins/SpectralEditMulti.ny | 2 +- plug-ins/SpectralEditParametricEQ.ny | 2 +- plug-ins/SpectralEditShelves.ny | 2 +- plug-ins/StudioFadeOut.ny | 2 +- plug-ins/adjustable-fade.ny | 2 +- plug-ins/beat.ny | 2 +- plug-ins/clipfix.ny | 2 +- plug-ins/crossfadeclips.ny | 2 +- plug-ins/crossfadetracks.ny | 2 +- plug-ins/delay.ny | 2 +- plug-ins/equalabel.ny | 2 +- plug-ins/highpass.ny | 2 +- plug-ins/limiter.ny | 2 +- plug-ins/lowpass.ny | 2 +- plug-ins/notch.ny | 2 +- plug-ins/pluck.ny | 2 +- plug-ins/rhythmtrack.ny | 2 +- plug-ins/rissetdrum.ny | 2 +- plug-ins/sample-data-export.ny | 2 +- plug-ins/sample-data-import.ny | 2 +- plug-ins/tremolo.ny | 2 +- plug-ins/vocalrediso.ny | 2 +- plug-ins/vocalremover.ny | 2 +- plug-ins/vocoder.ny | 2 +- 26 files changed, 26 insertions(+), 26 deletions(-) diff --git a/plug-ins/SilenceMarker.ny b/plug-ins/SilenceMarker.ny index a6835f528..21b0cea4b 100644 --- a/plug-ins/SilenceMarker.ny +++ b/plug-ins/SilenceMarker.ny @@ -6,7 +6,7 @@ $name (_"Silence Finder...") ;manpage "Silence_Finder" $action (_"Finding silence...") $info (_"Adds point labels in areas of silence according to the specified\nlevel and duration of silence. If too many silences are detected,\nincrease the silence level and duration; if too few are detected,\nreduce the level and duration.") -;author "Alex S. Brown" +$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) diff --git a/plug-ins/SoundFinder.ny b/plug-ins/SoundFinder.ny index 1a4806a1a..8f5dfa9ff 100644 --- a/plug-ins/SoundFinder.ny +++ b/plug-ins/SoundFinder.ny @@ -6,7 +6,7 @@ $name (_"Sound Finder...") ;manpage "Sound_Finder" $action (_"Finding sound...") $info (_"Adds region labels for areas of sound according to the specified level\nand duration of surrounding silence. If too many labels are produced,\nincrease the silence level and duration; if too few are produced,\nreduce the level and duration.") -;author "Jeremy R. Brown" +$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/) diff --git a/plug-ins/SpectralEditMulti.ny b/plug-ins/SpectralEditMulti.ny index 2d7c2696d..121393784 100644 --- a/plug-ins/SpectralEditMulti.ny +++ b/plug-ins/SpectralEditMulti.ny @@ -4,7 +4,7 @@ $name (_"Spectral edit multi tool") ;manpage "Spectral_edit_multi_tool" $action (_"Filtering...") -;author "Paul Licameli" +$author (_"Paul Licameli") ;copyright "Released under terms of the GNU General Public License version 2" ;; SpectralEditMulti.ny by Paul Licameli, November 2014. diff --git a/plug-ins/SpectralEditParametricEQ.ny b/plug-ins/SpectralEditParametricEQ.ny index 17ae5a0b7..f94313834 100644 --- a/plug-ins/SpectralEditParametricEQ.ny +++ b/plug-ins/SpectralEditParametricEQ.ny @@ -5,7 +5,7 @@ $name (_"Spectral edit parametric EQ...") ;manpage "Spectral_edit_parametric_EQ" $action (_"Filtering...") -;author "Paul Licameli" +$author (_"Paul Licameli") ;copyright "Released under terms of the GNU General Public License version 2" ;; SpectralEditParametricEQ.ny by Paul Licameli, November 2014. diff --git a/plug-ins/SpectralEditShelves.ny b/plug-ins/SpectralEditShelves.ny index fa1657834..bc19d3612 100644 --- a/plug-ins/SpectralEditShelves.ny +++ b/plug-ins/SpectralEditShelves.ny @@ -5,7 +5,7 @@ $name (_"Spectral edit shelves...") ;manpage "Spectral_edit_shelves" $action (_"Filtering...") -;author "Paul Licameli" +$author (_"Paul Licameli") ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/StudioFadeOut.ny b/plug-ins/StudioFadeOut.ny index 879da08c9..ce45a5013 100644 --- a/plug-ins/StudioFadeOut.ny +++ b/plug-ins/StudioFadeOut.ny @@ -5,7 +5,7 @@ $name (_"Studio Fade Out") ;manpage "Fades#studio_fadeout" $action (_"Applying Fade...") -;author "Steve Daulton" +$author (_"Steve Daulton") ;copyright "Released under terms of the GNU General Public License version 2" ;; StudioFadeOut.ny by Steve Daulton December 2012. diff --git a/plug-ins/adjustable-fade.ny b/plug-ins/adjustable-fade.ny index b7e3d6691..709b32880 100644 --- a/plug-ins/adjustable-fade.ny +++ b/plug-ins/adjustable-fade.ny @@ -8,7 +8,7 @@ $name (_"Adjustable Fade...") ;manpage "Adjustable_Fade" ;debugbutton false $action (_"Applying Fade...") -;author "Steve Daulton" +$author (_"Steve Daulton") ;copyright "Released under terms of the GNU General Public License version 2" ;; adjustable-fade.ny by Steve Daulton Dec 2012 diff --git a/plug-ins/beat.ny b/plug-ins/beat.ny index 34db2f7ef..c0ed2512f 100644 --- a/plug-ins/beat.ny +++ b/plug-ins/beat.ny @@ -5,7 +5,7 @@ $name (_"Beat Finder...") ;manpage "Beat_Finder" $action (_"Finding beats...") -;author "Audacity" +$author (_"Audacity") ;copyright "Released under terms of the GNU General Public License version 2" ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/clipfix.ny b/plug-ins/clipfix.ny index aad42c214..ab8090185 100644 --- a/plug-ins/clipfix.ny +++ b/plug-ins/clipfix.ny @@ -5,7 +5,7 @@ $name (_"Clip Fix...") ;manpage "Clip_Fix" $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" ;; Algorithm by Benjamin Schwartz diff --git a/plug-ins/crossfadeclips.ny b/plug-ins/crossfadeclips.ny index 92341fbfd..407a0b440 100644 --- a/plug-ins/crossfadeclips.ny +++ b/plug-ins/crossfadeclips.ny @@ -6,7 +6,7 @@ $name (_"Crossfade Clips") ;manpage "Crossfade_Clips" $action (_"Crossfading...") -;author "Steve Daulton" +$author (_"Steve Daulton") ;copyright "Released under terms of the GNU General Public License version 2" diff --git a/plug-ins/crossfadetracks.ny b/plug-ins/crossfadetracks.ny index b8809cd62..94d05fd8d 100644 --- a/plug-ins/crossfadetracks.ny +++ b/plug-ins/crossfadetracks.ny @@ -6,7 +6,7 @@ $name (_"Crossfade Tracks...") ;debugbutton disabled $action (_"Crossfading...") ;preview selection -;author "Steve Daulton" +$author (_"Steve Daulton") ;copyright "Released under terms of the GNU General Public License version 2" ;; crossfadetracks.ny by Steve Daulton Nov 2014 / Sep 2015 diff --git a/plug-ins/delay.ny b/plug-ins/delay.ny index 4af600eae..010d2e405 100644 --- a/plug-ins/delay.ny +++ b/plug-ins/delay.ny @@ -6,7 +6,7 @@ $name (_"Delay...") ;manpage "Delay" $action (_"Applying Delay Effect...") -;author "Steve Daulton" +$author (_"Steve Daulton") ;copyright "Released under terms of the GNU General Public License version 2" ;; by Steve Daulton, July 2012. diff --git a/plug-ins/equalabel.ny b/plug-ins/equalabel.ny index 816c124b2..d249c3986 100644 --- a/plug-ins/equalabel.ny +++ b/plug-ins/equalabel.ny @@ -4,7 +4,7 @@ $name (_"Regular Interval Labels...") ;manpage "Regular_Interval_Labels" $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" ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/highpass.ny b/plug-ins/highpass.ny index 7f03e9647..0135714db 100644 --- a/plug-ins/highpass.ny +++ b/plug-ins/highpass.ny @@ -6,7 +6,7 @@ $name (_"High Pass Filter...") ;manpage "High_Pass_Filter" ;debugbutton disabled $action (_"Performing High Pass Filter...") -;author "Dominic Mazzoni" +$author (_"Dominic Mazzoni") ;copyright "Released under terms of the GNU General Public License version 2" ;; highpass.ny by Dominic Mazzoni diff --git a/plug-ins/limiter.ny b/plug-ins/limiter.ny index 23718d741..0fe36dbce 100644 --- a/plug-ins/limiter.ny +++ b/plug-ins/limiter.ny @@ -7,7 +7,7 @@ $name (_"Limiter...") ;debugbutton false $action (_"Limiting...") ;preview enabled -;author "Steve Daulton" +$author (_"Steve Daulton") ;copyright "Released under terms of the GNU General Public License version 2" ;; limiter.ny by Steve Daulton November 2011, updated May 2015. diff --git a/plug-ins/lowpass.ny b/plug-ins/lowpass.ny index 1c1523e6e..d7643a954 100644 --- a/plug-ins/lowpass.ny +++ b/plug-ins/lowpass.ny @@ -6,7 +6,7 @@ $name (_"Low Pass Filter...") ;manpage "Low_Pass_Filter" ;debugbutton disabled $action (_"Performing Low Pass Filter...") -;author "Dominic Mazzoni" +$author (_"Dominic Mazzoni") ;copyright "Released under terms of the GNU General Public License version 2" ;; lowpass.ny by Dominic Mazzoni diff --git a/plug-ins/notch.ny b/plug-ins/notch.ny index 8c75e5a4e..dab64e44f 100644 --- a/plug-ins/notch.ny +++ b/plug-ins/notch.ny @@ -6,7 +6,7 @@ $name (_"Notch Filter...") ;manpage "Notch_Filter" ;debugbutton false $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" ;; notch.ny by Steve Daulton and Bill Wharrie diff --git a/plug-ins/pluck.ny b/plug-ins/pluck.ny index e53249439..ff27b6110 100644 --- a/plug-ins/pluck.ny +++ b/plug-ins/pluck.ny @@ -8,7 +8,7 @@ $name (_"Pluck...") ;preview linear $action (_"Generating pluck sound...") $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" ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/rhythmtrack.ny b/plug-ins/rhythmtrack.ny index 6a1a0bdcc..249e11583 100644 --- a/plug-ins/rhythmtrack.ny +++ b/plug-ins/rhythmtrack.ny @@ -6,7 +6,7 @@ $name (_"Rhythm Track...") ;manpage "Rhythm_Track" ;preview linear $action (_"Generating Rhythm...") -;author "Dominic Mazzoni" +$author (_"Dominic Mazzoni") ;copyright "Released under terms of the GNU General Public License version 2" ;; by Dominic Mazzoni, David R. Sky and Steve Daulton. diff --git a/plug-ins/rissetdrum.ny b/plug-ins/rissetdrum.ny index 4d38091bc..e701242b3 100644 --- a/plug-ins/rissetdrum.ny +++ b/plug-ins/rissetdrum.ny @@ -7,7 +7,7 @@ $name (_"Risset Drum...") ;manpage "Risset_Drum" $action (_"Generating Risset Drum...") -;author "Steven Jones" +$author (_"Steven Jones") ;copyright "Released under terms of the GNU General Public License version 2" ;; rissetdrum.ny by Steven Jones, after Jean Claude Risset. diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index 9471cf546..14b59903a 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -6,7 +6,7 @@ $name (_"Sample Data Export...") $action (_"Analyzing...") ;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" ;; sample-data-export.ny by Steve Daulton June 2012. diff --git a/plug-ins/sample-data-import.ny b/plug-ins/sample-data-import.ny index 84e2568d7..cecd47118 100644 --- a/plug-ins/sample-data-import.ny +++ b/plug-ins/sample-data-import.ny @@ -4,7 +4,7 @@ $name (_"Sample Data Import...") ;manpage "Sample_Data_Import" $action (_"Reading and rendering samples...") -;author "Steve Daulton" +$author (_"Steve Daulton") ;copyright "Released under terms of the GNU General Public License version 2" ;; sample-data-import.ny by Steve Daulton November 2016. diff --git a/plug-ins/tremolo.ny b/plug-ins/tremolo.ny index 036bbf927..b2e59ee10 100644 --- a/plug-ins/tremolo.ny +++ b/plug-ins/tremolo.ny @@ -7,7 +7,7 @@ $name (_"Tremolo...") ;manpage "Tremolo" ;debugbutton disabled $action (_"Applying Tremolo...") -;author "Steve Daulton" +$author (_"Steve Daulton") ;copyright "Released under terms of the GNU General Public License version 2" ;; tremolo.ny by Steve Daulton (www.easyspacepro.com) July 2012. diff --git a/plug-ins/vocalrediso.ny b/plug-ins/vocalrediso.ny index 1fb2ad46a..594f68be3 100644 --- a/plug-ins/vocalrediso.ny +++ b/plug-ins/vocalrediso.ny @@ -5,7 +5,7 @@ $name (_"Vocal Reduction and Isolation...") ;manpage "Vocal_Reduction_and_Isolation" $action (_"Applying Action...") -;author "Robert Haenggi" +$author (_"Robert Haenggi") ;copyright "Released under terms of the GNU General Public License version 2" ;; ;; vocrediso.ny, based on rjh-stereo-tool.ny diff --git a/plug-ins/vocalremover.ny b/plug-ins/vocalremover.ny index 850a20689..dea27412e 100644 --- a/plug-ins/vocalremover.ny +++ b/plug-ins/vocalremover.ny @@ -6,7 +6,7 @@ $name (_"Vocal Remover...") ;manpage "Vocal_Remover" $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" ;; This version of vocalremover.ny by Steve Daulton June 2013. diff --git a/plug-ins/vocoder.ny b/plug-ins/vocoder.ny index af4ef9e93..6362dbad0 100644 --- a/plug-ins/vocoder.ny +++ b/plug-ins/vocoder.ny @@ -6,7 +6,7 @@ $name (_"Vocoder...") ;manpage "Vocoder" $action (_"Processing Vocoder...") -;author "Edgar-RFT" +$author (_"Edgar-RFT") ;copyright "Released under terms of the GNU General Public License version 2" ;; vocoder.ny by Edgar-RFT From cc455fac168b5fab446e77ba6749100047580e15 Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 14:40:31 -0500 Subject: [PATCH 05/13] Rewrite ;copyright --- plug-ins/SilenceMarker.ny | 2 +- plug-ins/SoundFinder.ny | 2 +- plug-ins/SpectralEditMulti.ny | 2 +- plug-ins/SpectralEditParametricEQ.ny | 2 +- plug-ins/SpectralEditShelves.ny | 2 +- plug-ins/StudioFadeOut.ny | 2 +- plug-ins/adjustable-fade.ny | 2 +- plug-ins/beat.ny | 2 +- plug-ins/clipfix.ny | 2 +- plug-ins/crossfadeclips.ny | 2 +- plug-ins/crossfadetracks.ny | 2 +- plug-ins/delay.ny | 2 +- plug-ins/equalabel.ny | 2 +- plug-ins/highpass.ny | 2 +- plug-ins/limiter.ny | 2 +- plug-ins/lowpass.ny | 2 +- plug-ins/notch.ny | 2 +- plug-ins/pluck.ny | 2 +- plug-ins/rhythmtrack.ny | 2 +- plug-ins/rissetdrum.ny | 2 +- plug-ins/sample-data-export.ny | 2 +- plug-ins/sample-data-import.ny | 2 +- plug-ins/tremolo.ny | 2 +- plug-ins/vocalrediso.ny | 2 +- plug-ins/vocalremover.ny | 2 +- plug-ins/vocoder.ny | 2 +- 26 files changed, 26 insertions(+), 26 deletions(-) diff --git a/plug-ins/SilenceMarker.ny b/plug-ins/SilenceMarker.ny index 21b0cea4b..8da6d6b2a 100644 --- a/plug-ins/SilenceMarker.ny +++ b/plug-ins/SilenceMarker.ny @@ -7,7 +7,7 @@ $name (_"Silence Finder...") $action (_"Finding silence...") $info (_"Adds point labels in areas of silence according to the specified\nlevel and duration of silence. If too many silences are detected,\nincrease the silence level and duration; if too few are detected,\nreduce the level and duration.") $author (_"Alex S. Brown") -;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 Alex S. Brown, PMP (http://www.alexsbrown.com) ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/SoundFinder.ny b/plug-ins/SoundFinder.ny index 8f5dfa9ff..b874d2751 100644 --- a/plug-ins/SoundFinder.ny +++ b/plug-ins/SoundFinder.ny @@ -7,7 +7,7 @@ $name (_"Sound Finder...") $action (_"Finding sound...") $info (_"Adds region labels for areas of sound according to the specified level\nand duration of surrounding silence. If too many labels are produced,\nincrease the silence level and duration; if too few are produced,\nreduce the level and duration.") $author (_"Jeremy R. Brown") -;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 Jeremy R. Brown (http://www.jeremy-brown.com/) ;; based on the Silence Finder script by Alex S. Brown (http://www.alexsbrown.com) diff --git a/plug-ins/SpectralEditMulti.ny b/plug-ins/SpectralEditMulti.ny index 121393784..1627ae2f4 100644 --- a/plug-ins/SpectralEditMulti.ny +++ b/plug-ins/SpectralEditMulti.ny @@ -5,7 +5,7 @@ $name (_"Spectral edit multi tool") ;manpage "Spectral_edit_multi_tool" $action (_"Filtering...") $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. ;; Updated by Steve Daulton 2014 / 2015. diff --git a/plug-ins/SpectralEditParametricEQ.ny b/plug-ins/SpectralEditParametricEQ.ny index f94313834..341a0a664 100644 --- a/plug-ins/SpectralEditParametricEQ.ny +++ b/plug-ins/SpectralEditParametricEQ.ny @@ -6,7 +6,7 @@ $name (_"Spectral edit parametric EQ...") ;manpage "Spectral_edit_parametric_EQ" $action (_"Filtering...") $author (_"Paul Licameli") -;copyright "Released under terms of the GNU General Public License version 2" +$copyright (_"Released under terms of the GNU General Public License version 2") ;; SpectralEditParametricEQ.ny by Paul Licameli, November 2014. ;; Updated by Steve Daulton 2014 / 2015. diff --git a/plug-ins/SpectralEditShelves.ny b/plug-ins/SpectralEditShelves.ny index bc19d3612..c84803ee8 100644 --- a/plug-ins/SpectralEditShelves.ny +++ b/plug-ins/SpectralEditShelves.ny @@ -6,7 +6,7 @@ $name (_"Spectral edit shelves...") ;manpage "Spectral_edit_shelves" $action (_"Filtering...") $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. diff --git a/plug-ins/StudioFadeOut.ny b/plug-ins/StudioFadeOut.ny index ce45a5013..a8aa80260 100644 --- a/plug-ins/StudioFadeOut.ny +++ b/plug-ins/StudioFadeOut.ny @@ -6,7 +6,7 @@ $name (_"Studio Fade Out") ;manpage "Fades#studio_fadeout" $action (_"Applying Fade...") $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. ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/adjustable-fade.ny b/plug-ins/adjustable-fade.ny index 709b32880..5c0a2e091 100644 --- a/plug-ins/adjustable-fade.ny +++ b/plug-ins/adjustable-fade.ny @@ -9,7 +9,7 @@ $name (_"Adjustable Fade...") ;debugbutton false $action (_"Applying Fade...") $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 ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/beat.ny b/plug-ins/beat.ny index c0ed2512f..f6f790d45 100644 --- a/plug-ins/beat.ny +++ b/plug-ins/beat.ny @@ -6,7 +6,7 @@ $name (_"Beat Finder...") ;manpage "Beat_Finder" $action (_"Finding beats...") $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: ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html diff --git a/plug-ins/clipfix.ny b/plug-ins/clipfix.ny index ab8090185..71d223f32 100644 --- a/plug-ins/clipfix.ny +++ b/plug-ins/clipfix.ny @@ -6,7 +6,7 @@ $name (_"Clip Fix...") ;manpage "Clip_Fix" $action (_"Reconstructing clips...") $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") ;; Algorithm by Benjamin Schwartz ;; Clip Fix is a simple, stupid (but not blind) digital-clipping-corrector diff --git a/plug-ins/crossfadeclips.ny b/plug-ins/crossfadeclips.ny index 407a0b440..5a8fb8b97 100644 --- a/plug-ins/crossfadeclips.ny +++ b/plug-ins/crossfadeclips.ny @@ -7,7 +7,7 @@ $name (_"Crossfade Clips") ;manpage "Crossfade_Clips" $action (_"Crossfading...") $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. diff --git a/plug-ins/crossfadetracks.ny b/plug-ins/crossfadetracks.ny index 94d05fd8d..4380b7866 100644 --- a/plug-ins/crossfadetracks.ny +++ b/plug-ins/crossfadetracks.ny @@ -7,7 +7,7 @@ $name (_"Crossfade Tracks...") $action (_"Crossfading...") ;preview selection $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 ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/delay.ny b/plug-ins/delay.ny index 010d2e405..3d817e873 100644 --- a/plug-ins/delay.ny +++ b/plug-ins/delay.ny @@ -7,7 +7,7 @@ $name (_"Delay...") ;manpage "Delay" $action (_"Applying Delay Effect...") $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. ;; based on 'Delay' by David R. Sky diff --git a/plug-ins/equalabel.ny b/plug-ins/equalabel.ny index d249c3986..de69d13f5 100644 --- a/plug-ins/equalabel.ny +++ b/plug-ins/equalabel.ny @@ -5,7 +5,7 @@ $name (_"Regular Interval Labels...") ;manpage "Regular_Interval_Labels" $action (_"Adding equally-spaced labels to the label track...") $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 diff --git a/plug-ins/highpass.ny b/plug-ins/highpass.ny index 0135714db..c0343da3c 100644 --- a/plug-ins/highpass.ny +++ b/plug-ins/highpass.ny @@ -7,7 +7,7 @@ $name (_"High Pass Filter...") ;debugbutton disabled $action (_"Performing High Pass Filter...") $author (_"Dominic Mazzoni") -;copyright "Released under terms of the GNU General Public License version 2" +$copyright (_"Released under terms of the GNU General Public License version 2") ;; highpass.ny by Dominic Mazzoni ;; Last updated August 2015 diff --git a/plug-ins/limiter.ny b/plug-ins/limiter.ny index 0fe36dbce..54dd86c05 100644 --- a/plug-ins/limiter.ny +++ b/plug-ins/limiter.ny @@ -8,7 +8,7 @@ $name (_"Limiter...") $action (_"Limiting...") ;preview enabled $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. ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/lowpass.ny b/plug-ins/lowpass.ny index d7643a954..c9f88db8b 100644 --- a/plug-ins/lowpass.ny +++ b/plug-ins/lowpass.ny @@ -7,7 +7,7 @@ $name (_"Low Pass Filter...") ;debugbutton disabled $action (_"Performing Low Pass Filter...") $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 ;; Last updated August 2015 diff --git a/plug-ins/notch.ny b/plug-ins/notch.ny index dab64e44f..1e0695534 100644 --- a/plug-ins/notch.ny +++ b/plug-ins/notch.ny @@ -7,7 +7,7 @@ $name (_"Notch Filter...") ;debugbutton false $action (_"Applying Notch Filter...") $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 ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/pluck.ny b/plug-ins/pluck.ny index ff27b6110..feb18f270 100644 --- a/plug-ins/pluck.ny +++ b/plug-ins/pluck.ny @@ -9,7 +9,7 @@ $name (_"Pluck...") $action (_"Generating pluck sound...") $info (_"MIDI values for C notes: 36, 48, 60 [middle C], 72, 84, 96.") $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: ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html . diff --git a/plug-ins/rhythmtrack.ny b/plug-ins/rhythmtrack.ny index 249e11583..f3f761138 100644 --- a/plug-ins/rhythmtrack.ny +++ b/plug-ins/rhythmtrack.ny @@ -7,7 +7,7 @@ $name (_"Rhythm Track...") ;preview linear $action (_"Generating Rhythm...") $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. ;; Drip sound generator by Paul Beach diff --git a/plug-ins/rissetdrum.ny b/plug-ins/rissetdrum.ny index e701242b3..ee3437229 100644 --- a/plug-ins/rissetdrum.ny +++ b/plug-ins/rissetdrum.ny @@ -8,7 +8,7 @@ $name (_"Risset Drum...") ;manpage "Risset_Drum" $action (_"Generating Risset Drum...") $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. ;; Updated by Steve Daulton July 2012 and May 2015. diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index 14b59903a..45ab269a8 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -7,7 +7,7 @@ $action (_"Analyzing...") ;maxlen 1000001 ;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" $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. ;; Updated July 16 2012. diff --git a/plug-ins/sample-data-import.ny b/plug-ins/sample-data-import.ny index cecd47118..6edb7df22 100644 --- a/plug-ins/sample-data-import.ny +++ b/plug-ins/sample-data-import.ny @@ -5,7 +5,7 @@ $name (_"Sample Data Import...") ;manpage "Sample_Data_Import" $action (_"Reading and rendering samples...") $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. ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/tremolo.ny b/plug-ins/tremolo.ny index b2e59ee10..5304bc308 100644 --- a/plug-ins/tremolo.ny +++ b/plug-ins/tremolo.ny @@ -8,7 +8,7 @@ $name (_"Tremolo...") ;debugbutton disabled $action (_"Applying Tremolo...") $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. ;; Based on Tremolo by Dominic Mazzoni and David R. Sky." diff --git a/plug-ins/vocalrediso.ny b/plug-ins/vocalrediso.ny index 594f68be3..ac1d54c08 100644 --- a/plug-ins/vocalrediso.ny +++ b/plug-ins/vocalrediso.ny @@ -6,7 +6,7 @@ $name (_"Vocal Reduction and Isolation...") ;manpage "Vocal_Reduction_and_Isolation" $action (_"Applying Action...") $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 ;; Released under terms of the GNU General Public License version 2: diff --git a/plug-ins/vocalremover.ny b/plug-ins/vocalremover.ny index dea27412e..b0c02079a 100644 --- a/plug-ins/vocalremover.ny +++ b/plug-ins/vocalremover.ny @@ -7,7 +7,7 @@ $name (_"Vocal Remover...") $action (_"Removing center-panned audio...") $info (_"For reducing center-panned vocals") $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. ;; diff --git a/plug-ins/vocoder.ny b/plug-ins/vocoder.ny index 6362dbad0..aaa490898 100644 --- a/plug-ins/vocoder.ny +++ b/plug-ins/vocoder.ny @@ -7,7 +7,7 @@ $name (_"Vocoder...") ;manpage "Vocoder" $action (_"Processing Vocoder...") $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 ;; a bit of code added by David R. Sky From 4018e3b87b85674aef6c74b98d1f83944a70acc2 Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 14:44:39 -0500 Subject: [PATCH 06/13] Rewrite prompts in ;control lines --- plug-ins/SilenceMarker.ny | 6 +++--- plug-ins/SoundFinder.ny | 10 +++++----- plug-ins/SpectralEditParametricEQ.ny | 2 +- plug-ins/SpectralEditShelves.ny | 2 +- plug-ins/adjustable-fade.ny | 12 ++++++------ plug-ins/beat.ny | 2 +- plug-ins/clipfix.ny | 4 ++-- plug-ins/crossfadetracks.ny | 6 +++--- plug-ins/delay.ny | 14 +++++++------- plug-ins/equalabel.ny | 14 +++++++------- plug-ins/highpass.ny | 4 ++-- plug-ins/limiter.ny | 12 ++++++------ plug-ins/lowpass.ny | 4 ++-- plug-ins/notch.ny | 4 ++-- plug-ins/pluck.ny | 6 +++--- plug-ins/rhythmtrack.ny | 20 ++++++++++---------- plug-ins/rissetdrum.ny | 12 ++++++------ plug-ins/sample-data-export.ny | 20 ++++++++++---------- plug-ins/sample-data-import.ny | 6 +++--- plug-ins/tremolo.ny | 8 ++++---- plug-ins/vocalrediso.ny | 8 ++++---- plug-ins/vocalremover.ny | 8 ++++---- plug-ins/vocoder.ny | 14 +++++++------- 23 files changed, 99 insertions(+), 99 deletions(-) diff --git a/plug-ins/SilenceMarker.ny b/plug-ins/SilenceMarker.ny index 8da6d6b2a..ae73488ea 100644 --- a/plug-ins/SilenceMarker.ny +++ b/plug-ins/SilenceMarker.ny @@ -13,9 +13,9 @@ $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 -;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 labelbeforedur "Label placement [seconds before silence ends]" real "" 0.3 0.0 1.0 +$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 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 (defun mono-s (s-in) (if (arrayp s-in) (snd-add (aref s-in 0) (aref s-in 1)) diff --git a/plug-ins/SoundFinder.ny b/plug-ins/SoundFinder.ny index b874d2751..6008f4c8b 100644 --- a/plug-ins/SoundFinder.ny +++ b/plug-ins/SoundFinder.ny @@ -14,11 +14,11 @@ $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 -;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 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 finallabel "Add a label at the end of the track? [No=0, Yes=1]" int "" 0 0 1 +$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 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 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 diff --git a/plug-ins/SpectralEditParametricEQ.ny b/plug-ins/SpectralEditParametricEQ.ny index 341a0a664..87aba09a7 100644 --- a/plug-ins/SpectralEditParametricEQ.ny +++ b/plug-ins/SpectralEditParametricEQ.ny @@ -13,7 +13,7 @@ $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 -;control control-gain "Gain (dB)" real "" 0 -24 24 +$control control-gain (_"Gain (dB)") real "" 0 -24 24 (defun wet (sig gain fc bw) (eq-band sig fc gain (/ bw 2))) diff --git a/plug-ins/SpectralEditShelves.ny b/plug-ins/SpectralEditShelves.ny index c84803ee8..e353863c7 100644 --- a/plug-ins/SpectralEditShelves.ny +++ b/plug-ins/SpectralEditShelves.ny @@ -14,7 +14,7 @@ $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 -;control control-gain "Gain (dB)" real "" 0 -24 24 +$control control-gain (_"Gain (dB)") real "" 0 -24 24 (defmacro validate (hz) "If frequency is above Nyquist, don't use it" diff --git a/plug-ins/adjustable-fade.ny b/plug-ins/adjustable-fade.ny index 5c0a2e091..6c0c9b857 100644 --- a/plug-ins/adjustable-fade.ny +++ b/plug-ins/adjustable-fade.ny @@ -18,12 +18,12 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; 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 curve "Mid-fade Adjust (%)" real "" 0 -100 100 -;control units "Start/End as" choice "% of Original,dB Gain" 0 -;control gain0 "Start (or end)" float-text "" 0 nil nil -;control gain1 "End (or start)" float-text "" 100 nil nil -;control preset " Handy Presets\n(override controls)" choice "None Selected,Linear In,Linear Out,Exponential In,Exponential Out,Logarithmic In,Logarithmic Out,Rounded In,Rounded Out,Cosine In,Cosine Out,S-Curve In,S-Curve Out" 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 units (_"Start/End as") choice "% of Original,dB Gain" 0 +$control gain0 (_"Start (or end)") float-text "" 0 nil nil +$control gain1 (_"End (or start)") float-text "" 100 nil nil +$control preset (_" Handy Presets\n(override controls)") choice "None Selected,Linear In,Linear Out,Exponential In,Exponential Out,Logarithmic In,Logarithmic Out,Rounded In,Rounded Out,Cosine In,Cosine Out,S-Curve In,S-Curve Out" 0 (defun get-input (sig) diff --git a/plug-ins/beat.ny b/plug-ins/beat.ny index f6f790d45..e259b6931 100644 --- a/plug-ins/beat.ny +++ b/plug-ins/beat.ny @@ -11,7 +11,7 @@ $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 -;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)) (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)) diff --git a/plug-ins/clipfix.ny b/plug-ins/clipfix.ny index 71d223f32..705632af5 100644 --- a/plug-ins/clipfix.ny +++ b/plug-ins/clipfix.ny @@ -16,8 +16,8 @@ $copyright (_"Licensing confirmed under terms of the GNU General Public License ;; 3. Do a cubic spline interpolation. ;; 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 gain (db-to-linear gain)) diff --git a/plug-ins/crossfadetracks.ny b/plug-ins/crossfadetracks.ny index 4380b7866..6402af695 100644 --- a/plug-ins/crossfadetracks.ny +++ b/plug-ins/crossfadetracks.ny @@ -13,9 +13,9 @@ $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 . -;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 +$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) diff --git a/plug-ins/delay.ny b/plug-ins/delay.ny index 3d817e873..b3e31eca0 100644 --- a/plug-ins/delay.ny +++ b/plug-ins/delay.ny @@ -17,13 +17,13 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference -;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 delay "Delay time (seconds)" real "" 0.3 0 5 -;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 number "Number of echoes" int "" 5 1 30 -;control constrain "Allow duration to change" choice "Yes,No" 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 delay (_"Delay time (seconds)") real "" 0.3 0 5 +$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 number (_"Number of echoes") int "" 5 1 30 +$control constrain (_"Allow duration to change") choice "Yes,No" 0 ;; The default pitch shift effect is a simple resampling, diff --git a/plug-ins/equalabel.ny b/plug-ins/equalabel.ny index de69d13f5..c45cb7f7d 100644 --- a/plug-ins/equalabel.ny +++ b/plug-ins/equalabel.ny @@ -15,13 +15,13 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; Alex S.Brown, Dominic Mazzoni, Pierre M.I., Gale Andrews, Steve Daulton. ;; 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 -;control totalnum "Number of labels" int-text "" 10 1 1000 -;control interval "Label interval (seconds)" float-text "" 60 0.001 3600 -;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 +$control mode (_"Use 'Number of labels' OR 'Label interval'") choice "Number of labels,Label interval" 0 +$control totalnum (_"Number of labels") int-text "" 10 1 1000 +$control interval (_"Label interval (seconds)") float-text "" 60 0.001 3600 +$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 () diff --git a/plug-ins/highpass.ny b/plug-ins/highpass.ny index c0343da3c..1de0795b9 100644 --- a/plug-ins/highpass.ny +++ b/plug-ins/highpass.ny @@ -15,8 +15,8 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html . -;control frequency "Frequency (Hz)" float-text "" 1000 0 nil -;control rolloff "Rolloff (dB per octave)" choice " 6 dB,12 dB,24 dB,36 dB,48 dB" 0 +$control frequency (_"Frequency (Hz)") float-text "" 1000 0 nil +$control rolloff (_"Rolloff (dB per octave)") choice " 6 dB,12 dB,24 dB,36 dB,48 dB" 0 (cond diff --git a/plug-ins/limiter.ny b/plug-ins/limiter.ny index 54dd86c05..777db285e 100644 --- a/plug-ins/limiter.ny +++ b/plug-ins/limiter.ny @@ -17,12 +17,12 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference -;control type "Type" choice "Soft Limit,Hard Limit,Soft Clip,Hard Clip" 0 -;control gain-L "Input Gain (dB)\nmono/Left" real "" 0 0 10 -;control gain-R "Input Gain (dB)\nRight channel" real "" 0 0 10 -;control thresh "Limit to (dB)" real "" -3 -10 0 -;control hold "Hold (ms)" real "" 10 1 50 -;control makeup "Apply Make-up Gain" choice "No,Yes" 0 +$control type (_"Type") choice "Soft Limit,Hard Limit,Soft Clip,Hard Clip" 0 +$control gain-L (_"Input Gain (dB)\nmono/Left") real "" 0 0 10 +$control gain-R (_"Input Gain (dB)\nRight channel") real "" 0 0 10 +$control thresh (_"Limit to (dB)") real "" -3 -10 0 +$control hold (_"Hold (ms)") real "" 10 1 50 +$control makeup (_"Apply Make-up Gain") choice "No,Yes" 0 (if (not (boundp 'type)) (setf type 0)) diff --git a/plug-ins/lowpass.ny b/plug-ins/lowpass.ny index c9f88db8b..b22b15d87 100644 --- a/plug-ins/lowpass.ny +++ b/plug-ins/lowpass.ny @@ -15,8 +15,8 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html . -;control frequency "Frequency (Hz)" float-text "" 1000 0 nil -;control rolloff "Rolloff (dB per octave)" choice " 6 dB,12 dB,24 dB,36 dB,48 dB" 0 +$control frequency (_"Frequency (Hz)") float-text "" 1000 0 nil +$control rolloff (_"Rolloff (dB per octave)") choice " 6 dB,12 dB,24 dB,36 dB,48 dB" 0 (cond diff --git a/plug-ins/notch.ny b/plug-ins/notch.ny index 1e0695534..07fc48a54 100644 --- a/plug-ins/notch.ny +++ b/plug-ins/notch.ny @@ -14,8 +14,8 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html . -;control frequency "Frequency (Hz)" float-text "" 60 0 nil -;control q "Q (higher value reduces width)" float-text "" 1 0.1 1000 +$control frequency (_"Frequency (Hz)") float-text "" 60 0 nil +$control q (_"Q (higher value reduces width)") float-text "" 1 0.1 1000 (cond ((< frequency 0.1) "Frequency must be at least 0.1 Hz.") diff --git a/plug-ins/pluck.ny b/plug-ins/pluck.ny index feb18f270..cb62774a0 100644 --- a/plug-ins/pluck.ny +++ b/plug-ins/pluck.ny @@ -14,9 +14,9 @@ $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 . -;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 +$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 ; original pluck.ny modified by David R.Sky October 2007 ; [vastly simplified later] diff --git a/plug-ins/rhythmtrack.ny b/plug-ins/rhythmtrack.ny index f3f761138..724a1eec5 100644 --- a/plug-ins/rhythmtrack.ny +++ b/plug-ins/rhythmtrack.ny @@ -15,22 +15,22 @@ $copyright (_"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" 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 timesig "Beats per measure (bar)" int "1 - 20 beats/measure" 4 1 20 -;control swing "Swing amount" float "+/- 1" 0 -1 1 -;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 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 timesig (_"Beats per measure (bar)") int "1 - 20 beats/measure" 4 1 20 +$control swing (_"Swing amount") float "+/- 1" 0 -1 1 +$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 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 click-type "Beat sound" choice "Metronome tick,Ping,Cowbell,Resonant noise,Noise click,Drip" 0 +$control offset (_"Start time offset (seconds)") real "0 - 30 seconds" 0 0 30 +$control click-type (_"Beat sound") choice "Metronome tick,Ping,Cowbell,Resonant noise,Noise click,Drip" 0 ;;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 low "MIDI pitch of weak beat" int "18 - 116" 80 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 ;; allow q control to be commented out. (if (not (boundp 'q)) diff --git a/plug-ins/rissetdrum.ny b/plug-ins/rissetdrum.ny index ee3437229..f84473011 100644 --- a/plug-ins/rissetdrum.ny +++ b/plug-ins/rissetdrum.ny @@ -18,12 +18,12 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; 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 cf "Center frequency of noise (Hz)" real "" 500 100 5000 -;control bw "Width of noise band (Hz)" real "" 400 10 1000 -;control noise "Amount of noise in mix (percent)" real "" 25 0 100 -;control gain "Amplitude (0 - 1)" real "" 0.8 0 1 +$control freq (_"Frequency (Hz)") real "" 100 50 2000 +$control decay (_"Decay (seconds)") real "" 2 0.1 60 +$control cf (_"Center frequency of noise (Hz)") real "" 500 100 5000 +$control bw (_"Width of noise band (Hz)") real "" 400 10 1000 +$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) diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index 45ab269a8..3a2746960 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -17,16 +17,16 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; 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 fileformat "File data format" choice "Sample List (txt),Indexed List (txt),Time Indexed (txt),Data (csv),Web Page (html)" 0 -;control header "Include header information" choice "None,Minimal,Standard,All" 2 -;control optext "Optional header text" string "" -;control chan "Channel layout for stereo" choice "L-R on Same Line,Alternate Lines,L Channel First" 0 -;control messages "Show messages" choice "Yes,Errors Only,None" 0 -;control filename "File name" string "" "sample-data" -;control path "Output folder" string "" "Home directory" -;control owrite "Allow files to be overwritten" choice "No,Yes" 0 +$control number (_"Limit output to first") string "samples" "100" +$control units (_"Measurement scale") choice "dB,Linear" 0 +$control fileformat (_"File data format") choice "Sample List (txt),Indexed List (txt),Time Indexed (txt),Data (csv),Web Page (html)" 0 +$control header (_"Include header information") choice "None,Minimal,Standard,All" 2 +$control optext (_"Optional header text") string "" +$control chan (_"Channel layout for stereo") choice "L-R on Same Line,Alternate Lines,L Channel First" 0 +$control messages (_"Show messages") choice "Yes,Errors Only,None" 0 +$control filename (_"File name") string "" "sample-data" +$control path (_"Output folder") string "" "Home directory" +$control owrite (_"Allow files to be overwritten") choice "No,Yes" 0 ;; To enable L/R prefix before alternate L/R channels diff --git a/plug-ins/sample-data-import.ny b/plug-ins/sample-data-import.ny index 6edb7df22..556bf4048 100644 --- a/plug-ins/sample-data-import.ny +++ b/plug-ins/sample-data-import.ny @@ -12,9 +12,9 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.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 +$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 ;; Documentation. diff --git a/plug-ins/tremolo.ny b/plug-ins/tremolo.ny index 5304bc308..28e611f81 100644 --- a/plug-ins/tremolo.ny +++ b/plug-ins/tremolo.ny @@ -18,10 +18,10 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference -;control wave "Waveform type" choice "sine,triangle,sawtooth,inverse sawtooth,square" 0 -;control phase "Starting phase (degrees)" int "" 0 -180 180 -;control wet "Wet level (percent)" int "" 40 1 100 -;control lfo "Frequency (Hz)" float-text "" 4 0.001 1000 +$control wave (_"Waveform type") choice "sine,triangle,sawtooth,inverse sawtooth,square" 0 +$control phase (_"Starting phase (degrees)") int "" 0 -180 180 +$control wet (_"Wet level (percent)") int "" 40 1 100 +$control lfo (_"Frequency (Hz)") float-text "" 4 0.001 1000 ; Convert % to linear (setq wet (/ wet 200.0)) diff --git a/plug-ins/vocalrediso.ny b/plug-ins/vocalrediso.ny index ac1d54c08..44be10dce 100644 --- a/plug-ins/vocalrediso.ny +++ b/plug-ins/vocalrediso.ny @@ -14,12 +14,12 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; Plug-in version 1.56, June 2015 ;; Requires Audacity 2.1.1 or later, developed under Audacity 2.1.1 ;; -;control action "Action" choice "Remove Vocals,Isolate Vocals,Isolate Vocals and Invert,Remove Center,Isolate Center,Isolate Center and Invert,Remove Center Classic: Mono,Analyze" 0 +$control action (_"Action") choice "Remove Vocals,Isolate Vocals,Isolate Vocals and Invert,Remove Center,Isolate Center,Isolate Center and Invert,Remove Center Classic: Mono,Analyze" 0 (setf rotation 0.0) ;;control rotation "Rotation (Degrees)" real "" 0 -180 180 -;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 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 ; ;preview linear ; diff --git a/plug-ins/vocalremover.ny b/plug-ins/vocalremover.ny index b0c02079a..5aaa4f76e 100644 --- a/plug-ins/vocalremover.ny +++ b/plug-ins/vocalremover.ny @@ -20,10 +20,10 @@ $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 -;control action "Remove vocals or view Help" choice "Remove vocals,View Help" 0 -;control band-choice "Removal choice" choice "Simple (entire spectrum),Remove frequency band,Retain frequency band" 0 -;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 action (_"Remove vocals or view Help") choice "Remove vocals,View Help" 0 +$control band-choice (_"Removal choice") choice "Simple (entire spectrum),Remove frequency band,Retain frequency band" 0 +$control low-range (_"Frequency band from (Hz)") float-text "" 500 0 nil +$control high-range (_"Frequency band to (Hz)") float-text "" 2000 0 nil (defun help () diff --git a/plug-ins/vocoder.ny b/plug-ins/vocoder.ny index aaa490898..d2c829942 100644 --- a/plug-ins/vocoder.ny +++ b/plug-ins/vocoder.ny @@ -21,13 +21,13 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference -;control dst "Distance: (1 to 120, default = 20)" real "" 20 1 120 -;control mst "Output choice" choice "both channels, right only" 0 -;control bands "Number of vocoder bands" int "" 40 10 240 -;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 radar-vl "Amplitude of Radar Needles (percent)" real "" 0 0 100 -;control radar-f "Frequency of Radar Needles (Hz)" real "" 30 1 100 +$control dst (_"Distance: (1 to 120, default = 20)") real "" 20 1 120 +$control mst (_"Output choice") choice "both channels, right only" 0 +$control bands (_"Number of vocoder bands") int "" 40 10 240 +$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 radar-vl (_"Amplitude of Radar Needles (percent)") real "" 0 0 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 ; if you have lots of nyquist "[gc:" messages try this: From 8709e9735a9b7f1bcc0c148714eadef636a1652b Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 17:47:13 -0500 Subject: [PATCH 07/13] Rewrite choice controls --- plug-ins/adjustable-fade.ny | 14 +++++++++++--- plug-ins/crossfadetracks.ny | 4 ++-- plug-ins/delay.ny | 6 +++--- plug-ins/equalabel.ny | 10 +++++++--- plug-ins/highpass.ny | 2 +- plug-ins/limiter.ny | 4 ++-- plug-ins/lowpass.ny | 2 +- plug-ins/pluck.ny | 2 +- plug-ins/rhythmtrack.ny | 6 ++++-- plug-ins/sample-data-export.ny | 31 +++++++++++++++++++++++++------ plug-ins/sample-data-import.ny | 2 +- plug-ins/tremolo.ny | 2 +- plug-ins/vocalrediso.ny | 11 ++++++++++- plug-ins/vocalremover.ny | 11 +++++++++-- plug-ins/vocoder.ny | 2 +- 15 files changed, 79 insertions(+), 30 deletions(-) diff --git a/plug-ins/adjustable-fade.ny b/plug-ins/adjustable-fade.ny index 6c0c9b857..9e482e374 100644 --- a/plug-ins/adjustable-fade.ny +++ b/plug-ins/adjustable-fade.ny @@ -18,12 +18,20 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; 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 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 gain1 (_"End (or start)") float-text "" 100 nil nil -$control preset (_" Handy Presets\n(override controls)") choice "None Selected,Linear In,Linear Out,Exponential In,Exponential Out,Logarithmic In,Logarithmic Out,Rounded In,Rounded Out,Cosine In,Cosine Out,S-Curve In,S-Curve Out" 0 +$control preset (_" Handy Presets\n(override controls)") choice ( + (_"None Selected") + (_"Linear In") (_"Linear Out") + (_"Exponential In") (_"Exponential Out") + (_"Logarithmic In") (_"Logarithmic Out") + (_"Rounded In") (_"Rounded Out") + (_"Cosine In") (_"Cosine Out") + (_"S-Curve In") (_"S-Curve Out") + ) 0 (defun get-input (sig) diff --git a/plug-ins/crossfadetracks.ny b/plug-ins/crossfadetracks.ny index 6402af695..84c5b17a6 100644 --- a/plug-ins/crossfadetracks.ny +++ b/plug-ins/crossfadetracks.ny @@ -13,9 +13,9 @@ $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 . -$control type (_"Fade type") choice "Constant Gain,Constant Power 1,Constant Power 2,Custom Curve" 0 +$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 +$control direction (_"Fade direction") choice ((_"Automatic") (_"Alternating Out / In") (_"Alternating In / Out")) 0 (defun crossfade (type dir curve) diff --git a/plug-ins/delay.ny b/plug-ins/delay.ny index b3e31eca0..b67e79e8c 100644 --- a/plug-ins/delay.ny +++ b/plug-ins/delay.ny @@ -17,13 +17,13 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; 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 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 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, diff --git a/plug-ins/equalabel.ny b/plug-ins/equalabel.ny index c45cb7f7d..ab66d38ff 100644 --- a/plug-ins/equalabel.ny +++ b/plug-ins/equalabel.ny @@ -15,12 +15,16 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; Alex S.Brown, Dominic Mazzoni, Pierre M.I., Gale Andrews, Steve Daulton. ;; 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 +$control mode (_"Use 'Number of labels' OR 'Label interval'") choice ((_"Number of labels") (_"Label interval")) 0 $control totalnum (_"Number of labels") int-text "" 10 1 1000 $control interval (_"Label interval (seconds)") float-text "" 60 0.001 3600 -$control adjust (_"Adjust label interval to fit length") choice "No,Yes" 0 +$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 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 diff --git a/plug-ins/highpass.ny b/plug-ins/highpass.ny index 1de0795b9..e12819711 100644 --- a/plug-ins/highpass.ny +++ b/plug-ins/highpass.ny @@ -16,7 +16,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2") $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 diff --git a/plug-ins/limiter.ny b/plug-ins/limiter.ny index 777db285e..04e5ac6c8 100644 --- a/plug-ins/limiter.ny +++ b/plug-ins/limiter.ny @@ -17,12 +17,12 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; 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)\nmono/Left") real "" 0 0 10 $control gain-R (_"Input Gain (dB)\nRight channel") real "" 0 0 10 $control thresh (_"Limit to (dB)") real "" -3 -10 0 $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)) (setf type 0)) diff --git a/plug-ins/lowpass.ny b/plug-ins/lowpass.ny index b22b15d87..d4c0e358c 100644 --- a/plug-ins/lowpass.ny +++ b/plug-ins/lowpass.ny @@ -16,7 +16,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2") $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 diff --git a/plug-ins/pluck.ny b/plug-ins/pluck.ny index cb62774a0..5a7931943 100644 --- a/plug-ins/pluck.ny +++ b/plug-ins/pluck.ny @@ -15,7 +15,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html . $control pitch (_"Pluck MIDI pitch") int "" 60 1 120 -$control fade (_"Fade-out type") choice "abrupt,gradual" 0 +$control fade (_"Fade-out type") choice ((_"abrupt") (_"gradual")) 0 $control dur (_"Duration [seconds]") real "" 1 0.1 30 ; original pluck.ny modified by David R.Sky October 2007 diff --git a/plug-ins/rhythmtrack.ny b/plug-ins/rhythmtrack.ny index 724a1eec5..75ffc7fe6 100644 --- a/plug-ins/rhythmtrack.ny +++ b/plug-ins/rhythmtrack.ny @@ -15,7 +15,7 @@ $copyright (_"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") 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 timesig (_"Beats per measure (bar)") int "1 - 20 beats/measure" 4 1 20 $control swing (_"Swing amount") float "+/- 1" 0 -1 1 @@ -25,7 +25,9 @@ $control click-track-dur (_"Optional rhythm track duration (minutes seconds)") s ;;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 click-type (_"Beat sound") choice "Metronome tick,Ping,Cowbell,Resonant noise,Noise click,Drip" 0 +$control click-type (_"Beat sound") choice ( + (_"Metronome tick") (_"Ping") (_"Cowbell") (_"Resonant noise") (_"Noise click") (_"Drip") +) 0 ;;control q "Noise click resonance - discernable pitch (q)" int "1 - 20" 1 1 20 diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index 3a2746960..87d0383f6 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -18,15 +18,34 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; 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 fileformat (_"File data format") choice "Sample List (txt),Indexed List (txt),Time Indexed (txt),Data (csv),Web Page (html)" 0 -$control header (_"Include header information") choice "None,Minimal,Standard,All" 2 +$control units (_"Measurement scale") choice ((_"dB") (_"Linear")) 0 +$control fileformat (_"File data format") choice ( + (_"Sample List (txt)") + (_"Indexed List (txt)") + (_"Time Indexed (txt)") + (_"Data (csv)") + (_"Web Page (html)") +) 0 +$control header (_"Include header information") choice ( + (_"None") + (_"Minimal") + (_"Standard") + (_"All") +) 2 $control optext (_"Optional header text") string "" -$control chan (_"Channel layout for stereo") choice "L-R on Same Line,Alternate Lines,L Channel First" 0 -$control messages (_"Show messages") choice "Yes,Errors Only,None" 0 +$control chan (_"Channel layout for stereo") choice ( + (_"L-R on Same Line") + (_"Alternate Lines") + (_"L Channel First") +) 0 +$control messages (_"Show messages") choice ( + (_"Yes") + (_"Errors Only") + (_"None") +) 0 $control filename (_"File name") string "" "sample-data" $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 diff --git a/plug-ins/sample-data-import.ny b/plug-ins/sample-data-import.ny index 556bf4048..3cb80f653 100644 --- a/plug-ins/sample-data-import.ny +++ b/plug-ins/sample-data-import.ny @@ -14,7 +14,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2") $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 +$control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as zero")) 0 ;; Documentation. diff --git a/plug-ins/tremolo.ny b/plug-ins/tremolo.ny index 28e611f81..1e288d2ef 100644 --- a/plug-ins/tremolo.ny +++ b/plug-ins/tremolo.ny @@ -18,7 +18,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; 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 wet (_"Wet level (percent)") int "" 40 1 100 $control lfo (_"Frequency (Hz)") float-text "" 4 0.001 1000 diff --git a/plug-ins/vocalrediso.ny b/plug-ins/vocalrediso.ny index 44be10dce..758d3e699 100644 --- a/plug-ins/vocalrediso.ny +++ b/plug-ins/vocalrediso.ny @@ -14,7 +14,16 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; Plug-in version 1.56, June 2015 ;; Requires Audacity 2.1.1 or later, developed under Audacity 2.1.1 ;; -$control action (_"Action") choice "Remove Vocals,Isolate Vocals,Isolate Vocals and Invert,Remove Center,Isolate Center,Isolate Center and Invert,Remove Center Classic: Mono,Analyze" 0 +$control action (_"Action") choice ( + (_"Remove Vocals") + (_"Isolate Vocals") + (_"Isolate Vocals and Invert") + (_"Remove Center") + (_"Isolate Center") + (_"Isolate Center and Invert") + (_"Remove Center Classic: Mono") + (_"Analyze") +) 0 (setf rotation 0.0) ;;control rotation "Rotation (Degrees)" real "" 0 -180 180 $control strength (_"Strength") real "" 1.0 0.0 50.0 diff --git a/plug-ins/vocalremover.ny b/plug-ins/vocalremover.ny index 5aaa4f76e..f36bf1d32 100644 --- a/plug-ins/vocalremover.ny +++ b/plug-ins/vocalremover.ny @@ -20,8 +20,15 @@ $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 -$control action (_"Remove vocals or view Help") choice "Remove vocals,View Help" 0 -$control band-choice (_"Removal choice") choice "Simple (entire spectrum),Remove frequency band,Retain frequency band" 0 +$control action (_"Remove vocals or view Help") choice ( + (_"Remove vocals") + (_"View Help") +) 0 +$control band-choice (_"Removal choice") choice ( + (_"Simple (entire spectrum)") + (_"Remove frequency band") + (_"Retain frequency band") +) 0 $control low-range (_"Frequency band from (Hz)") float-text "" 500 0 nil $control high-range (_"Frequency band to (Hz)") float-text "" 2000 0 nil diff --git a/plug-ins/vocoder.ny b/plug-ins/vocoder.ny index d2c829942..17e5bf991 100644 --- a/plug-ins/vocoder.ny +++ b/plug-ins/vocoder.ny @@ -22,7 +22,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference $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 track-vl (_"Amplitude of original audio (percent)") real "" 100 0 100 $control noise-vl (_"Amplitude of white noise (percent)") real "" 0 0 100 From 447d15bc7517b66c6db5615ff1f208bae0621f12 Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 18:22:04 -0500 Subject: [PATCH 08/13] Rewrite trailing labels of controls --- plug-ins/rhythmtrack.ny | 16 ++++++++-------- plug-ins/sample-data-export.ny | 2 +- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/plug-ins/rhythmtrack.ny b/plug-ins/rhythmtrack.ny index 75ffc7fe6..2ac6cc83c 100644 --- a/plug-ins/rhythmtrack.ny +++ b/plug-ins/rhythmtrack.ny @@ -16,23 +16,23 @@ $copyright (_"Released under terms of the GNU General Public License version 2") $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 timesig (_"Beats per measure (bar)") int "1 - 20 beats/measure" 4 1 20 -$control swing (_"Swing amount") float "+/- 1" 0 -1 1 -$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 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 swing (_"Swing amount") float (_"+/- 1") 0 -1 1 +$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 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 ( (_"Metronome tick") (_"Ping") (_"Cowbell") (_"Resonant noise") (_"Noise click") (_"Drip") ) 0 ;;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 low (_"MIDI pitch of weak beat") int "18 - 116" 80 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 ;; allow q control to be commented out. (if (not (boundp 'q)) diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index 87d0383f6..ba5b19338 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -17,7 +17,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; For information about writing and modifying Nyquist plug-ins: ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference -$control number (_"Limit output to first") string "samples" "100" +$control number (_"Limit output to first") string (_"samples") "100" $control units (_"Measurement scale") choice ((_"dB") (_"Linear")) 0 $control fileformat (_"File data format") choice ( (_"Sample List (txt)") From 4733899dd7b4a9e54aac0f2b438ea119975b373f Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 18:29:35 -0500 Subject: [PATCH 09/13] Rewrite default values of string controls --- plug-ins/equalabel.ny | 2 +- plug-ins/sample-data-export.ny | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/plug-ins/equalabel.ny b/plug-ins/equalabel.ny index ab66d38ff..6a41497c1 100644 --- a/plug-ins/equalabel.ny +++ b/plug-ins/equalabel.ny @@ -19,7 +19,7 @@ $control mode (_"Use 'Number of labels' OR 'Label interval'") choice ((_"Number $control totalnum (_"Number of labels") int-text "" 10 1 1000 $control interval (_"Label interval (seconds)") float-text "" 60 0.001 3600 $control adjust (_"Adjust label interval to fit length") choice ((_"No") (_"Yes")) 0 -$control labeltext (_"Label text") string "" "Label" "" +$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)") diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index ba5b19338..af7e3444c 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -43,8 +43,8 @@ $control messages (_"Show messages") choice ( (_"Errors Only") (_"None") ) 0 -$control filename (_"File name") string "" "sample-data" -$control path (_"Output folder") string "" "Home directory" +$control filename (_"File name") string "" (_"sample-data") +$control path (_"Output folder") string "" (_"Home directory") $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 From da9471ac7f9bf1788f43ecd648b15da60527f324 Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Thu, 1 Mar 2018 17:24:57 -0500 Subject: [PATCH 10/13] Internationalize some of sample-data-export.ny, including HTML... ... The rule that one should avoid markup in translatable strings conflicted with the more important rule against concatenating too many strings that are too short. --- plug-ins/sample-data-export.ny | 87 ++++++++++++++++++---------------- 1 file changed, 46 insertions(+), 41 deletions(-) diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index af7e3444c..d3d988ee3 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -55,7 +55,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (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 *float-format* "%1.5f") ; 5 decimal places @@ -131,7 +131,8 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (setf ln10over20 (/ (log 10.0) 20)) (defun lin-to-db (val) (if (= val 0) - "[-inf]" + ;i18n-hint abbreviates negative infinity + (_"[-inf]") (/ (log val) ln10over20))) @@ -259,7 +260,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (if (string-equal path "~/" :end1 2) (setq path (strcat (home)(subseq path 1))))) ;; If path not set use home directory - (if (or (string-equal path "Home directory") + (if (or (string-equal path (_"Home directory")) (string-equal path "")) (setq path (home))) ;; if file name not set use default @@ -365,7 +366,7 @@ DC offset: ~a~a" ;; HTML Output ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defun html-head () +(defun html-head () (strcat " @@ -446,26 +447,29 @@ ul { color: blue; } -Sample Data Export +" (_"Sample Data Export") " -") +")) ;;; document headings (defun doc-head () (format nil -" -

Sample Data Export - ~a

+(strcat " +

" (_"Sample Data Export") " - ~a

~a -

~a.   ~a samples.    ~a seconds.

-

Audio data analysis:

+

~a.   " (_"~a samples.") "    " (_"~a seconds.") "

+

" (_"Audio data analysis:") "

    -
  • Sample Rate:   ~a Hz.
    • -
  • Peak Amplitude:   ~a (lin)   ~a dB.
    • -
  • RMS (unweighted):   ~a dB.
    • -
  • DC Offset:   ~a
    • +
  • " (_"Sample Rate:   ~a Hz.") "
    • " +; i18n-hint: abbreviates "linear" and "decibels" +"
  • " (_"Peak Amplitude:   ~a (lin)   ~a dB.") "
    • " +; i18n-hint: RMS abbreviates root-mean-square, a method of averaging a signal; there also "weighted" versions of it but this isn't that +"
  • " (_"RMS (unweighted):   ~a dB.") "
    • " +; i18n-hint: DC derives from "direct current" in electronics, really means the zero frequency component of a signal +"
  • " (_"DC Offset:   ~a") "
-" +") ; end concatenated format string with inserted translations (string-right-trim ".html" filename) (format nil "

~a

" optext) ; Optional heading (get 'info 'channels) ; mono/stereo @@ -485,36 +489,37 @@ ul { ;;; table headings (mono) (defun table-head-mono () -" +(strcat "
- - - - -") + + + + +")) ;;; table headings (stereo) (defun table-head-stereo () -"
Sample #SecondsValue (linear)Value (dB)
" (_"Sample #") "" (_"Seconds") "" (_"Value (linear)") "" (_"Value (dB)") "
+(strcat "
- - - - - - -") + + + + + + +")) (defun html-foot () + (format nil (strcat "
Sample #Seconds Left (linear)Right (linear)Left (dB)Right (dB)
" (_"Sample #") "" (_"Seconds") "" (_"Left (linear)") "" (_"Right (linear)") "" (_"Left (dB)") "" (_"Right (dB)") "
-

Produced with Sample Data Export for -Audacity by Steve -Daulton (" (_"Produced with Sample Data Export for +Audacity by Steve +Daulton") " (www.easyspacepro.com)

-") +") "https://www.audacityteam.org/")) ;;; html generator @@ -567,25 +572,25 @@ Daulton ( Date: Thu, 1 Mar 2018 14:52:26 -0500 Subject: [PATCH 11/13] Usage of _ in Nyquist program bodies --- plug-ins/SilenceMarker.ny | 3 +- plug-ins/SoundFinder.ny | 4 +-- plug-ins/SpectralEditMulti.ny | 13 ++++---- plug-ins/SpectralEditParametricEQ.ny | 18 +++++------ plug-ins/SpectralEditShelves.ny | 8 ++--- plug-ins/StudioFadeOut.ny | 2 +- plug-ins/adjustable-fade.ny | 10 +++--- plug-ins/beat.ny | 1 + plug-ins/crossfadeclips.ny | 6 ++-- plug-ins/crossfadetracks.ny | 2 +- plug-ins/delay.ny | 10 +++--- plug-ins/equalabel.ny | 4 +-- plug-ins/highpass.ny | 6 ++-- plug-ins/lowpass.ny | 6 ++-- plug-ins/notch.ny | 6 ++-- plug-ins/rhythmtrack.ny | 46 ++++++++++++++-------------- plug-ins/sample-data-export.ny | 42 ++++++++++++------------- plug-ins/sample-data-import.ny | 30 +++++++++--------- plug-ins/vocalrediso.ny | 36 +++++++++++----------- plug-ins/vocalremover.ny | 14 ++++----- plug-ins/vocoder.ny | 2 +- 21 files changed, 136 insertions(+), 133 deletions(-) diff --git a/plug-ins/SilenceMarker.ny b/plug-ins/SilenceMarker.ny index ae73488ea..e43c345b1 100644 --- a/plug-ins/SilenceMarker.ny +++ b/plug-ins/SilenceMarker.ny @@ -88,6 +88,7 @@ s-in)) (if (and (> v thres) (> sil-c sil-length)) ;Mark the user-set number of seconds BEFORE this point to avoid clipping the start ;of the material. +; Should "S" be translated or become a control value? (add-label (- (/ n s1-srate) labelbeforedur) "S") ) ;If this sample is NOT silent, then reset the silence counter @@ -110,6 +111,6 @@ s-in)) ;If no silence markers were found, return a message (if (null l) - (setq l "No silences found. Try reducing the silence\nlevel and minimum silence duration.") + (setq l (_"No silences found. Try reducing the silence\nlevel and minimum silence duration.")) ) l diff --git a/plug-ins/SoundFinder.ny b/plug-ins/SoundFinder.ny index 6008f4c8b..999a6f36d 100644 --- a/plug-ins/SoundFinder.ny +++ b/plug-ins/SoundFinder.ny @@ -149,7 +149,7 @@ s-in)) ;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. (if (null l) - (setq l "No sounds found. Try reducing the silence\nlevel and minimum silence duration.") - (if (= finallabel 1) (add-label (/ s1-length s1-srate) (/ s1-length s1-srate) "[End]")) + (setq l (_"No sounds found. Try reducing the silence\nlevel and minimum silence duration.")) + (if (= finallabel 1) (add-label (/ s1-length s1-srate) (/ s1-length s1-srate) (_"[End]"))) ) l diff --git a/plug-ins/SpectralEditMulti.ny b/plug-ins/SpectralEditMulti.ny index 1627ae2f4..aa2fbf7c8 100644 --- a/plug-ins/SpectralEditMulti.ny +++ b/plug-ins/SpectralEditMulti.ny @@ -33,20 +33,21 @@ $copyright (_"Released under terms of the GNU General Public License version 2") (env (snd-pwl 0.0 rate breakpoints))) (cond ((not (or f0 f1)) ; This should never happen for a 'spectral' effect. - (throw 'error-message "Please select frequencies.")) + (throw 'error-message + (format nil (_"~aPlease select frequencies.") p-err))) ((and f0 f1 (= f0 f1)) (throw 'error-message - (format nil "~aBandwidth is zero (the upper and lower~%~ + (format nil (_"~aBandwidth is zero (the upper and lower~%~ frequencies are both ~a Hz).~%~ - Please select a frequency range." + Please select a frequency range.") p-err f0))) ;; Biqud filter fails if centre frequency is very low and bandwidth very high. ;; 'Magic numbers' 10 Hz and 10 octaves are experimental. ((and f0 (< f0 10) (or (not bw)(> bw 10))) (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~%~ - or reduce the filter 'Width'." + or reduce the filter 'Width'.") p-err))) ;; low pass frequency is above Nyquist so do nothing ((and (not f1) (>= f0 (/ *sound-srate* 2.0))) @@ -61,5 +62,5 @@ $copyright (_"Released under terms of the GNU General Public License version 2") (prod (diff 1.0 env) sig)))))) (catch 'error-message - (setf p-err "Error.\n") + (setf p-err (_"Error.\n")) (multichan-expand #'result *track*)) diff --git a/plug-ins/SpectralEditParametricEQ.ny b/plug-ins/SpectralEditParametricEQ.ny index 87aba09a7..d91163b9a 100644 --- a/plug-ins/SpectralEditParametricEQ.ny +++ b/plug-ins/SpectralEditParametricEQ.ny @@ -33,24 +33,24 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24 (env (snd-pwl 0.0 rate breakpoints))) (cond ((not (or f0 f1)) ; This should never happen for a 'spectral' effect. - (throw 'error-message (format nil "~aPlease select frequencies." p-err))) + (throw 'error-message (format nil (_"~aPlease select frequencies.") p-err))) ((not f0) - (throw 'error-message (format nil "~aLow frequency is undefined." p-err))) + (throw 'error-message (format nil (_"~aLow frequency is undefined.") p-err))) ((not f1) - (throw 'error-message (format nil "~aHigh frequency is undefined." p-err))) + (throw 'error-message (format nil (_"~aHigh frequency is undefined.") p-err))) ((and fc (= fc 0)) - (throw 'error-message (format nil "~aCenter frequency must be above 0 Hz." p-err))) + (throw 'error-message (format nil (_"~aCenter frequency must be above 0 Hz.") p-err))) ((and f1 (> f1 (/ *sound-srate* 2))) (throw 'error-message - (format nil "~aFrequency selection is too high for track sample rate. + (format nil (_"~aFrequency selection is too high for track sample rate.~%~ For the current track, the high frequency setting cannot~%~ - be greater than ~a Hz" + be greater than ~a Hz") p-err (/ *sound-srate* 2)))) ((and bw (= bw 0)) (throw 'error-message - (format nil "~aBandwidth is zero (the upper and lower~%~ + (format nil (_"~aBandwidth is zero (the upper and lower~%~ frequencies are both ~a Hz).~%~ - Please select a frequency range." + Please select a frequency range.") p-err f0))) ;; If centre frequency band is above Nyquist, do nothing. ((and fc (>= fc (/ *sound-srate* 2.0))) @@ -59,7 +59,7 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24 (prod (diff 1.0 env) sig)))))) (catch 'error-message - (setf p-err "Error.\n") + (setf p-err (_"Error.\n")) (if (= control-gain 0) nil ; Do nothing (multichan-expand #'result *track*))) diff --git a/plug-ins/SpectralEditShelves.ny b/plug-ins/SpectralEditShelves.ny index e353863c7..b12ec16cc 100644 --- a/plug-ins/SpectralEditShelves.ny +++ b/plug-ins/SpectralEditShelves.ny @@ -49,15 +49,15 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24 (env (snd-pwl 0.0 rate breakpoints))) (cond ((not (or f0 f1)) ; This should never happen for a 'spectral' effect. - (throw 'error-message (format nil "~aPlease select frequencies." p-err))) + (throw 'error-message (format nil (_"~aPlease select frequencies.") p-err))) ((and f0 (>= f0 (/ *sound-srate* 2.0))) ; Shelf is above Nyquist frequency so do nothing. nil) ((and f0 f1 (= f0 f1)) (throw 'error-message - (format nil "~aBandwidth is zero (the upper and lower~%~ + (format nil (_"~aBandwidth is zero (the upper and lower~%~ frequencies are both ~a Hz).~%~ - Please select a frequency range." + Please select a frequency range.") p-err f0))) (T (if f0 (validate f0)) (if f1 (validate f1)) @@ -67,7 +67,7 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24 (prod (diff 1.0 env) sig))))))) (catch 'error-message - (setf p-err "Error.\n") + (setf p-err (_"Error.\n")) (if (= control-gain 0) nil ; Do nothing (multichan-expand #'result *track*))) diff --git a/plug-ins/StudioFadeOut.ny b/plug-ins/StudioFadeOut.ny index a8aa80260..c25c9f6db 100644 --- a/plug-ins/StudioFadeOut.ny +++ b/plug-ins/StudioFadeOut.ny @@ -39,7 +39,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2") (let ((dur (get-duration 1))) (cond - ((< len 3) "Selection too short.\nIt must be more than 2 samples.") + ((< len 3) (_"Selection too short.\nIt must be more than 2 samples.")) ((< dur 0.2) (mult s (r-cos dur))) (t (mult (filter s dur)(r-cos dur))))) diff --git a/plug-ins/adjustable-fade.ny b/plug-ins/adjustable-fade.ny index 9e482e374..35d0e630f 100644 --- a/plug-ins/adjustable-fade.ny +++ b/plug-ins/adjustable-fade.ny @@ -53,14 +53,14 @@ selection length, but preview only needs to process preview length." (if (= units 0) ;percentage values (cond ((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)) - (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 ((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~%~ - \t-6 dB halves the amplitude." err)))))) + \t-6 dB halves the amplitude." err))))))) ;;; select and apply fade (defun fade (sig type curve g0 g1) @@ -192,7 +192,7 @@ selection length, but preview only needs to process preview length." (setf curve (/ curve 100.0)) (setf gain0 (gainscale gain0 units)) (setf gain1 (gainscale gain1 units)) -(setf err "Error\n\n") +(setf err (_"Error\n\n")) (catch 'err (fade *track* type curve gain0 gain1)) diff --git a/plug-ins/beat.ny b/plug-ins/beat.ny index e259b6931..3a9dde5e2 100644 --- a/plug-ins/beat.ny +++ b/plug-ins/beat.ny @@ -18,6 +18,7 @@ $control thresval (_"Threshold Percentage") int "" 65 5 100 (setq thres (* (/ thresval 100.0) max)) (setq s2 (signal)) (do ((c 0.0) (l NIL) (p T) (v (snd-fetch s2))) ((not v) l) +; "B" seems too short to put into the i18n catalog. Make it a control? (if (and p (> v thres)) (setq l (cons (list c "B") l))) (setq p (< v thres)) (setq c (+ c 0.001)) diff --git a/plug-ins/crossfadeclips.ny b/plug-ins/crossfadeclips.ny index 5a8fb8b97..664a17b2c 100644 --- a/plug-ins/crossfadeclips.ny +++ b/plug-ins/crossfadeclips.ny @@ -37,8 +37,8 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; 2) The selection may not start or end in white-space. -(setf err1 "Error.\nInvalid selection.\nMore than 2 audio clips selected.") -(setf err2 "Error.\nInvalid selection.\nEmpty space at start/ end of the selection.") +(setf err1 (_"Error.\nInvalid selection.\nMore than 2 audio clips selected.")) +(setf err2 (_"Error.\nInvalid selection.\nEmpty space at start/ end of the selection.")) (defun find-ends (T0 T1 clips) @@ -128,4 +128,4 @@ $copyright (_"Released under terms of the GNU General Public License version 2") (get '*selection* 'start) (get '*selection* 'end) (get '*track* 'clips))) - "Error.\nCrossfade Clips may only be applied to one track.") + (_"Error.\nCrossfade Clips may only be applied to one track.")) diff --git a/plug-ins/crossfadetracks.ny b/plug-ins/crossfadetracks.ny index 84c5b17a6..08272818a 100644 --- a/plug-ins/crossfadetracks.ny +++ b/plug-ins/crossfadetracks.ny @@ -72,5 +72,5 @@ audio clip, fade in, otherwise fade out." (if (< in-dist out-dist) 'in 'out))) (if (< (length (get '*selection* 'tracks)) 2) - "Error.\nSelect 2 (or more) tracks to crossfade." + (_"Error.\nSelect 2 (or more) tracks to crossfade.") (crossfade type direction curve)) diff --git a/plug-ins/delay.ny b/plug-ins/delay.ny index b67e79e8c..6ce5abe23 100644 --- a/plug-ins/delay.ny +++ b/plug-ins/delay.ny @@ -42,19 +42,19 @@ $control constrain (_"Allow duration to change") choice ((_"Yes") (_"No")) 0 T 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))) (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))) (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))) (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))) @@ -121,7 +121,7 @@ $control constrain (_"Allow duration to change") choice ((_"Yes") (_"No")) 0 ;;; return errors or process (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))) (output (multichan-expand #'delays diff --git a/plug-ins/equalabel.ny b/plug-ins/equalabel.ny index 6a41497c1..5f602629c 100644 --- a/plug-ins/equalabel.ny +++ b/plug-ins/equalabel.ny @@ -49,12 +49,12 @@ $control firstnum (_"Begin numbering from") int-text "" 1 0 nil "Throw error if excessive number of labels ('Interval' mode only)" (when (> totalnum 1000) (throw 'err - (format nil "Too many labels.~%~%~ + (format nil ("Too many labels.~%~%~ Selection length is ~a seconds and~%~ Label interval is ~a seconds~%~ giving a total of ~a labels.~%~ Maximum number of labels from this effect is 1000.~%~ - Please use a shorter selection, or a longer Label interval." + Please use a shorter selection, or a longer Label interval.") (formatgg (get-duration 1)) (formatgg interval) (if (= adjust 1) diff --git a/plug-ins/highpass.ny b/plug-ins/highpass.ny index e12819711..d4c3115b8 100644 --- a/plug-ins/highpass.ny +++ b/plug-ins/highpass.ny @@ -20,11 +20,11 @@ $control rolloff (_"Rolloff (dB per octave)") choice ((_"6 dB") (_"12 dB") (_"24 (cond - ((< frequency 0.1) "Frequency must be at least 0.1 Hz.") + ((< frequency 0.1) (_"Frequency must be at least 0.1 Hz.")) ((>= frequency (/ *sound-srate* 2.0)) - (format nil "Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~ + (format nil (_"Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~ Track sample rate is ~a Hz~%~ - Frequency must be less than ~a Hz." + Frequency must be less than ~a Hz.") frequency *sound-srate* (/ *sound-srate* 2.0))) diff --git a/plug-ins/lowpass.ny b/plug-ins/lowpass.ny index d4c0e358c..20a24b5e1 100644 --- a/plug-ins/lowpass.ny +++ b/plug-ins/lowpass.ny @@ -20,11 +20,11 @@ $control rolloff (_"Rolloff (dB per octave)") choice ((_"6 dB") (_"12 dB") (_"24 (cond - ((< frequency 0.1) "Frequency must be at least 0.1 Hz.") + ((< frequency 0.1) (_"Frequency must be at least 0.1 Hz.")) ((>= frequency (/ *sound-srate* 2.0)) - (format nil "Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~ + (format nil (_"Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~ Track sample rate is ~a Hz~%~ - Frequency must be less than ~a Hz." + Frequency must be less than ~a Hz.") frequency *sound-srate* (/ *sound-srate* 2.0))) diff --git a/plug-ins/notch.ny b/plug-ins/notch.ny index 07fc48a54..c09ea8d41 100644 --- a/plug-ins/notch.ny +++ b/plug-ins/notch.ny @@ -18,11 +18,11 @@ $control frequency (_"Frequency (Hz)") float-text "" 60 0 nil $control q (_"Q (higher value reduces width)") float-text "" 1 0.1 1000 (cond - ((< frequency 0.1) "Frequency must be at least 0.1 Hz.") + ((< frequency 0.1) (_"Frequency must be at least 0.1 Hz.")) ((>= frequency (/ *sound-srate* 2.0)) - (format nil "Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~ + (format nil (_"Error:~%~%Frequency (~a Hz) is too high for track sample rate.~%~%~ Track sample rate is ~a Hz.~%~ - Frequency must be less than ~a Hz." + Frequency must be less than ~a Hz.") frequency *sound-srate* (/ *sound-srate* 2.0))) diff --git a/plug-ins/rhythmtrack.ny b/plug-ins/rhythmtrack.ny index 2ac6cc83c..f781a2734 100644 --- a/plug-ins/rhythmtrack.ny +++ b/plug-ins/rhythmtrack.ny @@ -48,7 +48,7 @@ $control low (_"MIDI pitch of weak beat") int (_"18 - 116") 80 18 116 (defun help1 () (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 measure, and either number of measures or track duration, @@ -75,12 +75,12 @@ If you enter a value into this field, the 'number of measures' value will be ignored. To generate rhythm track or view help screen 2, -restart Rhythm Track and select from 'Action choice'.")) ;end of help1 +restart Rhythm Track and select from 'Action choice'."))) ;end of help1 (defun help2 () (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 time than the very beginning (zero seconds), maximum @@ -95,7 +95,7 @@ what pitch to use. C-notes are: C# (C-sharp) above middle C is 61. To generate rhythm track or view help screen 1, -restart Rhythm Track and select from 'Action choice'.")) ;end of help 2 +restart Rhythm Track and select from 'Action choice'."))) ;end of help 2 ;Check function: returns 1 on error @@ -156,44 +156,44 @@ restart Rhythm Track and select from 'Action choice'.")) ;end of help 2 ; tempo (if (= (check tempo 30 300) 1) (setq error-msg (strcat error-msg (format nil -"Tempo ~a outside valid range 30 to 300 bpm -" tempo)))) +(_"Tempo ~a outside valid range 30 to 300 bpm +") tempo)))) ;beats per measure (if (= (check timesig 1 20) 1) (setq error-msg (strcat error-msg (format nil -"Beats per measure ~a outside valid range 1 to 20 -" timesig)))) +(_"Beats per measure ~a outside valid range 1 to 20 +") timesig)))) ;number of measures (if (= (check measures 1 1000) 1) (setq error-msg (strcat error-msg (format nil -"Number of measures ~a outside valid range 1 to 1000 -" measures)))) +(_"Number of measures ~a outside valid range 1 to 1000 +") measures)))) ;time start offset (if (= (check offset 0 30) 1) (setq error-msg (strcat error-msg (format nil -"Time offset ~a outside valid range 0 to 30 seconds -" offset)))) +(_"Time offset ~a outside valid range 0 to 30 seconds +") offset)))) ; q (if (= (check q 1 20) 1) (setq error-msg (strcat error-msg (format nil -"Filter quality q ~a outside valid range 1 to 20 -" q)))) +(_"Filter quality q ~a outside valid range 1 to 20 +") q)))) ;high MIDI pitch (if (= (check high 18 116) 1) (setq error-msg (strcat error-msg (format nil -"High MIDI pitch ~a outside valid range 18 to 116 -" high)))) +(_"High MIDI pitch ~a outside valid range 18 to 116 +") high)))) ;low MIDI pitch (if (= (check low 18 116) 1) (setq error-msg (strcat error-msg (format nil -"Low MIDI pitch ~a outside valid range 18 to 116 -" low)))) +(_"Low MIDI pitch ~a outside valid range 18 to 116 +") low)))) ;validate string (if (> (length m-s) 0) ;if at least one item @@ -203,16 +203,16 @@ restart Rhythm Track and select from 'Action choice'.")) ;end of help 2 (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 (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 (seconds0, or two numbers (minutes seconds) separated by a space. -Use whole numbers only.~%")))) +Use whole numbers only.~%"))))) ;one or two integers ((and (= (length m-s) 1) ;one integer and (= (check (first m-s) 0 3660) 1)) ;outside valid range (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 ((and (= (length m-s) 2) ;2 integers and @@ -220,7 +220,7 @@ Use whole numbers only.~%")))) (= (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 (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 (defun metronome-tick (hz peak) @@ -366,4 +366,4 @@ Use whole numbers only.~%")))) (make-click-track measures (* timesig beatlen)))) ;click track ;Else error message (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))))) diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index d3d988ee3..060ae0b05 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -109,9 +109,9 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (defun checknumber () (setq number (min number len)) (if (< number 1) - (add-error "No samples selected.")) + (add-error (_"No samples selected."))) (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))) @@ -215,15 +215,15 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (if (and (arrayp s)(= chan 2)) (progn (unless (= header 0) ; Don't print 'channel' if no header - (format fp "Left Channel.~%~%")) + (format fp (_"Left Channel.~%~%"))) (print-text (aref s 0)) (if (= header 0) ; Don't print 'channel' if no header (format fp "~%") - (format fp "~%~%Right Channel.~%~%")) + (format fp (_"~%~%Right Channel.~%~%"))) (print-text (aref s 1)) (close fp) (if (= messages 0) - (format nil "~aData written to:~%~a~a~a" + (format nil (_"~aData written to:~%~a~a~a") (normhead) path fileseparator filename) nil)) ;; mono or alternate @@ -231,7 +231,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (print-text s) (close fp) (if (= messages 0) - (format nil "~aData written to:~%~a~a~a" + (format nil (_"~aData written to:~%~a~a~a") (normhead) path fileseparator filename) nil)))) @@ -275,7 +275,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (string-equal path realdir))) ;; makefilename or error (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)))) ;; check if file is writeable (when (= (length err) 0) @@ -283,7 +283,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (setq fp (open filename :direction :output)) ;check file is writeable (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))))) @@ -299,7 +299,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (defun minhead () (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 'units) ; units (get 'info 'chan-order) ; Channel Order @@ -311,7 +311,7 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (defun normhead () (if (= fileformat 4) ; html (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 (get 'info 'channels) ; mono/stereo (get 'info 'chan-order) ; Channel Order @@ -322,8 +322,8 @@ $control owrite (_"Allow files to be overwritten") choice ((_"No") (_"Yes")) 0 (format nil "~%~a~%~%~%" optext) ; optional text (format nil "~%~%~%"))) ; no optional text (format nil -"~a ~a~%~aSample Rate: ~a Hz. Sample values on ~a scale.~%~ -Length processed: ~a samples ~a seconds.~a" +(_"~a ~a~%~aSample Rate: ~a Hz. Sample values on ~a scale.~%~ +Length processed: ~a samples ~a seconds.~a") filename ; file name (get 'info 'channels) ; mono/stereo (get 'info 'chan-order) ; Channel Order @@ -338,9 +338,9 @@ Length processed: ~a samples ~a seconds.~a" (defun fullhead () (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.~%~ -DC offset: ~a~a" +DC offset: ~a~a") filename ; file name (get 'info 'srate) ; sample rate (get 'info 'units) ; units @@ -353,9 +353,9 @@ DC offset: ~a~a" (srms s) ; rms (let ((vals (dc-off s))) ; DC offset (if (= (length vals) 2) ; mono - (format nil "~a linear, ~a dB." + (format nil (_"~a linear, ~a dB.") (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)))) (if (> (length optext)0) (format nil "~%~a~%~%~%" optext) ; optional text @@ -481,9 +481,9 @@ ul { (srms s) ; rms (let ((vals (dc-off s))) ; DC offset (if (= (length vals) 2) ; mono - (format nil "~a linear,   ~a dB." + (format nil (_"~a linear,   ~a dB.") (first vals)(second vals)) - (format nil "Left: ~a lin, ~a dB | Right: ~a linear,   ~a dB." + (format nil (_"Left: ~a lin, ~a dB | Right: ~a linear,   ~a dB.") (first vals)(second vals)(third vals)(fourth vals)))))) @@ -561,7 +561,7 @@ Daulton") " ( (length err) 0) ;; output error message if enabled (if (= messages 2) nil ; return nil - (format nil "Error.~%~a" err)) ; return errors + (format nil (_"Error.~%~a") err)) ; return errors ;; else print to file (progn (put-head-info) ; put basic info for headers diff --git a/plug-ins/sample-data-import.ny b/plug-ins/sample-data-import.ny index 3cb80f653..0cbb1a177 100644 --- a/plug-ins/sample-data-import.ny +++ b/plug-ins/sample-data-import.ny @@ -107,23 +107,23 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as (defun fileopensp (path fname) (let ((path (string-trim " " path))) (if (string-equal fname "") - (throw 'err "Error\nNo file name.")) + (throw 'err (_"Error\nNo file name."))) (if (string-not-equal fname ".txt" :start1 (- (length fname) 4)) - (throw 'err "Error\nThe file must be a plain ASCII text file\nwith '.txt' file extension.")) + (throw 'err (_"Error\nThe file must be a plain ASCII text file\nwith '.txt' file extension."))) ;; Handle special 'path' formats: (cond ; "~" without "/" is not recommended (or documented) ; but more user friendly to allow it. ((string= path "~") (if (windowsp) - "Error\n'~/' is not valid on Windows" + (_"Error\n'~/' is not valid on Windows") (setq path (home)))) ;; replace "~/" on Linux/Mac ((and (>= (length path) 2) (string= path "~/" :end1 2)) (if (windowsp) - "Error\n'~/' is not valid on Windows" + (_"Error\n'~/' is not valid on Windows") (setq path (strcat (home)(subseq path 1))))) - ((string-equal path "Home directory") + ((string-equal path (_"Home directory")) (setf path (home))) ;; If empty, use 'Home' ((string-equal path "") @@ -131,26 +131,26 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as ;; Now check that the file can be opened: (cond ((not (setdir path)) - (throw 'err (format nil "Error~%~ - Directory '~a' could not be opened." path))) + (throw 'err (format nil (_"Error~%~ + Directory '~a' could not be opened.") path))) ((not (setf fstream (open fname))) - (throw 'err (format nil "Error~%~ + (throw 'err (format nil (_"Error~%~ '~a~a~a' could not be opened.~%~ - Check that file exists." + Check that file exists.") path *file-separator* fname))) ; File opened OK, so check for normal ASCII, then close it and return 'true' (t (do ((j 0 (1+ j))(b (read-byte fstream)(read-byte fstream))) ((or (> j 100000)(not b))) (when (> b 127) - (throw 'err (format nil "Error:~%~ + (throw 'err (format nil (_"Error:~%~ 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) t)))) ;; ':new' creates a new class 'streamreader' ;; 'filestream' and 'chanel' are its instance variables. -;; (every objet of class 'streamreader' has it's own +;; (every object of class 'streamreader' has its own ;; copy of these variables) (setq streamreader (send class :new '(filestream chanel))) @@ -183,9 +183,9 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as ((not val) nil) ;end of file ((numberp val) (float val)) ;valid. ((= 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.~%~ - '~a' is not a numeric value." val))) + '~a' is not a numeric value.") val))) (t 0.0)))) ;invalid. Replace with zero. ;; Instantiate a new sound object @@ -195,7 +195,7 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as (defun sound-from-file (filename) ;; Set path. fileopenp should return 'true' (if (not (fileopensp path filename)) - (throw 'err "Error.\nUnable to open file")) + (throw 'err (_"Error.\nUnable to open file"))) ; Note: we can't use (arrayp *track*) because ; *track* is nil in generate type plug-ins. (cond diff --git a/plug-ins/vocalrediso.ny b/plug-ins/vocalrediso.ny index 758d3e699..7c0fc8067 100644 --- a/plug-ins/vocalrediso.ny +++ b/plug-ins/vocalrediso.ny @@ -70,14 +70,14 @@ $control high-transition (_"High Cut for Vocals (Hz)") real "" 9000 1 24000 (t (/ s-xy s-x2)))) (a0 (- bar-y (* a1 bar-x)))) (if show (format t -"Average x: ~a, y: ~a +(_"Average x: ~a, y: ~a Covariance x y: ~a Average variance x: ~a, y: ~a Standard deviation x: ~a, y: ~a Coefficient of correlation: ~a Coefficient of determination: ~a Variation of residuals: ~a -y equals ~a plus ~a times x~%" +y equals ~a plus ~a times x~%") bar-x bar-y s-xy s-x2 s-y2 (sqrt s-x2) (sqrt s-y2) r r2 (* s-y2 (- 1 r2)) a0 a1)) (list r r2 pos-xy a0 a1))) ;; @@ -86,34 +86,34 @@ 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 (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 (round (* corr 100)) (cond ((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. - Any remaining difference may be caused by lossy encoding.") + Any remaining difference may be caused by lossy encoding.")) ((between corr 0.9 0.97) - " - The two Channels are strongly related, i.e. nearly mono or extremely panned. - Most likely, the center extraction will be poor.") + (_" - The two Channels are strongly related, i.e. nearly mono or extremely panned. + Most likely, the center extraction will be poor.")) ((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) - " - An ideal value for Stereo. - However, the center extraction depends also on the used reverb.") + (_" - An ideal value for Stereo. + However, the center extraction depends also on the used reverb.")) ((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. - The center extraction can still be good though.") + The center extraction can still be good though.")) ((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. - Especially when played by only one speaker.") - (t " - The two channels are nearly identical. + Especially when played by only one speaker.")) + (t (_" - The two channels are nearly identical. Obviously, a pseudo stereo effect has been used 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."))))) ;;; ;;; FFT Functionality ;; @@ -128,7 +128,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) (progn (setf cut (truncate (- fs zeros 1))) (snd-pwl 0 fs (list 0 (/ (float hop))(- cut hop) 1.0 cut 0.0 fs 0.0 fs))))) - ; Han + ; Hann ((= type 1) (seq (cue (control-srate-abs fs (mult 0.5 (sum 1 (lfo (/ fs (* 2.0 hop)) (/ (- fs zeros) (get-duration fs)) *table* 270))))) @@ -195,7 +195,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 (defun catalog (&aux snd (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))))) (cond ((= action 7) diff --git a/plug-ins/vocalremover.ny b/plug-ins/vocalremover.ny index f36bf1d32..6027537e5 100644 --- a/plug-ins/vocalremover.ny +++ b/plug-ins/vocalremover.ny @@ -35,7 +35,7 @@ $control high-range (_"Frequency band to (Hz)") float-text "" 2000 0 nil (defun help () (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 other compressed formats. It only removes vocals or other audio that is panned to center (sounds equally loud in left @@ -59,7 +59,7 @@ sounds like the most significant frequency range of the original vocals. If the other choices remove too much audio in a particular frequency range (such as low drums or bass), try 'Retain frequency band'. This only removes -frequencies outside the limits, retaining the others."))) +frequencies outside the limits, retaining the others.")))) (format t "~a" msg) ;print to debug (coppying supported on all platforms) msg)) ;return message @@ -67,10 +67,10 @@ frequencies outside the limits, retaining the others."))) (defun check-stereo () (when (soundp *track*) (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~%~ channels, use 'Make Stereo Track' on the Track~%~ -Drop-Down Menu, then run Vocal Remover again.~%")))) +Drop-Down Menu, then run Vocal Remover again.~%"))))) (defmacro validate (Hz) ;; Filters become unstable when very close to 0 Hz or @@ -100,11 +100,11 @@ Drop-Down Menu, then run Vocal Remover again.~%")))) (defun bandstop (sig low high) (if (and low high (< (/ (- high low) low) 0.1)) - (format t "Warning:~%~ + (format t (_"Warning:~%~ Selected band-stop filter is~%~ ~a Hz to ~a Hz.~%~ A very narrow stop-band filter may have~%~ - unexpected results.~%~%" + unexpected results.~%~%") low high)) (let ((low-sig (if low (lowpass8 sig low)(s-rest 1)))) (sum @@ -121,7 +121,7 @@ Drop-Down Menu, then run Vocal Remover again.~%")))) (bandstop (aref *track* 1) low-range high-range))) ; Nothing to remove - skip effect. ((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) ((= band-choice 2) ; remove frequencies inside range (sum (aref *track* 0) diff --git a/plug-ins/vocoder.ny b/plug-ins/vocoder.ny index 17e5bf991..6efcb359f 100644 --- a/plug-ins/vocoder.ny +++ b/plug-ins/vocoder.ny @@ -136,4 +136,4 @@ $control radar-f (_"Frequency of Radar Needles (Hz)") real "" 30 1 100 (0 s) ; let Audacity coerce back to stereo (1 (vector original s))))) (t ; this effect isn't meant for mono - "Error.\nStereo track required.")) + (_"Error.\nStereo track required."))) From da39cc451f472ac8450b291f4e4a2586c29c9ffb Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Fri, 2 Mar 2018 00:19:56 -0500 Subject: [PATCH 12/13] Remove redundant ellipses from names in .ny files... ... The code that parses the header was always just throwing them out. The code that populates menus deduces whether to add ellipses, as there are controls or not, regardless what the $name line said. --- plug-ins/SilenceMarker.ny | 2 +- plug-ins/SoundFinder.ny | 2 +- plug-ins/SpectralEditParametricEQ.ny | 2 +- plug-ins/SpectralEditShelves.ny | 2 +- plug-ins/adjustable-fade.ny | 2 +- plug-ins/beat.ny | 2 +- plug-ins/clipfix.ny | 2 +- plug-ins/crossfadetracks.ny | 2 +- plug-ins/delay.ny | 2 +- plug-ins/equalabel.ny | 2 +- plug-ins/highpass.ny | 2 +- plug-ins/limiter.ny | 2 +- plug-ins/lowpass.ny | 2 +- plug-ins/notch.ny | 2 +- plug-ins/pluck.ny | 2 +- plug-ins/rhythmtrack.ny | 2 +- plug-ins/rissetdrum.ny | 2 +- plug-ins/sample-data-export.ny | 2 +- plug-ins/sample-data-import.ny | 2 +- plug-ins/tremolo.ny | 2 +- plug-ins/vocalrediso.ny | 2 +- plug-ins/vocalremover.ny | 2 +- plug-ins/vocoder.ny | 2 +- src/effects/nyquist/Nyquist.cpp | 2 -- 24 files changed, 23 insertions(+), 25 deletions(-) diff --git a/plug-ins/SilenceMarker.ny b/plug-ins/SilenceMarker.ny index e43c345b1..6934ac536 100644 --- a/plug-ins/SilenceMarker.ny +++ b/plug-ins/SilenceMarker.ny @@ -2,7 +2,7 @@ ;version 1 ;type analyze ;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" -$name (_"Silence Finder...") +$name (_"Silence Finder") ;manpage "Silence_Finder" $action (_"Finding silence...") $info (_"Adds point labels in areas of silence according to the specified\nlevel and duration of silence. If too many silences are detected,\nincrease the silence level and duration; if too few are detected,\nreduce the level and duration.") diff --git a/plug-ins/SoundFinder.ny b/plug-ins/SoundFinder.ny index 999a6f36d..c6534767f 100644 --- a/plug-ins/SoundFinder.ny +++ b/plug-ins/SoundFinder.ny @@ -2,7 +2,7 @@ ;version 1 ;type analyze ;categories "http://lv2plug.in/ns/lv2core#AnalyserPlugin" -$name (_"Sound Finder...") +$name (_"Sound Finder") ;manpage "Sound_Finder" $action (_"Finding sound...") $info (_"Adds region labels for areas of sound according to the specified level\nand duration of surrounding silence. If too many labels are produced,\nincrease the silence level and duration; if too few are produced,\nreduce the level and duration.") diff --git a/plug-ins/SpectralEditParametricEQ.ny b/plug-ins/SpectralEditParametricEQ.ny index d91163b9a..42845c3c5 100644 --- a/plug-ins/SpectralEditParametricEQ.ny +++ b/plug-ins/SpectralEditParametricEQ.ny @@ -2,7 +2,7 @@ ;version 4 ;type process spectral ;preview linear -$name (_"Spectral edit parametric EQ...") +$name (_"Spectral edit parametric EQ") ;manpage "Spectral_edit_parametric_EQ" $action (_"Filtering...") $author (_"Paul Licameli") diff --git a/plug-ins/SpectralEditShelves.ny b/plug-ins/SpectralEditShelves.ny index b12ec16cc..a3f15134c 100644 --- a/plug-ins/SpectralEditShelves.ny +++ b/plug-ins/SpectralEditShelves.ny @@ -2,7 +2,7 @@ ;version 4 ;type process spectral ;preview linear -$name (_"Spectral edit shelves...") +$name (_"Spectral edit shelves") ;manpage "Spectral_edit_shelves" $action (_"Filtering...") $author (_"Paul Licameli") diff --git a/plug-ins/adjustable-fade.ny b/plug-ins/adjustable-fade.ny index 35d0e630f..22ed8790e 100644 --- a/plug-ins/adjustable-fade.ny +++ b/plug-ins/adjustable-fade.ny @@ -4,7 +4,7 @@ ;preview linear ;preview selection ;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" -$name (_"Adjustable Fade...") +$name (_"Adjustable Fade") ;manpage "Adjustable_Fade" ;debugbutton false $action (_"Applying Fade...") diff --git a/plug-ins/beat.ny b/plug-ins/beat.ny index 3a9dde5e2..f0a6860d3 100644 --- a/plug-ins/beat.ny +++ b/plug-ins/beat.ny @@ -2,7 +2,7 @@ ;version 1 ;type analyze ;categories "https://audacityteam.org/namespace#OnsetDetector" -$name (_"Beat Finder...") +$name (_"Beat Finder") ;manpage "Beat_Finder" $action (_"Finding beats...") $author (_"Audacity") diff --git a/plug-ins/clipfix.ny b/plug-ins/clipfix.ny index 705632af5..27ace4245 100644 --- a/plug-ins/clipfix.ny +++ b/plug-ins/clipfix.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview enabled -$name (_"Clip Fix...") +$name (_"Clip Fix") ;manpage "Clip_Fix" $action (_"Reconstructing clips...") $author (_"Benjamin Schwartz and Steve Daulton") diff --git a/plug-ins/crossfadetracks.ny b/plug-ins/crossfadetracks.ny index 08272818a..779779c42 100644 --- a/plug-ins/crossfadetracks.ny +++ b/plug-ins/crossfadetracks.ny @@ -1,7 +1,7 @@ ;nyquist plug-in ;version 4 ;type process -$name (_"Crossfade Tracks...") +$name (_"Crossfade Tracks") ;manpage "Crossfade_Tracks" ;debugbutton disabled $action (_"Crossfading...") diff --git a/plug-ins/delay.ny b/plug-ins/delay.ny index 6ce5abe23..93c8c13e2 100644 --- a/plug-ins/delay.ny +++ b/plug-ins/delay.ny @@ -3,7 +3,7 @@ ;type process ;preview linear ;categories "http://lv2plug.in/ns/lv2core#DelayPlugin" -$name (_"Delay...") +$name (_"Delay") ;manpage "Delay" $action (_"Applying Delay Effect...") $author (_"Steve Daulton") diff --git a/plug-ins/equalabel.ny b/plug-ins/equalabel.ny index 5f602629c..cbf43f6b3 100644 --- a/plug-ins/equalabel.ny +++ b/plug-ins/equalabel.ny @@ -1,7 +1,7 @@ ;nyquist plug-in ;version 4 ;type analyze -$name (_"Regular Interval Labels...") +$name (_"Regular Interval Labels") ;manpage "Regular_Interval_Labels" $action (_"Adding equally-spaced labels to the label track...") $author (_"Steve Daulton") diff --git a/plug-ins/highpass.ny b/plug-ins/highpass.ny index d4c3115b8..7b3716d55 100644 --- a/plug-ins/highpass.ny +++ b/plug-ins/highpass.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview linear -$name (_"High Pass Filter...") +$name (_"High Pass Filter") ;manpage "High_Pass_Filter" ;debugbutton disabled $action (_"Performing High Pass Filter...") diff --git a/plug-ins/limiter.ny b/plug-ins/limiter.ny index 04e5ac6c8..16276cf5b 100644 --- a/plug-ins/limiter.ny +++ b/plug-ins/limiter.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;categories "http://lv2plug.in/ns/lv2core/#DynamicsPlugin" -$name (_"Limiter...") +$name (_"Limiter") ;manpage "Limiter" ;debugbutton false $action (_"Limiting...") diff --git a/plug-ins/lowpass.ny b/plug-ins/lowpass.ny index 20a24b5e1..4edde62d4 100644 --- a/plug-ins/lowpass.ny +++ b/plug-ins/lowpass.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview linear -$name (_"Low Pass Filter...") +$name (_"Low Pass Filter") ;manpage "Low_Pass_Filter" ;debugbutton disabled $action (_"Performing Low Pass Filter...") diff --git a/plug-ins/notch.ny b/plug-ins/notch.ny index c09ea8d41..a974b212f 100644 --- a/plug-ins/notch.ny +++ b/plug-ins/notch.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview linear -$name (_"Notch Filter...") +$name (_"Notch Filter") ;manpage "Notch_Filter" ;debugbutton false $action (_"Applying Notch Filter...") diff --git a/plug-ins/pluck.ny b/plug-ins/pluck.ny index 5a7931943..f1e9f6805 100644 --- a/plug-ins/pluck.ny +++ b/plug-ins/pluck.ny @@ -2,7 +2,7 @@ ;version 4 ;type generate ;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin" -$name (_"Pluck...") +$name (_"Pluck") ;manpage "Pluck" ;debugbutton false ;preview linear diff --git a/plug-ins/rhythmtrack.ny b/plug-ins/rhythmtrack.ny index f781a2734..d93f43366 100644 --- a/plug-ins/rhythmtrack.ny +++ b/plug-ins/rhythmtrack.ny @@ -2,7 +2,7 @@ ;version 4 ;type generate ;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin" -$name (_"Rhythm Track...") +$name (_"Rhythm Track") ;manpage "Rhythm_Track" ;preview linear $action (_"Generating Rhythm...") diff --git a/plug-ins/rissetdrum.ny b/plug-ins/rissetdrum.ny index f84473011..2b878317a 100644 --- a/plug-ins/rissetdrum.ny +++ b/plug-ins/rissetdrum.ny @@ -4,7 +4,7 @@ ;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin" ;preview linear ;i18n-hint named for Jean-Claude Risset (silent t) -$name (_"Risset Drum...") +$name (_"Risset Drum") ;manpage "Risset_Drum" $action (_"Generating Risset Drum...") $author (_"Steven Jones") diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index 060ae0b05..425a4af8c 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -1,7 +1,7 @@ ;nyquist plug-in ;version 3 ;type analyze -$name (_"Sample Data Export...") +$name (_"Sample Data Export") ;manpage "Sample_Data_Export" $action (_"Analyzing...") ;maxlen 1000001 diff --git a/plug-ins/sample-data-import.ny b/plug-ins/sample-data-import.ny index 0cbb1a177..1ec791c81 100644 --- a/plug-ins/sample-data-import.ny +++ b/plug-ins/sample-data-import.ny @@ -1,7 +1,7 @@ ;nyquist plug-in ;version 4 ;type generate -$name (_"Sample Data Import...") +$name (_"Sample Data Import") ;manpage "Sample_Data_Import" $action (_"Reading and rendering samples...") $author (_"Steve Daulton") diff --git a/plug-ins/tremolo.ny b/plug-ins/tremolo.ny index 1e288d2ef..b876dea1f 100644 --- a/plug-ins/tremolo.ny +++ b/plug-ins/tremolo.ny @@ -3,7 +3,7 @@ ;type process ;preview linear ;categories "http://lv2plug.in/ns/lv2core#ModulatorPlugin" -$name (_"Tremolo...") +$name (_"Tremolo") ;manpage "Tremolo" ;debugbutton disabled $action (_"Applying Tremolo...") diff --git a/plug-ins/vocalrediso.ny b/plug-ins/vocalrediso.ny index 7c0fc8067..62cde64e2 100644 --- a/plug-ins/vocalrediso.ny +++ b/plug-ins/vocalrediso.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;categories "http://lv2plug.in/ns/lv2core#MixerPlugin" -$name (_"Vocal Reduction and Isolation...") +$name (_"Vocal Reduction and Isolation") ;manpage "Vocal_Reduction_and_Isolation" $action (_"Applying Action...") $author (_"Robert Haenggi") diff --git a/plug-ins/vocalremover.ny b/plug-ins/vocalremover.ny index 6027537e5..7eeb8e5d9 100644 --- a/plug-ins/vocalremover.ny +++ b/plug-ins/vocalremover.ny @@ -2,7 +2,7 @@ ;version 4 ;type process ;preview linear -$name (_"Vocal Remover...") +$name (_"Vocal Remover") ;manpage "Vocal_Remover" $action (_"Removing center-panned audio...") $info (_"For reducing center-panned vocals") diff --git a/plug-ins/vocoder.ny b/plug-ins/vocoder.ny index 6efcb359f..e723c0724 100644 --- a/plug-ins/vocoder.ny +++ b/plug-ins/vocoder.ny @@ -3,7 +3,7 @@ ;type process ;preview enabled ;categories "http://lv2plug.in/ns/lv2core#SpectralPlugin" -$name (_"Vocoder...") +$name (_"Vocoder") ;manpage "Vocoder" $action (_"Processing Vocoder...") $author (_"Edgar-RFT") diff --git a/src/effects/nyquist/Nyquist.cpp b/src/effects/nyquist/Nyquist.cpp index 2cb5889d3..3842b0c7b 100644 --- a/src/effects/nyquist/Nyquist.cpp +++ b/src/effects/nyquist/Nyquist.cpp @@ -1726,8 +1726,6 @@ bool NyquistEffect::Parse( if (len >= 2 && tokens[0] == wxT("name")) { mName = UnQuote(tokens[1]); - if (mName.EndsWith(wxT("..."))) - mName = mName.RemoveLast(3); return true; } From ac9148e48f25c1c3d2a7ea9406a0e336a14a535f Mon Sep 17 00:00:00 2001 From: Paul Licameli Date: Fri, 2 Mar 2018 08:59:13 -0500 Subject: [PATCH 13/13] Don't use \n sequence inside Lisp strings needing translation... ... Because xgettext will just remove the \, not replace \n with newline. That's consistent with Lisp reader behavior in this documentation: http://www.lispworks.com/documentation/lw70/CLHS/Body/02_de.htm The XLisp reader, which replaces \n with newline, is nonstandard. So, to accommodate xgettext, use (format nil "...~%...") instead, or where you can't do that in a $ header line, just make a line break inside the "" There are a few "\n" left alone in sample-data-export.ny which are neither in $ lines nor inside (_ "...") --- plug-ins/SilenceMarker.ny | 7 +++++-- plug-ins/SoundFinder.ny | 7 +++++-- plug-ins/SpectralEditMulti.ny | 2 +- plug-ins/SpectralEditParametricEQ.ny | 2 +- plug-ins/SpectralEditShelves.ny | 2 +- plug-ins/StudioFadeOut.ny | 2 +- plug-ins/adjustable-fade.ny | 5 +++-- plug-ins/crossfadeclips.ny | 6 +++--- plug-ins/crossfadetracks.ny | 2 +- plug-ins/limiter.ny | 6 ++++-- plug-ins/sample-data-export.ny | 10 +++++----- plug-ins/sample-data-import.ny | 12 +++++++----- plug-ins/vocoder.ny | 2 +- 13 files changed, 38 insertions(+), 27 deletions(-) diff --git a/plug-ins/SilenceMarker.ny b/plug-ins/SilenceMarker.ny index 6934ac536..a98d7f9b4 100644 --- a/plug-ins/SilenceMarker.ny +++ b/plug-ins/SilenceMarker.ny @@ -5,7 +5,10 @@ $name (_"Silence Finder") ;manpage "Silence_Finder" $action (_"Finding silence...") -$info (_"Adds point labels in areas of silence according to the specified\nlevel and duration of silence. If too many silences are detected,\nincrease the silence level and duration; if too few are detected,\nreduce the level and duration.") +$info (_"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.") $author (_"Alex S. Brown") $copyright (_"Released under terms of the GNU General Public License version 2") @@ -111,6 +114,6 @@ s-in)) ;If no silence markers were found, return a message (if (null l) - (setq l (_"No silences found. Try reducing the silence\nlevel and minimum silence duration.")) + (setq l (format nil (_"No silences found. Try reducing the silence~%level and minimum silence duration."))) ) l diff --git a/plug-ins/SoundFinder.ny b/plug-ins/SoundFinder.ny index c6534767f..029ef21ff 100644 --- a/plug-ins/SoundFinder.ny +++ b/plug-ins/SoundFinder.ny @@ -5,7 +5,10 @@ $name (_"Sound Finder") ;manpage "Sound_Finder" $action (_"Finding sound...") -$info (_"Adds region labels for areas of sound according to the specified level\nand duration of surrounding silence. If too many labels are produced,\nincrease the silence level and duration; if too few are produced,\nreduce the level and duration.") +$info (_"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.") $author (_"Jeremy R. Brown") $copyright (_"Released under terms of the GNU General Public License version 2") @@ -149,7 +152,7 @@ s-in)) ;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. (if (null l) - (setq l (_"No sounds found. Try reducing the silence\nlevel 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]"))) ) l diff --git a/plug-ins/SpectralEditMulti.ny b/plug-ins/SpectralEditMulti.ny index aa2fbf7c8..5a402edb4 100644 --- a/plug-ins/SpectralEditMulti.ny +++ b/plug-ins/SpectralEditMulti.ny @@ -62,5 +62,5 @@ $copyright (_"Released under terms of the GNU General Public License version 2") (prod (diff 1.0 env) sig)))))) (catch 'error-message - (setf p-err (_"Error.\n")) + (setf p-err (format nil (_"Error.~%"))) (multichan-expand #'result *track*)) diff --git a/plug-ins/SpectralEditParametricEQ.ny b/plug-ins/SpectralEditParametricEQ.ny index 42845c3c5..2d22c4126 100644 --- a/plug-ins/SpectralEditParametricEQ.ny +++ b/plug-ins/SpectralEditParametricEQ.ny @@ -59,7 +59,7 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24 (prod (diff 1.0 env) sig)))))) (catch 'error-message - (setf p-err (_"Error.\n")) + (setf p-err (format nil (_"Error.~%"))) (if (= control-gain 0) nil ; Do nothing (multichan-expand #'result *track*))) diff --git a/plug-ins/SpectralEditShelves.ny b/plug-ins/SpectralEditShelves.ny index a3f15134c..1faceb616 100644 --- a/plug-ins/SpectralEditShelves.ny +++ b/plug-ins/SpectralEditShelves.ny @@ -67,7 +67,7 @@ $control control-gain (_"Gain (dB)") real "" 0 -24 24 (prod (diff 1.0 env) sig))))))) (catch 'error-message - (setf p-err (_"Error.\n")) + (setf p-err (format nil (_"Error.~%"))) (if (= control-gain 0) nil ; Do nothing (multichan-expand #'result *track*))) diff --git a/plug-ins/StudioFadeOut.ny b/plug-ins/StudioFadeOut.ny index c25c9f6db..5e7d5304b 100644 --- a/plug-ins/StudioFadeOut.ny +++ b/plug-ins/StudioFadeOut.ny @@ -39,7 +39,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2") (let ((dur (get-duration 1))) (cond - ((< len 3) (_"Selection too short.\nIt 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))) (t (mult (filter s dur)(r-cos dur))))) diff --git a/plug-ins/adjustable-fade.ny b/plug-ins/adjustable-fade.ny index 22ed8790e..ee218bc77 100644 --- a/plug-ins/adjustable-fade.ny +++ b/plug-ins/adjustable-fade.ny @@ -23,7 +23,8 @@ $control curve (_"Mid-fade Adjust (%)") real "" 0 -100 100 $control units (_"Start/End as") choice ((_"% of Original") (_"dB Gain")) 0 $control gain0 (_"Start (or end)") float-text "" 0 nil nil $control gain1 (_"End (or start)") float-text "" 100 nil nil -$control preset (_" Handy Presets\n(override controls)") choice ( +$control preset (_" Handy Presets +(override controls)") choice ( (_"None Selected") (_"Linear In") (_"Linear Out") (_"Exponential In") (_"Exponential Out") @@ -192,7 +193,7 @@ selection length, but preview only needs to process preview length." (setf curve (/ curve 100.0)) (setf gain0 (gainscale gain0 units)) (setf gain1 (gainscale gain1 units)) -(setf err (_"Error\n\n")) +(setf err (format nil (_"Error~%~%"))) (catch 'err (fade *track* type curve gain0 gain1)) diff --git a/plug-ins/crossfadeclips.ny b/plug-ins/crossfadeclips.ny index 664a17b2c..e326bc590 100644 --- a/plug-ins/crossfadeclips.ny +++ b/plug-ins/crossfadeclips.ny @@ -37,8 +37,8 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; 2) The selection may not start or end in white-space. -(setf err1 (_"Error.\nInvalid selection.\nMore than 2 audio clips selected.")) -(setf err2 (_"Error.\nInvalid selection.\nEmpty space at start/ end of the selection.")) +(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."))) (defun find-ends (T0 T1 clips) @@ -128,4 +128,4 @@ $copyright (_"Released under terms of the GNU General Public License version 2") (get '*selection* 'start) (get '*selection* 'end) (get '*track* 'clips))) - (_"Error.\nCrossfade Clips may only be applied to one track.")) + (format nil (_"Error.~%Crossfade Clips may only be applied to one track."))) diff --git a/plug-ins/crossfadetracks.ny b/plug-ins/crossfadetracks.ny index 779779c42..1709cc5b0 100644 --- a/plug-ins/crossfadetracks.ny +++ b/plug-ins/crossfadetracks.ny @@ -72,5 +72,5 @@ audio clip, fade in, otherwise fade out." (if (< in-dist out-dist) 'in 'out))) (if (< (length (get '*selection* 'tracks)) 2) - (_"Error.\nSelect 2 (or more) tracks to crossfade.") + (format nil (_"Error.~%Select 2 (or more) tracks to crossfade.")) (crossfade type direction curve)) diff --git a/plug-ins/limiter.ny b/plug-ins/limiter.ny index 16276cf5b..c27a67ac0 100644 --- a/plug-ins/limiter.ny +++ b/plug-ins/limiter.ny @@ -18,8 +18,10 @@ $copyright (_"Released under terms of the GNU General Public License version 2") ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference $control type (_"Type") choice ((_"Soft Limit") (_"Hard Limit") (_"Soft Clip") (_"Hard Clip")) 0 -$control gain-L (_"Input Gain (dB)\nmono/Left") real "" 0 0 10 -$control gain-R (_"Input Gain (dB)\nRight channel") real "" 0 0 10 +$control gain-L (_"Input Gain (dB) +mono/Left") real "" 0 0 10 +$control gain-R (_"Input Gain (dB) +Right channel") real "" 0 0 10 $control thresh (_"Limit to (dB)") real "" -3 -10 0 $control hold (_"Hold (ms)") real "" 10 1 50 $control makeup (_"Apply Make-up Gain") choice ((_"No") (_"Yes")) 0 diff --git a/plug-ins/sample-data-export.ny b/plug-ins/sample-data-export.ny index 425a4af8c..78a44ccaa 100644 --- a/plug-ins/sample-data-export.ny +++ b/plug-ins/sample-data-export.ny @@ -582,14 +582,14 @@ Daulton") " (= (length path) 2) (string= path "~/" :end1 2)) (if (windowsp) - (_"Error\n'~/' is not valid on Windows") + ;i18n-hint: ~~ format directive must be preserved; displays as one ~ + (format nil (_"Error~%'~~/' is not valid on Windows")) (setq path (strcat (home)(subseq path 1))))) ((string-equal path (_"Home directory")) (setf path (home))) @@ -195,7 +197,7 @@ $control bad-data (_"Invalid data handling") choice ((_"Throw error") (_"Read as (defun sound-from-file (filename) ;; Set path. fileopenp should return 'true' (if (not (fileopensp path filename)) - (throw 'err (_"Error.\nUnable to open file"))) + (throw 'err (format nil (_"Error.~%Unable to open file")))) ; Note: we can't use (arrayp *track*) because ; *track* is nil in generate type plug-ins. (cond diff --git a/plug-ins/vocoder.ny b/plug-ins/vocoder.ny index e723c0724..1d6975a4c 100644 --- a/plug-ins/vocoder.ny +++ b/plug-ins/vocoder.ny @@ -136,4 +136,4 @@ $control radar-f (_"Frequency of Radar Needles (Hz)") real "" 30 1 100 (0 s) ; let Audacity coerce back to stereo (1 (vector original s))))) (t ; this effect isn't meant for mono - (_"Error.\nStereo track required."))) + (format nil (_"Error.~%Stereo track required."))))