\header{
 title = \markup { \override #'(font-name . "Times Bold") \fontsize #1.0 "MÂHÛR PEŞREVİ"}
 composer = \markup { \override #'(font-name . "Times Bold") \fontsize #-1.0 "MÜZİK : Tanbûrî Cemil Bey (1871-1916)"}
 meter = \markup { \override #'(font-name . "Times Bold") \fontsize #-1.0 "USÛLÜ : Muhammes"}
 tagline = ""
 copyright = ""
}

\version "2.11.17-1"

%{

Define 1/9 alterations.

%}

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

%{

Define pitch names

%}

makamPitchNames = #`(
 (c . ,(ly:make-pitch -1 0 NATURAL))
 (d . ,(ly:make-pitch -1 1 NATURAL))
 (e . ,(ly:make-pitch -1 2 NATURAL))
 (f . ,(ly:make-pitch -1 3 NATURAL))
 (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))
 (fc . ,(ly:make-pitch -1 3 KOMA))
 (gc . ,(ly:make-pitch -1 4 KOMA))
 (ac . ,(ly:make-pitch -1 5 KOMA))
 (bc . ,(ly:make-pitch -1 6 KOMA))

 (cb . ,(ly:make-pitch -1 0 BAKIYE))
 (db . ,(ly:make-pitch -1 1 BAKIYE))
 (eb . ,(ly:make-pitch -1 2 BAKIYE))
 (fb . ,(ly:make-pitch -1 3 BAKIYE))
 (gb . ,(ly:make-pitch -1 4 BAKIYE))
 (ab . ,(ly:make-pitch -1 5 BAKIYE))
 (bb . ,(ly:make-pitch -1 6 BAKIYE))

 (ck . ,(ly:make-pitch -1 0 KUCUK))
 (dk . ,(ly:make-pitch -1 1 KUCUK))
 (ek . ,(ly:make-pitch -1 2 KUCUK))
 (fk . ,(ly:make-pitch -1 3 KUCUK))
 (gk . ,(ly:make-pitch -1 4 KUCUK))
 (ak . ,(ly:make-pitch -1 5 KUCUK))
 (bk . ,(ly:make-pitch -1 6 KUCUK))

 (cbm . ,(ly:make-pitch -1 0 BUYUKMUCENNEB))
 (dbm . ,(ly:make-pitch -1 1 BUYUKMUCENNEB))
 (ebm . ,(ly:make-pitch -1 2 BUYUKMUCENNEB))
 (fbm . ,(ly:make-pitch -1 3 BUYUKMUCENNEB))
 (gbm . ,(ly:make-pitch -1 4 BUYUKMUCENNEB))
 (abm . ,(ly:make-pitch -1 5 BUYUKMUCENNEB))
 (bbm . ,(ly:make-pitch -1 6 BUYUKMUCENNEB))

 ;; f for flat.
 (cfc . ,(ly:make-pitch -1 0 (- KOMA)))
 (dfc . ,(ly:make-pitch -1 1 (- KOMA)))
 (efc . ,(ly:make-pitch -1 2 (- KOMA)))
 (ffc . ,(ly:make-pitch -1 3 (- 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)))
 (ffb . ,(ly:make-pitch -1 3 (- BAKIYE)))
 (gfb . ,(ly:make-pitch -1 4 (- BAKIYE)))
 (afb . ,(ly:make-pitch -1 5 (- BAKIYE)))
 (bfb . ,(ly:make-pitch -1 6 (- BAKIYE)))

 (cfk . ,(ly:make-pitch -1 0 (- KUCUK)))
 (dfk . ,(ly:make-pitch -1 1 (- KUCUK)))
 (efk . ,(ly:make-pitch -1 2 (- KUCUK)))
 (ffk . ,(ly:make-pitch -1 3 (- KUCUK)))
 (gfk . ,(ly:make-pitch -1 4 (- KUCUK)))
 (afk . ,(ly:make-pitch -1 5 (- KUCUK)))
 (bfk . ,(ly:make-pitch -1 6 (- KUCUK)))

 (cfbm . ,(ly:make-pitch -1 0 (- BUYUKMUCENNEB)))
 (dfbm . ,(ly:make-pitch -1 1 (- BUYUKMUCENNEB)))
 (efbm . ,(ly:make-pitch -1 2 (- BUYUKMUCENNEB)))
 (ffbm . ,(ly:make-pitch -1 3 (- BUYUKMUCENNEB)))
 (gfbm . ,(ly:make-pitch -1 4 (- BUYUKMUCENNEB)))
 (afbm . ,(ly:make-pitch -1 5 (- BUYUKMUCENNEB)))
 (bfbm . ,(ly:make-pitch -1 6 (- BUYUKMUCENNEB)))

)


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

\paper {
after-title-space = 14\mm
}


makamGlyphs = #'((1 . "accidentals.doublesharp")
 (8/9 . "accidentals.sharp.slashslashslash.stemstem")
 (5/9 . "accidentals.sharp.slashslashslash.stem")
 (4/9 . "accidentals.sharp")
 (1/9 . "accidentals.sharp.slashslash.stem")
 (0 . "accidentals.natural")
 (-1/9 . "accidentals.mirroredflat")
 (-4/9 . "accidentals.flat.slash")
 (-5/9 . "accidentals.flat")
 (-8/9 . "accidentals.flat.slashslash")
 (-1 . "accidentals.flatflat")
 )

