%\version "2.19.82"
\version "2.18.2"

#(ly:set-option 'relative-includes #t)
\include "definitions.ily"


%{

% 53-ET alterations in terms of 12-ET whole tones.

%}

#(define-public KOMA 1/10)
#(define-public BAKIYE 4/10)
#(define-public KUCUK 5/10)
#(define-public BUYUKMUCENNEB 8/10)

%%% eksikMirroredSlashedFlat for 2.5k and 3k
#(define-public EKSIK-IKI 5/20)
#(define-public EKSIK-UC 3/10)

%{

Define pitch names

%}

makamPitchNames = #`(
  (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
  (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
  (cfb . ,(ly:make-pitch -1 0 (- BAKIYE)))
  (cfu . ,(ly:make-pitch -1 0 (- EKSIK-UC)))
  (cfi . ,(ly:make-pitch -1 0 (- EKSIK-IKI)))
  (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
  (c . ,(ly:make-pitch -1 0 NATURAL))
  (cc . ,(ly:make-pitch -1 0 KOMA))
  (cb . ,(ly:make-pitch -1 0 BAKIYE))
  (ck . ,(ly:make-pitch -1 0 KUCUK))
  (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))

  (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
  (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
  (dfb . ,(ly:make-pitch -1 1 (- BAKIYE)))
  (dfu . ,(ly:make-pitch -1 1 (- EKSIK-UC)))
  (dfi . ,(ly:make-pitch -1 1 (- EKSIK-IKI)))
  (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
  (d . ,(ly:make-pitch -1 1 NATURAL))
  (dc . ,(ly:make-pitch -1 1 KOMA))
  (db . ,(ly:make-pitch -1 1 BAKIYE))
  (dk . ,(ly:make-pitch -1 1 KUCUK))
  (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))

  (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
  (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
  (efb . ,(ly:make-pitch -1 2 (- BAKIYE)))
  (efu . ,(ly:make-pitch -1 2 (- EKSIK-UC)))
  (efi . ,(ly:make-pitch -1 2 (- EKSIK-IKI)))
  (efc . ,(ly:make-pitch -1 2 (- KOMA)))
  (e . ,(ly:make-pitch -1 2 NATURAL))
  (ec . ,(ly:make-pitch -1 2 KOMA))
  (eb . ,(ly:make-pitch -1 2 BAKIYE))
  (ek . ,(ly:make-pitch -1 2 KUCUK))
  (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))

  (ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
  (ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
  (ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
  (ffu . ,(ly:make-pitch -1 3 (- EKSIK-UC)))
  (ffi . ,(ly:make-pitch -1 3 (- EKSIK-IKI)))
  (ffc . ,(ly:make-pitch -1 3 (- KOMA)))
  (f . ,(ly:make-pitch -1 3 NATURAL))
  (fc . ,(ly:make-pitch -1 3 KOMA))
  (fb . ,(ly:make-pitch -1 3 BAKIYE))
  (fk . ,(ly:make-pitch -1 3 KUCUK))
  (fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))

  (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
  (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
  (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
  (gfu . ,(ly:make-pitch -1 4 (- EKSIK-UC)))
  (gfi . ,(ly:make-pitch -1 4 (- EKSIK-IKI)))
  (gfc . ,(ly:make-pitch -1 4 (- KOMA)))
  (g . ,(ly:make-pitch -1 4 NATURAL))
  (gc . ,(ly:make-pitch -1 4 KOMA))
  (gb . ,(ly:make-pitch -1 4 BAKIYE))
  (gk . ,(ly:make-pitch -1 4 KUCUK))
  (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))

  (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
  (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
  (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
  (afu . ,(ly:make-pitch -1 5 (- EKSIK-UC)))
  (afi . ,(ly:make-pitch -1 5 (- EKSIK-IKI)))
  (afc . ,(ly:make-pitch -1 5 (- KOMA)))
  (a . ,(ly:make-pitch -1 5 NATURAL))
  (ac . ,(ly:make-pitch -1 5 KOMA))
  (ab . ,(ly:make-pitch -1 5 BAKIYE))
  (ak . ,(ly:make-pitch -1 5 KUCUK))
  (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))

  (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))
  (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))
  (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))
  (bfu . ,(ly:make-pitch -1 6 (- EKSIK-UC)))
  (bfi . ,(ly:make-pitch -1 6 (- EKSIK-IKI)))
  (bfc . ,(ly:make-pitch -1 6 (- KOMA)))
  (b . ,(ly:make-pitch -1 6 NATURAL))
  (bc . ,(ly:make-pitch -1 6 KOMA))
  (bb . ,(ly:make-pitch -1 6 BAKIYE))
  (bk . ,(ly:make-pitch -1 6 KUCUK))
  (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))
  
)

%% Set pitch names.
pitchnames = \makamPitchNames
#(ly:parser-set-note-names makamPitchNames)


tuning = #53
\include "regular.ly"

#(define eksikMirroredSlashedFlat
  (if (defined? 'eksikMirroredSlashedFlat)
       eksikMirroredSlashedFlat #f))

%%% For Turkish Makam, need 6/53, 18/53, 24/53, 30/53, 48/53
makamGlyphs = #`(
       (-48/53 . "accidentals.flat.slashslash")
       (-30/53 . "accidentals.flat")
       (-24/53 . "accidentals.flat.slash")
       (-18/53 . ,(if eksikMirroredSlashedFlat "accidentals.mirroredflat.backslash" "accidentals.flat.slash"))
       (-15/53 . ,(if eksikMirroredSlashedFlat "accidentals.mirroredflat.backslash" "accidentals.mirroredflat"))
       (-6/53  . "accidentals.mirroredflat")
       (0      . "accidentals.natural")
       (6/53   . "accidentals.sharp.slashslash.stem")
       (18/53  . "accidentals.sharp")
       (24/53  . "accidentals.sharp")
       (30/53  . "accidentals.sharp.slashslashslash.stem")
       (48/53  . "accidentals.sharp.slashslashslash.stemstem")

)

#(define smufl-alteration-glyph-name-alist '(
  (-72/53 . "accidentalDoubleFlatTwoArrowsDown")
  (-66/53 . "accidentalDoubleFlatOneArrowDown")
  (-60/53 . "accidentalDoubleFlat")
  (-54/53 . "accidentalDoubleFlatOneArrowUp")
  (-48/53 . "accidentalDoubleFlatTwoArrowsUp")

  (-42/53 . "accidentalFlatTwoArrowsDown")
  (-36/53 . "accidentalFlatOneArrowDown")
  (-30/53 . "accidentalFlat")
  (-24/53 . "accidentalFlatOneArrowUp")
  (-18/53 . "accidentalFlatTwoArrowsUp")

  (-12/53 . "accidentalNaturalTwoArrowsDown")
  (-6/53  . "accidentalNaturalOneArrowDown")
  (0      . "accidentalNatural")
  (6/53   . "accidentalNaturalOneArrowUp")
  (12/53  . "accidentalNaturalTwoArrowsUp")

  (18/53  . "accidentalSharpTwoArrowsDown")
  (24/53  . "accidentalSharpOneArrowDown")
  (30/53  . "accidentalSharp")
  (36/53  . "accidentalSharpOneArrowUp")
  (42/53  . "accidentalSharpTwoArrowsUp")

  (48/53  . "accidentalDoubleSharpTwoArrowsDown")
  (54/53  . "accidentalDoubleSharpOneArrowDown")
  (60/53  . "accidentalDoubleSharp")
  (66/53  . "accidentalDoubleSharpOneArrowUp")
  (72/53  . "accidentalDoubleSharpTwoArrowsUp")))

%% Set Makam Key Signatures
%%% Cargah and transpositions
Cargah = #'((0 . 0)(1 . 0)(2 . 0)(3 . 0)(4 . 0)(5 . 0)(6 . 0))
AcemAsiran=\Cargah
Mahur=\Cargah
Suzidilara=\Cargah
Zavil=\Cargah
Tarzicedid=\Cargah

%%% Rast and similar
Rast = #'((0 . 0)(1 . 0)(2 . -6/53)(3 . 0)(4 . 0)(5 . 0)(6 . -6/53))
Pencgah=\Rast
Pesendide=\Rast
Rehavi=\Rast
Sazkar=\Rast
Sevkedil=\Rast
Suznak = #'((0 . 0)(1 . 0)(2 . -6/53)(3 . 0)(4 . 0)(5 . -24/53)(6 . -6/53))
Serefnuma=\Suznak

%%% Ussak and similar
Ussak = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
Acem=\Ussak
Beyati=\Ussak
Hisar=\Ussak
Isfahan=\Ussak
Isfahanek=\Ussak
YeniSipihr=\Ussak

%%% Buselik and transpositions and similar
Buselik = #'((0 . 0)(1 . 0)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
Ferahfeza=\Buselik
HisarBuselik=\Buselik
Nihavend=\Buselik
Ruhnuvaz=\Buselik
SehnazBuselik=\Buselik
Zirefkend=\Buselik

%%% Neva and similar
Neva = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53))
Gerdaniye=\Neva
Gulizar=\Neva
Huseyni=\Neva
Muhayyer=\Neva
SultaniIrak=\Neva
Tahir=\Neva
TahirBuselik=\Neva

%%% Kurdi and similar and transpositions
Kurdi = #'((0 . 0)(1 . -30/53)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
AcemKurdi=\Kurdi
Askevza=\Kurdi
MuhayyerKurdi=\Kurdi
KurdiliHicazkar=\Kurdi
Ferahnuma=\Kurdi

%%% Hicaz and similar
Hicaz = #'((0 . 0)(1 . -24/53)(2 . -6/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53))
HicazHumayun = #'((0 . 0)(1 . -24/53)(2 . -6/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
HicazZirgule = #'((0 . 0)(1 . -24/53)(2 . -6/53)(3 . 0)(4 . 0)(5 . -24/53)(6 . -6/53))
Hicazkar=\HicazZirgule
SedAraban=\HicazZirgule
HicazUzzal=\Hicaz
Sehnaz=\HicazHumayun
%%% cc is printed because of transposition of zirgule. Keep?
Suzidil=\HicazZirgule

%%% Karcigar and similar
Karcigar = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . -24/53)(5 . -6/53)(6 . -30/53))
BeyatiAraban=\Karcigar

%%% Saba and similar
Saba = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . -24/53)(4 . 0)(5 . -30/53)(6 . -30/53))
Dugah=\Saba
MuhayyerSunbule=\Saba
SabaZemzeme=\Saba
Eskisipihr=\Saba
Kucek=\Saba

