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

Naming conventions for Nyquist choice controls too...

Browse Source 
... see previous commit comment.  Also some i18n-hints
This commit is contained in:
Paul Licameli 2018-03-27 14:47:47 -04:00
parent e1b60916b7
commit 842025aeb3
15 changed files with 153 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -18,19 +18,34 @@ $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 (
("Up" (_ "Fade Up"))
("Down" (_ "Fade Down"))
("SCurveUp" (_ "S-Curve Up"))
("SCurveDown" (_ "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 (
("Percent" (_ "% of Original"))
("dB" (_ "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 (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
("None" (_ "None Selected"))
("LinearIn" (_ "Linear In"))
("LinearOut" (_ "Linear Out"))
("ExponentialIn" (_ "Exponential In"))
("ExponentialOut" (_ "Exponential Out"))
("LogarithmicIn" (_ "Logarithmic In"))
("LogarithmicOut" (_ "Logarithmic Out"))
("RoundedIn" (_ "Rounded In"))
("RoundedOut" (_ "Rounded Out"))
("CosineIn" (_ "Cosine In"))
("CosineOut" (_ "Cosine Out"))
("SCurveIn" (_ "S-Curve In"))
("SCurveOut" (_ "S-Curve Out"))
) 0
(defun get-input (sig)

13
plug-ins/crossfadetracks.ny
View File

@ -17,9 +17,18 @@ $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 ((_ "Constant Gain") (_ "Constant Power 1") (_ "Constant Power 2") (_ "Custom Curve")) 0
$control type (_ "Fade type") choice (
("ConstantGain" (_ "Constant Gain"))
("ConstantPower1" (_ "Constant Power 1"))
("ConstantPower2" (_ "Constant Power 2"))
("CustomCurve" (_ "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")
("OutIn" (_ "Alternating Out / In"))
("InOut" (_ "Alternating In / Out"))
) 0
(defun crossfade (type dir curve)

16
plug-ins/delay.ny
View File

@ -17,13 +17,23 @@ $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")
("BouncingBall" (_ "Bouncing Ball"))
("ReverseBouncingBall" (_ "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 (
("PitchTempo" (_ "Pitch/Tempo"))
("LQPitchShift" (_ "Low-quality 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,

21
plug-ins/equalabel.ny
View File

@ -19,15 +19,26 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$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" (_ "Number of Labels"))
("Interval" (_ "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
("TextOnly" (_ "None - Text Only"))
("OneBefore" (_ "1 (Before Label)"))
("TwoBefore" (_ "2 (Before Label)"))
("ThreeBefore" (_ "3 (Before Label)"))
("OneAfter" (_ "1 (After Label)"))
("TwoAfter" (_ "2 (After Label)"))
("ThreeAfter" (_ "3 (After Label)"))
) 2
$control firstnum (_ "Begin numbering from") int-text "" 1 0 nil

8
plug-ins/highpass.ny
View File

@ -19,7 +19,13 @@ $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 (
("dB6" (_ "6 dB"))
("dB12" (_ "12 dB"))
("dB24" (_ "24 dB"))
("dB36" (_ "36 dB"))
("dB48" (_ "48 dB"))
) 0
(cond

13
plug-ins/limiter.ny
View File

@ -17,14 +17,23 @@ $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 (
("SoftLimit" (_ "Soft Limit"))
("HardLimit" (_ "Hard Limit"))
;i18n-hint: clipping of wave peaks and troughs, not division of a track into clips
("SoftClip" (_ "Soft Clip"))
("HardClip" (_ "Hard Clip"))
) 0
$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
$control makeup (_ "Apply Make-up Gain") choice (
(_ "No")
(_ "Yes")
) 0
(if (not (boundp 'type))
(setf type 0))

8
plug-ins/lowpass.ny
View File

@ -19,7 +19,13 @@ $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 (
("dB6" (_ "6 dB"))
("dB12" (_ "12 dB"))
("dB24" (_ "24 dB"))
("dB36" (_ "36 dB"))
("dB48" (_ "48 dB"))
) 0
(cond

5
plug-ins/pluck.ny
View File

@ -30,7 +30,10 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
$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

14
plug-ins/rhythmtrack.ny
View File

@ -18,7 +18,11 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control action (_ "Action choice") choice ((_ "Generate track") (_ "Help screen 1") (_ "Help screen 2")) 0
$control action (_ "Action choice") choice (
("Generate" (_ "Generate Track"))
("Help1" (_ "Help Screen 1"))
("Help2" (_ "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
@ -29,7 +33,13 @@ $control click-track-dur (_ "Optional rhythm track duration (minutes seconds)")
$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
("Metronome" (_ "Metronome Tick"))
(_ "Ping")
(_ "Cowbell")
("ResonantNoise" (_ "Resonant Noise"))
("NoiseClick" (_ "Noise Click"))
(_ "Drip")
) 0
;;control q "Noise click resonance - discernable pitch (q)" int "1 - 20" 1 1 20

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

@ -19,13 +19,17 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
$control number (_ "Limit output to first") string (_ "samples") "100"
$control units (_ "Measurement scale") choice ((_ "dB") (_ "Linear")) 0
$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)")
("SampleList" (_ "Sample List (txt)"))
("IndexedList" (_ "Indexed List (txt)"))
("TimeIndexed" (_ "Time Indexed (txt)"))
;i18n-hint: "comma separated values"
("CSV" (_ "Data (csv)"))
("Web" (_ "Web Page (html)"))
) 0
$control header (_ "Include header information") choice (
(_ "None")
@ -35,18 +39,23 @@ $control header (_ "Include header information") choice (
) 2
$control optext (_ "Optional header text") string ""
$control chan (_ "Channel layout for stereo") choice (
(_ "L-R on Same Line")
(_ "Alternate Lines")
(_ "L Channel First")
;i18n-hint: Left and Right
("SameLine" (_ "L-R on Same Line"))
("Alternate" (_ "Alternate Lines"))
;i18n-hint: L for Left
("LFirst" (_ "L Channel First"))
) 0
$control messages (_ "Show messages") choice (
(_ "Yes")
(_ "Errors Only")
("Errors" (_ "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

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

@ -94,7 +94,10 @@ $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 (
("ThrowError" (_ "Throw Error"))
("ReadAsZero" (_ "Read as Zero"))
) 0
;; home directory

8
plug-ins/tremolo.ny
View File

@ -18,7 +18,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 wave (_ "Waveform type") choice ((_ "sine") (_ "triangle") (_ "sawtooth") (_ "inverse sawtooth") (_ "square")) 0
$control wave (_ "Waveform type") choice (
(_ "Sine")
(_ "Triangle")
(_ "Sawtooth")
("InverseSawtooth" (_ "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

17
plug-ins/vocalrediso.ny
View File

@ -20,14 +20,15 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$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
("Remove" (_ "Remove Vocals"))
("Isolate" (_ "Isolate Vocals"))
("IsolateInvert" (_ "Isolate Vocals and Invert"))
("RemoveCenter" (_ "Remove Center"))
("IsolateCenter" (_ "Isolate Center"))
("IsolateCenterInvert" (_ "Isolate Center and Invert"))
("RemoveCenter" (_ "Remove Center Classic: Mono"))
(_ "Analyze")
) 0
$control strength (_ "Strength") real "" 1.0 0.0 50.0
$control low-transition (_ "Low Cut for Vocals (Hz)") real "" 120 1 24000
$control high-transition (_ "High Cut for Vocals (Hz)") real "" 9000 1 24000

8
plug-ins/vocalremover.ny
View File

@ -23,13 +23,13 @@ $copyright (_ "Released under terms of the GNU General Public License version 2"
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
$control action (_ "Remove vocals or view Help") choice (
(_ "Remove vocals")
(_ "Remove Vocals")
(_ "View Help")
) 0
$control band-choice (_ "Removal choice") choice (
(_ "Simple (entire spectrum)")
(_ "Remove frequency band")
(_ "Retain frequency band")
("Simple" (_ "Simple (Entire Spectrum)"))
("Remove" (_ "Remove Frequency Band"))
("Retain" (_ "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

5
plug-ins/vocoder.ny
View File

@ -21,7 +21,10 @@ $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 (
("BothChannels" (_ "Both Channels"))
("RightOnly" (_ "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