/usr/share/audacity/nyquist/nyqmisc.lsp is in audacity-data 2.0.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ;; nyqmisc.lsp -- misc functions for nyquist
(init-global *snd-display-max-samples* 10000)
(init-global *snd-display-print-samples* 100)
; (snd-display sound) -- describe a sound
(defun snd-display (sound)
(let (t0 srate len extent dur samples)
(setf srate (snd-srate sound))
(setf t0 (snd-t0 sound))
(setf len (snd-length sound *snd-display-max-samples*))
(cond ((= len *snd-display-max-samples*)
(setf extent (format nil ">~A" (+ t0 (* srate *snd-display-max-samples*))))
(setf dur (format nil ">~A" (* srate *snd-display-max-samples*))))
(t
(setf extent (cadr (snd-extent sound *snd-display-max-samples*)))
(setf dur (/ (snd-length sound *snd-display-max-samples*) srate))))
(cond ((> len 100)
(setf samples (format nil "1st ~A samples" *snd-display-print-samples*))
(setf nsamples *snd-display-print-samples*))
(t
(setf samples (format nil "~A samples" len))
(setf nsamples len)))
(format t "~A: srate ~A, t0 ~A, extent ~A, dur ~A, ~A: ~A"
sound srate t0 extent dur samples (snd-samples sound nsamples))))
|