Andy Piper <andyp(a)parallax.co.uk> writes:
At 08:11 AM 5/24/98 -0700, Darryl Okahata wrote:
> "Kirill M. Katsnelson" <kkm(a)kis.ru> wrote:
>
>> If it will prove a real problem, I could try to play an .au
>> programatically. I'm not too anxious to do this; I would make
>> this as a last resort thing, ok?
>
> Well, I'd like sound, too. If no one else will do it, I could try
> to add .wav sound support by Wednesday's deadline, and translate the .au
> files to .wav. However, it might be best if someone else did it, as I'm
> still a Windows programming novice.
Uh? Basic wav support is already in there. The filenames may need to
be
tweaked for the native version. It works under cygwin.
Andy, where did you drop the converted .wav files? I guess I'll be
creating two packages sounds-au and sounds-wav.
sound.el remains broken or am I missing something?
broken ==
(defcustom sound-load-alist
'((load-sound-file "drum-beep.au" 'drum)
(load-sound-file "quiet-beep.au" 'quiet)
(load-sound-file "bass-snap.au" 'bass 80)
(load-sound-file "whip.au" 'whip 70)
(load-sound-file "cuckoo.au" 'cuckoo)
(load-sound-file "yeep.au" 'yeep)
(load-sound-file "hype.au" 'hype 100)
)
...
(defcustom default-sound-directory (file-name-as-directory
(concat data-directory "sounds"))
...
(defcustom default-sound-directory-list ( list default-sound-directory )
"List of directories which to search for sound files"
:group 'sound
:type '(repeat directory )
)