fade-io.ny

;nyquist plug-in
;version 2
;type process
;name "Fade In and Out..."
;action "Fading in and out..."
;info "Fade In and Out by David R. Sky"

;control in "Fade in time" real "seconds" 1.00 0.00 30.00
;control out "Fade out time" real "seconds" 1.00 0.00 30.00

;; Fade In and Out by David R. Sky, October 22, 2004

; set duration of selection in seconds
(setf dur (/ len *sound-srate*)) 

; set in and out as percentages of duration
(setf in (/ in dur))
(setf out (/ out dur))

; set percentage of dur that has gone by for start of fade out
(setf out (- 1.0 out))

; PWL treats time as not seconds, but percentages of selection.

(mult (pwl in 1 out 1 1 0) s)