; machine.lsp -- machine/system-dependent definitions

(set-sound-srate 44100.0)
(set-control-srate 44100.0)

(if (not (boundp '*default-sf-format*))
    (setf *default-sf-format* snd-head-none))

;(if (not (boundp '*default-sf-format*))
;    (setf *default-sf-format* snd-head-Wave))

(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*))	;for uLAW
;    (setf *default-sf-mode* snd-head-mode-ulaw))

(if (not (boundp '*default-sf-mode*))  ;for PCM
    (setf *default-sf-mode* snd-head-mode-pcm))

(if (not (boundp '*default-sf-bits*))
    (setf *default-sf-bits* 16))

; local definition for play

;(defun r ()
;  (system (strcat "cat " *default-sf-dir*  *default-sound-file* " > /dev/dsp")))

;(defun r ()
;  (system (strcat "cat " *default-sf-dir* *default-sound-file* " > /dev/audio")))

(defun r ()
  (system (strcat "/usr/local/sndkit/dsp/vplay/vplay -S -s 44100 -b 16 " *default-sf-dir* *default-sound-file*)))

(defmacro play (expr)
  `(prog (specs)
         (setf specs (s-save ,expr NY:ALL *default-sound-file*))
         (r)))