16 lines
384 B
Common Lisp
16 lines
384 B
Common Lisp
;nyquist plug-in
|
|
;version 4
|
|
;type process
|
|
;name "Apply Window"
|
|
;action "Windowing..."
|
|
;author "dm"
|
|
|
|
(defun lump (width)
|
|
(lfo (/ 0.5 (get-duration 1) width) width))
|
|
|
|
(setq index (float (get '*TRACK* 'INDEX)))
|
|
(setq tracks (float (length (get '*SELECTION* 'TRACKS))))
|
|
(setq start-time (/ (- index 1.0) tracks))
|
|
(mult *TRACK*
|
|
(seq (s-rest start-time)
|
|
(cue (lump (/ 2.0 tracks))))) |