\layout { \context { \Score \remove "Bar_number_engraver" } }

\new Staff  <<
\new Voice { 
\repeat unfold 4 { s1 \bar ":" s1 \bar ":" s1 \bar ":" s1 \bar "|" \break s1 \bar ":" s1 \bar ":" s1 \bar ":" s1 \bar "||" \break }
\repeat unfold 1 { s1 \bar "||" s1 \bar "||" s1 \bar "|." \break }
\repeat unfold 4 { s1 \bar ":" s1 \bar ":" s1 \bar ":" s1 \bar "|" \break s1 \bar ":" s1 \bar ":" s1 \bar ":" s1 \bar "||" \break }
\repeat unfold 2 { s1 \bar ":" s1 \bar ":" s1 \bar ":" s1 \bar "|" \break s1 \bar ":" s1 \bar ":" s1 \bar ":" s1 \bar "||" \break }
 }

\new Voice { \relative a' {
\time 32/4

 %{ define alteration <-> symbol mapping. The following glyphs are available.

 accidentals.sharp 
 accidentals.sharp.slashslash.stem 
 accidentals.sharp.slashslashslash.stemstem 
 accidentals.sharp.slashslashslash.stem 
 accidentals.sharp.slashslash.stemstemstem 
 accidentals.natural 
 accidentals.flat 
 accidentals.flat.slash 
 accidentals.flat.slashslash 
 accidentals.mirroredflat.flat 
 accidentals.mirroredflat 
 accidentals.flatflat 
 accidentals.flatflat.slash 
 accidentals.doublesharp 

 %}

 \override Accidental #'glyph-name-alist = \makamGlyphs

 \override Staff.KeySignature #'glyph-name-alist = \makamGlyphs
 \set Staff.keySignature = #'(
 (3 . 5/9))
\set Staff.extraNatural = ##f

\override TextScript #'extra-offset = #'( 0.0 . 1.0 )

fk'4.^\markup { \fontsize #-1.0 \italic "1. Hâne" } a16 g g2 g4 a8 bfk a4 g a16 g fk e fk8 g fk g16 fk e4 r8 g fk e a4 g8 fk e16 fk g4 fk16 e e8. d16 f16 e d cb d4 e8 \once \override Accidental #'stencil = ##f fk g a g \once \override Accidental #'stencil = ##f b a8. g16 fk8 g fk g a a16 g g4. g16 fk fk e e fk g4 d8 g4 c8 b8. ab16 g16 ab b c ab!8 b4 ab16 g g8. fk16 e4 b'8. \once \override Accidental #'stencil = ##f a16 c8 b16 a a8. g16 b8 a16 g g8. fk16 a8 g16 fk fk e d8 e fk a8 g4 g16 fk fk8. e16 e8. d16 d8. c16 f e d c b4 g' r8 \once \override Accidental #'stencil = ##f fk4 d8 e8. d16 f e d cb d4. e16 \once \override Accidental #'stencil = ##f fk g a g fk g4

