\header{
 title = \markup { \override #'(font-name . "Times Bold") \fontsize #1.0 "NİHAVEND PEŞREVİ"}
 composer = \markup { \override #'(font-name . "Times Bold") \fontsize #-1.0 "MÜZİK : Tanburi Osman Bey (1816-1885)"}
 meter = \markup { \override #'(font-name . "Times Bold") \fontsize #-1.0 "USÛLÜ : Devr-i Kebîr"}
 tagline = ""
 copyright = ""
}

\version "2.11.15-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 {
top-margin = 2\mm
between-system-padding = 5\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*6 \bar ":" s1 \bar ":" s1 \bar "|" s4*6 \bar ":" s1 \bar ":" s1 \bar "||" }
\repeat unfold 1 { s1 \bar "||" s1 \bar "||" s1 \bar "|." }
\repeat unfold 9 { s4*6 \bar ":" s1 \bar ":" s1 \bar "|" s4*6 \bar ":" s1 \bar ":" s1 \bar "||" }
}

\new Voice { \relative a' {
\time 28/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 = #'(
 (2 . -5/9) (6 . -5/9) )
\set Staff.extraNatural = ##f

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

c4^\markup { \fontsize #-1.0 \italic "1. Hâne" } d d c8 bfk16 c bfk4. f'8 f16 efc f g f8 efk efk16 d efk f efk8 d d16 c d efk d8 c bfk f'16 efk efk d d c c bfk bfk a bfk8 c bfk4 d8 efk d4 c8 d c bfk16 c bfk8 a16 bfk a8 g16 a g8 fb g d'4 c16 bfk a g fb! efk d4

d8 g4 fb8 g16 a g fb g8 a bfk4. a8 g4 fb! r8 bfk4 a8 bfk16 c bfk a bfk8 c d8 f16 efk efk d d c c bfk bfk a a g g fb! g4 d'8 efk d4 c8 d c8 bfk16 c bfk8 a16 bfk a8 g16 a g8 fb! g4. d8 efk fb! g4

\break
g2 d'8 efk16 fb efk8 fb16 g fb efk d8~ d4 cb2 d8 [efk d efk] fb! g16 a fb8 efk d16 cb! d efk fb g a bfk a g g fb! g4 g8 a16 g fb8 g a bfk16 c bfk a g8 fb!16 g a bfk a g fb efk d16 efk fb g a fb g efk d cb! d efk fb! g a bfk a g g fb g4

\break
\mark \markup { \normalsize \raise #0 \musicglyph #"scripts.segno" }
r16^\markup { \fontsize #-1.0 \italic "Teslim" } g32 fb g16 a g8 fb r16 fb32 efk fb16 g fb8 efk r16 efk32 d efk16 fb efk8 d d16 efk d c c bfk bfk a bfk4 c8 bfk c16 d efk g f8 efk d efk16 f efk d c8 bfk4 a r8 bfk16 a g8. a16 bfk8 c d4 c8 [bfk a g] a16 c bfk a a g g fb g4~^\markup { \fontsize #-1.0 \italic "2. Hâneye" } g16 f g a bfk2 \break g4.^\markup { \fontsize #-1.0 \italic "3. Hâneye" } d'8 efk fb g4 g,4.^\markup { \fontsize #-1.0 \italic "4. Hâneye" } fb'16 efk d cb bfk cb d4 g,2^\markup { \fontsize #-1.0 \italic "Karar" } r2 
\break

bfk16^\markup { \fontsize #-1.0 \italic "2. Hâne" } a bfk d c bfk a g f2 g8 f16 g a8 g16 a bfk8 a16 bfk d8 c16 bfk bfk4 a8 bfk a4 g fb4. efk16 d \break d efk fb! g a g fb efk \bar "" d4 a'8 bfk a4 g a8 bfk16 c bfk8 a a g16 a g8 fb g4. fb!16 g a2

a8 bfk a g fb!4~ fb c'8. bfk16 a8 g fb! efk d cb d4 d8 efk fb!4 g a8 g16 a bfk8 a16 bfk c8 bfk16 c d4~ \bar "" d d8 efk d4 c8 d c bfk16 c bfk8 a16 bfk a8 g16 a g8 fb g4. a16 bfc c2

c8 dfb4 c8 c8. bfk16 a8 bfk c d16 efk d8 c bfk16 c bfk a g4 d'8 efk4 d8 d8. c16 bfk8 c d16 c d efk d8 c bfk16 c bfk a a4~ \bar "" a a'8 bfk a4 g fb4. efk16 d d efk fb g a fb g efk d cb d efk fb! g a bfk a g g fb \once \override Script #'extra-offset = #'( 3.0 . 1.5 ) g4^\segno

g16^\markup { \fontsize #-1.0 \italic "3. Hâne" } a g fb! g8 a g4 fb g a bfk4~ bfk bfk16 a bfk c bfk8 a a g16 a g8 fb! g4. d'8 cb efk d4~ \bar "" d d8 efk d4 c8 d c bfk16 c bfk8 a16 bfk a8 g16 a g8 fb g4. d8 efk fb! g4

g8 afk g f f4. efk8 efk4. f8 g4. afk!8 bfk4. afk 8 g4. f8 f bfk16 afk afk g g f \break f16 efk efk d d c c bfc \bar "" c4 bfk!16 c bfk a bfk8 c d4 c8 bfk16 c bfk8 a16 bfk a8 g16 a g8 fb g16 g'8 f16 efk8 d c bfk a16 g fb! g \break

a4. bfk8 a16 bfk a g fb!8 g a4. c8 bfk8. a16 g4 d'4. c8 bfk c d efk d efk fb g \break fb! a g4~ \bar "" g fb8 g a bfk a g a g fb! efk d16 efk fb g a fb g efk d cb d efk fb! g a bfk a g g fb \once \override Script #'extra-offset = #'( 3.0 . 1.5 ) g4^\segno

cb,!4^\markup { \fontsize #-1.0 \italic "4. Hâne" } d d fb! d8 efk16 fb efk8 d d8. cb!16 bfk4 bfk a8 bfk cb! d bfk cb d fb!16 efk efk d d cb \break cb! bfk bfk a a4~ \bar "" a a8 bfk cb!4 d cb!8 bfk a g a16 cb! bfk a a g g fb g16 g'8 f16 efk8 d c bfk a16 g fb! g

a4. bfk8 a16 bfk a g fb!8 g a4. c8 bfk8. a16 g8 a16 bfc c2 c16 d c bfk a8 bfk c8. efk16 d8 c d16 c bfk a g8 a \bar "" fb4 d8 efk d4 a'16 bfk a g a8 fb!4 d8 efk fb g fb16 efk d8 d'4 c16 bfk a g fb! efk d4 \break

d2 efk4 fb! g2 a16 bfk a g fb!8 g a2 bfk4 cb d4. g8 \break

fb a g4~ \bar "" g fb8 g a bfk a g a g fb! efk d16 efk fb g a g fb efk d cb d efk fb! g a bfk a g g fb \once \override Script #'extra-offset = #'( 3.0 . 1.5 ) g4^\segno

} }
>>