\header{
 title = \markup { \override #'(font-name . "Times Bold") \fontsize #1.0 "HÜSEYNÎ PEŞREVİ"}
 composer = \markup { \override #'(font-name . "Times Bold") \fontsize #-1.0 "MÜZİK : Lavtacı Andon (?-1915?)"}
 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 2 { 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 ":" s1 \bar "|" \break s1 \bar ":" s1 \bar ":" s1 \bar ":" s1 \bar "||" s1 \bar "||" \break }

\repeat unfold 6 { 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 = #'(
 (6 . -1/9) (3 . 4/9))
\set Staff.extraNatural = ##f

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

a4.^\markup { \fontsize #-1.0 \italic "1. Hâne" } g'8 e2 fb8. e16 fb8 g e8. d16 c8 d c8. bfc16 bfc c bfc a a8. d16 c8 d e4. e16 d e4. d8 fb4. g8 fb16 e d8 e fb g2 g8 fb4 g8 fb8 e4 d8 a'8 g4 fb8 fb e16 g fb8 e e4. d8 a'4. fb8 g a g fb e4. g8 fb8. e16 d8 cb d4 e8 fb e4 fb8 g fb b a g fb e16 fb e8 fb g a g fb a4 g8 f e d \once \override Accidental #'stencil = ##f c bfc a4. g'8 e4. c8 d4. bfc8 c8 bfc16 d c8 bfc a2

\mark \markup { \normalsize \raise #1 \musicglyph #"scripts.segno" }
    g8^\markup { \fontsize #-1.0 \italic "Teslim" } a4 a8 a4 \times 2/3 {g'8 fb g} e4. d16 c d4 \times 2/3 {e8 d e} d8 c4 bfc8 a8 g f' e16 d d4. c8 d e4 d16 c c4. bfc8 r8 d4 c16 bfc bfc4. a8 r8 c4 bfc16 a a4 d16 c d8 a4 r4


e'8^\markup { \fontsize #-1.0 \italic "2, 4 Hâneye ver Karar" } f! e d c bfc a4

fb'8^\markup { \fontsize #-1.0 \italic "3. Hâneye" } g a8. g16 fb8 g a4

g,4^\markup { \fontsize #-1.0 \italic "2. Hâne" } a a8 g' fb g r8 e16 fb e8 fb r8 d4 e8 fb4 g a16 g a b a8 g fb8. e16 fb8 g a4. b8 g4. a8 g fb16 e fb8 g fb8. e16 d8 e d4 c'8 b a4 g8 fb b g4 fb8 fb e16 g fb8 e e4. a8 e4. d8 e8. d16 c8 d d8. c16 bfc8 c bfc c d d16 c c4. d8 e4. fb8 g4 f8 e d8. c16 bfc8 c d e \once \override Accidental #'stencil = ##f fb g a4 g8 f e d c bfc a4. g'8 e4. c8 d4. bfc8 c bfc16 d c8 bfc a2

g'4^\markup { \fontsize #-1.0 \italic "3. Hâne" } a a16 g a bfc a8 g \times 2/3 {fb8 e d} fb g a4. bfc8 c d c bfc a g d' c e c4 bfc8 a8. g16 a8 bfc d c4 bfc8 bfc8. a16 g8 a g4 c8 bfc c d4 c16 bfc a bfc c4 bfc16 a a2~ a4 \times 2/3 {d8 c d} a4 r4 bfk2 bfk16 a bfk c a8 g fb efk d efk fb4 efk8 d a'4 g8 fb fb efb16 fb efb8 d d4. f8 e d c4 d8 e fb g a4 g8 f e d c bfc a4. g'8 e4. c8 d4. bfc8 c bfc16 d c8 bfc a2

g4^\markup { \fontsize #-1.0 \italic "4. Hâne" } a r8 d8 c bfc a8. g16 fb8 g a4. bfc8 c4. dfb8 c8 dfb16 e dfb8 c \times 2/3 {c8 bfc a} bfc8 c bfc8. a16 g8 a bfc4. a8 c4. bfc8 dfb!4 c8 bfc a8. g16 fb8 g a4 g8 fb dfb'! c bfc a a g16 a g8 fb fb4. cb'!8 d4. e8 d8. cb!16 b8 cb d e cb! d e fb d e fb4. g8 fb g fb e d8. \once \override Accidental #'stencil = ##f c16 \once \override Accidental #'stencil = ##f bfc8 d c d c bfc d e fb g a4 g8 f e d c bfc a4. g'8 e4. c8 d4. bfc8 c8 bfc16 d c8 bfc a2

} }
>>