mirror of
https://github.com/cookiengineer/audacity
synced 2025-06-21 06:40:08 +02:00
34 lines
745 B
Common Lisp
34 lines
745 B
Common Lisp
; machine.lsp -- machine/system-dependent definitions
|
|
; sparc
|
|
|
|
(setf *default-sound-srate* 8192)
|
|
|
|
(if (not (boundp '*default-sf-format*))
|
|
(setf *default-sf-format* snd-head-NeXT))
|
|
|
|
(if (not (boundp '*default-sound-file*))
|
|
(compute-default-sound-file))
|
|
|
|
(if (not (boundp '*default-sf-dir*))
|
|
(setf *default-sf-dir* "/tmp"))
|
|
|
|
(if (not (boundp '*default-sf-mode*))
|
|
(setf *default-sf-mode* snd-mode-pcm))
|
|
|
|
(if (not (boundp '*default-sf-bits*))
|
|
(setf *default-sf-bits* 16))
|
|
|
|
; local definition for play
|
|
|
|
(defun r ()
|
|
(system (format nil
|
|
"play ~A"
|
|
*default-sound-file*)))
|
|
|
|
(defmacro play (expr)
|
|
`(prog (specs)
|
|
(setf specs (s-save ,expr NY:ALL *default-sound-file*))
|
|
(r)))
|
|
|
|
|