shcherbakov/LyudySuhoputya: ludi_suhoputya.ly

\version "2.12.3"

\header {
  title = "ЛюЎО сухПпутья"
  composer = "М.ЩербакПв"
}

% СОстеЌа буквеММых ПбПзМачеМОй, прОМятая в кПМтОМеМтальМПй ЕврПпе
\include "deutsch.ly"
% ЗаЎел Ма бПлее МПвую версОю.
% СтОлевПй файл Ўля разЌещеМОя пауз в ПЎМПЌ Оз гПлПсПв пП цеМтру МПтПМПсца
% (ОстПчМОк: http://code.google.com/p/lilymusic/source/browse/trunk/include/merge-rests.ily?r=279)
% \include "merge-rests.ily"
% ПрО пПЎключеМОО сПбОрать кПЌаМЎПй
% lilypond -I . ludi_suhoputya.ly
% СЌ. также \partcombine

% Ajust size
#(set-global-staff-size 25.0)

\paper  {
  myStaffSize = #25
  #(define fonts
    (make-pango-font-tree "Droid Serif"
                          "Droid Sans"
                          "Droid Sans Mono"
                           (/ myStaffSize 27)))
}

global = {
  \key d \minor
  \time 4/8
  % In more advanced versions of LilyPond it should work,
  % making possible to have an original \time, 8/16, be used
  % with autobeaming working.
  % \set Score.baseMoment = #(ly:make-moment 1 16)
  \tempo 4 = 90
}

one = {
  \voiceOne
  % ВПкалОз
  \repeat volta 2 {
    a2 ~
    a4 b16 a g f
    g2 ~
    g
    g ~
    g4 a16 g f e
  }
  \alternative {
    {
      f2 ~
      f2
    }
    {
      f2 ~
      f4 \oneVoice r8 a
    }
  }
  % 1 куплет
  a ~ a16 a ~ a8 r
  r d,16 d f8 a
  a8 ~ a16 g ~ g8 r
  r4 r8 g
  g4. g8
  g8. g16 g8 a
  f8. ( e16 ) d16 ~ d8.
  r4 r8 a'
  a r r a
  a8. a16 g8 a
  c ~ c16 g ~ g8 r
  R2
  g8 g16 g g8 g
  g8. g16 a8 g
  f16 (e) d8 r4
  % ПрОпев 1
  r4 r8 \voiceOne a'8
  a8. a16 a8 a
  b8 ~ b16 b ~ b8 b
  a8. a16 a8 a
  a8 ~ a16 g16 \oneVoice r8 \voiceOne a
  a8. a16 a8 a
  a8 ~ a16 g16 ~ g8 a8
  g2 ~
  g8. g16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d
  r8. g16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d ~
  d4 
  % 2 куплет
  \oneVoice r8 a
  a4. a8
  d8. d16 f8 a
  a8 ~ a16 g16 ~ g8 r8
  r4 r8 g
  g4. g8
  g g16 g8 a
  f ( e ) d16 ~ d8 r
  r4 r8 a'
  a r8 r8 a
  a8. a16 g8 a
  c ~ c16 g16 ~ g8 r
  r4 r8 g
  g8 ~ g16 g ~ g8 r
  g8. g16 g8 a
  f16 ( e ) d8 r4
  % ПрОпев 2
  r4 r8 \voiceOne < f a >8
  < f a >8. < f a >16 < f a >8 < f a >
  < f b >8 ~ < f b >16 < f b >16 ~ < f b >8 < f b >
  < f a >8. < f a >16 < f a >8 < f a >
  a8 ~ a16 g16 \oneVoice r8 \voiceOne a
  < f a >8. < f a >16 < f a >8 < f a >
  < f a > ~ < f a >16 < e g >16 ~ < e g >8 < f a >
  < e g >2 ~
  < e g >8. g16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d
  % Notation "note\rest" is a dirty trick to harcode
  % vertical pause position
  % FIXME: modern LilyPond version have
  % more pretty way to place such rests.
  h'8.\rest  g16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d
  % 3 куплет
  h'4\rest h8\rest < f a >8
  < f a >4. < f a >8
  < f a > d < d f > < f a >
  < f a > ~ < f a >16 < e g >16 ~ < e g >8 h'8\rest
  h4\rest h8\rest < e, g >
  < e g >4. < e g >8
  < e g >8. < e g >16 < e g >8 < f a >
  < d f >8 ( e16 ) d ~ d8 h'\rest
  h4\rest h8\rest < f a >8
  < f a > h\rest h\rest < f a >
  < f a >8. < f a >16 < e g >8 < f a >
  < g c >8 ~ < g c >16 < e g > ~ < e g >8 h'\rest
  h4\rest h8\rest < e, g >
  < e g >8. < e g >16 < e g >8 < e g >
  < e g >8. < e g >16 < f a >8 < e g >
  < d f >16 ( e ) d8 h'4\rest
  % ПрОпев 3
  \oneVoice r4 r8 \voiceOne < f a >8
  < f a >8. < f a >16 < f a >8 < f a >
  < f b >8 ~ < f b >16 < f b > ~ < f b >8 < f b >
  < f a >8. < f a >16 < f a >8 < f a >
  a8 ~ a16 g16 \oneVoice r8 \voiceOne a
  < f a >8. < f a >16 < f a >8 < f a >
  < f a > ~ < f a >16 < e g >16 ~ < e g >8 < f a >
  < e g >2 ~
  < e g >8. g16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d ~
  d4 \oneVoice r4 \voiceOne
  % ВПкалОз
  \repeat volta 2 {
    a'2 ~
    a4 b16 a g f
    g2 ~
    g
    g ~
    g4 a16 g f e
  }
  \alternative {
    {
      f2 ~
      f2
    }
    {
      f2 ~
      f4
    }
  }
  % ПрОпев 4
  \oneVoice r8 \voiceOne < f a >
  < f a >8. < f a >16 < f a >8 < f a >
  < f b >8. < f b >16 < f b >8 < f b >
  < f a >8. < f a >16 < f a >8 < f a >
  a8 ~ a16 g16 \oneVoice r8 \voiceOne a
  < f a >8. < f a >16 < f a >8 < f a >
  < f a > ~ < f a >16 < e g >16 ~ < e g >8 < f a >
  < e g >2 ~
  < e g >8. g16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d
  h'8.\rest
  g16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d
  h'8\rest d, f a
  g2 ~
  g4 a16 g a g
  a4. ( g8 )
  a2 ~
  a
  \bar "|."
}

