-\version "2.12.0"
+\version "2.19.22"
%{
%}
-
+
#(define-public EKSIK-IKI 5/18)
#(define-public EKSIK-UC 6/18)
(g . ,(ly:make-pitch -1 4 NATURAL))
(a . ,(ly:make-pitch -1 5 NATURAL))
(b . ,(ly:make-pitch -1 6 NATURAL))
-
+
(cc . ,(ly:make-pitch -1 0 KOMA))
(dc . ,(ly:make-pitch -1 1 KOMA))
(ec . ,(ly:make-pitch -1 2 KOMA))
(gfc . ,(ly:make-pitch -1 4 (- KOMA)))
(afc . ,(ly:make-pitch -1 5 (- KOMA)))
(bfc . ,(ly:make-pitch -1 6 (- KOMA)))
-
+
(cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
(dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
(efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
(gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
(afk . ,(ly:make-pitch -1 5 (- KUCUK)))
(bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
-
+
(cfi . ,(ly:make-pitch -1 0 (- EKSIK-IKI)))
(dfi . ,(ly:make-pitch -1 1 (- EKSIK-IKI)))
(efi . ,(ly:make-pitch -1 2 (- EKSIK-IKI)))
(gfu . ,(ly:make-pitch -1 4 (- EKSIK-UC)))
(afu . ,(ly:make-pitch -1 5 (- EKSIK-UC)))
(bfu . ,(ly:make-pitch -1 6 (- EKSIK-UC)))
-
-
+
+
(cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
(dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
(efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
%% set pitch names.
-pitchnames = \makamPitchNames
-#(ly:parser-set-note-names parser makamPitchNames)
+pitchnames = \makamPitchNames
+#(ly:parser-set-note-names makamPitchNames)
#(define eksikMirroredSlashedFlat
(if (defined? 'eksikMirroredSlashedFlat)
(0 . "accidentals.natural")
(-1/9 . "accidentals.mirroredflat")
(-5/18 . ,(if eksikMirroredSlashedFlat
- "accidentals.mirroredflat.backslash"
- "accidentals.mirroredflat"))
+ "accidentals.mirroredflat.backslash"
+ "accidentals.mirroredflat"))
(-6/18 . ,(if eksikMirroredSlashedFlat
- "accidentals.mirroredflat.backslash"
- "accidentals.mirroredflat"))
+ "accidentals.mirroredflat.backslash"
+ "accidentals.mirroredflat"))
(-4/9 . "accidentals.flat.slash")
(-5/9 . "accidentals.flat")
(-8/9 . "accidentals.flat.slashslash")
\layout {
\context {
\Score
- \override KeySignature #'glyph-name-alist = \makamGlyphs
- \override Accidental #'glyph-name-alist = \makamGlyphs
- \override AccidentalCautionary #'glyph-name-alist = \makamGlyphs
- \override TrillPitchAccidental #'glyph-name-alist = \makamGlyphs
- \override AmbitusAccidental #'glyph-name-alist = \makamGlyphs
+ \override KeySignature.glyph-name-alist = \makamGlyphs
+ \override Accidental.glyph-name-alist = \makamGlyphs
+ \override AccidentalCautionary.glyph-name-alist = \makamGlyphs
+ \override TrillPitchAccidental.glyph-name-alist = \makamGlyphs
+ \override AmbitusAccidental.glyph-name-alist = \makamGlyphs
}
}
-