\include "persian.ly"
\version "2.12.2"

%#(set-global-staff-size 20)

staffText = #(define-music-function (parser location marktext)
              (string?)
              #{
              \once \override NoteHead  #'stencil = #ly:text-interface::print
              \once \override NoteHead #'text = #(markup #:whiteout $marktext ) 
              \once \override Stem  #'stencil = #ly:text-interface::print
              \once \override Stem #'text = ""
              #})

startGraceMusic = { \override Stem #'stroke-style = #"grace" }
stopGraceMusic = { \revert Stem #'stroke-style }

\header {
  title = "Daramad Shur"
  tagline = ##f

}

\paper {
%  between-system-space = 0\cm
%  between-system-padding = #3
%  ragged-bottom=##t
%  ragged-last-bottom=##t
}


daramad = {
  \relative c' {
    \override Score.PaperColumn #'keep-inside-line = ##t
    \override Score.NonMusicalPaperColumn #'keep-inside-line = ##t
    \set Staff.extraNatural = ##f
    \compressFullBarRests
    \cadenzaOn
    \override Staff.TimeSignature #'stencil = ##f
    \override Score.DynamicText #'transparent = ##t
    \override Score.PhrasingSlur #'transparent = ##t
    \set Staff.keySignature = \shurD
    \override Staff.KeySignature #'text = #shurDKey
    \set Staff.midiInstrument = #"clarinet"
    
    \tempo 4 = 84
    d1 \f \teeny c16 \pp \normalsize  d1 \f \teeny c16 \pp \normalsize d8 \f  r2  fv2~fv8[ ek8..]  d16 \grace{\stemDown ek8 } d16 \grace{\stemDown fv16} 
    d4 ek d8. c16[ \grace{\stemDown fv16} c16] \grace{\stemDown fv16} c4

    d4 \teeny c16 \pp \normalsize d4. \f r8 r2 \bar "" \break

    g4 fv2~fv8 ek16 \grace{\stemDown fv16} ek16 \grace{\stemDown fv16} ek8[ \teeny d16 \pp] \normalsize  fv4~ \f fv16[ ek8.] 
    d16 \grace{\stemDown fv16} d16 \grace{\stemDown fv16} d4 ek \teeny d8 \pp \normalsize  r8 \f r2

    fv2~ fv16[ ek8] d16 \grace{\stemDown fv16} d16 \grace{\stemDown fv16} d4 ek d8. c16[ \grace{\stemDown fv16} c16] \grace{\stemDown fv16} c4 d8. \teeny c16 \pp \normalsize d4 \f r8 r2 \bar "" \break
    
    \times 2/3 {r8 \grace{\stemDown c8} fv8 ek}  \grace {\stemDown fv8} d4.~ \times 2/3 {d8 fv ek} \grace{\stemDown fv8} 
    d4~ \times 2/3 {d8 ek \teeny d \pp} \normalsize fv4. \f g16 \breathe

    fv32[ ek16 \grace{\stemDown fv16}  ek d \grace{\stemDown fv16} d c \grace{\stemDown fv16} c8] d4 \teeny c16 \pp \normalsize d2. \f  r2

    \bar "|."
  }
}

kereshmeh = {
<<
  \new Staff  \with {
    \override VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 0)
  }

  \new Voice = melody \relative c' {
    %\override Score.PaperColumn #'keep-inside-line = ##t
    %\override Score.NonMusicalPaperColumn #'keep-inside-line = ##t
    \set Staff.extraNatural = ##f
    \compressFullBarRests
    \cadenzaOn
    \override Staff.TimeSignature #'stencil = ##f
    \override Score.DynamicText #'transparent = ##t
    \override Score.PhrasingSlur #'transparent = ##t
    \set Staff.keySignature = \shurD
    \override Staff.KeySignature #'text = #shurDKey
    \set Staff.midiInstrument = #"clarinet"

    c16[ \f d8 ek16] fv4. ek16[ fv] ek16[ fv32 ek8] \teeny d16[( ek] \pp \normalsize  d8) \f d8 r4

    ek16 fv8.~ fv16[ \teeny ek16] \pp \normalsize g32 \f fv16 g16. fv4  ek16[ d8] 
    ek32[ fv16 \grace{\stemDown g16} fv] ek[ \grace{\stemDown g16} ek d \grace{\stemDown g16} d] \teeny ek \pp \normalsize d4 \f r2

    \bar "|."
  }

  \new Lyrics \with {
    \override VerticalAxisGroup #'minimum-Y-extent = #'(-0 . 0)
  }

  \lyricsto melody {
    ko han sha wad ha me kas - - - rA    
    be ru - ze gA - - A - re e rA - - - - - dat
  }
>>
}




\book {
  \header {
    title = \markup \center-column { "Vocal radif according to Karimi" "Dastgah Shur" }
    composer =  "Karimi"  
  }

  \score {
    \daramad
    \midi { 
      \context {
        \Score
        tempoWholesPerMinute = #(ly:make-moment 84 4)
      }
    }
    \header {
      piece = "1. Daramad"
    }
    \layout { 
      \context {
%      \Score
%\override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 16)
%\override SpacingSpanner #'shortest-duration-space  = #1
%\override SpacingSpanner #'spacing-increment  = #1
      }
    }

  }

  \score {
    \kereshmeh
    \midi { 
      \context {
        \Score
        tempoWholesPerMinute = #(ly:make-moment 84 4)
      }
    }
    
    \header {
      piece = "2. Kereshmeh"
    }

    \layout { 
      \context {
%      \Score
%\override SpacingSpanner #'base-shortest-duration = #(ly:make-moment 1 16)
%\override SpacingSpanner #'shortest-duration-space  = #1
%\override SpacingSpanner #'spacing-increment  = #1
      }
      
    }
  }

  
}