% 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))
(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.7"
+
+pitchnames = \pitchnamesSuomi
+
+\version "2.12.0"
+
+#(ly:parser-set-note-names parser pitchnames)