projects / unix-history / blame
| Commit | Line | Data |
|---|---|---|
| 403b3d9a AC |
1 | : |
| 2 | # | |
| 3 | # Test script for the speaker driver | |
| 4 | # | |
| 5 | # v1.0 by Eric S. Raymond (Feb 1990) | |
| 6 | # v1.1 rightstuff contributed by Eric S. Tiedemann (est@snark.thyrsus.com) | |
| 7 | # | |
| 8 | reveille="t255l8c.f.afc~c.f.afc~c.f.afc.f.a..f.~c.f.afc~c.f.afc~c.f.afc~c.f.." | |
| 9 | contact="<cd<a#~<a#>f" | |
| 10 | dance="t240<cfcfgagaa#b#>dc<a#a.~fg.gaa#.agagegc.~cfcfgagaa#b#>dc<a#a.~fg.gga.agfgfgf." | |
| 11 | loony="t255cf8f8edc<a>~cf8f8edd#e~ce8cdce8cd.<a>c8c8c#def8af8" | |
| 12 | sinister="mst200o2ola.l8bc.~a.~>l2d#" | |
| 13 | rightstuff="olcega.a8f>cd2bgc.c8dee2" | |
| 14 | toccata="msl16oldcd4mll8pcb-agf+4.g4p4<msl16dcd4mll8pa.a+f+4p16g4" | |
| 15 | startrek="l2b.f+.p16a.c+.p l4mn<b.>e8a2mspg+e8c+f+8b2" | |
| 16 | ||
| 17 | case $1 in | |
| 18 | reveille) echo $reveille >/dev/speaker;; | |
| 19 | contact) echo $contact >/dev/speaker;; | |
| 20 | dance) echo $dance >/dev/speaker;; | |
| 21 | loony) echo $loony >/dev/speaker;; | |
| 22 | sinister) echo $sinister >/dev/speaker;; | |
| 23 | rightstuff) echo $rightstuff >/dev/speaker;; | |
| 24 | toccata) echo $toccata >/dev/speaker;; | |
| 25 | startrek) echo $startrek >/dev/speaker;; | |
| 26 | *) | |
| 27 | echo "No such tune. Available tunes are:" | |
| 28 | echo | |
| 29 | echo "reveille -- Reveille" | |
| 30 | echo "contact -- Contact theme from Close Encounters" | |
| 31 | echo "dance -- Lord of the Dance (aka Simple Gifts)" | |
| 32 | echo "loony -- Loony Toons theme" | |
| 33 | echo "sinister -- standard villain's entrance music" | |
| 34 | echo "rightstuff -- a trope from \"The Right Stuff\" score by Bill Conti" | |
| 35 | echo "toccata -- opening bars of Bach's Toccata and Fugue in D Minor" | |
| 36 | echo "startrek -- opening bars of the theme from Star Trek Classic" | |
| 37 | ;; | |
| 38 | esac |