%%% HuseyniAsiran and similar
HuseyniAsiran = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . -6/53)(5 . -30/53)(6 . -30/53))
Nuhuft=\HuseyniAsiran

%%% Yegah and similar
Yegah = #'((0 . 0)(1 . 0)(2 . -6/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53))
Dilkeside=\Yegah

%%% Segah and similar
Segah = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . 0)(4 . 0)(5 . -24/53)(6 . -24/53))
Mustear=\Segah
VechiArazbar=\Segah

%%% Huzzam uses -18/53 at 3
Huzzam = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . -18/53)(4 . 0)(5 . -24/53)(6 . -24/53))

%%% Arazbar and similar
Arazbar = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . -6/53)(5 . -30/53)(6 . -30/53))

%%% SultaniYegah and similar
SultaniYegah = #'((0 . 0)(1 . 0)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -6/53))

%%% BuselikAsiran and similar
BuselikAsiran = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . 0)(5 . -30/53)(6 . -30/53))
Canfeza = #'((0 . 0)(1 . -30/53)(2 . -30/53)(3 . 0)(4 . -6/53)(5 . -30/53)(6 . -54/53))

%%% Irak and similar
Irak = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . 0)(4 . -24/53)(5 . -24/53)(6 . -24/53))
Evcara = #'((0 . 0)(1 . -24/53)(2 . 0)(3 . 0)(4 . 0)(5 . -24/53)(6 . 0))
Evic = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . 0)(4 . -24/53)(5 . -24/53)(6 . -24/53))
Ferahnak = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . 6/53)(4 . 0)(5 . -24/53)(6 . -24/53))
Dilkeshaveran=\Evic

