1 % common german names for notes. "es" means flat, "is" means sharp
3 % by Roland Meier <<meier@informatik.th-darmstadt.de>>
4 % based on swedish.ly by Mats Bengtsson.
6 % 1999/06/09 Bjoern Jacke <<bjoern.jacke@gmx.de>>
7 % added asas and marked ases as `unusual'
10 pitchnamesDeutsch
= #`
(
11 (ceses
. ,(ly
:make-pitch -
1 0 DOUBLE-FLAT
))
12 (ces
. ,(ly
:make-pitch -
1 0 FLAT
))
13 (ceh
. ,(ly
:make-pitch -
1 0 SEMI-FLAT
))
14 (c . ,(ly
:make-pitch -
1 0 NATURAL
))
15 (cis . ,(ly
:make-pitch -
1 0 SHARP
))
16 (cih
. ,(ly
:make-pitch -
1 0 SEMI-SHARP
))
17 (cisis
. ,(ly
:make-pitch -
1 0 DOUBLE-SHARP
))
18 (deses
. ,(ly
:make-pitch -
1 1 DOUBLE-FLAT
))
19 (des . ,(ly
:make-pitch -
1 1 FLAT
))
20 (deh
. ,(ly
:make-pitch -
1 1 SEMI-FLAT
))
21 (d . ,(ly
:make-pitch -
1 1 NATURAL
))
22 (dis . ,(ly
:make-pitch -
1 1 SHARP
))
23 (dih
. ,(ly
:make-pitch -
1 1 SEMI-SHARP
))
24 (disis
. ,(ly
:make-pitch -
1 1 DOUBLE-SHARP
))
25 (eses
. ,(ly
:make-pitch -
1 2 DOUBLE-FLAT
))
26 (es . ,(ly
:make-pitch -
1 2 FLAT
))
27 (eeh
. ,(ly
:make-pitch -
1 2 SEMI-FLAT
))
28 (e . ,(ly
:make-pitch -
1 2 NATURAL
))
29 (eis . ,(ly
:make-pitch -
1 2 SHARP
))
30 (eih
. ,(ly
:make-pitch -
1 2 SEMI-SHARP
))
31 (eisis
. ,(ly
:make-pitch -
1 2 DOUBLE-SHARP
))
32 (feses
. ,(ly
:make-pitch -
1 3 DOUBLE-FLAT
))
33 (fes
. ,(ly
:make-pitch -
1 3 FLAT
))
34 (feh
. ,(ly
:make-pitch -
1 3 SEMI-FLAT
))
35 (f . ,(ly
:make-pitch -
1 3 NATURAL
))
36 (fis . ,(ly
:make-pitch -
1 3 SHARP
))
37 (fih
. ,(ly
:make-pitch -
1 3 SEMI-SHARP
))
38 (fisis
. ,(ly
:make-pitch -
1 3 DOUBLE-SHARP
))
39 (geses
. ,(ly
:make-pitch -
1 4 DOUBLE-FLAT
))
40 (ges . ,(ly
:make-pitch -
1 4 FLAT
))
41 (geh
. ,(ly
:make-pitch -
1 4 SEMI-FLAT
))
42 (g . ,(ly
:make-pitch -
1 4 NATURAL
))
43 (gis . ,(ly
:make-pitch -
1 4 SHARP
))
44 (gih
. ,(ly
:make-pitch -
1 4 SEMI-SHARP
))
45 (gisis
. ,(ly
:make-pitch -
1 4 DOUBLE-SHARP
))
46 (asas
. ,(ly
:make-pitch -
1 5 DOUBLE-FLAT
))
47 (ases
. ,(ly
:make-pitch -
1 5 DOUBLE-FLAT
)) ;;non-standard name for asas
48 (as . ,(ly
:make-pitch -
1 5 FLAT
))
49 (aeh
. ,(ly
:make-pitch -
1 5 SEMI-FLAT
))
50 (a . ,(ly
:make-pitch -
1 5 NATURAL
))
51 (ais . ,(ly
:make-pitch -
1 5 SHARP
))
52 (aih
. ,(ly
:make-pitch -
1 5 SEMI-SHARP
))
53 (aisis
. ,(ly
:make-pitch -
1 5 DOUBLE-SHARP
))
54 (heses
. ,(ly
:make-pitch -
1 6 DOUBLE-FLAT
))
55 (b . ,(ly
:make-pitch -
1 6 FLAT
))
56 (beh
. ,(ly
:make-pitch -
1 6 SEMI-FLAT
))
57 (h . ,(ly
:make-pitch -
1 6 NATURAL
))
58 (his
. ,(ly
:make-pitch -
1 6 SHARP
))
59 (hih
. ,(ly
:make-pitch -
1 6 SEMI-SHARP
))
60 (hisis
. ,(ly
:make-pitch -
1 6 DOUBLE-SHARP
))
64 pitchnames
= \pitchnamesDeutsch
68 #(ly
:parser-set-note-names parser pitchnames
)