%\version "2.19.82"
\version "2.18.2"

\include "turkish-makam.ly"

music = \relative c' {

\key c \Cargah c'1^"Cargah"
\key g \Rast g8^"Rast" a bfc c d e fb g

\key f \AcemAsiran f,1^"AcemAsiran"
\key g \Mahur g'^"Mahur"
\key g \Zavil g^"Zavil"
\key g \Suzidilara g^"Suzidilara"
\key f \Tarzicedid f,^"Tarzicedid"
  
%%% Rast and similar  
\key g \Rast g^"Rast"
\key g \Pencgah g^"Pencgah"
\key g \Pesendide g^"Pesendide"
\key g \Rehavi g^"Rehavi"
\key g \Sazkar g^"Sazkar"
\key g \Sevkedil g^"Sevkedil"
\key g \Suznak g^"Suznak"
\key g \Serefnuma g^"Serefnuma"
  
%%% Ussak and similar  
\key a \Ussak a^"Ussak"
\key a \Acem a^"Acem"
\key a \Beyati a^"Beyati"
\key a \Hisar a^"Hisar"
\key a \Isfahan a^"Isfahan"
\key a \Isfahanek a^"Isfahanek"
\key a \YeniSipihr a^"YeniSipihr"
  
%%% Buselik and transpositions and similar  
\key a \Buselik a^"Buselik"
\key d \Ferahfeza d,^"Ferahfeza"
\key a \HisarBuselik a'^"HisarBuselik"
\key a \SehnazBuselik a^"SehnazBuselik"
\key g \Nihavend g^"Nihavend"
\key e \Ruhnuvaz e^"Ruhnuvaz"
\key e \Zirefkend e^"Zirefkend"
  
%%% Neva and similar  
\key a \Neva a^"Neva"
\key a \Gerdaniye a^"Gerdaniye"
\key a \Gulizar a^"Gulizar"
\key a \Huseyni a^"Huseyni"
\key a \Muhayyer a^"Muhayyer"
\key a \SultaniIrak a^"SultaniIrak"
\key a \Tahir a^"Tahir"
\key a \TahirBuselik a^"TahirBuselik"
  
%%% Kurdi and similar and transpositions  
\key a \Kurdi a^"Kurdi"
\key a \AcemKurdi a^"AcemKurdi"
\key e \Askevza e^"Askevza"
\key a \MuhayyerKurdi a^"MuhayyerKurdi"
\key g \KurdiliHicazkar g^"KurdiliHicazkar"
\key d \Ferahnuma d^"Ferahnuma"
  
%%% Hicaz and similar  
\key a \Hicaz a'^"Hicaz"
\key a \HicazHumayun a^"HicazHumayun"
\key a \Sehnaz a^"Sehnaz"
\key a \HicazZirgule a^"HicazZirgule"
\key g \Hicazkar g^"Hicazkar"
%%% cc is printed because of transposition of zirgule. Keep?  
\key e \Suzidil e^"Suzidil"
\key d \SedAraban d^"SedAraban"
\key a \HicazUzzal a'^"HicazUzzal"
  
%%% Karcigar and similar  
\key a \Karcigar a^"Karcigar"
\key a \BeyatiAraban a^"BeyatiAraban"
  
%%% Saba and similar  
\key a \Saba a^"Saba"
\key a \Dugah a^"Dugah"
\key a \MuhayyerSunbule a^"MuhayyerSunbule"
\key a \SabaZemzeme a^"SabaZemzeme"
\key a \Eskisipihr a^"Eskisipihr"
\key a \Kucek a^"Kucek"
  
%%% HuseyniAsiran and similar  
\key e \HuseyniAsiran e^"HuseyniAsiran"
\key e \Nuhuft e^"Nuhuft"
  
%%% Yegah and similar  
\key d \Yegah d^"Yegah"
\key d \Dilkeside d^"Dilkeside"
  
%%% Segah and similar  
\key bfc \Segah bfc'^"Segah"
\key bfc \Mustear bfc^"Mustear"
\key bfc \VechiArazbar bfc^"VechiArazbar"
  
%%% Huzzam uses -18/53 at 3  
\key bfc \Huzzam bfc^"Huzzam"
  
%%% Arazbar and similar  
\key a \Arazbar a^"Arazbar"
  
%%% SultaniYegah and similar  
\key d \SultaniYegah d,^"SultaniYegah"
  
%%% BuselikAsiran and similar  
\key e \BuselikAsiran e^"BuselikAsiran"
\key e \Canfeza e^"Canfeza"
  
%%% Irak and similar  
\key fb \Irak fb^"Irak"
\key fb \Evcara fb^"Evcara"
\key fb \Evic fb^"Evic"
\key fb \Ferahnak fb^"Ferahnak"
\key fb \Dilkeshaveran fb^"Dilkeshaveran"
  
