\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 = "На горе-то калина"
  subtitle = "Русская народная песня"
  arranger = "Свободная обработка С. Екимова"
  % Удалить строку версии 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 }

breathev = { \tag #'V2 \tag #'V4 { \once \override BreathingSign.Y-offset = #-1 } \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)
}

twoWayFermata = {
  \once \set Staff.caesuraType = #'((underlying-bar-line . "||"))
  \once \set Staff.caesuraTypeTransform = ##f
  \caesura ^\fermata 
}

global = {
  \secondbar
  \multirests
  \placeDynamicsLeft
  
  \key f \major
  \time 4/4
  \squaremarks
  \dynamicUp
  \autoBeamOff
  \tempo "Allegro assai, leggiero" 4=138
}

solovoice = \relative c'' {
  \global
  \oneVoice
    R1
  R4.
  R1
  R4.
  
  R1
  R2
  R1
  R4.
  
  R1
  R4.
  R1
  R4.
  
  R1
  R2
  R1
  R4.
  
  R1
  R4.
  R1
  R4.
  
  %page 2
  R1
  R2
  R1
  R4.
  
  R1
  R4.
  R1
  R4.
  
  R1
  R2
  R1
  R2
  
  
  %page 3
  R1
  R4.
  a4\mf^\markup\italic"legato" c c8[( bes a]) g |
  d'8 d d |
  
  g,4\< c c8 bes bes a |
  a bes bes bes\!
  R1\< |
  g8\! g c4\fermata
  R1
  
  
}

sopvoice = \relative c'' {
  \global
  \oneVoice
 
  \mark 1
  a4\mp c g8[( bes a]) g |
  \time 3/8 f f f |
  \time 4/4 a4 c g8[( bes a]) g |
  \time 3/8 f f f | \abr
  
  \time 4/4 d4 g c,8 c a' g |
  \time 4/8 f8 8 8 e8-> |
  \time 4/4 d8 d g g c, c a' g |
  \time 3/8 f8 f f | \abr
  
  \mark 2
  \time 4/4 a4 c g8[( bes a]) g |
  \time 3/8 f8 f f |
  \time 4/4 a4 c g8[( bes a]) f |
  \time 3/8 f8 f f | \abr
  
  \time 4/4 d4 g c,8 c a' g |
  \time 4/8 f8 f f f-> |
  \time 4/4 d d g g c, c a' g |
  \time 3/8 f8 f f | \abr
  
  \mark 3 
  \time 4/4 a4\mf c g8[( bes a]) g |
  \time 3/8 f8 f f |
  \time 4/4 a4 c g8[( bes a]) g |
  \time 3/8 f8 f f | \abr
  
  %page 2
  \time 4/4 r8 <bes c>-> r q-> r q-> r q-> |
  \time 4/8 r8 <a c>-> q-> r |
  \time 4/4 r8 <bes c>-> r q-> r q-> r q-> |
  \time 3/8 r8 c8-> c-> | \abr
  
  \mark 4 \time 4/4 c4\f es bes8[( des c]) bes8 |
  \time 3/8 as8 as as |
  \time 4/4 c4 es es8[( des c]) bes |
  \time 3/8 f'8 f f |
  
  \time 4/4 r8\sp <des>-> r q-> r q-> r q-> | 
  \time 4/8 r8 <es>-> r q-> |
  \time 4/4 r8 <des>-> r q-> r q-> r q-> |
  \time 4/8 r8 <c?>8\sf-> r q-> | \abr
  
  %page 3
  \mark 5
  \time 4/4 a4\f^\markup\italic"marcato" c g8[( bes a]) g |
  \time 3/8 f8 f f |
  \time 4/4 a4\mf ^\markup\italic"legato" a f?4~8 e |
  \time 3/8 f f f | \abr
  
  \time 4/4 g4 g g fis |
  \time 4/8 fis8 g a bes |
  \time 4/4 es,8 es d' c bes d, bes' a |
  \time 2/4 g8 g a4\fermata \abr
  
  % page 4
  \mark 6
  \tempo "Piu mosso"
  \time 4/4 <a c>4\ff^\markup\italic"marcato" q <bes c>8 8 8 8 |
  \time 3/8 <a c>8 8 8 |
  \time 4/4 4 4 <bes c>8 8 8 8 |
  \time 3/8 <a c>8 8 8 
  \time 4/4 r8\f <c d> r q r q r q | \abr
  
  \time 4/8r q q r |
  \time 4/4 r q r q r <c e>8 8 8 \section \twoWayFermata
  \time 11/8 \tempo "Piu mosso"
  a4\p c g8 bes a g f f f |
  a4 c g8 bes a g f f f | \abr
  
  a4 c g8 bes a g f f f |
  \time 8/8 a4\< c g8 bes a g\! |
  R1\fermata |
  \time 4/8 r8\ff f'8-> f-> f-> \fine 
  
  
  
  
  
}


