Path: utzoo!attcan!uunet!cbmvax!bpa!rutgers!mailrus!wasatch!sunset.utah.edu!u-jmolse
From: u-jmolse%sunset.utah.edu@wasatch.UUCP (John M. Olsen)
Newsgroups: comp.sys.amiga
Subject: Re: 1.4 Hopes and Dreams
Message-ID: <1376@wasatch.UUCP>
Date: 20 Mar 89 02:58:39 GMT
References: <9526@orstcs.CS.ORST.EDU>
Sender: news@wasatch.UUCP
Reply-To: u-jmolse%sunset.utah.edu.UUCP@wasatch.UUCP (John M. Olsen)
Distribution: na
Organization: University of Utah, Computer Science Dept.
Lines: 38

In article <9526@orstcs.CS.ORST.EDU> richarr@nikola.UUCP (Robert Steven Richardson) writes:
>A system beep() function.  Any program calls this function, and all it
>does is play an IFF sample file stored in SYS:s/beep-sample.

>The volume of the beep could be adjusted in preferences, as well as   
>the default filename.  To conserve space on the workbench disk, the
>"factory shipped sample" could be a simple sawtooth wave of a short
>duration.  An ambitious user could change the beep-sample file with
>whatever they want to customize the machine.  This can already be done,
>by the way, on the MacInTrash.  So why can't we?

>Thanks,
>Bob Richardson
>richarr@nikola.cs.orst.edu

This can be done quite easily at the cost of replacing the DisplayBeep()
function by replacing the pointer with one to your own sound routine.
(What was the name of that function to replace system stuff?)

You could even go so far as to use the screen pointer passed in, read the
title for that screen and use the Narrator.device to tell you which screen
got the beep message. :^)  "VEE TEE ONE ZERO ZERO SPAM SPAM" = mail arriving.

Since there's only the one parameter, you would have to make the volume and
sound file name be startup options, or reconfigurable like DMouse.
You would have to check to see if all of the sound channels are already
allocated, make the code reentrant, and all that other standard stuff.

Does anyone out there familiar with sound files and self-detaching code
wanna bless us with this one?  If you know the right things, it sounds like
about a 30 minute project.  (It would take weeks of research for me).

Better yet, has anyone already done this?

/\/\ /|  |    /||| /\|       | John M. Olsen, 1547 Jamestown Drive  /\/\
\/\/ \|()|\|\_ |||.\/|/)@|\_ | Salt Lake City, UT  84121-2051       \/\/
/\/\  |  u-jmolse%ug@cs.utah.edu or ...!utah-cs!utah-ug!u-jmolse    /\/\
\/\/             "A full mailbox is a happy mailbox"                \/\/