]> git.donarmstrong.com Git - lilypond.git/blob - ly/svenska.ly
Remove empty file.
[lilypond.git] / ly / svenska.ly
1 %
2 % common Swedish names for notes. "ess" means flat, "iss" means sharp
3 %
4 % by Mats Bengtsson.
5
6 pitchnamesSvenska = #`(
7         (cessess . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
8         (cess . ,(ly:make-pitch -1 0 FLAT))
9         (c . ,(ly:make-pitch -1 0 NATURAL))
10         (ciss . ,(ly:make-pitch -1 0 SHARP))
11         (cississ . ,(ly:make-pitch -1 0 DOUBLE-SHARP))
12         (dessess . ,(ly:make-pitch -1 1 DOUBLE-FLAT))
13         (dess . ,(ly:make-pitch -1 1 FLAT))
14         (d . ,(ly:make-pitch -1 1 NATURAL))
15         (diss . ,(ly:make-pitch -1 1 SHARP))
16         (dississ . ,(ly:make-pitch -1 1 DOUBLE-SHARP))
17         (essess . ,(ly:make-pitch -1 2 DOUBLE-FLAT))
18         (ess . ,(ly:make-pitch -1 2 FLAT))
19         (e . ,(ly:make-pitch -1 2 NATURAL))
20         (eiss . ,(ly:make-pitch -1 2 SHARP))
21         (eississ . ,(ly:make-pitch -1 2 DOUBLE-SHARP))
22         (fessess . ,(ly:make-pitch -1 3 DOUBLE-FLAT))
23         (fess . ,(ly:make-pitch -1 3 FLAT))
24         (f . ,(ly:make-pitch -1 3 NATURAL))
25         (fiss . ,(ly:make-pitch -1 3 SHARP))
26         (fississ . ,(ly:make-pitch -1 3 DOUBLE-SHARP))
27         (gessess . ,(ly:make-pitch -1 4 DOUBLE-FLAT))
28         (gess . ,(ly:make-pitch -1 4 FLAT))
29         (g . ,(ly:make-pitch -1 4 NATURAL))
30         (giss . ,(ly:make-pitch -1 4 SHARP))
31         (gississ . ,(ly:make-pitch -1 4 DOUBLE-SHARP))
32         (assess . ,(ly:make-pitch -1 5 DOUBLE-FLAT))
33         (ass . ,(ly:make-pitch -1 5 FLAT))
34         (a . ,(ly:make-pitch -1 5 NATURAL))
35         (aiss . ,(ly:make-pitch -1 5 SHARP))
36         (aississ . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
37         (hessess . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
38         (b . ,(ly:make-pitch -1 6 FLAT))
39         (h . ,(ly:make-pitch -1 6 NATURAL))
40         (hiss . ,(ly:make-pitch -1 6 SHARP))
41         (hississ . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
42 )
43
44 pitchnames = \pitchnamesSvenska
45 \version "2.7.39"
46
47 #(ly:parser-set-note-names parser pitchnames)