audacia/audacia
1
0
Fork 0
Code Issues Pull Requests Projects 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
Show Stats 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:
;; 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))

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:
;; 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

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:
;; 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)))

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:
;; 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"

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:
;; 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)

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:
;; 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))

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.
;; 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))

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:
;; 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)

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:
;; 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,

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.
;; 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 ()

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

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:
;; 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))

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

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 .
;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.")

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:
;; 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]

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 .
;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))

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:
;; 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)

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:
;; 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

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

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:
;; 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))

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

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:
;; 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 ()

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:
;; 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: