]> git.donarmstrong.com Git - lilypond.git/blob - ly/suomi.ly
duh.
[lilypond.git] / ly / suomi.ly
1 % common finnish names for notes. "es" means flat, "is" means sharp
2 %
3 % by Heikki Junes <heikki.junes@hut.fi>
4 % based on svenska.ly by Mats Bengtsson.
5
6 % 2001/08/28 Heikki Junes <heikki.junes@hut.fi>
7 %            added bb and marked heses as `unusual'
8
9 \pitchnames #`(
10         (ceses . ,(make-pitch -1 0 -2 ))
11         (ces . ,(make-pitch -1 0 -1 ))
12         (c . ,(make-pitch -1 0 0 ))
13         (cis . ,(make-pitch -1 0 1 ))
14         (cisis . ,(make-pitch -1 0 2 ))
15         (deses . ,(make-pitch -1 1 -2 ))
16         (des . ,(make-pitch -1 1 -1 ))
17         (d . ,(make-pitch -1 1 0 ))
18         (dis . ,(make-pitch -1 1 1 ))
19         (disis . ,(make-pitch -1 1 2 ))
20         (eses . ,(make-pitch -1 2 -2 ))
21         (es . ,(make-pitch -1 2 -1 ))
22         (e . ,(make-pitch -1 2 0 ))
23         (eis . ,(make-pitch -1 2 1 ))
24         (eisis . ,(make-pitch -1 2 2 ))
25         (feses . ,(make-pitch -1 3 -2 ))
26         (fes . ,(make-pitch -1 3 -1 ))
27         (f . ,(make-pitch -1 3 0 ))
28         (fis . ,(make-pitch -1 3 1 ))
29         (fisis . ,(make-pitch -1 3 2 ))
30         (geses . ,(make-pitch -1 4 -2 ))
31         (ges . ,(make-pitch -1 4 -1 ))
32         (g . ,(make-pitch -1 4 0 ))
33         (gis . ,(make-pitch -1 4 1 ))
34         (gisis . ,(make-pitch -1 4 2 ))
35         (asas . ,(make-pitch -1 5 -2 ))
36         (ases . ,(make-pitch -1 5 -2 ))   ;;non-standard name for asas
37         (as . ,(make-pitch -1 5 -1 ))
38         (a . ,(make-pitch -1 5 0 ))
39         (ais . ,(make-pitch -1 5 1 ))
40         (aisis . ,(make-pitch -1 5 2 ))
41         (bb . ,(make-pitch -1 6 -2 ))
42         (heses . ,(make-pitch -1 6 -2 ))  ;;non-standard name for bb
43         (b . ,(make-pitch -1 6 -1 ))
44         (h . ,(make-pitch -1 6 0 ))
45         (his . ,(make-pitch -1 6 1 ))
46         (hisis . ,(make-pitch -1 6 2 ))
47 )
48 \version "1.5.49"