\header{
 title = \markup { \override #'(font-name . "Times Bold") \fontsize #1.0 "ACEM KÜRDÎ SAZ SEMÂÎSİ" }
 composer = \markup { \override #'(font-name . "Times Bold") \fontsize #-1.0 "MÜZİK : Cevdet Çağla (1900-1988)" }
 meter = \markup { \override #'(font-name . "Times Bold") \fontsize #-1.0 "USÛLÜ : Aksak Semâi" }
 tagline = ""
 copyright = ""
}

\version "2.11.14"

%{

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 = 15\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 { 

s4*5 s4*5 \break s4*5 s4*5 \bar "||" \break

}

 }

\new Voice { \relative a' {
\time 10/8

 %{ 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 . -5/9))
\set Staff.extraNatural = ##f

 #(override-auto-beam-setting '(end * * * *) 2 8)
 #(override-auto-beam-setting '(end * * * *) 3 8)
 #(override-auto-beam-setting '(end * * * *) 5 8)
 #(override-auto-beam-setting '(end * * * *) 7 8)
 #(override-auto-beam-setting '(end * * * *) 9 8)
 #(override-auto-beam-setting '(end * * * *) 10 8)

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

f'4^\markup { \fontsize #-1.0 \italic "1. Hâne" } f16 e f8. e16 f8 g a g f e4 e16 d d8 e16 d d c c bfc c4 r8
f16 e f g f e e8. d16 f e d cb d4 r8 a'8 g bfk a8. g16 g f f e f4 r8 

 \bar "||"

\mark \markup { \normalsize \raise #1 \musicglyph #"scripts.segno" }
f4^\markup { \fontsize #-1.0 \italic "Teslim" } f16 e e8. d16 d8 e16 f e d c8 bfc c16 d c8 d c d16 efk d8 c bfk4 a8 a8
bfk c16 d c8 efk d c bfk4 a16 g c4 bfk16 a efk'8 d16 c c bfk bfk a a4 r8


a4^\markup { \fontsize #-1.0 \italic "2. Hâne" } g'16 f e8. d16 e d c d e d c b  a gb a4 g8 c16  bfk a gb a bfk c d e4 r8
d16 e f g a8 g8. f16 e f g e f4 r8 f e d cb8. d16 e f e d d4
 \once \override Script #'extra-offset = #'( 3.5 . 1.5 ) r8^\segno \bar "||"
	
g8^\markup { \fontsize #-1.0 \italic "3. Hâne" } a a bfk bfk16 a a8 a16 gb a8 bfk4 bfk bfk16 a a8. g16 g8 a16 g g f f e f8
e f g afb g f afb g16 f e dfb c8 c'16 bfc afb g f8 e8. f16 e dfb dfb c c4

 \once \override Script #'extra-offset = #'( 2.5 . 1.5 ) r8^\segno \bar "||"


 #(revert-auto-beam-setting '(end * * * *) 1 8)
 #(revert-auto-beam-setting '(end * * * *) 2 8)
 #(revert-auto-beam-setting '(end * * * *) 3 8)
 #(revert-auto-beam-setting '(end * * * *) 4 8)
 #(revert-auto-beam-setting '(end * * * *) 5 8)
 #(revert-auto-beam-setting '(end * * * *) 6 8)
 #(revert-auto-beam-setting '(end * * * *) 7 8)
 #(revert-auto-beam-setting '(end * * * *) 9 8)
 #(revert-auto-beam-setting '(end * * * *) 10 8)

 #(override-auto-beam-setting '(end * * * *) 3 8)
 #(override-auto-beam-setting '(end * * * *) 5 8)
 #(override-auto-beam-setting '(end * * * *) 7 8)
 #(override-auto-beam-setting '(end * * * *) 10 8)

\time 10/8
\repeat volta 1 {a8.^\markup { \fontsize #-1.0 \italic "4. Hâne" \fontsize #-1.0 Curcuna } 
bfk16 c8 d e f g a g bfk a4.~ a4~ a~ a4. a8 g bfk a g f e d c bfk a4.~ a4~ a~ a4. }

\repeat volta 1 {c8 d efk d c d c bfk a c  bfk4.~ bfk4~ bfk~ bfk4.  a8 bfk c d efk d c bfk a gb a4.~ a4~ a~ a4. }

r4 c8 c bfk a gb a4 r8 r4 a8 gb f gb4 a r8 r4 c8 c bfk a gb a4 r8 r4 a8 gb f gb4 a r8

\repeat volta 1 {c8 dfb e dfb c dfb c bfc a bfc c4.~ c4~ c~ c4. c8 dfb dfb c bfc c dfb c bfc a a4.~ a4~ a~ a4. }

r4 c8 c bfk a gb a4 r8 r4 a8 gb f gb4 a r8 r4 c8 c bfk a gb a4 r8 r4 a8 gb f gb4 a r8

\repeat volta 1 {c8 dfb e f g afb g f e f g4.~ g4~ g~ g4. c8 bfc afk g f e f e dfb c c4.~ c4~ c~ c4. }

\repeat volta 1 {r8 c d d d d g dfc4 c8 r4 dfb8 c bfc a bfc c dfb e dfb c bfk a c bfk4 afb g8 g afb bfc c d c bfc afb g f f4.~ f4~ f~ f4. }

\repeat volta 1 {c'4 f e8 f e d4 c8 f e d c bfk a g f4. }

f4 gb8 a4 bfk a gb8 a4.~ a4~ a~ a4.

\repeat volta 1 {r4 c8 c bfk a gb a4 r8 r4 a8 gb f gb4 a r8 r4 c8 c bfk a gb a4 r8 r4 a8 gb f gb4 a

 \once \override TextScript #'extra-offset = #'( -1.0 . -1.0 ) r8_\markup { \fontsize #-1.0 \italic "D.S. al fine" }
}

}
}
>>