Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-11-27 15:50:10 +01: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

36
plug-ins/crossfadetracks.ny
View File

@@ -1,21 +1,25 @@
;nyquist plug-in
;version 4
;type process
$name (_"Crossfade Tracks")
;manpage "Crossfade_Tracks"
;debugbutton disabled
$action (_"Crossfading...")
;preview selection
$author (_"Steve Daulton")
$copyright (_"Released under terms of the GNU General Public License version 2")
$nyquist plug-in
$version 4
$type process
$name (_ "Crossfade Tracks")
$manpage "Crossfade_Tracks"
$debugbutton disabled
$action (_ "Crossfading...")
$preview selection
$author (_ "Steve Daulton")
$copyright (_ "Released under terms of the GNU General Public License version 2")
;; crossfadetracks.ny by Steve Daulton Nov 2014 / Sep 2015
;; 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
;; 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 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)
@@ -72,5 +76,5 @@ audio clip, fade in, otherwise fade out."
(if (< in-dist out-dist) 'in 'out)))
(if (< (length (get '*selection* 'tracks)) 2)
(format nil (_"Error.~%Select 2 (or more) tracks to crossfade."))
(format nil (_ "Error.~%Select 2 (or more) tracks to crossfade."))
(crossfade type direction curve))