1
0
mirror of https://github.com/cookiengineer/audacity synced 2025-10-11 00:53:46 +02:00

Update Nyquist generator plug-ins.

Preview enabled and use Preference setting.
Fixed a minor bugs in pluck.ny
This commit is contained in:
Steve Daulton
2015-05-22 19:06:12 +01:00
parent c0763c3b4b
commit 8a5538dd79
3 changed files with 40 additions and 10 deletions

View File

@@ -1,8 +1,9 @@
;nyquist plug-in
;version 3
;version 4
;type generate
;categories "http://lv2plug.in/ns/lv2core#GeneratorPlugin"
;name "Click Track..."
;preview linear
;action "Generating Click Track..."
;info "For help, select one of two help screens in 'Action choice' below."
;author "Dominic Mazzoni"
@@ -13,8 +14,8 @@
;; http://www.gnu.org/licenses/old-licenses/gpl-2.0.html .
;; original clicktrack.ny by Dominic Mazzoni,
;; modified by David R. Sky and Steve Daulton.
;; Minimum Audacity version: 1.3.4
;;
;; Updated to v4 by Steve Daulton May 2015
;; bug fixes and restructured by Steve Daulton Sept 2011.
;; string input verification added by Steve Daulton, 2009.
;; added click pitch [user request] and sound types fields September 2007 (D.R.Sky).
@@ -286,6 +287,12 @@ Use whole numbers only.~%"))))
(if m-s (setq measures
(/ (m-s-to-seconds m-s)(* sig beatlen))))
;if previewing, restrict number of measures
(let ((preview (/ (get '*project* 'preview-duration)
(* sig beatlen))))
(if (not (get '*track* 'view)) ;NIL if preview
(setq measures (min preview measures))))
;round up number of measures
(setq measures (round-up measures))