two = {
  \voiceTwo
  % ВПкалОз
  \repeat volta 2 {
    f2 ~
    f4 g16 f e d
    c2 ~
    c
    e2 ~
    e4 f16 e d cis
  }
  \alternative {
    {
      d2 ~
      d2
    }
    {
      d2 ~
      d4
    }
  }
  % 1 куплет — в уМОсПМ с 1 гПлПсПЌ
  s4
  \override Rest #'transparent = ##t
  s2 * 15
  % ПрОпев 1
  s4 s8 f
  f8. f16 f8 f
  f8 ~ f16 f ~ f8 f
  f8. f16 f8 f
  c ~ c16 c16 s8 c8
  f8. f16 f8 f
  f8 ~ f16 e16 ~ e8 f
  e2 ~
  e8. g16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d ~
  d2 ~
  d2 ~
  d4 s4
  <<
    \new Staff {
      \once \override Staff.TimeSignature #'stencil = ##f
      \key d \minor
      d2
      < c e >
      < c e >4. < c e >8
      < e g >4. < d f >8
      < cis e>4 <e g>
      < g b >2
      < f a >8 < g b >16 < f a > < e g >8 < d f >
      < f a >2
      < f a >
      < a c >
      < g b >8 < a c >16 < g b > < f a >8 < e g >
      < g b >2
      < e g >
      < g b >
      < f a >8 < g b >16 < f a > < e g >8 < d f >
      < f a >4.
      \override Staff.BarLine#'transparent = ##t
      \showStaffSwitch
      % May be I must use \once here
      \override VoiceFollower #'style  = #'dashed-line
      \change Staff = main
      % ПрОпев 2
      \stemDown c8
    }
    \addlyrics { А  }
  >>
  c8. c16 c8 c
  d ~ d16 d ~ d8 d
  c8. c16 c8 c
  c ~ c16 b s8 c
  c8. c16 c8 c
  c8 ~ c16 b ~ b8 c8
  b2 ~
  b8. g'16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d ~
  d2 ~
  d ~
  d ~
  d ~
  d
  ( c ) ~
  c ~
  c ~
  c
  ( d ) ~
  d ~
  d ~
  d
  ( c ) ~
  c ~
  c ~
  c
  ( d )
  % ПрОпев 3
  s4. c8
  c8. c16 c8 c
  d ~ d16 d ~ d8 d
  c8. c16 c8 c
  c ~ c16 b s8 c
  c8. c16 c8 c
  c8 ~ c16 b ~ b8 c8
  b2 ~
  b8. g'16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d ~
  d4 r4
  % ВПкалОз
  \repeat volta 2 {
    f2 ~
    f4 g16 f e d
    c2 ~
    c
    e2 ~
    e4 f16 e d cis
  }
  \alternative {
    {
      d2 ~
      d2
    }
    {
      d2 ~
      d4
    }
  }
  % ПрОпев 4
  r8 c
  c8. c16 c8 c
  d8. d16 d8 d
  c8. c16 c8 c
  c ~ c16 b s8 c
  c8. c16 c8 c
  c8 ~ c16 b ~ b8 c8
  b2 ~
  b8. g'16 g g g g
  f8 ~ f16 d16 ~ d8 ~ d ~
  d2 ~
  d
  r8 d f a
  g2 ~
  g4 a16 g a g
  d4. ( c8 )
  d2 ~
  d
}