altvoice = \relative c'' {
  \global
  \oneVoice
  a4\mp c g8[( bes a]) g |
  f8 f f |
  f4 a e c |
  f8 f f |
  
  c4 bes a8 8 c cis |
  d8 d d f-> |
  c8 c bes bes a a c e |
  f8 f f |
  
  f4 a e c |
  f8 f f |
  r8 f4 e d e8 |
  f8 f f |
  
  r8 c4 bes8( a) b4 cis8~ |
  8 d4 e8-> |
  r8 c4 bes a8 bes c |
  f8 f f |
  
  f4\mf a e8[( g f]) e |
  c8 c c |
  f8[( e]) a[( g]) d([ f e]) e |
  e e d |
  
  %page 2
  r8 <f>-> r q-> r q-> r q-> |
  r q-> q-> r |
  r q-> r q-> r q-> r q-> |
  r q-> g-> |
  
  as4\f as f8[( as as]) g |
  g g f |
  bes[( as]) bes[( a]) c[( bes as]) g |
  as8 8 8
  
  r8\sp as-> r as-> r g-> r g-> |
  r bes-> r as-> |
  r as-> r as-> r g-> r g |
  r8 a?\sf-> r a-> |
  
  %page 3
  g8\f^\markup\italic"marcato"[( f]) e?[( d?]) f[( d c]) e |
  e e e |
  r8\mf^\markup\italic"legato" g fis4 d cis |
  d8 d d
  
  es[( d]) es[( f]) e4 d |
  d8 d d f |
  es es es g e fis fis fis |
  f f f4\fermata
  
  %page 4
  <a f>4\ff^\markup\italic"marcato" q <g f>8 8 8 8 |
  <a f>8 8 8 |
  4 4 <g f>8 8 8 8 |
  <a f>8 8 8 |
  r8\f <bes> r q r q r q |
  
  r8 bes a r |
  r bes r bes r bes bes bes \section
  R8*11 |
  r4 r r8\mf a4 c g8 bes |
  
  a8 g f f f a4 c g8 bes |
  a8 g f f f a4 c8 |
  R1 |
  r8\ff f,8-> f-> f-> \fine
  
  
  
}


tenorvoice = \relative c' {
  \global
  \oneVoice 
  R1
  R4.
  R1
  R4.
  
  R1
  R2
  R1
  R4.
  
  R1
  R4.
  R1
  R4.
  
  R1
  R2
  R1
  R4.
  
  c4\mf c c8[( c c]) bes |
  a8 a a |
  c4 e bes8[( d b]) cis |
  d8 8 8 |
  
  %page 2
  r8 d-> r d-> r d-> r d-> |
  r d-> d-> r |
  r d-> r d-> r d-> r d-> |
  r d-> d-> |
  
  es4\f es des8[( des des]) c |
  c8 c c |
  es4 es8[( ges]) f4 e |
  f8 f f |
  
  r8\sp des-> r des-> r des-> r es-> |
  r es-> r es-> |
  r des-> r des-> r des-> r es-> |
  r e?->\sf r e-> |
  
  %page 3
  a,4\f^\markup\italic"marcato" c g8[( bes a]) g |
  g g g |
  a4\mf^\markup\italic"legato" d bes g |
  f8 f f |
  
  c'[( bes]) as4 a c |
  bes8 bes d d |
  r8 d r c bes r r c |
  d d <d bes>4\fermata
  
  %page 4
  <a c>4\ff^\markup\italic"marcato" q <bes d>8 8 8 8 |
  <a c>8 8 8 |
  4 4 <bes d>8 8 8 8 |
  <a c>8 8 8 |
  r8\f f' r f r f r f |
  
  
  r f f r |
  r f r f r f f f \section |
  r4 r r r a,4\mp c8~ |
  8 g bes a g f f f a4 c8~
  
  8 g bes a g f f f a4 c8~ |
  8 g bes a g f f f |
  R1 |
  r8\ff f'-> f-> f-> \fine
  
}



