Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-11 17:13:37 +02:00
Code Issues Releases Wiki Activity

Update Nyquist plug-in headers

Browse Source 
Mostly consistency updates, plus a couple of minor fixes.
Line breaks in translated control text strings do not work, so have
been removed.
Obsolete ";categories" commands removed, and ";info" commands replaced
with standard Lisp comments.
This commit is contained in:
Steve Daulton
2018-03-21 22:49:35 +00:00
parent 2ccc8eec9b
commit 975e95abad
26 changed files with 627 additions and 559 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
plug-ins/StudioFadeOut.ny
View File

@@ -1,24 +1,25 @@
;nyquist plug-in
;version 1
;type process
;categories "http://lv2plug.in/ns/lv2core#MixerPlugin"
$name (_"Studio Fade Out")
;manpage "Fades#studio_fadeout"
$action (_"Applying Fade...")
$author (_"Steve Daulton")
$copyright (_"Released under terms of the GNU General Public License version 2")
$nyquist plug-in
$version 4
$type process
$name (_ "Studio Fade Out")
$manpage "Fades#studio_fadeout"
$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.
;; 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
;;; sweeping low pass filter
(defun filter (sig dur)
(abs-env
@@ -39,7 +40,7 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
(let ((dur (get-duration 1)))
(cond
((< len 3) (format nil (_"Selection too short.~%It must be more than 2 samples.")))
((< dur 0.2) (mult s (r-cos dur)))
(t (mult (filter s dur)(r-cos dur)))))
((< len 3) (format nil (_ "Selection too short.~%It must be more than 2 samples.")))
((< dur 0.2) (mult *track* (r-cos dur)))
(t (mult (filter *track* dur)(r-cos dur)))))