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