10
10
pitchnamesDeutsch = #`(
11
11
(ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
12
12
(ces . ,(ly:make-pitch -1 0 FLAT))
13
(ceh . ,(ly:make-pitch -1 0 SEMI-FLAT))
13
14
(c . ,(ly:make-pitch -1 0 NATURAL))
14
15
(cis . ,(ly:make-pitch -1 0 SHARP))
16
(cih . ,(ly:make-pitch -1 0 SEMI-SHARP))
15
17
(cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
16
18
(deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
17
19
(des . ,(ly:make-pitch -1 1 FLAT))
20
(deh . ,(ly:make-pitch -1 1 SEMI-FLAT))
18
21
(d . ,(ly:make-pitch -1 1 NATURAL))
19
22
(dis . ,(ly:make-pitch -1 1 SHARP))
23
(dih . ,(ly:make-pitch -1 1 SEMI-SHARP))
20
24
(disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
21
25
(eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
22
26
(es . ,(ly:make-pitch -1 2 FLAT))
27
(eeh . ,(ly:make-pitch -1 2 SEMI-FLAT))
23
28
(e . ,(ly:make-pitch -1 2 NATURAL))
24
29
(eis . ,(ly:make-pitch -1 2 SHARP))
30
(eih . ,(ly:make-pitch -1 2 SEMI-SHARP))
25
31
(eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
26
32
(feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
27
33
(fes . ,(ly:make-pitch -1 3 FLAT))
34
(feh . ,(ly:make-pitch -1 3 SEMI-FLAT))
28
35
(f . ,(ly:make-pitch -1 3 NATURAL))
29
36
(fis . ,(ly:make-pitch -1 3 SHARP))
37
(fih . ,(ly:make-pitch -1 3 SEMI-SHARP))
30
38
(fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
31
39
(geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
32
40
(ges . ,(ly:make-pitch -1 4 FLAT))
41
(geh . ,(ly:make-pitch -1 4 SEMI-FLAT))
33
42
(g . ,(ly:make-pitch -1 4 NATURAL))
34
43
(gis . ,(ly:make-pitch -1 4 SHARP))
44
(gih . ,(ly:make-pitch -1 4 SEMI-SHARP))
35
45
(gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
36
46
(asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
37
47
(ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT)) ;;non-standard name for asas
38
48
(as . ,(ly:make-pitch -1 5 FLAT))
49
(aeh . ,(ly:make-pitch -1 5 SEMI-FLAT))
39
50
(a . ,(ly:make-pitch -1 5 NATURAL))
40
51
(ais . ,(ly:make-pitch -1 5 SHARP))
52
(aih . ,(ly:make-pitch -1 5 SEMI-SHARP))
41
53
(aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
42
54
(heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
43
55
(b . ,(ly:make-pitch -1 6 FLAT))
56
(beh . ,(ly:make-pitch -1 6 SEMI-FLAT))
44
57
(h . ,(ly:make-pitch -1 6 NATURAL))
45
58
(his . ,(ly:make-pitch -1 6 SHARP))
59
(hih . ,(ly:make-pitch -1 6 SEMI-SHARP))
46
60
(hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
50
64
pitchnames = \pitchnamesDeutsch
68
#(ly:parser-set-note-names parser pitchnames)