bassvoice = \relative c {
  \global
  \oneVoice
    R1
  R4.
  R1
  R4.
  
  R1
  R2
  R1
  R4.
  
  R1
  R4.
  R1
  R4.
  
  R1
  R2
  R1
  R4.
  
  R1
  R4.
  R1
  R4.
  
  %page 2
  
  d4\mf g c,8 c a' g |
  f8 f f f-> |
  d d g g c, c a' g |
  f f f |
  
  as4\f c, des8[( f e?]) e |
  f f f |
  as4 c bes c |
  des8 des, des |
  
  bes4\mp fes' fes8 es es des |
  ces ces ces ces-> |
  bes bes fes' fes fes es es des |
  c?\f c c c-> |
  
  %page 3
  g'8\f^\markup\italic"marcato"[( f]) e?[( d?]) f[( d c]) e |
  f8 f f |
  r8\mf^\markup\italic"legato" g fis[( d]) g,4 a |
  bes8 8 8 |
  
  R1 |
  R2 |
  r8 <c g'>8 r es <cis g'> r r d |
  b8 b c4\fermata
  
  %page 4
  <f a>4\ff^\markup\italic"marcato" 4 <f g>8 8 8 8 |
  <f a>8 8 8 |
  4 4 <f g>8 8 8 8 |
  <f a>8 8 8 |
  d4\f g c,8 c a' g |
  
  f8 8 8 8 |
  d d g g c, c a' g |
  R8*11 |
  R8*11 |
  
  r4 a4\f c g8 bes a g f |
  f f a4 c g8 bes |
  R1 |
  r8\ff f8-> f-> f-> \fine
  

  
}

lyricscoresolo = \lyricmode {
  на до -- ро -- жку бро -- са -- ли
  Ну что_ж, ко -- му де -- ло бро -- са -- ли, да бро -- са -- ли.
  
}

lyricscore = \lyricmode {
  На го -- ре то ка -- ли -- на, под го -- ро -- ю_— ма -- ли -- на.
  Ну что_ж, ко -- му де -- ло ка -- ли -- на, да ну, ко -- му ка -- ко -- е де -- ло ма -- ли -- на.
  Там де -- ви -- цы гу -- ля -- ли, там де -- ви -- цы гу -- ля -- ли.
  Ну что_ж, ко -- му де -- ло гу -- ля -- ли, да, ну ко -- му ка -- ко -- е де -- ло гу -- ля -- ли.
  Ка -- ли -- ну -- шку ло -- ма -- ли, ка -- ли -- ну -- шку ло -- ма -- ли
  
  да, да, да, да, ой, да, да, да, да, да, ой, да
  во пу -- чо -- чки вя -- за -- ли, во пу -- чо -- чки вя -- за -- ли
  да, да, да, да, да, да, да, да, да, да, да, да
  
  На до -- ро -- жку бро -- са -- ли на до -- ро -- жку бро -- са -- ли
  Ну что_ж, де -- ло бро -- са -- ли, да, ну, ко -- му ка -- ко -- е де -- ло бро -- са -- ли.
  
  На го -- ре -- е -- е то ка -- ли -- на, под го -- ро -- о -- о -- ю_— ма -- ли -- на. да, да, да, да
  ой, да да, да, Эх, де -- ло… На го -- ре -- е -- е то ка -- ли -- на, под го -- ро -- о -- о -- ю ма -- ли -- на
  На го -- ре -- е -- е то ка -- ли -- на, под го -- ро -- о -- о -- ю… ма -- ли -- на.
  
}



lyricscorea = \lyricmode {
  _ _ _ _ _ _ _ _ _ _ _ _ _ _ % На го -- ре то ка -- ли -- на, под го -- ро -- ю_— ма -- ли -- на.
  _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ % Ну что_ж, ко -- му де -- ло ка -- ли -- на, да ну, ко -- му ка -- ко -- е де -- ло ма -- ли -- на.
  _ _ _ _ _ _ _ _ _ _ _ _ _ _ % Там де -- ви -- цы гу -- ля -- ли, там де -- ви -- цы гу -- ля -- ли.
  Ну что_ж, гу -- ля -- ли, да, ну что_ж, эх, де -- ло гу -- ля -- ли.
  Ка -- ли -- ну -- шку ло -- ма -- ли, ка -- ли -- ну -- шку ло -- ма -- ли
  
  да, да, да, да, ой, да, да, да, да, да, ой, да
  во пу -- чо -- чки вя -- за -- ли, во пу -- чо -- чки вя -- за -- ли
  да, да, да, да, да, да, да, да, да, да, да, да
  
  На до -- ро -- жку бро -- са -- ли на до -- ро -- жку бро -- са -- ли
  Ну что_ж, де -- ло бро -- са -- ли, да, ну, ко -- му ка -- ко -- е де -- ло бро -- са -- ли.
  
  На го -- ре -- е -- е то ка -- ли -- на, под го -- ро -- о -- о -- ю_— ма -- ли -- на. да, да, да, да
  ой, да да, да, Эх, де -- ло… На го -- ре -- е -- е
  то ка -- ли -- на, под го -- ро -- о -- о -- ю ма -- ли -- на, на го… ма -- ли -- на.
}


lyricscoret = \lyricmode {
  _ _ _ _ _ _ _ _ _ _ _ _ _ _ % Ка -- ли -- ну -- шку ло -- ма -- ли, ка -- ли -- ну -- шку ло -- ма -- ли
  
  да, да, да, да, ой, да, да, да, да, да, ой, да
  во пу -- чо -- чки вя -- за -- ли, во пу -- чо -- чки вя -- за -- ли
  да, да, да, да, да, да, да, да, да, да, да, да
  
  На до -- ро -- жку бро -- са -- ли на до -- ро -- жку бро -- са -- ли
  Ну что_ж, де -- ло бро -- са -- ли, да, да, ко -- му да, бро -- са -- ли.
  
  На го -- ре -- е -- е  то ка -- ли -- на, под го -- ро -- о -- о -- ю_— ма -- ли -- на. да, да, да, да
  ой, да да, да, Эх, де -- ло… На го -- ре -- е -- е то ка -- ли -- на, под го --
  ро -- о -- о -- ю ма -- ли -- на, на го -- ре -- е -- е то ка -- ли -- на… ма -- ли -- на.
  
}



lyricscoreb = \lyricmode {
  Ну, что_ж, ко -- му де -- ло, ло -- ма -- ли, да, ну, ко -- му ка -- ко -- е де -- ло, ло -- ма -- ли.
  _ _ _ _ _ _ _ _ _ _ _ _ _ _ % во пу -- чо -- чки вя -- за -- ли, во пу -- чо -- чки вя -- за -- ли
  Ну, что_ж, ко -- му де -- ло вя -- за -- ли, да, ну, ко -- му ка -- ко -- е де -- ло вя -- за -- ли. Да!
  
  На до -- ро -- жку бро -- са -- ли на до -- ро -- жку бро -- са -- ли
  да, ко -- му да, бро -- са -- ли.
  
  На го -- ре -- е -- е то ка -- ли -- на, под го -- ро -- о -- о -- ю_— ма -- ли -- на. Ну что_ж, ко -- му де -- ло
  ка -- ли -- на, да ну, ко -- му ка -- ко -- е де -- ло…
  На го -- ре -- е -- е то ка -- ли -- на, под го -- ро -- ю ма -- ли -- на.
}



