Psalm 138

Zur Navigation springen Zur Suche springen


Lilypond-Code

\version "2.20.0"
\language "deutsch"
myTitel = "Psalm 138"
mycomp=\markup \line \fontsize #0 {
  "M&T: Heinrich Rohr"
}

#(use-modules (scm accreg))
myBlue = #(x11-color 'sienna4)

make-midi-list =
#(define-void-function (name score tempolist)
   ((string? #f) ly:score? list?)
   (for-each
    (lambda (tempo)
      (ly:book-process
       (apply
        ly:make-book
        $defaultpaper
        $defaultheader
        (list score))
       $defaultpaper
       #{
         \midi {
           \tempo 4 = $tempo
         }
       #}
       (format #f "~a_~a"
         (or name "midi")
         tempo)))
    tempolist))

\layout {
  \context {
    \Voice
    beamExceptions = #'()
    \override BreathingSign.text =
    \markup { \musicglyph #"scripts.lvarcomma" }
    \override Stem.neutral-direction = #down
    \override Script.outside-staff-priority = #'()
    \override Script.padding = #1
    \override Tie.thickness = #1
    \override PhrasingSlur.thickness = #3
    \override Rest.voiced-position = #0
    \override MultiMeasureRest.expand-limit = #3
  }
  \context {
    \Staff
    printPartCombineTexts = ##f
    beamExceptions = #'()
    \override BreathingSign.text =
    \markup { \musicglyph #"scripts.lvarcomma" }
    \override InstrumentName.font-features = #'("smcp")
  }
  \context {
    \Score
    \override VerticalAxisGroup.remove-first = ##t
    skipBars = ##f
    \override MetronomeMark.font-size = #1
    \override MetronomeMark.font-shape = #'caps
    \override BarLine.thick-thickness = 5
    \override BarNumber.stencil = ##f
    barNumberVisibility = #all-bar-numbers-visible
    \override Timing.beamExceptions = #'()
    \override BarNumber.color = #(rgb-color 0.7 0.7 0.7)
    \override BarNumber.layer = #-200
    \override BarNumber.outside-staff-priority =#'()
    \override BarNumber.padding = #1
    \override BarNumber.font-size = #-1
    \override BarNumber.font-series = #'bold
    \override BarNumber.self-alignment-X = #0
    \override BarNumber.break-visibility = #end-of-line-invisible
  }
  \context {
    \Dynamics
    \override Hairpin.to-barline = ##f
    alignBelowContext = melodie
    \override TextSpanner.outside-staff-priority = ##f
    \override TextSpanner.padding = #'()
    \override DynamicText.outside-staff-priority = ##f
    \override DynamicText.padding = #4
  }
  \context {
    \RhythmicStaff
    \accepts MyFingers
    \consists Clef_engraver
    clefGlyph = #"clefs.percussion"
    clefPosition = #0
    printPartCombineTexts = ##f
    fontSize = #-1
    \override StaffSymbol.staff-space = #(magstep -1)
    \remove Ledger_line_engraver
    \override NoteColumn.before-line-breaking =
    #(lambda (grob)
       (let* ((pap-col (ly:grob-parent grob X))
              (pap-col-elts (ly:grob-object pap-col 'elements))
              (chord-names
               (if (ly:grob-array? pap-col-elts)
                   (filter
                    (lambda (elt)
                      (grob::has-interface elt 'chord-name-interface))
                    (ly:grob-array->list pap-col-elts))
                   '())))
         (for-each
          (lambda (chrd)
            (ly:grob-set-parent! chrd X grob))
          chord-names)))
  }
  \context {
    \StaffGroup
    \accepts SecondChords
    \accepts BarNumberStaff
  }
}

sop = \relative c' {
  \key f \major
  \cadenzaOn
  f2 a4 b c2 a g4 a b a g2 f
  \bar "||"
  f2 a4 b c2 a g4 a b a g2 f
  \bar "|."
}

versi =\relative c' {
  \key f \major
  \cadenzaOn
  < f c >4 \bar "!" < g c > \bar "!"
  < a d > \bar "!" < c e, > \bar "!"
  < f, d > \bar "!" < g b > \bar "!" < f a > \bar "!"
  < a f > \bar "!" < c a > \bar "!"
  < d, a > \bar "!"
  < f d > \bar "!" < g b > \bar "!"
  < f d > \bar "!" < c e g > \bar "|."
}

akki = \chordmode {
  f4 c/e d:m a:m d:m
  g:m d:m
  d:m f/a h f/a g:m d:m c
}

akkii = \chordmode {
  f4 c/e d:m a:m f/a g:m d:m
  f/a h g:m g:m/h c
  
}

akkiii = \chordmode {
  f4 d:m f/a h c
  g:m d:m g:m f/a c
  f h/d g:m c
  d f/a h f
}

versii = \relative c' {
  \key f \major
  \cadenzaOn
  < f c > \bar "!" < e g > \bar "!" < d f > \bar "!"
  < e a >  \bar "!" < c f >  \bar "!"
  < g' b > \bar "!" < f a > \bar "!"
  q  \bar "!" < f a > \bar "!" < d f > \bar "!"
  < d g > \bar "!" < c e g > \bar "|." \break
}

versiii =
\relative c' {
  \key f \major
  \cadenzaOn
  < c f > \bar "!" < f a > \bar "!" < f a > \bar "!"
  < d f > \bar "!" < c g > \bar "!"
  < b d > \bar "!" < d f > \bar "!" < g b > \bar "!"
  < f a > \bar "!" < e g > \bar "!" < f a > \bar "!"
  < d f > \bar "!" < f a > \bar "!" < e g > \bar "!"
  < d f > \bar "!" < c f > \bar "!" < b d > \bar "!"
  < c f > \bar "|."
}

alt = \relative c' {
  c2 f e f d f e c
  c2 d e d d1 e2 c
}

ten = \relative c {
  \key f \major
  f2 d c d b g c f,
  \voiceOne
  a' f g f f g c a
}

bas = \relative c {
  \clef bass
  s1 s s s
  f2 d c d b1 c2 f
}

Struktur =
{
  %\override Score.NonMusicalPaperColumn.page-break-permission = ##f
  %\override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/16)
  %\override PianoStaff.VerticalAxisGroup.staff-staff-spacing = #'((basic-distance . 16))
  s4
  %\repeat unfold 3 { s2. s s s2 s8 \bar "'" \break s8 }
}

lyr = \lyricmode {
  \set stanza = #"V"
  Lo -- bet den Herrn,
  preist sei -- ne Huld und Treu -- e.
  \set stanza = #"A"
  Lo -- bet den Herrn,
  preist sei -- ne Huld und Treu -- e.
}

vlyri = \lyricmode {
  \set stanza = "1."
  \override LyricText.self-alignment-X = #LEFT
  Ich_will_dir danken_mit_meinem ganzen Herzen,
  vor_Göttern_will_ich_dir singen_und spielen.
  Ich_will_mich niederwerfen_zu_deinem
  heiligen_Tempel_hin,
  will_deinen_Namen danken_für_deine
  Huld_und_für_deine Treue.
}

vlyrii = \lyricmode {
  \override LyricText.self-alignment-X = #LEFT
  \set stanza = "2."
  Denn_du_hast_dein Wort
  größer_ge -- macht
  als_deinen_ganzen Namen.
  Am_Tag,_da_ich rief,_gabst_du_mir
  Antwort, du_weckst Kraft_in_meiner Seele.
}

vlyriii = \lyricmode {
  \override LyricText.self-alignment-X = #LEFT
  \set stanza = "3."
  Erhaben_ist_der HERR,
  doch_er_schaut_auf_den Niedri -- gen,
  in_der Höhe_ist_er,_doch
  er_er -- kennt_von ferne.
  HERR, deine Huld_währt ewig.
  Lass_nicht_ab_von_den
  Werken deiner_Hän de.
}

kopf=\header {
  title = \myTitel
  subtitle = ##f
  subsubtitle = ##f
  poet = ##f
  composer = \markup { #mycomp }
  piece = ##f
}

\paper {
  top-margin = 20\mm
  ragged-right = ##f
  ragged-last = ##f
  ragged-bottom = ##f
  ragged-last-bottom = ##f
  bottom-margin = 20\mm
  indent = #0
  line-width = 170\mm
  print-all-headers = ##f
  #(include-special-characters)
  print-first-page-number = ##t
  first-page-number = #1
  oddFooterMarkup = ##f
  evenFooterMarkup = ##f
  oddHeaderMarkup = #oddFooterMarkup
  evenHeaderMarkup = #evenFooterMarkup
  %markup-system-spacing.padding = #8
  system-system-spacing.basic-distance = #6
  system-system-spacing.padding = #1
  %score-system-spacing.basic-distance = #3
  score-system-spacing = #system-system-spacing
}

refrain = \score
{
  <<
    \new PianoStaff="leadsheet"
    <<
      \new Staff="Discant"
      <<
        \new Voice="Alt" { \voiceOne \sop }
        \new Voice { \voiceTwo \alt }
      >>
      \new Lyrics \lyricsto Alt \lyr
      \new Staff="Bass"
      <<
        \new Voice { \ten }
        \new Voice { \voiceTwo \bas }
        \new NullVoice \Struktur
      >>
    >>
  >>
}

\bookpart {
  \kopf
  \refrain
  \score {
    <<
      \new ChordNames \akki
      \new Staff
      \new Voice="Vers" \versi
      \new Lyrics \lyricsto Vers \vlyri
    >>
    \layout {
      ragged-right = ##f
    }
  }
  \refrain
  \score {
    <<
      \new ChordNames \akkii
    \new Staff
    
      \new Voice="Vers" \versii
      \new Lyrics \lyricsto Vers \vlyrii
    >>
    \layout {
      ragged-right = ##f
    }
  }
  \refrain
  \score {
    <<
      \new ChordNames \akkiii
    \new Staff
      \new Voice="Vers" \versiii
      \new Lyrics \lyricsto Vers \vlyriii
    >>
    \layout {
      ragged-right = ##f
    }
  }
}