blob: 413749b4459e7d92fe3b0091f48d9a04c7432ac9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
;(setf *default-plot-file* "/afs/cs/usr/rbd/tmp/points.dat")
;(setf *default-sf-dir* "/afs/cs.cmu.edu/user/rbd/tmp/")
;(setf *default-sound-file* "test")
(setf *default-plot-file* "/space/rbd/tmp/points.dat")
(setf *default-sf-dir* "/space/rbd/tmp/")
(setf *default-sound-file* "rbd-temp.snd")
(set-sound-srate 22050)
(set-control-srate 2205)
(defun ask (string default)
(let (inp)
(format t "~A: [~A]" string default)
(setf inp (read-line))
(cond ((equal inp "") default)
(t (intern inp)))))
(if (ask "turn off audio?" t)
(defun r () t) ; turn off audio output
(print "!!!AUDIO OUTPUT TURNED OFF!!!"))
|