\bookpart {
  \paper {
    top-margin = 15
    left-margin = 15
    right-margin = 15
    bottom-margin = 25
    indent = 12
    ragged-bottom = ##f
  %    system-separator-markup = \slashSeparator
  %    page-count = 4
    
  }
  \score {
    %  \transpose c bes {
    %  \removeWithTag #'BR
    <<
            \new Staff = "solostaff" \with {
        instrumentName = "Solo"
        shortInstrumentName = "S"
        midiInstrument = "voice oohs"
        %        \consists Merge_rests_engraver
        %        \RemoveEmptyStaves
      } <<
        \new Voice = "solo" { \solovoice }
      >> 
      
      \new Lyrics \lyricsto "solo" { \lyricscoresolo }
      
    \new ChoirStaff <<
      \new Staff = "sopstaff" \with {
        instrumentName = "Сопрано"
        shortInstrumentName = "С"
        midiInstrument = "voice oohs"
        %        \consists Merge_rests_engraver
        %        \RemoveEmptyStaves
      } <<
        \new Voice = "soprano" { \sopvoice }
      >> 
      
      \new Lyrics \lyricsto "soprano" { \lyricscore }
      
     \new Staff = "altstaff" \with {
        instrumentName = "Альт"
        shortInstrumentName = "А"
        midiInstrument = "voice oohs"
        %        \consists Merge_rests_engraver
        %        \RemoveEmptyStaves
      } <<
        \new Voice  = "alto" { \oneVoice \altvoice }
      >> 
      
      \new Lyrics \lyricsto "alto" { \lyricscorea }
      % alternative lyrics above up staff
      %\new Lyrics \with {alignAboveContext = "upstaff"} \lyricsto "soprano" \lyricst
      
      \new Staff = "tenorstaff" \with {
        instrumentName =  "Тенор"
        shortInstrumentName =  "Т"
        midiInstrument = "voice oohs"
      } <<
        \new Voice = "tenor" {  \clef "treble_8" \tenorvoice }
      >>
      
      \new Lyrics \lyricsto "tenor" { \lyricscoret }
      
            \new Staff = "bassstaff" \with {
        instrumentName = "Бас"
        shortInstrumentName =  "Б"
        midiInstrument = "voice oohs"
      } <<
        \new Voice = "bass" {  \clef bass \bassvoice }
      >>
      
      \new Lyrics \lyricsto "bass" { \lyricscoreb }
    >>
    >>
    %  }  % transposeµ
    \layout {
      %    #(layout-set-staff-size 20)
      \context {
        \Score
      }
      \context {
        \Staff
        %        \RemoveEmptyStaves
        \RemoveAllEmptyStaves
        \consists Merge_rests_engraver
        \accidentalStyle choral-cautionary
      }
      %Metronome_mark_engraver
    }
    \midi {
    }
  }
}

rehearsalMidi = #
(define-music-function
 (parser location name midiInstrument lyrics) (string? string? ly:music?)
 #{
   \unfoldRepeats <<
     \new Staff = "soprano" \new Voice = "soprano" { \sopvoice }
     \new Staff = "alt" \new Voice = "alt" { \altvoice }
     \new Staff = "tenor" \new Voice = "tenor" { \tenorvoice }
     \new Staff = "bass" \new Voice = "bass" { \bassvoice }
     \context Staff = $name {
       \set Score.midiMinimumVolume = #0.5
       \set Score.midiMaximumVolume = #0.5
       \set Staff.midiMinimumVolume = #0.8
       \set Staff.midiMaximumVolume = #1.0
       \set Staff.midiInstrument = $midiInstrument
     }
     \new Lyrics \with {
       alignBelowContext = $name
     } \lyricsto $name $lyrics
   >>
 #})

% MIDI для репетиции:
\book {
  \bookOutputSuffix "soprano"
  \score {
    \rehearsalMidi "soprano" "soprano sax" \lyricscore
    \midi { }
  }
}

\book {
  \bookOutputSuffix "alt"
  \score {
    \rehearsalMidi "alt" "soprano sax" \lyricscorea
    \midi { }
  }
}


\book {
  \bookOutputSuffix "tenor"
  \score {
    \rehearsalMidi "tenor" "tenor sax" \lyricscoret
    \midi { }
  }
}

\book {
  \bookOutputSuffix "bass"
  \score {
    \rehearsalMidi "bass" "tenor sax" \lyricscoreb 
    \midi { }
  }
}