1 %%%% english.ly -- common English names for notes
3 %%%% source file of the GNU LilyPond music typesetter
5 %%%% (c) 1996--2009 Han-Wen Nienhuys <hanwen@xs4all.nl>
13 qf = quarter[-tone] flat
14 tqf = three-quarter[-tones] flat
19 qs = quarter[-tone] sharp
20 tqs = three-quarter[-tones] sharp
24 pitchnamesEnglish = #`(
25 (cflatflat . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
26 (cflat . ,(ly:make-pitch -1 0 FLAT))
27 (c . ,(ly:make-pitch -1 0 NATURAL))
28 (csharp . ,(ly:make-pitch -1 0 SHARP))
29 (csharpsharp . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
30 (dflatflat . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
31 (dflat . ,(ly:make-pitch -1 1 FLAT))
32 (d . ,(ly:make-pitch -1 1 NATURAL))
33 (dsharp . ,(ly:make-pitch -1 1 SHARP))
34 (dsharpsharp . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
35 (eflatflat . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
36 (eflat . ,(ly:make-pitch -1 2 FLAT))
37 (e . ,(ly:make-pitch -1 2 NATURAL))
38 (esharp . ,(ly:make-pitch -1 2 SHARP))
39 (esharpsharp . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
40 (fflatflat . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
41 (fflat . ,(ly:make-pitch -1 3 FLAT))
42 (f . ,(ly:make-pitch -1 3 NATURAL))
43 (fsharp . ,(ly:make-pitch -1 3 SHARP))
44 (fsharpsharp . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
45 (gflatflat . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
46 (gflat . ,(ly:make-pitch -1 4 FLAT))
47 (g . ,(ly:make-pitch -1 4 NATURAL))
48 (gsharp . ,(ly:make-pitch -1 4 SHARP))
49 (gsharpsharp . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
50 (aflatflat . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
51 (aflat . ,(ly:make-pitch -1 5 FLAT))
52 (a . ,(ly:make-pitch -1 5 NATURAL))
53 (asharp . ,(ly:make-pitch -1 5 SHARP))
54 (asharpsharp . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
55 (bflatflat . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
56 (bflat . ,(ly:make-pitch -1 6 FLAT))
57 (b . ,(ly:make-pitch -1 6 NATURAL))
58 (bsharp . ,(ly:make-pitch -1 6 SHARP))
59 (bsharpsharp . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
61 (cff . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
62 (ctqf . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
63 (cf . ,(ly:make-pitch -1 0 FLAT))
64 (cqf . ,(ly:make-pitch -1 0 SEMI-FLAT))
65 (c . ,(ly:make-pitch -1 0 NATURAL))
66 (cqs . ,(ly:make-pitch -1 0 SEMI-SHARP))
67 (cs . ,(ly:make-pitch -1 0 SHARP))
68 (ctqs . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
69 (css . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
70 (cx . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
72 (dff . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
73 (dtqf . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
74 (df . ,(ly:make-pitch -1 1 FLAT))
75 (dqf . ,(ly:make-pitch -1 1 SEMI-FLAT))
76 (d . ,(ly:make-pitch -1 1 NATURAL))
77 (dqs . ,(ly:make-pitch -1 1 SEMI-SHARP))
78 (ds . ,(ly:make-pitch -1 1 SHARP))
79 (dtqs . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
80 (dss . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
81 (dx . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
83 (eff . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
84 (etqf . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
85 (ef . ,(ly:make-pitch -1 2 FLAT))
86 (eqf . ,(ly:make-pitch -1 2 SEMI-FLAT))
87 (e . ,(ly:make-pitch -1 2 NATURAL))
88 (eqs . ,(ly:make-pitch -1 2 SEMI-SHARP))
89 (es . ,(ly:make-pitch -1 2 SHARP))
90 (etqs . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
91 (ess . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
92 (ex . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
94 (fff . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
95 (ftqf . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
96 (ff . ,(ly:make-pitch -1 3 FLAT))
97 (fqf . ,(ly:make-pitch -1 3 SEMI-FLAT))
98 (f . ,(ly:make-pitch -1 3 NATURAL))
99 (fqs . ,(ly:make-pitch -1 3 SEMI-SHARP))
100 (fs . ,(ly:make-pitch -1 3 SHARP))
101 (ftqs . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
102 (fss . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
103 (fx . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
105 (gff . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
106 (gtqf . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
107 (gf . ,(ly:make-pitch -1 4 FLAT))
108 (gqf . ,(ly:make-pitch -1 4 SEMI-FLAT))
109 (g . ,(ly:make-pitch -1 4 NATURAL))
110 (gqs . ,(ly:make-pitch -1 4 SEMI-SHARP))
111 (gs . ,(ly:make-pitch -1 4 SHARP))
112 (gtqs . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
113 (gss . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
114 (gx . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
116 (aff . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
117 (atqf . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
118 (af . ,(ly:make-pitch -1 5 FLAT))
119 (aqf . ,(ly:make-pitch -1 5 SEMI-FLAT))
120 (a . ,(ly:make-pitch -1 5 NATURAL))
121 (aqs . ,(ly:make-pitch -1 5 SEMI-SHARP))
122 (as . ,(ly:make-pitch -1 5 SHARP))
123 (atqs . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
124 (ass . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
125 (ax . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
127 (bff . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
128 (btqf . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
129 (bf . ,(ly:make-pitch -1 6 FLAT))
130 (bqf . ,(ly:make-pitch -1 6 SEMI-FLAT))
131 (b . ,(ly:make-pitch -1 6 NATURAL))
132 (bqs . ,(ly:make-pitch -1 6 SEMI-SHARP))
133 (bs . ,(ly:make-pitch -1 6 SHARP))
134 (btqs . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
135 (bss . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
136 (bx . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
139 pitchnames = \pitchnamesEnglish
141 #(ly:parser-set-note-names parser pitchnames)