%%% Rahatulervah uses -18/53 at 3
Rahatulervah = #'((0 . 0)(1 . -24/53)(2 . -24/53)(3 . -18/53)(4 . 0)(5 . -24/53)(6 . -24/53))

%%% Nisabur and similar
Nisabur = #'((0 . 0)(1 . -6/53)(2 . -30/53)(3 . 0)(4 . -30/53)(5 . -30/53)(6 . -30/53))

%%% CargahEski and similar
CargahEski = #'((0 . 0)(1 . -24/53)(2 . 0)(4 . 0)(5 . 0)(6 . -6/53))

%%% Guldeste and similar
Guldeste = #'((0 . 0)(1 . 0)(2 . 0)(3 . 0)(4 . 24/53)(5 . 0)(6 . 0))

%%% Buzurk and similar
Buzurk = #'((0 . 0)(1 . 0)(2 . 0)(3 . 0)(4 . 0)(5 . 0)(6 . -6/53))

%%% Nisaburek and similar
Nisaburek = #'((0 . 0)(1 . 0)(2 . -6/53)(3 . 0)(4 . 0)(5 . 0)(6 . -30/53))

%%% Neveser and similar
Neveser = #'((0 . 0)(1 . 0)(2 . -24/53)(3 . 24/53)(4 . 0)(5 . -24/53)(6 . -6/53))

