\header{
 title = \markup { \override #'(font-name . "Times Bold") \fontsize #1.0 "ŞEHNÂZ SAZ SEMÂÎSİ" }
 composer = \markup { \override #'(font-name . "Times Bold") \fontsize #-1.0 "MÜZİK : Kemençecı Nikolaki (??-??)" }
 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" } }

\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 = #'(
	(4 .  4/9)
	(0 .  4/9)
	(3 .  1/9)
	(6 . -4/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 )

a'4^\markup { \fontsize #-1.0 \italic "1. Hâne" } a8 gb8. a16 b32 a b c b16 a a4 gb16 fc e4 fc16 gb fc e d8 a'16. gb32 fc16 gb a4 r8 gb16 a b cb b  a gb8. b16 a8. c16 b16 a gb fc e8 b'8. c16 b16 a gb8. e16 fc32 e fc gb fc16 e16 e4 r8 \bar "||:"

\mark \markup { \normalsize \raise #1 \musicglyph #"scripts.segno" }
\repeat volta 1 { a8^\markup { \fontsize #-1.0 \italic "Teslim" } g fb a8. b16 a16 g f e f8 e d e16 d cb8 d e8. d16

g8 f16 e e4 r8 cb8. bfb16 bfb a a4 a'8 g16 f e8. f16 e d cb4 bfb16 cb d8. e16 cb16 bfb bfb a a4 r8} \break

d4^\markup { \fontsize #-1.0 \italic "2. Hâne" } e8 e8. fc16 e d c8 g'8. a16 g fc e8. fc16 e d c8. d16 c bfc bfc a a4 r8 a8 bfb cb d e fc gb a16 gb fc e d8 e16 d cb8 d e8. d16
g8 f16 e e4 \once \override Script #'extra-offset = #'( 3.5 . 1.5 ) r8^\segno \bar "||" \break

a4^\markup { \fontsize #-1.0 \italic "3. Hâne" } gb16 fc e8. d16 e fc e d c b a8 r8 c'4 b8 b16 a a gb a8 gb16 b a4 r8 a4 gb16 a b8. a16 b d c b a gb a8 r8 b16 a g8 a16 g fb8. g16 fb16 e d8 e4 \once \override Script #'extra-offset = #'( 2.5 . 1.5 ) r8^\segno \bar "||"
 \break

\time 18/8
a,4^\markup { \fontsize #-1.0 \italic "4. Hâne" \fontsize #-1.0 Yürük Semâi } a8 d4.~ d4 cb8 d4 e8 fc4.~ fc4 d8 e4 fc8 gb4.~ gb4 e8 fc4 gb8 a [gb fc] fc [e d]

a4 a8 d4.~ d4 cb8 d4 e8 fc4.~ fc4 d8 e4 fc8  a [gb fc] fc [e d] e4 r8 r4. e4 fb8

g4 fb8 g4.~ g4 b8 a4 g8 fb4.~ fb4  a8 g4 f8 e4.~ e4 g8 f4  e8 d4. cb4.

d4 d8 a'4.~ a4 g8 f4 e8 d4 cb8 bfb4 a8 bfb [a g] a4 bfb8 cb4 a8 bfb4 g8 a4. \once \override TextScript #'extra-offset = #'( -1.0 . -1.0 ) r4._\markup { \fontsize #-1.0 \italic "D.S. al fine" } \bar "||"


}