;nyquist plug-in
;version 1
;type process
;name "Schneiden in Minuten..."
;action "Schneiden in Minuten..."
;control minuten "Minuten" int "" 5 1 10

(setf sekunden (/ len *sound-srate*))
(setf intervall (* 60 minuten))
(do ((dummy 0.0) (liste nil)) ((> dummy sekunden) liste)
  (setf liste (cons (list dummy (format nil "~s" (/ dummy 60))) liste))
  (setf dummy (+ dummy intervall)))