%%% Nikriz and similar
Nikriz = #'((0 . 0)(1 . 0)(2 . -24/53)(3 . 24/53)(4 . 0)(5 . 0)(6 . -30/53))

%%% SultaniSegah and similar
SultaniSegah = #'((0 . 0)(1 . -6/53)(2 . -6/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53))

%%% Sevkefza and similar
Sevkefza = #'((0 . 0)(1 . 0)(2 . 0)(3 . 0)(4 . 0)(5 . -24/53)(6 . 0))

%%%FLIP D AND A ORDER
Rengidil = #'((0 . 0)(1 . 0)(2 . -24/53)(3 . 24/53)(4 . 0)(5 . -24/53)(6 . 0))
Sevkitarab = #'((0 . 0)(1 . 0)(2 . 0)(3 . 24/53)(4 . 0)(5 . -24/53)(6 . 0))
Sevkaver = #'((0 . 0)(1 . 0)(2 . 0)(3 . 24/53)(4 . 0)(5 . 0)(6 . -6/53))

%%% TEST BIG TIME
Sivenuma = #'((0 . 0)(1 . 0)(2 . -30/53)(3 . 0)(4 . 0)(5 . -6/53)(6 . -30/53)(7 . -24/53))

%%%% FIGURE OUT HOW TO NOT PRINT FB IN KEY SIG
%%% BesteNigar uses -48/53 at 5
BesteNigar = #'((7 . 0)(0 . 0)(1 . -24/53)(2 . -24/53)(3 . 0)(4 . -24/53)(5 . -48/53)(6 . -24/53))
Revnaknuma = #'((0 . 0)(1 . -24/53)(2 . 0)(3 . 0)(4 . 0)(5 . -24/53)(6 . -24/53))

