home *** CD-ROM | disk | FTP | other *** search
/ Freelog 54 / Freelog054.iso / Solution / Audio / Audacity / Nyquist / nyqmisc.lsp < prev    next >
Encoding:
Lisp/Scheme  |  2002-09-16  |  1.1 KB  |  28 lines
  1. ;; nyqmisc.lsp -- misc functions for nyquist
  2.  
  3. (setf *snd-display-max-samples* 10000)
  4. (setf *snd-display-print-samples* 100)
  5.  
  6.  
  7. ; (snd-display sound) -- describe a sound
  8. (defun snd-display (sound)
  9.   (let (t0 srate len extent dur samples)
  10.     (setf srate (snd-srate sound))
  11.     (setf t0 (snd-t0 sound))
  12.     (setf len (snd-length sound *snd-display-max-samples*))
  13.     (cond ((= len *snd-display-max-samples*)
  14.                  (setf extent (format nil ">~A" (+ t0 (* srate *snd-display-max-samples*))))
  15.            (setf dur (format nil ">~A" (* srate *snd-display-max-samples*))))
  16.           (t
  17.            (setf extent (cadr (snd-extent sound *snd-display-max-samples*)))
  18.            (setf dur (/ (snd-length sound *snd-display-max-samples*) srate))))
  19.     (cond ((> len 100)
  20.            (setf samples (format nil "1st ~A samples" *snd-display-print-samples*))
  21.            (setf nsamples *snd-display-print-samples*))
  22.           (t
  23.            (setf samples (format nil "~A samples" len))
  24.            (setf nsamples len)))
  25.     (format t "~A: srate ~A, t0 ~A, extent ~A, dur ~A, ~A: ~A"
  26.       sound srate t0 extent dur samples (snd-samples sound nsamples))))
  27.  
  28.