]> git.donarmstrong.com Git - lilypond.git/blob - ly/nederlands.ly
We are using git, not CVS...
[lilypond.git] / ly / nederlands.ly
1 \version "2.10.0"
2 %{
3  common dutch names for notes. es means flat, is means sharp
4
5 notenames should only contain letters. No digits or punctuation.
6
7 %}
8
9 dutchPitchnames = #`(
10         (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
11
12         (ceh . ,(ly:make-pitch -1 0 SEMI-FLAT))
13         (ces . ,(ly:make-pitch -1 0 FLAT))
14         (ceseh . ,(ly:make-pitch -1 0 THREE-Q-FLAT))
15         (c . ,(ly:make-pitch -1 0 NATURAL))
16         (cis . ,(ly:make-pitch -1 0 SHARP))
17         (cih . ,(ly:make-pitch -1 0 SEMI-SHARP))
18         (cisih . ,(ly:make-pitch -1 0 THREE-Q-SHARP))
19         (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
20         (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
21
22         (deh . ,(ly:make-pitch -1 1 SEMI-FLAT))
23         (des . ,(ly:make-pitch -1 1 FLAT))
24         (deseh . ,(ly:make-pitch -1 1 THREE-Q-FLAT))
25         (d . ,(ly:make-pitch -1 1 NATURAL))
26         (dis . ,(ly:make-pitch -1 1 SHARP))
27         (dih . ,(ly:make-pitch -1 1 SEMI-SHARP))
28         (disih . ,(ly:make-pitch -1 1 THREE-Q-SHARP))
29         (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
30         (eeses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
31         (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
32
33         (eeh . ,(ly:make-pitch -1 2 SEMI-FLAT))
34         (ees . ,(ly:make-pitch -1 2 FLAT))
35         (eeseh . ,(ly:make-pitch -1 2 THREE-Q-FLAT))
36         (es . ,(ly:make-pitch -1 2 FLAT))
37         (e . ,(ly:make-pitch -1 2 NATURAL))
38         (eis . ,(ly:make-pitch -1 2 SHARP))
39         (eih . ,(ly:make-pitch -1 2 SEMI-SHARP))
40         (eisih . ,(ly:make-pitch -1 2 THREE-Q-SHARP))
41         (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
42         (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
43
44         (feh . ,(ly:make-pitch -1 3 SEMI-FLAT))
45         (fes . ,(ly:make-pitch -1 3 FLAT))
46         (feseh . ,(ly:make-pitch -1 3 THREE-Q-FLAT))
47         (f . ,(ly:make-pitch -1 3 NATURAL))
48         (fis . ,(ly:make-pitch -1 3 SHARP))
49         (fih . ,(ly:make-pitch -1 3 SEMI-SHARP))
50         (fisih . ,(ly:make-pitch -1 3 THREE-Q-SHARP))
51         (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
52         (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
53
54         (geh . ,(ly:make-pitch -1 4 SEMI-FLAT))
55         (ges . ,(ly:make-pitch -1 4 FLAT))
56         (geseh . ,(ly:make-pitch -1 4 THREE-Q-FLAT))
57         (g . ,(ly:make-pitch -1 4 NATURAL))
58         (gis . ,(ly:make-pitch -1 4 SHARP))
59         (gih . ,(ly:make-pitch -1 4 SEMI-SHARP))
60         (gisih . ,(ly:make-pitch -1 4 THREE-Q-SHARP))
61         (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
62         (aeses . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
63         (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
64
65         (aeh . ,(ly:make-pitch -1 5 SEMI-FLAT))
66         (aes . ,(ly:make-pitch -1 5 FLAT))
67         (aeseh . ,(ly:make-pitch -1 5 THREE-Q-FLAT))
68         (as . ,(ly:make-pitch -1 5 FLAT))
69         (a . ,(ly:make-pitch -1 5 NATURAL))
70         (ais . ,(ly:make-pitch -1 5 SHARP))
71         (aih . ,(ly:make-pitch -1 5 SEMI-SHARP))
72         (aisih . ,(ly:make-pitch -1 5 THREE-Q-SHARP))
73         (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
74         (beses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
75
76         (beh . ,(ly:make-pitch -1 6 SEMI-FLAT))
77         (bes . ,(ly:make-pitch -1 6 FLAT))
78         (beseh . ,(ly:make-pitch -1 6 THREE-Q-FLAT))
79         (b . ,(ly:make-pitch -1 6 NATURAL))
80         (bis . ,(ly:make-pitch -1 6 SHARP))
81         (bih . ,(ly:make-pitch -1 6 SEMI-SHARP))
82         (bisih . ,(ly:make-pitch -1 6 THREE-Q-SHARP))
83         (bisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
84         )
85
86
87 pitchnames = \dutchPitchnames 
88 #(ly:parser-set-note-names parser pitchnames)