\layout {
  \context {
    \Staff
%    \bravuraOn
  }

  \context {
    \Score

    %%% key alteration order
    keyAlterationOrder = #`(
       (6 . ,-6/53) (6 . ,-24/53) (6 . ,-30/53) (6 . ,-48/53)
       (2 . ,-6/53) (2 . ,-24/53) (2 . ,-30/53) (2 . ,-48/53)
       (5 . ,-6/53) (5 . ,-24/53) (5 . ,-30/53) (5 . ,-48/53)
       (1 . ,-6/53) (1 . ,-24/53) (1 . ,-30/53) (1 . ,-48/53)
       (4 . ,-6/53) (4 . ,-24/53) (4 . ,-30/53) (4 . ,-48/53)
       (0 . ,-6/53) (0 . ,-24/53) (0 . ,-30/53) (0 . ,-48/53)
       (3 . ,-6/53) (3 . ,-24/53) (3 . ,-30/53) (3 . ,-48/53)

       (3 . ,6/53) (3 . ,24/53) (3 . ,30/53) (3 . ,48/53)
       (0 . ,6/53) (0 . ,24/53) (0 . ,30/53) (0 . ,48/53)
       (4 . ,6/53) (4 . ,24/53) (4 . ,30/53) (4 . ,48/53)
       (1 . ,6/53) (1 . ,24/53) (1 . ,30/53) (1 . ,48/53)
       (5 . ,6/53) (5 . ,24/53) (5 . ,30/53) (5 . ,48/53)
       (2 . ,6/53) (2 . ,24/53) (2 . ,30/53) (2 . ,48/53)
       (6 . ,6/53) (6 . ,24/53) (6 . ,30/53) (6 . ,48/53)
       )

    \override KeySignature #'padding-pairs = #'(
       (("accidentals.natural" . "accidentals.natural") . 0.2)

       (("accidentals.flat" . "accidentals.flat") . 0.1)
       (("accidentals.flat" . "accidentals.flat.slash") . 0.0)
       (("accidentals.flat" . "accidentals.mirroredflat") . 0.2)
       (("accidentals.flat" . "accidentals.flat.slashslash") . 0.0)

       (("accidentals.flat.slash" . "accidentals.flat") . 0.0)
       (("accidentals.flat.slash" . "accidentals.flat.slash") . -0.1)
       (("accidentals.flat.slash" . "accidentals.mirroredflat") . 0.0)
       (("accidentals.flat.slash" . "accidentals.flat.slashslash") . 0.0)

       (("accidentals.mirroredflat" . "accidentals.flat") . 0.0)
       (("accidentals.mirroredflat" . "accidentals.flat.slash") . 0.4)
       (("accidentals.mirroredflat" . "accidentals.mirroredflat") . 0.3)
       (("accidentals.mirroredflat" . "accidentals.flat.slashslash") . 0.0)

       (("accidentals.flat.slashslash" . "accidentals.flat") . 0.0)
       (("accidentals.flat.slashslash" . "accidentals.flat.slash") . 0.3)
       (("accidentals.flat.slashslash" . "accidentals.mirroredflat") . 0.3)
       (("accidentals.flat.slashslash" . "accidentals.flat.slashslash") . -0.2)

       (("accidentals.sharp" . "accidentals.sharp") . 0.1)
       (("accidentals.sharp" . "accidentals.sharp.slashslash.stem") . 0.0)
       (("accidentals.sharp" . "accidentals.sharp.slashslashslash.stem") . 0.0)
       (("accidentals.sharp" . "accidentals.slashslashslash.stemstem") . 0.0)

       (("accidentals.sharp.slashslash.stem" . "accidentals.sharp") . 0.2)
       (("accidentals.sharp.slashslash.stem" . "accidentals.sharp.slashslash.stem") . 0.2)
       (("accidentals.sharp.slashslash.stem" . "accidentals.sharp.slashslashslash.stem") . 0.0)
       (("accidentals.sharp.slashslash.stem" . "accidentals.slashslashslash.stemstem") . 0.0)

       (("accidentals.sharp.slashslashslash.stem" . "accidentals.sharp") . 0.2)
       (("accidentals.sharp.slashslashslash.stem" . "accidentals.sharp.slashslash.stem") . 0.2)
       (("accidentals.sharp.slashslashslash.stem" . "accidentals.sharp.slashslashslash.stem") . 0.0)
       (("accidentals.sharp.slashslashslash.stem" . "accidentals.slashslashslash.stemstem") . 0.0)

       (("accidentals.sharp.slashslashslash.stemstem" . "accidentals.sharp") . 0.1)
       (("accidentals.sharp.slashslashslash.stemstem" . "accidentals.sharp.slashslash.stem") . 0.0)
       (("accidentals.sharp.slashslashslash.stemstem" . "accidentals.sharp.slashslashslash.stem") . 0.0)
       (("accidentals.sharp.slashslashslash.stemstem" . "accidentals.slashslashslash.stemstem") . 0.0)

       (("accidentals.flat" . "accidentals.sharp") . 0.3)
       (("accidentals.flat" . "accidentals.sharp.slashslash.stem") . 0.0)
       (("accidentals.flat" . "accidentals.sharp.slashslashslash.stem") . 0.0)
       (("accidentals.flat" . "accidentals.slashslashslash.stemstem") . 0.0)

       (("accidentals.flat.slash" . "accidentals.sharp") . 0.3)
       (("accidentals.flat.slash" . "accidentals.sharp.slashslash.stem") . 0.1)
       (("accidentals.flat.slash" . "accidentals.sharp.slashslashslash.stem") . 0.3)
       (("accidentals.flat.slash" . "accidentals.slashslashslash.stemstem") . 0.0)

       (("accidentals.mirroredflat" . "accidentals.sharp") . 0.3)
       (("accidentals.mirroredflat" . "accidentals.sharp.slashslash.stem") . 0.0)
       (("accidentals.mirroredflat" . "accidentals.sharp.slashslashslash.stem") . 0.0)
       (("accidentals.mirroredflat" . "accidentals.slashslashslash.stemstem") . 0.0)

       (("accidentals.flat.slashslash" . "accidentals.sharp") . 0.0)
       (("accidentals.flat.slashslash" . "accidentals.sharp.slashslash.stem") . 0.0)
       (("accidentals.flat.slashslash" . "accidentals.sharp.slashslashslash.stem") . 0.0)
       (("accidentals.flat.slashslash" . "accidentals.slashslashslash.stemstem") . 0.0)

       (("accidentals.sharp" . "accidentals.flat") . 0.0)
       (("accidentals.sharp" . "accidentals.flat.slash") . 0.0)
       (("accidentals.sharp" . "accidentals.mirroredflat") . 0.0)
       (("accidentals.sharp" . "accidentals.flat.slashslash") . 0.0)

       (("accidentals.sharp.slashslash.stem" . "accidentals.flat") . 0.0)
       (("accidentals.sharp.slashslash.stem" . "accidentals.flat.slash") . 0.0)
       (("accidentals.sharp.slashslash.stem" . "accidentals.mirroredflat") . 0.0)
       (("accidentals.sharp.slashslash.stem" . "accidentals.flat.slashslash") . 0.0)

       (("accidentals.sharp.slashslashslash.stem" . "accidentals.flat") . 0.0)
       (("accidentals.sharp.slashslashslash.stem" . "accidentals.flat.slash") . 0.0)
       (("accidentals.sharp.slashslashslash.stem" . "accidentals.mirroredflat") . 0.0)
       (("accidentals.sharp.slashslashslash.stem" . "accidentals.flat.slashslash") . 0.0)

       (("accidentals.sharp.slashslashslash.stemstem" . "accidentals.flat") . 0.0)
       (("accidentals.sharp.slashslashslash.stemstem" . "accidentals.flat.slash") . 0.0)
       (("accidentals.sharp.slashslashslash.stemstem" . "accidentals.mirroredflat") . 0.0)
       (("accidentals.sharp.slashslashslash.stemstem" . "accidentals.flat.slashslash") . 0.0)

       )

    \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
  }
}