mirror of
https://github.com/cookiengineer/audacity
synced 2025-06-19 09:30:06 +02:00
108 lines
3.0 KiB
Common Lisp
108 lines
3.0 KiB
Common Lisp
; system.lsp -- machine/system-dependent definitions
|
|
; Macintosh
|
|
|
|
(setf ny:bigendianp t)
|
|
|
|
;; note that *default-sf-format* is used below by
|
|
;; compute-default-sound-file
|
|
(if (not (boundp '*default-sf-format*))
|
|
(setf *default-sf-format* snd-head-AIFF))
|
|
|
|
;; note that compute-default-sound-file uses *default-sf-format*,
|
|
;; so be sure to set *default-sf-format* first (this was just done)
|
|
(if (not (boundp '*default-sound-file*))
|
|
(compute-default-sound-file))
|
|
|
|
(if (not (boundp '*default-sf-dir*))
|
|
(setf *default-sf-dir* ""))
|
|
|
|
(if (not (boundp '*default-sf-mode*))
|
|
(setf *default-sf-mode* snd-mode-pcm))
|
|
|
|
(if (not (boundp '*default-sf-bits*))
|
|
(setf *default-sf-bits* 16))
|
|
|
|
(if (not (boundp '*default-plot-file*))
|
|
(setf *default-plot-file* "points.dat"))
|
|
|
|
; turn off switch to play sound as it is computed
|
|
(setf *soundenable* T)
|
|
|
|
; local definition for play
|
|
(defmacro play (expr)
|
|
`(s-save-autonorm ,expr NY:ALL *default-sound-file* :play *soundenable*))
|
|
|
|
(defun r ()
|
|
(s-save (s-read *default-sound-file*) NY:ALL "" :play t)
|
|
)
|
|
|
|
; PLAY-FILE -- play a file
|
|
(defun play-file (name)
|
|
(s-save (s-read name) NY:ALL "" :play t))
|
|
|
|
; FULL-NAME-P -- test if file name is a full path or relative path
|
|
;
|
|
; (otherwise the *default-sf-dir* will be prepended
|
|
;
|
|
(defun full-name-p (filename)
|
|
(eq (char filename 0) #\:))
|
|
|
|
(setf *file-separator* #\:)
|
|
|
|
; save the standard function to write points to a file
|
|
;
|
|
;(setfn s-plot-points s-plot)
|
|
|
|
(defun array-max-abs (points)
|
|
(let ((m 0.0))
|
|
(dotimes (i (length points))
|
|
(setf m (max m (abs (aref points i)))))
|
|
m))
|
|
|
|
(setf graph-width 800)
|
|
(setf graph-height 220)
|
|
|
|
|
|
(defun s-plot (snd &optional (n 800))
|
|
(show-graphics)
|
|
(clear-graphics)
|
|
(cond ((soundp snd)
|
|
(s-plot-2 snd n (/ graph-height 2) graph-height nil))
|
|
(t
|
|
(let ((gh (/ graph-height (length snd)))
|
|
hs)
|
|
(dotimes (i (length snd))
|
|
(setf hs (s-plot-2 (aref snd i) n (+ (/ gh 2) (* i gh)) gh hs)))))))
|
|
|
|
|
|
(defun s-plot-2 (snd n y-offset graph-height horizontal-scale)
|
|
(prog ((points (snd-samples snd n))
|
|
maxpoint horizontal-scale vertical-scale)
|
|
(setf maxpoint (array-max-abs points))
|
|
(moveto 0 y-offset)
|
|
(lineto graph-width y-offset)
|
|
(moveto 0 y-offset)
|
|
(cond ((null horizontal-scale)
|
|
(setf horizontal-scale (/ (float graph-width) (length points)))))
|
|
(setf vertical-scale (- (/ (float graph-height) 2 maxpoint)))
|
|
(dotimes (i (length points))
|
|
(lineto (truncate (* horizontal-scale i))
|
|
(+ y-offset (truncate (* vertical-scale (aref points i))))))
|
|
(format t "X Axis: ~A to ~A (seconds)\n" (snd-t0 snd) (/ (length points) (snd-srate snd)))
|
|
(format t "Y Axis: ~A to ~A\n" (- maxpoint) maxpoint)
|
|
(format t "~A samples plotted.\n" (length points))
|
|
(return horizontal-scale)
|
|
))
|
|
|
|
|
|
|
|
|
|
; S-EDIT - run the audio editor on a sound
|
|
;
|
|
;(defmacro s-edit (&optional expr)
|
|
; `(prog ()
|
|
; (if ,expr (s-save ,expr 1000000000 *default-sound-file*))
|
|
; (system (format nil "audio_editor ~A &"
|
|
; (soundfilename *default-sound-file*)))))
|
|
|