]> git.donarmstrong.com Git - lilypond.git/blob - ly/deutsch.ly
*** empty log message ***
[lilypond.git] / ly / deutsch.ly
1 % common german names for notes. "es" means flat, "is" means sharp
2 %
3 % by Roland Meier <<meier@informatik.th-darmstadt.de>>
4 % based on swedish.ly by Mats Bengtsson.
5
6 % 1999/06/09 Bjoern Jacke <<bjoern.jacke@gmx.de>>
7 %            added asas and marked ases as `unusual'
8
9
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))
47 )
48
49
50 pitchnames = \pitchnamesDeutsch
51
52 \version "2.1.36"