mirror of
https://github.com/cookiengineer/audacity
synced 2025-06-17 08:30:06 +02:00
38 lines
963 B
Common Lisp
38 lines
963 B
Common Lisp
; machine.lsp -- machine/system-dependent definitions
|
|
; rs6000
|
|
|
|
(if (not (boundp '*default-sf-format*))
|
|
(setf *default-sf-format* snd-head-none))
|
|
|
|
(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 p6k ()
|
|
(system (format nil
|
|
"/usr/itc/projects/depot/tactus/bin/acpaplay ~A/~A < playparms"
|
|
*default-sf-dir*
|
|
*default-sound-file*)))
|
|
|
|
|
|
(defmacro play (expr)
|
|
`(prog (specs playparms)
|
|
(setf specs (s-save ',expr 1000000000 *default-sound-file*))
|
|
(setf playparms (open "playparms" :direction :output))
|
|
(format playparms "~A~%16~%2~%~A~%" (car specs) (cadr specs))
|
|
(close playparms)
|
|
(p6k)))
|
|
|
|
|