Sswete tihij

Zur Navigation springen Zur Suche springen


Score

\version "2.19.83"
\language "deutsch"
#(define myTitel "Sswete tihij")
mypoet = \markup {
  \override #'(baseline-skip . 3)
  \left-column {
    ""
  }
}

mycomposer = \markup {
  \override #'(baseline-skip . 3)
  \right-column {
    "T: Slavische Liturgie"
    "M: Artur Mikhel"
  }
}

\layout {
  \context {
    \Staff
    \remove Time_signature_engraver
  }
  \context {
    \Score
    automaticBars = ##f
  }
}

%% Voice 1
sop=
\relative c' {
  \key d \major
  h4 fis'
  e2 h2.
  h4 d fis
  e2 h2.
  h4 cis cis d e
  fis fis g2.
  fis4 g a a2
  g4 g fis fis fis2
  d4 d
  d2 4 4 h2.
  h4 fis'2 4 a gis a h2 h h
  g4 h cis a h2 4 4 4 a gis2 fis gis
  a4 e a a gis fis2 ( gis4 ) fis cis'2 fis,4
  \breathe fis h2 4 dis
  fis, ais h2 ais4 cis h2 h h4 d! cis h a!
  cis h2. fis4 2
  \phrasingSlurDashed
  h,4 fis' e2\( h2.\)
  h4 d fis e2 ( h1 )
  h4 ( cis ) d ( e ) fis2 e e1 h
  \bar "|."
}

%% Voice 2
alt =
\relative c' {
  \phrasingSlurDashed
  h4 d a2 h2.
  h4 h d a2 h2.
  h4 cis cis d d
  d cis d2.
  d4 d d d2
  d4 cis4 4 4 2
  d4 d
  h2 cis4 4 h2.
  h4 d2 4 fis e fis g!2 a g
  g4 g e g fis2 4 4 e e e2 d e
  e4 e fis fis e d2( e4) d fis2 cis4
  fis fis2 gis4 4
  fis fis e2 4 4 e ( fis ) g!2
  g4 g g g g
  fis fis2 e d h4 d a2\( h2. \)
  \override Score.NoteColumn.ignore-collision = ##t
  h4 h d a2 ( h1 )
  h2 4( cis ) d2 cis h1
}

ten= \relative c' {
  \key d \major
  \clef bass
  h4 4 2 2.
  h4 h h h2 2.
  4 4 4 4 4
  a a h2.
  a4 h cis h2
  4 a a gis a2 4 4
  gis2 h4 a h2. 4 2
  cis4 d d d d2 d4 ( cis) h2
  cis4 d d cis d2 4 4 4 4 d ( cis) h ( a ) h2
  cis4 4 4 4 4 2 ( h4) h ais2 4 \breathe fis dis'2 d4 h
  h h h2 4 4 h ( cis ) d!2 e4 fis e fis cis
  \phrasingSlurDashed
  cis4 d2 cis h h4 4 2\( 2.\)
  h4 4 4 2 ~ 1
  2 2 2 a gis ( fis ) h1
}

bas = \relative c' {
  h4 g fis2 h2.
  4 a g fis2 h2.
  4 4 a g g fis fis g2.
  4 4 fis e2
  4 4 fis fis fis2 4 4
  e2 a4 a h2.
  4 2 4 4 4 a g!2 fis e
  e4 e a a h2 4 a gis fis e2 d4( fis ) e2
  a4 gis fis fis cis h2 ( e4 ) e fis2 4
  4 h2 gis4 4
  dis dis gis2 4 g4 g! ( a! ) h2
  4 h h h h
  \phrasingSlurDashed
  h h2 h h h4 g fis2\( h2.\) 4 a g fis2 s1
  h4 ( a ) g ( fis ) e2 d cis1 h
}

%% Song Lyrics
firstverse =
\lyricmode {
  Sswé -- te tí -- hij
  Sswja -- tý -- ja sslá -- wy
  be -- ssmé -- rtna -- go
  O -- tsá Ne -- bé -- ssna -- go,
  Sswja -- tá -- go Bla -- žé -- nna -- go,
  I -- i -- ssú -- sse Hri -- ssté!
  Pri -- šé -- tše na sá -- pat ssó -- ntsa,__
  wí -- de -- fše sswet we -- čé -- rnij,
  po -- jém O -- tsá, Sý -- na
  i Sswja -- tá -- _ go Dú -- ha, Bó -- ga!
  Do -- sstó -- in je -- ssí
  wo fssja wre -- me -- ná pet bý -- ti glá -- ssy
  pre -- po -- dó -- bny -- mi, Ssý -- ne Bó -- žyj,
  žy -- wót da -- jáj:
  té -- mže mir Tja sslá -- wit!


}

