audacia
/
audacia
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix bug 2138 

Control envelope should be at sound sample rate, even for fade-out.
This commit is contained in:
Steve Daulton 2019-06-24 21:06:08 +01:00
parent 7485d88bcd
commit 7787ea1fa9
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
plug-ins/crossfadetracks.ny
View File

@ -38,6 +38,8 @@ $control direction (_ "Fade direction") choice (
(0 (equal (guessdirection) 'OUT)) ; auto
(1 (oddp (get '*track* 'index))) ; fade out odd
(T (evenp (get '*track* 'index))))) ; fade out even
; Set control rate to sound rate to ensure length is exact.
(setf *control-srate* *sound-srate*)
(mult *track*
(cond
(fade-out
@ -47,9 +49,6 @@ $control direction (_ "Fade direction") choice (
(2 (s-sqrt (pwlv 1 1 0)))
(T (custom curve 0))))
(T ; else fade in.
; Control envelope sample rate must match sound so that lengths
; match exactly, otherwise we get a click at the end of the fade.
(setf *control-srate* *sound-srate*)
(case type
(0 (pwlv 0 1 1))
(1 (osc (hz-to-step (/ (get-duration 4))) 1))