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
27
28
29
30
31
32
33
34
35
36
37
|
; 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)))
|
