Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2026-01-12 07:35:51 +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

30
plug-ins/crossfadeclips.ny
View File

@@ -1,18 +1,22 @@
;nyquist plugin
;version 4
;type process
;mergeclips 1
;restoresplits 0
$name (_"Crossfade Clips")
;manpage "Crossfade_Clips"
$action (_"Crossfading...")
$author (_"Steve Daulton")
$copyright (_"Released under terms of the GNU General Public License version 2")
$nyquist plugin
$version 4
$type process
$mergeclips 1
$restoresplits 0
$name (_ "Crossfade Clips")
$manpage "Crossfade_Clips"
$action (_ "Crossfading...")
$author (_ "Steve Daulton")
$copyright (_ "Released under terms of the GNU General Public License version 2")
;; crossfadeclips.ny by Steve Daulton Dec 2014.
;; 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
;; Instructions:
;; Place two audio clips into the same track.
@@ -37,8 +41,8 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
;; 2) The selection may not start or end in white-space.
(setf err1 (format nil (_"Error.~%Invalid selection.~%More than 2 audio clips selected.")))
(setf err2 (format nil (_"Error.~%Invalid selection.~%Empty space at start/ end of the selection.")))
(setf err1 (format nil (_ "Error.~%Invalid selection.~%More than 2 audio clips selected.")))
(setf err2 (format nil (_ "Error.~%Invalid selection.~%Empty space at start/ end of the selection.")))
(defun find-ends (T0 T1 clips)
@@ -128,4 +132,4 @@ $copyright (_"Released under terms of the GNU General Public License version 2")
(get '*selection* 'start)
(get '*selection* 'end)
(get '*track* 'clips)))
(format nil (_"Error.~%Crossfade Clips may only be applied to one track.")))
(format nil (_ "Error.~%Crossfade Clips may only be applied to one track.")))