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 (c . ,(ly
:make-pitch -
1 0 NATURAL
))
14 (cis . ,(ly
:make-pitch -
1 0 SHARP
))
15 (cisis
. ,(ly
:make-pitch -
1 0 DOUBLE-SHARP
))
16 (deses
. ,(ly
:make-pitch -
1 1 DOUBLE-FLAT
))
17 (des . ,(ly
:make-pitch -
1 1 FLAT
))
18 (d . ,(ly
:make-pitch -
1 1 NATURAL
))
19 (dis . ,(ly
:make-pitch -
1 1 SHARP
))
20 (disis
. ,(ly
:make-pitch -
1 1 DOUBLE-SHARP
))
21 (eses
. ,(ly
:make-pitch -
1 2 DOUBLE-FLAT
))
22 (es . ,(ly
:make-pitch -
1 2 FLAT
))
23 (e . ,(ly
:make-pitch -
1 2 NATURAL
))
24 (eis . ,(ly
:make-pitch -
1 2 SHARP
))
25 (eisis
. ,(ly
:make-pitch -
1 2 DOUBLE-SHARP
))
26 (feses
. ,(ly
:make-pitch -
1 3 DOUBLE-FLAT
))
27 (fes
. ,(ly
:make-pitch -
1 3 FLAT
))
28 (f . ,(ly
:make-pitch -
1 3 NATURAL
))
29 (fis . ,(ly
:make-pitch -
1 3 SHARP
))
30 (fisis
. ,(ly
:make-pitch -
1 3 DOUBLE-SHARP
))
31 (geses
. ,(ly
:make-pitch -
1 4 DOUBLE-FLAT
))
32 (ges . ,(ly
:make-pitch -
1 4 FLAT
))
33 (g . ,(ly
:make-pitch -
1 4 NATURAL
))
34 (gis . ,(ly
:make-pitch -
1 4 SHARP
))
35 (gisis
. ,(ly
:make-pitch -
1 4 DOUBLE-SHARP
))
36 (asas
. ,(ly
:make-pitch -
1 5 DOUBLE-FLAT
))
37 (ases
. ,(ly
:make-pitch -
1 5 DOUBLE-FLAT
)) ;;non-standard name for asas
38 (as . ,(ly
:make-pitch -
1 5 FLAT
))
39 (a . ,(ly
:make-pitch -
1 5 NATURAL
))
40 (ais . ,(ly
:make-pitch -
1 5 SHARP
))
41 (aisis
. ,(ly
:make-pitch -
1 5 DOUBLE-SHARP
))
42 (heses
. ,(ly
:make-pitch -
1 6 DOUBLE-FLAT
))
43 (b . ,(ly
:make-pitch -
1 6 FLAT
))
44 (h . ,(ly
:make-pitch -
1 6 NATURAL
))
45 (his
. ,(ly
:make-pitch -
1 6 SHARP
))
46 (hisis
. ,(ly
:make-pitch -
1 6 DOUBLE-SHARP
))
50 pitchnames
= \pitchnamesDeutsch