\mark \markup { \normalsize \raise #1 \musicglyph #"scripts.segno" }
    d4^\markup { \fontsize #-1.0 \italic "Teslim" }  g g16 a g fk e fk g a fk8 g4 fk16 e fk8. e16 a8. g16 g8. fk16 fk8. e16 a g fk e d4 e8. fk16 g8 a fk g e f e8. d16 cb8 e d2 d4 g g16 a g \once \override Accidental #'stencil = ##f fk e fk g a fk8 g4 f16 e d8. \once \override Accidental #'stencil = ##f c16 b8 c a4 b8 c d f! e d

d8 c4 b8 b a d16 c b a g4 e'16 f e d c8 d4 e8 d8 c16 b a8 b d c4.~ c4 c16 d c b b4 b16 c b a

d c b  a g8 b a4. e'8 d c b a g fk e b' a8. g16 fk8 g fk g a a16 g 

g4.^\markup { \fontsize #-1.0 \italic "2. Hâneye" } e'16 d d c c b c4
g4.^\markup { \fontsize #-1.0 \italic "3. Hâneye" } d''16 c c b b ab b4 g,4.^\markup { \fontsize #-1.0 \italic "4. Hâneye" } d'8 e fk g \once \override Accidental #'stencil = ##f a
g,4.^\markup { \fontsize #-1.0 \italic "Karar" } d8 e fk g4

g4^\markup { \fontsize #-1.0 \italic "2. Hâne" } c8 b c4 e8 d d c4 b8 b16 c b a a4 a8 c b a g fk g a g a4 c8 b8. a16 g4 g4 c8 b c4 d8 e d e4. \times 2/3 {f8 e d } \times 2/3 {c b a} g4 e'16 d cb d e4 d8 e16 \once \override Accidental #'stencil = ##f fk g4 fk8 a g2 e8 fk g4 e8 fk g a g a g fk g8. fk16 e4 r8 g fk e d cb! d e d e4 g8 fk8. e16 d4 fk g g8 a g fk g a g b a4 d,8 e fk g a b a8. g16 fk16 b a g g4. fk8 fk16 e e fk g4

r8^\markup { \fontsize #-1.0 \italic "3. Hâne" } g4 ab8 b2 c8. b16 ab8 b ab c b4
g4 \once \override Accidental #'stencil = ##f a a8. b16 d8 c16 b b4. a16 g g4 r4 b4 c c8 d c b
c d c e d4 c8 b a4. g16 fk fk4. e16 fk g8. fk16 g8 a16 bfk a g f e d4
g8. f16 e8 f e f e d c4 d d e c16 d c b c8 e d16 c d e d8 c
b4. d8 c8. a'16 g8 f! f! e4 d8 d8. c16 c8. b16 b8. a16 b8 c d16 c b a g4
g e'8 f! e d cb16 f e d d4. e16 \once \override Accidental #'stencil = ##f fk g a g fk g4

fk4^\markup { \fontsize #-1.0 \italic "4. Hâne" } g g fk8 g b a g fk g8. fk16 e4 e8 g fk e d cb! d e16 fk d8 fk4 e16 d e d cb! d e4 b g'8 fk g4 a8 b a g fk e fk e d cb d cb! d e fk16 e d cb cb d cb b b4. b'16 a a g g fk g4

d g8 fk g4 a8 b a b4 a16 g a b c4 c16 b b8. a16 a8. g16 g8. fk16 fk8. e16 e8 b' a8 g16 fk a g fk e d4 fk g4 g f8 e r8 d4 c8 b4 g' r8 fk4 d8 e8. d16 f e d cb d4. e16 \once \override Accidental #'stencil = ##f fk g a g fk g4

} }
>>