;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)