/usr/share/audacity/plug-ins/StudioFadeOut.ny is in audacity-data 2.1.2-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | ;nyquist plug-in
;version 1
;type process
;categories "http://lv2plug.in/ns/lv2core#MixerPlugin"
;name "Studio Fade Out"
;action "Applying Fade..."
;author "Steve Daulton"
;copyright "Released under terms of the GNU General Public License version 2"
;; StudioFadeOut.ny by Steve Daulton December 2012.
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html
;;
;; Produce a smooth and musical sounding fade out.
;; Applies a sinusoidal fade out with a progressive low-pass
;; filter from full spectrum at start to 100 Hz at end.
;;
;; For information about writing and modifying Nyquist plug-ins:
;; http://wiki.audacityteam.org/wiki/Nyquist_Plug-ins_Reference
;;; sweeping low pass filter
(defun filter (sig dur)
(abs-env
;; cross-fade the filter
(let* ((nyq-hz (/ *sound-srate* 2))
(f-out (r-cos (min (/ dur 2.0) 0.5)))
(f-in (diff (snd-const 1 0 *sound-srate* dur) f-out)))
(sim
(mult f-out sig)
(mult f-in (lp sig (pwlv nyq-hz dur 100)))))))
;;; raised cosine
(defun r-cos (dur)
(abs-env
(mult 0.5
(sum 1
(osc (hz-to-step (/ (* dur 2))) dur *table* 90)))))
(let ((dur (get-duration 1)))
(cond
((< len 3) "Selection too short.\nIt must be more than 2 samples.")
((< dur 0.2) (mult s (r-cos dur)))
(t (mult (filter s dur)(r-cos dur)))))
|