\layout {
  \context {
    \Staff
    \remove Time_signature_engraver
  }
  \context {
    \Score
    automaticBars = ##f
    %\override BarNumber.stencil = ##f

  }
  \context {
    \Voice
    \override BreathingSign.text = \markup \musicglyph #"scripts.caesura.straight"
  }
}

Struktur = {
  \mark \markup { "Friedlich " }
  %\remove Score.Time
  s2 * 10 \bar "" \break
  s2 * 8 \bar "" \break
  s2 * 10 \bar "" \break
  s2 * 9 \bar "" \pageBreak
  s2 * 8 s4 \bar "" \break
  s2 * 7 s4 \bar "" \break
  s2 * 11 s4 \bar "" \break
}

#(use-modules (ice-9 regex))
dynamictext =
#(define-event-function (text) (markup?)
   (if (string? text)
       (let* ((underscores-replaced
               (string-map
                (lambda (x) (if (eq? x #\_) #\space x))
                text))
              (split-text (string-split underscores-replaced #\space))
              (formatted (map
                          (lambda (word)
                            (if (string-match "^[mrzfps]*$" word)
                                (markup #:dynamic word)
                                (markup #:normal-text #:italic word)))
                          split-text)))
         #{
           #(make-dynamic-script (make-line-markup formatted))
         #})
       ;; user provided a full-blown markup, so we don't mess with it:
       #{
         #(make-dynamic-script (markup #:normal-text text))
       #}))

Dyn =
{
  \override Hairpin.height = #0.5
  s2\p\< s2\> s2.\!
  s2.\< s2\> s2.\!
  s4\mp\< s1 s2 s2.\!
  s2. s2 s4 s2.\> s2\! s2\p
  s2 s2\> s2.\! s4\mf s2 s s\< s\!
  s2 * 12 s4
  s2\< s s\!
  s4 s\f s2 * 4
  s4 s\>s2 s\!
  s2. s2\> s4 s1 s2\!
  s4\mp\< s s2\> s2.\!
  s2.\< s2\> s1\!
  s2.\< s4\! s2\dynamictext "rit."
  s2 s1\> s\!
}

kopf= \header {
  title = \markup \line
  {
    #myTitel
  }
  subtitle = "Heiteres Licht/Gladsome Light"
  subsubtitle = ""
  poet = #mypoet
  composer = #mycomposer
  piece = ##f
  opus = ##f
}

\paper {
  annotate-spacing = ##f
  oddHeaderMarkup = ##f
  evenHeaderMarkup = ##f
  oddFooterMarkup = ##f
  evenFooterMarkup = ##f
  bottom-margin = #10
  ragged-bottom = ##t
  line-width = 160\mm
}

\bookpart {
  \kopf
  \score
  {
    \new ChoirStaff
    <<
      \new Dynamics \Dyn
      \new Staff=oben
      \with
      {
        \override InstrumentName.padding = #1
        \override InstrumentName.self-alignment-X = #1
        instrumentName = \markup \left-column { "S" "A" }
        shortInstrumentName = \markup \right-column { "S" "A" }
      }
      <<
        \new NullVoice \Struktur
        \new Voice="melody" { \voiceOne \sop }
        \new Voice { \voiceTwo \alt }
      >>
      \new Lyrics="lyr" \lyricsto "melody" \firstverse
      \new Dynamics
      \with { alignAboveContext = "unten" }
      {
        <<
          \Dyn
          %% rit gegen Schluss soll in der unteren Stimme nicht angezeigt werden
          { s2 * 60 \override Dynamics.DynamicText.color = #white }
        >>
      }
      \new Staff="unten"
      \with
      {
        \override InstrumentName.padding = #1
        \override InstrumentName.self-alignment-X = #1
        instrumentName = \markup \left-column { "T" "B" }
        shortInstrumentName = \markup \right-column { "T" "B" }
      }
      <<
        \new Voice { \voiceOne \ten }
        \new Voice { \voiceTwo \bas }
      >>
    >>
  }
}