Use scalar instead of embedded_scm for context mod overrides.
[lilypond/mpolesky.git] / ly / suomi.ly
blob4b80c8046a2cf4319884f7037d6c12537acc8d30
1 %%%% suomi.ly -- common Finnish names for notes
2 %%%%
3 %%%% source file of the GNU LilyPond music typesetter
4 %%%%
5 %%%% (c) 2001--2009 Heikki Junes <heikki.junes@hut.fi>
7 \version "2.12.0"
9 %{
11 es = flat
12 eses = double-flat
14 is = sharp
15 isis = double-sharp
17 English: c d e f g a bf b
18 Finnish: c d e f g a b h
20 Adapted from svenska.ly
24 pitchnamesSuomi = #`(
25 (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
26 (ces . ,(ly:make-pitch -1 0 FLAT))
27 (c . ,(ly:make-pitch -1 0 NATURAL))
28 (cis . ,(ly:make-pitch -1 0 SHARP))
29 (cisis . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
30 (deses . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
31 (des . ,(ly:make-pitch -1 1 FLAT))
32 (d . ,(ly:make-pitch -1 1 NATURAL))
33 (dis . ,(ly:make-pitch -1 1 SHARP))
34 (disis . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
35 (eses . ,(ly:make-pitch -1 2 DOUBLE-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 (eisis . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
40 (feses . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
41 (fes . ,(ly:make-pitch -1 3 FLAT))
42 (f . ,(ly:make-pitch -1 3 NATURAL))
43 (fis . ,(ly:make-pitch -1 3 SHARP))
44 (fisis . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
45 (geses . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
46 (ges . ,(ly:make-pitch -1 4 FLAT))
47 (g . ,(ly:make-pitch -1 4 NATURAL))
48 (gis . ,(ly:make-pitch -1 4 SHARP))
49 (gisis . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
50 (asas . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
51 (ases . ,(ly:make-pitch -1 5 DOUBLE-FLAT)) ;;non-standard name for asas
52 (as . ,(ly:make-pitch -1 5 FLAT))
53 (a . ,(ly:make-pitch -1 5 NATURAL))
54 (ais . ,(ly:make-pitch -1 5 SHARP))
55 (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
56 (bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;; should be bes. Kept for downwards compatibility
57 (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
58 (heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;;non-standard name for bb
59 (b . ,(ly:make-pitch -1 6 FLAT))
60 (h . ,(ly:make-pitch -1 6 NATURAL))
61 (his . ,(ly:make-pitch -1 6 SHARP))
62 (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
65 pitchnames = \pitchnamesSuomi
67 #(ly:parser-set-note-names parser pitchnames)