Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2026-01-12 07:35:51 +01:00
Code Issues Releases Wiki Activity

Rewrite prompts in ;control lines

Browse Source
This commit is contained in:
Paul Licameli
2018-03-01 14:44:39 -05:00
parent cc455fac16
commit 4018e3b87b
23 changed files with 99 additions and 99 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
plug-ins/SilenceMarker.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: ;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;control sil-lev "Treat audio below this level as silence [ -dB]" real "" 26 0 100 $control sil-lev (_"Treat audio below this level as silence [ -dB]") real "" 26 0 100
;control sil-dur "Minimum duration of silence [seconds]" real "" 1.0 0.1 5.0 $control sil-dur (_"Minimum duration of silence [seconds]") real "" 1.0 0.1 5.0
;control labelbeforedur "Label placement [seconds before silence ends]" real "" 0.3 0.0 1.0 $control labelbeforedur (_"Label placement [seconds before silence ends]") real "" 0.3 0.0 1.0
;Create a function to make the sum the two channels if they are stereo ;Create a function to make the sum the two channels if they are stereo
(defun mono-s (s-in) (if (arrayp s-in) (snd-add (aref s-in 0) (aref s-in 1)) (defun mono-s (s-in) (if (arrayp s-in) (snd-add (aref s-in 0) (aref s-in 1))

10
plug-ins/SoundFinder.ny
View File

@@ -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: ;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;control sil-lev "Treat audio below this level as silence [ -dB]" real "" 26 0 100 $control sil-lev (_"Treat audio below this level as silence [ -dB]") real "" 26 0 100
;control sil-dur "Minimum duration of silence between sounds [seconds]" real "" 1.0 0.1 5.0 $control sil-dur (_"Minimum duration of silence between sounds [seconds]") real "" 1.0 0.1 5.0
;control labelbeforedur "Label starting point [seconds before sound starts]" real "" 0.1 0.0 1.0 $control labelbeforedur (_"Label starting point [seconds before sound starts]") real "" 0.1 0.0 1.0
;control labelafterdur "Label ending point [seconds after sound ends]" real "" 0.1 0.0 1.0 $control labelafterdur (_"Label ending point [seconds after sound ends]") real "" 0.1 0.0 1.0
;control finallabel "Add a label at the end of the track? [No=0, Yes=1]" int "" 0 0 1 $control finallabel (_"Add a label at the end of the track? [No=0, Yes=1]") int "" 0 0 1
;30Dec09: couple of changes made to default control values by Gale Andrews ;30Dec09: couple of changes made to default control values by Gale Andrews

2
plug-ins/SpectralEditParametricEQ.ny
View File

@@ -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: ;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;control control-gain "Gain (dB)" real "" 0 -24 24 $control control-gain (_"Gain (dB)") real "" 0 -24 24
(defun wet (sig gain fc bw) (defun wet (sig gain fc bw)
(eq-band sig fc gain (/ bw 2))) (eq-band sig fc gain (/ bw 2)))

2
plug-ins/SpectralEditShelves.ny
View File

@@ -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: ;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;control control-gain "Gain (dB)" real "" 0 -24 24 $control control-gain (_"Gain (dB)") real "" 0 -24 24
(defmacro validate (hz) (defmacro validate (hz)
"If frequency is above Nyquist, don't use it" "If frequency is above Nyquist, don't use it"

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

@@ -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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;control type "Fade Type" choice "Fade Up,Fade Down,S-Curve Up,S-Curve Down" 0 $control type (_"Fade Type") choice "Fade Up,Fade Down,S-Curve Up,S-Curve Down" 0
;control curve "Mid-fade Adjust (%)" real "" 0 -100 100 $control curve (_"Mid-fade Adjust (%)") real "" 0 -100 100
;control units "Start/End as" choice "% of Original,dB Gain" 0 $control units (_"Start/End as") choice "% of Original,dB Gain" 0
;control gain0 "Start (or end)" float-text "" 0 nil nil $control gain0 (_"Start (or end)") float-text "" 0 nil nil
;control gain1 "End (or start)" float-text "" 100 nil nil $control gain1 (_"End (or start)") float-text "" 100 nil nil
;control preset " Handy Presets\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) (defun get-input (sig)

2
plug-ins/beat.ny
View File

@@ -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: ;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;control thresval "Threshold Percentage" int "" 65 5 100 $control thresval (_"Threshold Percentage") int "" 65 5 100
(setf s1 (if (arrayp s) (snd-add (aref s 0) (aref s 1)) s)) (setf s1 (if (arrayp s) (snd-add (aref s 0) (aref s 1)) s))
(defun signal () (force-srate 1000 (lp (snd-follow (lp s1 50) 0.001 0.01 0.1 512) 10))) (defun signal () (force-srate 1000 (lp (snd-follow (lp s1 50) 0.001 0.01 0.1 512) 10)))
(setq max (peak (signal) NY:ALL)) (setq max (peak (signal) NY:ALL))

4
plug-ins/clipfix.ny
View File

@@ -16,8 +16,8 @@ $copyright (_"Licensing confirmed under terms of the GNU General Public License
;; 3. Do a cubic spline interpolation. ;; 3. Do a cubic spline interpolation.
;; 4. Go to next region ;; 4. Go to next region
;control threshold "Threshold of Clipping (%)" float "" 95 0 100 $control threshold (_"Threshold of Clipping (%)") float "" 95 0 100
;control gain "Reduce amplitude to allow for restored peaks (dB)" float "" -9 -30 0 $control gain (_"Reduce amplitude to allow for restored peaks (dB)") float "" -9 -30 0
(setf threshold (/ threshold 100)) (setf threshold (/ threshold 100))
(setf gain (db-to-linear gain)) (setf gain (db-to-linear gain))

6
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: ;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html . ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
;control 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 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) (defun crossfade (type dir curve)

14
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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;control delay-type "Delay type" choice "regular,bouncing ball,reverse bouncing ball" 0 $control delay-type (_"Delay type") choice "regular,bouncing ball,reverse bouncing ball" 0
;control dgain "Delay level per echo (dB)" real "" -6 -30 1 $control dgain (_"Delay level per echo (dB)") real "" -6 -30 1
;control delay "Delay time (seconds)" real "" 0.3 0 5 $control delay (_"Delay time (seconds)") real "" 0.3 0 5
;control pitch-type "Pitch change effect" choice "Pitch/Tempo,LQ Pitch Shift" 0 $control pitch-type (_"Pitch change effect") choice "Pitch/Tempo,LQ Pitch Shift" 0
;control shift "Pitch change per echo (semitones)" real "" 0 -2 2 $control shift (_"Pitch change per echo (semitones)") real "" 0 -2 2
;control number "Number of echoes" int "" 5 1 30 $control number (_"Number of echoes") int "" 5 1 30
;control constrain "Allow duration to change" choice "Yes,No" 0 $control constrain (_"Allow duration to change") choice "Yes,No" 0
;; The default pitch shift effect is a simple resampling, ;; The default pitch shift effect is a simple resampling,

14
plug-ins/equalabel.ny
View File

@@ -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. ;; Alex S.Brown, Dominic Mazzoni, Pierre M.I., Gale Andrews, Steve Daulton.
;; This version by Steve Daulton (http://easyspacepro.com) 2016 ;; This version by Steve Daulton (http://easyspacepro.com) 2016
;control mode "Use 'Number of labels' OR 'Label interval'" choice "Number of labels,Label interval" 0 $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 totalnum (_"Number of labels") int-text "" 10 1 1000
;control interval "Label interval (seconds)" float-text "" 60 0.001 3600 $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 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 $control firstnum (_"Begin numbering from") int-text "" 1 0 nil
(defun make-labels () (defun make-labels ()

4
plug-ins/highpass.ny
View File

@@ -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 . ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
;control frequency "Frequency (Hz)" float-text "" 1000 0 nil $control frequency (_"Frequency (Hz)") float-text "" 1000 0 nil
;control rolloff "Rolloff (dB per octave)" choice " 6 dB,12 dB,24 dB,36 dB,48 dB" 0 $control rolloff (_"Rolloff (dB per octave)") choice " 6 dB,12 dB,24 dB,36 dB,48 dB" 0
(cond (cond

12
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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;control type "Type" choice "Soft Limit,Hard Limit,Soft Clip,Hard Clip" 0 $control type (_"Type") choice "Soft Limit,Hard Limit,Soft Clip,Hard Clip" 0
;control gain-L "Input Gain (dB)\nmono/Left" real "" 0 0 10 $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-R (_"Input Gain (dB)\nRight channel") real "" 0 0 10
;control thresh "Limit to (dB)" real "" -3 -10 0 $control thresh (_"Limit to (dB)") real "" -3 -10 0
;control hold "Hold (ms)" real "" 10 1 50 $control hold (_"Hold (ms)") real "" 10 1 50
;control makeup "Apply Make-up Gain" choice "No,Yes" 0 $control makeup (_"Apply Make-up Gain") choice "No,Yes" 0
(if (not (boundp 'type)) (if (not (boundp 'type))
(setf type 0)) (setf type 0))

4
plug-ins/lowpass.ny
View File

@@ -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 . ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
;control frequency "Frequency (Hz)" float-text "" 1000 0 nil $control frequency (_"Frequency (Hz)") float-text "" 1000 0 nil
;control rolloff "Rolloff (dB per octave)" choice " 6 dB,12 dB,24 dB,36 dB,48 dB" 0 $control rolloff (_"Rolloff (dB per octave)") choice " 6 dB,12 dB,24 dB,36 dB,48 dB" 0
(cond (cond

4
plug-ins/notch.ny
View File

@@ -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 . ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
;control frequency "Frequency (Hz)" float-text "" 60 0 nil $control frequency (_"Frequency (Hz)") float-text "" 60 0 nil
;control q "Q (higher value reduces width)" float-text "" 1 0.1 1000 $control q (_"Q (higher value reduces width)") float-text "" 1 0.1 1000
(cond (cond
((< frequency 0.1) "Frequency must be at least 0.1 Hz.") ((< frequency 0.1) "Frequency must be at least 0.1 Hz.")

6
plug-ins/pluck.ny
View File

@@ -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: ;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html . ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
;control pitch "Pluck MIDI pitch" int "" 60 1 120 $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 $control dur (_"Duration [seconds]") real "" 1 0.1 30
; original pluck.ny modified by David R.Sky October 2007 ; original pluck.ny modified by David R.Sky October 2007
; [vastly simplified later] ; [vastly simplified later]

20
plug-ins/rhythmtrack.ny
View File

@@ -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 . ;; 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 tempo (_"Tempo (beats per minute)") real "30 - 300 beats/minute" 120 30 300
;control timesig "Beats per measure (bar)" int "1 - 20 beats/measure" 4 1 20 $control timesig (_"Beats per measure (bar)") int "1 - 20 beats/measure" 4 1 20
;control swing "Swing amount" float "+/- 1" 0 -1 1 $control swing (_"Swing amount") float "+/- 1" 0 -1 1
;control measures "Number of measures (bars)" int "1 - 1000 bars" 16 1 1000 $control measures (_"Number of measures (bars)") int "1 - 1000 bars" 16 1 1000
;control click-track-dur "Optional rhythm track duration (minutes seconds)" string "Whole numbers only" "" $control click-track-dur (_"Optional rhythm track duration (minutes seconds)") string "Whole numbers only" ""
;;control ticklen "Individual beat duration (milliseconds)" int "1 - 100 ms" 10 1 100 ;;control ticklen "Individual beat duration (milliseconds)" int "1 - 100 ms" 10 1 100
;control offset "Start time offset (seconds)" real "0 - 30 seconds" 0 0 30 $control offset (_"Start time offset (seconds)") real "0 - 30 seconds" 0 0 30
;control click-type "Beat sound" choice "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 ;;control q "Noise click resonance - discernable pitch (q)" int "1 - 20" 1 1 20
;control high "MIDI pitch of strong beat" int "18 - 116" 84 18 116 $control high (_"MIDI pitch of strong beat") int "18 - 116" 84 18 116
;control low "MIDI pitch of weak beat" int "18 - 116" 80 18 116 $control low (_"MIDI pitch of weak beat") int "18 - 116" 80 18 116
;; allow q control to be commented out. ;; allow q control to be commented out.
(if (not (boundp 'q)) (if (not (boundp 'q))

12
plug-ins/rissetdrum.ny
View File

@@ -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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;control freq "Frequency (Hz)" real "" 100 50 2000 $control freq (_"Frequency (Hz)") real "" 100 50 2000
;control decay "Decay (seconds)" real "" 2 0.1 60 $control decay (_"Decay (seconds)") real "" 2 0.1 60
;control cf "Center frequency of noise (Hz)" real "" 500 100 5000 $control cf (_"Center frequency of noise (Hz)") real "" 500 100 5000
;control bw "Width of noise band (Hz)" real "" 400 10 1000 $control bw (_"Width of noise band (Hz)") real "" 400 10 1000
;control noise "Amount of noise in mix (percent)" real "" 25 0 100 $control noise (_"Amount of noise in mix (percent)") real "" 25 0 100
;control gain "Amplitude (0 - 1)" real "" 0.8 0 1 $control gain (_"Amplitude (0 - 1)") real "" 0.8 0 1
(defun sanitise (val minx maxx) (defun sanitise (val minx maxx)

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

@@ -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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;control number "Limit output to first" string "samples" "100" $control 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)" 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 header (_"Include header information") choice "None,Minimal,Standard,All" 2
;control optext "Optional header text" string "" $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 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 messages (_"Show messages") choice "Yes,Errors Only,None" 0
;control filename "File name" string "" "sample-data" $control filename (_"File name") string "" "sample-data"
;control path "Output folder" string "" "Home directory" $control path (_"Output folder") string "" "Home directory"
;control owrite "Allow files to be overwritten" choice "No,Yes" 0 $control owrite (_"Allow files to be overwritten") choice "No,Yes" 0
;; To enable L/R prefix before alternate L/R channels ;; To enable L/R prefix before alternate L/R channels

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

@@ -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 ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;control filename "File name" string "" "sample-data.txt" $control filename (_"File name") string "" "sample-data.txt"
;control path "File location (path to file)" string "" "Home directory" $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. ;; Documentation.

8
plug-ins/tremolo.ny
View File

@@ -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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;control wave "Waveform type" choice "sine,triangle,sawtooth,inverse sawtooth,square" 0 $control wave (_"Waveform type") choice "sine,triangle,sawtooth,inverse sawtooth,square" 0
;control phase "Starting phase (degrees)" int "" 0 -180 180 $control phase (_"Starting phase (degrees)") int "" 0 -180 180
;control wet "Wet level (percent)" int "" 40 1 100 $control wet (_"Wet level (percent)") int "" 40 1 100
;control lfo "Frequency (Hz)" float-text "" 4 0.001 1000 $control lfo (_"Frequency (Hz)") float-text "" 4 0.001 1000
; Convert % to linear ; Convert % to linear
(setq wet (/ wet 200.0)) (setq wet (/ wet 200.0))

8
plug-ins/vocalrediso.ny
View File

@@ -14,12 +14,12 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
;; Plug-in version 1.56, June 2015 ;; Plug-in version 1.56, June 2015
;; Requires Audacity 2.1.1 or later, developed under Audacity 2.1.1 ;; Requires Audacity 2.1.1 or later, developed under Audacity 2.1.1
;; ;;
;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) (setf rotation 0.0)
;;control rotation "Rotation (Degrees)" real "" 0 -180 180 ;;control rotation "Rotation (Degrees)" real "" 0 -180 180
;control strength "Strength" real "" 1.0 0.0 50.0 $control strength (_"Strength") real "" 1.0 0.0 50.0
;control low-transition "Low Cut for Vocals (Hz)" real "" 120 1 24000 $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 high-transition (_"High Cut for Vocals (Hz)") real "" 9000 1 24000
; ;
;preview linear ;preview linear
; ;

8
plug-ins/vocalremover.ny
View File

@@ -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: ;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html ;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;control action "Remove vocals or view Help" choice "Remove vocals,View Help" 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 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 low-range (_"Frequency band from (Hz)") float-text "" 500 0 nil
;control high-range "Frequency band to (Hz)" float-text "" 2000 0 nil $control high-range (_"Frequency band to (Hz)") float-text "" 2000 0 nil
(defun help () (defun help ()

14
plug-ins/vocoder.ny
View File

@@ -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: ;; For information about writing and modifying Nyquist plug-ins:
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference ;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;control dst "Distance: (1 to 120, default = 20)" real "" 20 1 120 $control dst (_"Distance: (1 to 120, default = 20)") real "" 20 1 120
;control mst "Output choice" choice "both channels, right only" 0 $control mst (_"Output choice") choice "both channels, right only" 0
;control bands "Number of vocoder bands" int "" 40 10 240 $control bands (_"Number of vocoder bands") int "" 40 10 240
;control track-vl "Amplitude of original audio (percent)" real "" 100 0 100 $control track-vl (_"Amplitude of original audio (percent)") real "" 100 0 100
;control noise-vl "Amplitude of white noise (percent)" real "" 0 0 100 $control noise-vl (_"Amplitude of white noise (percent)") real "" 0 0 100
;control radar-vl "Amplitude of Radar Needles (percent)" real "" 0 0 100 $control radar-vl (_"Amplitude of Radar Needles (percent)") real "" 0 0 100
;control radar-f "Frequency of Radar Needles (Hz)" real "" 30 1 100 $control radar-f (_"Frequency of Radar Needles (Hz)") real "" 30 1 100
; maybe the code once again has to be changed into _one_ local let-binding ; maybe the code once again has to be changed into _one_ local let-binding
; if you have lots of nyquist "[gc:" messages try this: ; if you have lots of nyquist "[gc:" messages try this: