]> git.donarmstrong.com Git - lilypond.git/blob - ly/suomi.ly
Add regression test for #907.
[lilypond.git] / ly / suomi.ly
1 %%%% common Finnish names for notes
2 %%%% This file is part of LilyPond, the GNU music typesetter.
3 %%%%
4 %%%% Copyright (C) 2001--2009 Heikki Junes <heikki.junes@hut.fi>
5 %%%%
6 %%%% LilyPond is free software: you can redistribute it and/or modify
7 %%%% it under the terms of the GNU General Public License as published by
8 %%%% the Free Software Foundation, either version 3 of the License, or
9 %%%% (at your option) any later version.
10 %%%%
11 %%%% LilyPond is distributed in the hope that it will be useful,
12 %%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
13 %%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14 %%%% GNU General Public License for more details.
15 %%%%
16 %%%% You should have received a copy of the GNU General Public License
17 %%%% along with LilyPond.  If not, see <http://www.gnu.org/licenses/>.
18
19 \version "2.12.0"
20
21 %{
22
23   es   = flat
24   eses = double-flat
25
26   is   = sharp
27   isis = double-sharp
28
29   English: c  d  e  f  g  a  bf b
30   Finnish: c  d  e  f  g  a  b  h
31
32   Adapted from svenska.ly
33
34 %}
35
36 pitchnamesSuomi = #`(
37         (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
38         (ces . ,(ly:make-pitch -1 0 FLAT))
39         (c . ,(ly:make-pitch -1 0 NATURAL))
40         (cis . ,(ly:make-pitch -1 0 SHARP))
41         (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
42         (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
43         (des . ,(ly:make-pitch -1 1 FLAT))
44         (d . ,(ly:make-pitch -1 1 NATURAL))
45         (dis . ,(ly:make-pitch -1 1 SHARP))
46         (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
47         (eses . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
48         (es . ,(ly:make-pitch -1 2 FLAT))
49         (e . ,(ly:make-pitch -1 2 NATURAL))
50         (eis . ,(ly:make-pitch -1 2 SHARP))
51         (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
52         (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
53         (fes . ,(ly:make-pitch -1 3 FLAT))
54         (f . ,(ly:make-pitch -1 3 NATURAL))
55         (fis . ,(ly:make-pitch -1 3 SHARP))
56         (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
57         (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
58         (ges . ,(ly:make-pitch -1 4 FLAT))
59         (g . ,(ly:make-pitch -1 4 NATURAL))
60         (gis . ,(ly:make-pitch -1 4 SHARP))
61         (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
62         (asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
63         (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT))   ;;non-standard name for asas
64         (as . ,(ly:make-pitch -1 5 FLAT))
65         (a . ,(ly:make-pitch -1 5 NATURAL))
66         (ais . ,(ly:make-pitch -1 5 SHARP))
67         (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
68         (bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;; should be bes. Kept for downwards compatibility
69         (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
70         (heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))  ;;non-standard name for bb
71         (b . ,(ly:make-pitch -1 6 FLAT))
72         (h . ,(ly:make-pitch -1 6 NATURAL))
73         (his . ,(ly:make-pitch -1 6 SHARP))
74         (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
75 )
76
77 pitchnames = \pitchnamesSuomi
78
79 #(ly:parser-set-note-names parser pitchnames)