Add predefined fret diagrams for ninth chords

[lilypond.git] / ly / suomi.ly

diff --git a/ly/suomi.ly b/ly/suomi.ly
index 7e111db3b41033695e7b538887db933fa1d65d0e..153281e413590f72496fcdd728bfec4e940c008c 100644 (file)
--- a/ly/suomi.ly
+++ b/ly/suomi.ly
@@ -6,7 +6,7 @@
 % 2001/08/28 Heikki Junes <<heikki.junes@hut.fi>>
 %            added bb and marked heses as `unusual'
 
-\pitchnames #`(
+pitchnamesSuomi = #`(
        (ceses . ,(ly:make-pitch -1 0 DOUBLE-FLAT))
        (ces . ,(ly:make-pitch -1 0 FLAT))
        (c . ,(ly:make-pitch -1 0 NATURAL))
@@ -38,11 +38,17 @@
        (a . ,(ly:make-pitch -1 5 NATURAL))
        (ais . ,(ly:make-pitch -1 5 SHARP))
        (aisis . ,(ly:make-pitch -1 5 DOUBLE-SHARP))
-       (bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
+       (bb . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) ;; should be bes. Kept for downwards compatibility
+       (bes . ,(ly:make-pitch -1 6 DOUBLE-FLAT))
        (heses . ,(ly:make-pitch -1 6 DOUBLE-FLAT))  ;;non-standard name for bb
        (b . ,(ly:make-pitch -1 6 FLAT))
        (h . ,(ly:make-pitch -1 6 NATURAL))
        (his . ,(ly:make-pitch -1 6 SHARP))
        (hisis . ,(ly:make-pitch -1 6 DOUBLE-SHARP))
 )
-\version "1.9.8"
+
+pitchnames = \pitchnamesSuomi
+
+\version "2.10.0"
+
+#(ly:parser-set-note-names parser pitchnames)