\version "2.25.32"

% закомментируйте строку ниже, чтобы получался pdf с навигацией
%#(ly:set-option 'point-and-click #f)
#(ly:set-option 'midi-extension "mid")
#(ly:set-option 'embed-source-code #t) % внедряем исходник как аттач к pdf
#(set-default-paper-size "a4")
%#(set-global-staff-size 18)

\header {
  title = "Катюша"
  composer = "М. БЛАНТЕР"
  poet = "Слова М. ИСАКОВСКОГО"
  % Удалить строку версии LilyPond 
  tagline = ##f
}


abr = { \break }
%abr = \tag #'BR { \break }
%abr = {}

pbr = { \pageBreak }
%pbr = {}



melon = { \set melismaBusyProperties = #'() }
meloff = { \unset melismaBusyProperties }
solo = ^\markup\italic"Соло"
tutti =  ^\markup\italic"tutti"

co = \cadenzaOn
cof = \cadenzaOff
cb = { \cadenzaOff \bar "||" }
cbr = { \bar "" }
cbar = { \cadenzaOff \bar "|" \cadenzaOn }
stemOff = { \hide Staff.Stem }
nat = { \once \hide Accidental }
%stemOn = { \unHideNotes Staff.Stem }

% alternative breathe
breathes = { \once \set breathMarkType = #'upbow \breathe }

% alternative partial - for repeats
partiall = { \set Timing.measurePosition = #(ly:make-moment -1/4) }

% compress multi-measure rests
multirests = { \override MultiMeasureRest.expand-limit = #1 \set Score.skipBars = ##t }

% mark with numbers in squares
squaremarks = {  \set Score.rehearsalMarkFormatter = #format-mark-box-numbers }

% move dynamics a bit left (to be not up/under the note, but before)
placeDynamicsLeft = { \override DynamicText.X-offset = #-2.5 }

%make visible number of every 2-nd bar
secondbar = {
  \override Score.BarNumber.break-visibility = #end-of-line-invisible
  \override Score.BarNumber.X-offset = #1
  \override Score.BarNumber.self-alignment-X = #LEFT
  \set Score.barNumberVisibility = #(every-nth-bar-number-visible 2)
}

global = {
  \numericTimeSignature
  \secondbar
  \multirests
  \placeDynamicsLeft
  
  \key f \minor
  \time 2/4
  \tempo "Не скоро"
}

scoreASopranoVoice = \relative c' {
  \global
  \dynamicUp
  \autoBeamOff
R2*11
  \repeat volta 2 {
  f4. g8 |
  as4. f8 |
  as as g f |
  g4 c, |
  g'4. as8
  bes4. g8 | \abr
  
  bes8 8 as g |
  f2 |
  c'4 f |
  es( f8) es |
  des des c bes | \abr
  
  c4 f, |
  r8 des'4 bes8 |
  c4. as8 |
  g c, as' g |
  f2 | \abr
  
  c'4 f |
  es( f8) es |
  des des c bes |
  c4 f, |
  r8 des'4 bes8 | \abr
  
  c4. as8 |
  g c, as' g
  
  }
  \alternative {
    { f2 }
    { f2 }
  }
  R2*12 \fine
}

lyricscore = \lyricmode {
  bas bas bas
}


scoreARightUp = \relative c'' {
  \global
  % Вписывайте музыку сюда
  as4.( f8) |
  g4.( e8) |
  ges ges( f ees) |
  d4( f) |
  r8 <des bes>4 <des f bes>8 | \abr
  
  as'4.( f8) |
  es8( des c as' |
  f2~ 2) |
  2~2 | \abr
  
    \repeat volta 2 {
  f4. g8 |
  <as c,>4. f8 |
  as[ as g f] |
  <g e>4 c, |
  g'4. as8
  <bes d,> 4. g8 | \abr
  
  bes8[ 8 as g] |
  f2 |
  c'4 f |
  es( f8) es |
  des[ des c bes] | \abr
  
  c4 f, |
  r8 des'4 bes8 |
  c4. as8 |
  g[ c, as' g] |
  f2 | \abr
  
  c'4 f |
  es( f8) es |
  des[ des c bes] |
  c4 f, |
  r8 des'4 bes8 | \abr
  
  c4. as8 |
  g[ c, as' g]
  
  }
    \alternative {
    { f2 }
    { as4.( f8)  }
  }
  g4.( e8) | \abr
  ges ges( f ees) |
  d4( f) |
  r8 <des bes>4 <des f bes>8 | 
  
  as'4.( f8) |
  es8( des c as' | \abr
  f2~ 2) |
  2~2 |
  \oneVoice <f des as>4 <e bes' c> |
  <as c f>4 r4 \fine
  


}

scoreARightDown = \relative c' {
  \global
  % Вписывайте музыку сюда
  r8\p as[ c as] |
  r bes[ c bes] |
  r a[ c a] |
  r f[ bes f] |
  r8 s4. |
  
  r8 as[ c as] |
  r g[ r bes]
  r <as c>[ r q] |
  r q\>[ r <des bes g>->] |
  r <as c>[ r q]\! |
  r q[ r <des bes g>->] |
  
  \repeat volta 2 {
    r8 <as c>[ r q] |
    r <as f'>[ r q] |
    d[ as r <as d>] |
    r <bes c>[ r <bes g>] |
    r <bes c>[ r q] |
    r8 <bes g'>[ r bes] |
    
    e[ bes r <bes e>] |
    r <c as>[ r q] |
    r <f as>[ r <f g bes>] |
    r8 <ges c> r <f c'>] |
    r <f g>[ r <des f>] |
    
    r <c f>[ r <c es>] |
    r <f ges>[ r <f g>] |
    r <f as> [ r f ] |
    r bes,[ r e] |
    r <c as>[ r <c bes>] |
    
    r <f as>[ r <f g bes>] |
    r <ges c>[ r <f c'>] |
    r <f g>[ r <d f> ] |
    r <c f>[ r <c es>] |
    r <f ges>[ r <f g>] |
    
    r <f as> [ r f] |
    r bes,[ r e] |
  }
  \alternative {
     { r <c as>[ r q] }
     { r as[ c as] }
    
  }
  r bes[ c bes] |
  r a[ c a] |
  r f[ bes f] |
  r8 s4. |
  
  r8 as[ c as] |
  r g[ r bes]
  r <as c>[ r q] |
  r q[ r <des bes g>->] |
  r_\markup\italic"dim." <as c>[ r q] |
  r q[ r <des bes g>->] |
  s2*2 \fine


}


scoreARight = \relative c' {
  \global
  % Вписывайте музыку сюда
  << \scoreARightUp \\ \scoreARightDown >>


}

scoreALeft = \relative c, {
  \global
  % Вписывайте музыку сюда
  <f c'>4 c
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  
  \repeat volta 2 {
    
    <f c'> <c c'> |
    <f c'> <c c'> |
    <f c'> <c c'> |
    <f c'> <c c'> |
    <f c'> <c c'> |
    <f c'> <c c'> |
    
    <f c'> <c c'> |
    <f c'> <c c'> |
    f <des des'> |
    <as as'> <a a'> |
    <bes bes'> <g g'> |
    
    <as as'> <a a'> |
    <bes bes'> <des des'> |
    <c c'> c' |
    <c, c'> c' |
    <f, c'> <c c'> |
    
    f <des des'> |
    <as as'> <a a'> |
    <bes bes'> <g g'> |
    <as as'> <a a'> |
    <bes bes'> <des des'> |
    
    <c c'> c' |
    <c, c'> c' |
  }
  \alternative {
    { <f, c'> <c c'> }
    { <f c'> c }
    
  }
    <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  <f c'> <c c'> |
  
  <f c'> <f' c'>4~ |
  4 f, \fine

  
  
}

scoreASopranoVoicePart = \new Staff \with {
  %instrumentName = "Сопрано"
  midiInstrument = "choir aahs"
} { \scoreASopranoVoice }
%\addlyrics { \scoreAVerse }
%\addlyrics { \scoreAVerse_ii }

scoreAPianoPart = \new PianoStaff \with {
  instrumentName = "нар"
} <<
  \set PianoStaff.connectArpeggios = ##t
  \new Staff = "right" \with {
    midiInstrument = "acoustic grand"
  } \scoreARight
  \new Staff = "left" \with {
    midiInstrument = "acoustic grand"
  } { \clef bass \scoreALeft }
>>

\bookpart {
  \paper {
    top-margin = 15
    left-margin = 15
    right-margin = 10
    bottom-margin = 15
    indent = 20
    ragged-bottom = ##f
    %  system-separator-markup = \slashSeparator
    
  }
  \score {
      \transpose f e {
    %  \removeWithTag #'BR
    
    <<
    \scoreASopranoVoicePart
    \scoreAPianoPart
    >>
  

      }  % transposeµ
    \layout {
      %    #(layout-set-staff-size 20)
      \context {
        \Score
      }
      \context {
        \Staff
        %        \RemoveEmptyStaves
        \RemoveAllEmptyStaves
        \consists Merge_rests_engraver
        \accidentalStyle choral
      }
      %Metronome_mark_engraver
    }
    \midi {
      \tempo 4=90
    }
  }
}