words = {
  \lyricsto "first" {
    % ВПкалОз
    Ла__ _ _ _ _ _ _ _ _ _ _ _ _
    % 1 куплет
    А в_ЌП -- ре пла -- ва -- ют Ќе -- Ўу -- зы,
    КП -- раб -- лОк бП -- рет -- ся с_вПл -- Ма -- ЌО.
    На край зеЌ -- лО ве -- зёт ПМ гру -- зы,
    ЧтПб Ма кра -- ю зеЌ -- лО за -- бПт Ме зМа -- лО.
    % ПрОпев 1
    Лу -- МПй пП П -- ке -- а -- Му
    Се -- ре -- бря -- Мы -- е пруть -- я
    Не спОт -- ся ка -- пО -- та -- Му 
    А Ќы_— Ќы лю -- ЎО су -- хП -- путь -- я.
    Мы лю -- ЎО су -- хП -- путь -- я.
    % 2 куплет
    За -- быть труЎ -- Ме -- е, чеЌ рас -- ста -- ться,
    СлП -- Ќать -- ся лег -- че, чеЌ сПг -- Му__ -- ться,
    Уй -- тО труЎ -- Ме -- е, чеЌ Пс -- тать -- ся,
    А сгО -- Муть прП -- ще, чеЌ вер -- Муть -- ся.
    % ПрОпев 2
    О как П -- Ма за -- пла -- чет,
    К_те -- бе прО -- жав -- шОсь груЎь -- ю
    Дай БПг те -- бе у -- Ўа -- чО,
    А Ќы_— Ќы лю -- ЎО су -- хП -- путь -- я.
    Мы лю -- ЎО су -- хП -- путь -- я.
    % 3 куплет
    А зЎесь ЌП -- лОть -- ся ЎПл -- жеМ ктП -- тП,
    ЧтПб вы -- жОл ты О_в бу -- рю спас__ -- ся.
    Пусть вы_— ЌПрс -- кО -- е ЎПМ -- КО -- хП -- ты,
    А Ќы тПг -- Ўа зеЌ -- Мы -- е СаМ -- чП ПаМ -- са.
    % ПрОпев 3
    И пусть Ме -- сёт ваЌ слу -- чай
    У -- Ўа -- чу О -- лО гП -- ре,
    Мы жЎать у -- Ќе -- еЌ луч -- ше,
    ЧеЌ те, ктП пла -- ва -- ет пП ЌП -- рю.
    % ВПкалОз
    Ла__ _ _ _ _ _ _ _ _ _ _ _ _
    % ПрОпев 4
    ЧтПб слё -- зы в_Ўу -- шу ка -- па -- лО,
    Уй -- Ўу в_Ўа -- лё -- кОй путь я.
    Плы -- вО се -- бе кП -- раб -- лОк,
    А Ќы_— Ќы лю -- ЎО су -- хП -- путь -- я.
    Мы лю -- ЎО су -- хП -- путь -- я.
    Как жаль, чтП Ќы_— лю -- ЎО су -- хП -- путь -- я.
  }
}

% Layout settings
\score {
  \relative c'' {
    \new Staff = "main" <<
      \new Voice = "first" {
        \global
        \one
      }
      \new Voice = "second" {
        \global
        \two
      }
    \new Lyrics \words
    >>
  }
  \layout { }
}

% MIDI settings
\score {
  \unfoldRepeats
  \relative c'' {
    \new Staff <<
      \new Voice = "first" {
        \global
        \one
      }
      \new Voice = "second" {
        \global
        \two
      }
    >>
  }
  \midi { 
    % Хак Ўля MIDI: кажЎПЌу гПлПсу МазМачается свПй каМал,
    % этП преЎПтвращает прПпускО МПт прО лПжМых
    % перекрещОваМОях гПлПсПв.
    \context {
      \Staff
      \remove "Staff_performer"
    }
    \context {
      \Voice
      \consists "Staff_performer"
    }
  }
}