Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-14 15:20:29 +02:00
Code Issues Releases Wiki Activity

Rewrite choice controls

Browse Source
This commit is contained in:
Paul Licameli 2018-03-01 17:47:13 -05:00
parent 4018e3b87b
commit 8709e9735a
15 changed files with 79 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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)

4
plug-ins/crossfadetracks.ny
View File

@ -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)

6
plug-ins/delay.ny
View File

@ -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,

10
plug-ins/equalabel.ny
View File

@ -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

2
plug-ins/highpass.ny
View File

@ -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

4
plug-ins/limiter.ny
View File

@ -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))

2
plug-ins/lowpass.ny
View File

@ -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

2
plug-ins/pluck.ny
View File

@ -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

6
plug-ins/rhythmtrack.ny
View File

@ -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

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

@ -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

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

@ -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.

2
plug-ins/tremolo.ny
View File

@ -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

11
plug-ins/vocalrediso.ny
View File

@ -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

11
plug-ins/vocalremover.ny
View File

@ -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

2
plug-ins/vocoder.ny
View File

@ -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