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 |