mirror of
https://github.com/cookiengineer/audacity
synced 2025-11-04 08:04:06 +01:00
a06e561cb7
For shipped plug-ins, the version number is the same as the Audacity release version when the plug-in was last modified.
141 lines
5.1 KiB
Common Lisp
141 lines
5.1 KiB
Common Lisp
$nyquist plug-in
|
|
$version 4
|
|
$type process
|
|
$preview linear
|
|
$name (_ "Vocal Remover")
|
|
$manpage "Vocal_Remover"
|
|
$action (_ "Removing center-panned audio...")
|
|
$author (_ "Steve Daulton")
|
|
$release 2.3.0
|
|
$copyright (_ "Released under terms of the GNU General Public License version 2")
|
|
|
|
;; This version of vocalremover.ny by Steve Daulton June 2013.
|
|
;;
|
|
;; based on Center pan Remover by David R. Sky November 12, 2004
|
|
;; Modified by Gale Andrews January 2008 to make full spectrum removal
|
|
;; the default, restore a single Help screen and restore error checking.
|
|
;; Thanks to David Hostetler for notes in his own vocal remover plug-in,
|
|
;; http://www.freelists.org/archives/audacity4blind/06-2006/msg00049.html
|
|
|
|
;; Released under terms of the GNU General Public License version 2:
|
|
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
|
|
;;
|
|
;; For information about writing and modifying Nyquist plug-ins:
|
|
;; https://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
|
|
|
|
$control action (_ "Remove vocals or view Help") choice (
|
|
(_ "Remove Vocals")
|
|
(_ "View Help")
|
|
) 0
|
|
$control band-choice (_ "Removal choice") choice (
|
|
("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
|
|
|
|
|
|
(defun help ()
|
|
(let ((msg (format nil
|
|
(_ "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
|
|
and right). Vocals may be mixed this way. Inverting one
|
|
channel then panning both to center cancels out any audio
|
|
which was originally center-panned, making it inaudible.
|
|
This can remove some parts of the audio you may want to
|
|
keep, such as drums, which are also often mixed to center.
|
|
If the vocals and other centered parts differ in pitch,
|
|
this can be solved by removing only selected frequencies.~%
|
|
Vocal Remover thus has three choices of removal method.
|
|
'Simple' inverts the entire frequency spectrum of one
|
|
channel. This may remove too much music if other parts of
|
|
the audio are centered as well as the vocals. In that case,
|
|
try the other choices. If the vocals are at a different
|
|
pitch than the other audio (such as a high female voice),
|
|
try 'Remove frequency band'. This only removes frequencies
|
|
between a lower and upper limit which you can enter in the
|
|
'Frequency band...' boxes. Experiment by entering what
|
|
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."))))
|
|
(format t "~a" msg) ;print to debug (coppying supported on all platforms)
|
|
msg)) ;return message
|
|
|
|
|
|
(defun check-stereo ()
|
|
(when (soundp *track*)
|
|
(throw 'err (format nil
|
|
(_ "~%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.~%")))))
|
|
|
|
(defmacro validate (Hz)
|
|
;; Filters become unstable when very close to 0 Hz or
|
|
;; to Nyquist frequency, so return NIL to disable.
|
|
`(if (or (< ,Hz 1)(> ,hz (- (/ *sound-srate* 2) 1)))
|
|
(setf ,Hz nil)))
|
|
|
|
;;; Ensure frequency range is valid
|
|
(defun check-range ()
|
|
;; Ensure min < max
|
|
(when (< high-range low-range)
|
|
(let ((temp low-range))
|
|
(setf low-range high-range)
|
|
(setf high-range temp)))
|
|
(validate low-range)
|
|
(validate high-range))
|
|
|
|
(defun bandpass (sig low high)
|
|
(cond
|
|
((and low high) ;bandpass
|
|
(lowpass8
|
|
(highpass8 sig low)
|
|
high))
|
|
(low (highpass8 sig low))
|
|
(high (lowpass8 sig high))
|
|
(t sig)))
|
|
|
|
(defun bandstop (sig low high)
|
|
(if (and low high (< (/ (- high low) low) 0.1))
|
|
(format t (_ "Warning:~%~
|
|
Selected band-stop filter is~%~
|
|
~a Hz to ~a Hz.~%~
|
|
A very narrow stop-band filter may have~%~
|
|
unexpected results.~%~%")
|
|
low high))
|
|
(let ((low-sig (if low (lowpass8 sig low)(s-rest 1))))
|
|
(sum
|
|
low-sig
|
|
(if high (highpass8 (diff sig low-sig) high)(s-rest 1)))))
|
|
|
|
(defun CentrePanRemove ()
|
|
(check-stereo)
|
|
(check-range)
|
|
(cond
|
|
((= band-choice 1) ; remove frequencies inside range
|
|
(sum (aref *track* 0)
|
|
(mult -1 (aref *track* 1))
|
|
(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."))
|
|
nil)
|
|
((= band-choice 2) ; remove frequencies inside range
|
|
(sum (aref *track* 0)
|
|
(mult -1 (aref *track* 1))
|
|
(bandpass (aref *track* 1) low-range high-range)))
|
|
(t ; invert and add right to left channel
|
|
(sum (aref *track* 0)
|
|
(mult -1 (aref *track* 1))))))
|
|
|
|
|
|
(if (= action 1)
|
|
(help)
|
|
(catch 'err (CentrePanRemove)))
|