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