%%% Rahatulervah uses -18/53 at 3  
\key fb \Rahatulervah fb^"Rahatulervah"
  
%%% Nisabur and similar  
\key b \Nisabur b^"Nisabur"
  
%%% CargahEski and similar  
\key c \CargahEski c^"CargahEski"
  
%%% Guldeste and similar  
\key g \Guldeste g^"Guldeste"
  
%%% Buzurk and similar  
\key g \Buzurk g^"Buzurk"
  
%%% Nisaburek and similar  
\key a \Nisaburek a^"Nisaburek"
  
%%% Neveser and similar  
\key g \Neveser g^"Neveser"
  
%%% Nikriz and similar  
\key g \Nikriz g^"Nikriz"
  
%%% SultaniSegah and similar  
\key d \SultaniSegah d^"SultaniSegah"
  
%%% Sevkefza and similar  
\key f \Sevkefza f^"Sevkefza"
  
%%%FLIP D AND A ORDER  
\key f \Rengidil f^"Rengidil"
\key f \Sevkitarab f^"Sevkitarab"
\key f \Sevkaver f^"Sevkaver"
  
%%% TEST BIG TIME  
\key d \Sivenuma d^"Sivenuma"
  
%%%% FIGURE OUT HOW TO NOT PRINT FB IN KEY SIG  
%%% BesteNigar uses -48/53 at 5  
\key fb \BesteNigar fb^"BesteNigar"
\key fb \Revnaknuma fb^"Revnaknuma"

}

BarlinesForm = {
  %\repeat unfold 8 { \DevriKebirBars }
}

TheBreaks = {
  \repeat unfold 6 {s1} \break
  \repeat unfold 6 {s1} \break
  \repeat unfold 2 {s1} \break
  \repeat unfold 7 {s1} \break
  \repeat unfold 7 {s1} \break
  \repeat unfold 8 {s1} \break
  \repeat unfold 6 {s1} \break
  \repeat unfold 4 {s1} \break
  \repeat unfold 4 {s1} \break
  \repeat unfold 2 {s1} \break
  \repeat unfold 6 {s1} \break
  \repeat unfold 4 {s1} \break
  \repeat unfold 4 {s1} \break
  \repeat unfold 5 {s1} \break
  \repeat unfold 5 {s1} \break
  \repeat unfold 5 {s1} \break

}

MelodyForm = {
  \time 4/4

  \music
}

LyricsOne={\new Lyrics \lyricsto "MelodyForm" { _ }}

LyricsTwo={\new Lyrics \lyricsto "MelodyForm" { _ }}

LyricsThree={\new Lyrics \lyricsto "MelodyForm" { _ }}

LyricsPrint = \markup { }

usulcreate = {
}

MelodyFormMidi = {
}

UsulFormMidi = \repeat unfold 8 {
}

%%%%%%%%%%%%%%%%%%%% HEADER %%%%%%%%%%%%%%%%%%%%

\header {
  titleUC =  \markup {"TURKISH MAKAM KEY SIGNATURES"}
  titleLC =  \markup {""}
  subtitleText = \markup {""}
  composername = \markup {""}
  poetname = \markup {""}
  usulname = \markup {""}
  tempopiece = \markup {""}
  musicsource = \markup {""}
  dedication = \markup {""}
  subsubtitle = \markup {""}
  datecreated = \markup {""}
  tagline = \markup {""}
}

\paper {
  ragged-last-bottom = ##t %t is default
  %between-system-padding = 4\mm %4\mm is default
  %between-system-space = 20\mm %20\mm is default
  %%%%%%%%%%system-system-spacing #'basic-distance = #14
  score-system-spacing =
  #'((basic-distance . 12)
     (minimum-distance . 6)
     (padding . 1)
     (stretchability . 12))
}
%}

\book {
  \score {
    <<
      \new Staff <<
        \new Voice = "BarlinesForm" <<
          \BarlinesForm
        >>
        \new Voice = "BreaksForm" <<
          \TheBreaks
        >>
        \new Voice = "MelodyForm" \transpose g g <<
           \MelodyForm
        >>
        \new Lyrics \lyricsto "MelodyForm" \LyricsOne \LyricsTwo \LyricsThree
      >>
      %\new DrumStaff << \kudumstaff \UsulForm >>
    >>
    \layout {
      ragged-right=##f
      \context { \Score \remove "Bar_number_engraver" }
      \context { \Lyrics \override LyricText #'font-size = #-0.5 }
    }
    %\midi {}
  }
  %{ \LyricsPrint %}
}

%%%%%%%%%%%%%%%%%%%%% END %%%%%%%%%%%%%%%%%%%%%%%