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

Further update from Steve to get length correct.

Browse Source
This commit is contained in:
martynshaw99 2011-12-23 14:38:17 +00:00
parent e1724c8609
commit b0c27e7944
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
plug-ins/clicktrack.ny
View File

@ -225,7 +225,9 @@ Use whole numbers only.~%"))))
(setq amp (if (= accent 1) 0.75 0.5))
(stretch-abs ticklen
;pwl is used to add 5ms fade-in and fade-out of clicks
(mult (pwl 0.005 amp 0.995 amp 1)
(mult
(control-srate-abs *sound-srate*
(pwl 0.005 amp 0.995 amp 1))
(case type
(0 (osc pitch)) ;ping click
(1 (normalize (lowpass2 (noise 1) (step-to-hz pitch) q))) ;noise click
@ -258,7 +260,7 @@ Use whole numbers only.~%"))))
((= action 1)(help1)); display help screen 1
((= action 2)(help2)) ; display help screen 2
(t ;Run Program
(setq len (/ (* 60.0 *sound-srate* sig measures) tempo))
(setq error-msg "") ;initialize error-msg
;convert minutes-seconds string to a list