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

37
plug-ins/pluck.ny
View File

@@ -1,22 +1,20 @@
;nyquist plug-in
;version 4
;type generate
;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin"
$name (_"Pluck")
;manpage "Pluck"
;debugbutton false
;preview linear
$action (_"Generating pluck sound...")
$info (_"MIDI values for C notes: 36, 48, 60 [middle C], 72, 84, 96.")
$author (_"David R.Sky")
$copyright (_"Released under terms of the GNU General Public License version 2")
$nyquist plug-in
$version 4
$type generate
$name (_ "Pluck")
$manpage "Pluck"
$debugbutton false
$preview linear
$action (_ "Generating pluck sound...")
$info (_ "MIDI values for C notes: 36, 48, 60 [middle C], 72, 84, 96.")
$author (_ "David R.Sky")
$copyright (_ "Released under terms of the GNU General Public License version 2")
;; Released under terms of the GNU General Public License version 2:
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
$control pitch (_"Pluck MIDI pitch") int "" 60 1 120
$control fade (_"Fade-out type") choice ((_"abrupt") (_"gradual")) 0
$control dur (_"Duration [seconds]") real "" 1 0.1 30
;; 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
; original pluck.ny modified by David R.Sky October 2007
; [vastly simplified later]
@@ -31,6 +29,11 @@ $control dur (_"Duration [seconds]") real "" 1 0.1 30
; Updated to v4 by Steve Daulton May 2015
$control pitch (_ "Pluck MIDI pitch") int "" 60 1 120
$control fade (_ "Fade-out type") choice ((_ "abrupt") (_ "gradual")) 0
$control dur (_ "Duration [seconds]") real "" 1 0.1 30
; set final-amp for abrupt or gradual fade
(setf final-amp (if (= fade 1) 0.001 0.000001))