Re: [PLUG] speaker beep question

[Time <time@clockbot.net>]

On Thu, Feb 14, 2002 at 07:34:23PM -0500, Bill Jonas wrote:
> Date: Thu, 14 Feb 2002 19:34:23 -0500
> From: Bill Jonas <bill@billjonas.com>
> To: plug@lists.phillylinux.org
> Subject: Re: [PLUG] speaker beep question
> Mail-Followup-To: plug@lists.phillylinux.org
> 
> On Fri, Feb 01, 2002 at 10:45:11AM -0500, epike@isinet.com wrote:
> > Anybody knows how to produce other beeping sounds from the PC speaker
> > from the command line or Perl?
> 
> There's a new Debian package this week, beep.  Looks like it'll do what
> you want.
> 
> The package information page is at
> http://packages.debian.org/unstable/sound/beep.html and you can download
> source there, too.
> 
> -- 
> Bill Jonas    *    bill@billjonas.com    *    http://www.billjonas.com/
> 
> Developer/SysAdmin for hire!   See http://www.billjonas.com/resume.html



I know... I know... I need to allocate more frikin 'time' to the list
(pun intended) so... sorry about this late as all hell reply/post.

Bellow is a TCL script written by one of my co-workers that caught my
attention a while back. To run, do 'wish winona.tcl' within X.


# Winona by Robert Perusse
# 2/19/1999
#!/usr/bin/wish

proc Sing { tune } {
   set duration 100
   foreach note $tune {
      switch -- $note {
         C { set freq 256; set volume 67 }
         c { set freq 256; set volume 33 }
         Db { set freq 273; set volume 67 }
         db { set freq 273; set volume 33 }
         D { set freq 288; set volume 67 }
         d { set freq 288; set volume 33 }
         Eb { set freq 307; set volume 67 }
         eb { set freq 307; set volume 33 }
         E { set freq 320; set volume 67 }
         e { set freq 320; set volume 33 }
         F { set freq 341; set volume 67 }
         f { set freq 341; set volume 33 }
         G { set freq 384; set volume 67 }
         g { set freq 384; set volume 33 }
         Gs { set freq 400; set volume 67 }
         gs { set freq 400; set volume 33 }
         Ab { set freq 409; set volume 67 }
         ab { set freq 409; set volume 33 }
         A { set freq 426; set volume 67 }
         a { set freq 426; set volume 33 }
         Bb { set freq 455; set volume 67 }
         bb { set freq 455; set volume 33 }
         B { set freq 480; set volume 67 }
         b { set freq 480; set volume 33 }
         Ab- { set freq 205; set volume 67 }
         ab- { set freq 205; set volume 33 }
         A- { set freq 213; set volume 67 }
         a- { set freq 213; set volume 33 }
         Bb- { set freq 227; set volume 67 }
         bb- { set freq 227; set volume 33 }
         B- { set freq 240; set volume 67 }
         b- { set freq 240; set volume 33 }
         R { set freq 100; set volume 0 }
         r { set freq 100; set volume 0 }
	}
      exec xset b $volume $freq $duration
      bell
      after 25
      exec xset b
   	}
}
foreach riff { D C B D C B C C A } {
   Sing $riff
	}





Regards,

Time



   13

   \
9   .  3   clockbot.net
   /

    6


______________________________________________________________________
Philadelphia Linux Users Group       -      http://www.phillylinux.org
Announcements-http://lists.phillylinux.org/mail/listinfo/plug-announce
General Discussion  -  http://lists.phillylinux.org/mail/listinfo/plug