Am Wasserfall/score

Zur Navigation springen Zur Suche springen
\version "2.20.0"
\language "deutsch"

#(use-modules (ice-9 regex))

\paper {
  #(set-paper-size "b4")
  #(include-special-characters)
  system-system-spacing.basic-distance = #16
  markup-system-spacing.basic-distance = 12
  oddHeaderMarkup = ##f
  evenHeaderMarkup = ##f
  oddFooterMarkup =\markup \fill-line { \null \concat {  "Quelle: Verlag Fr. Kistner, Leipzig 1844, Platte #1435" } \null }
  evenFooterMarkup = \markup \fill-line { \null \concat { \char #169 " Public Domain" } \null }
  ragged-right = ##f
  ragged-last = ##f
  ragged-bottom = ##t
  ragged-last-bottom = ##t
  top-margin = 15\mm
  bottom-margin = #10
  left-margin = 15\mm
  right-margin = #left-margin
  %page-breaking = #ly:minimal-breaking
  annotate-spacing = ##f

  #(define fonts
     (set-global-fonts
      #:music "Ross"
      #:brace "emmentaler"
      #:roman "Century Schoolbook L"
      #:sans "sans-serif"
      #:typewriter "monospace"
      ))
}

\header {
  title = \markup \override #'(font-name . "Parchment")
  \fontsize #12 "Am Wasserfall"
  subtitle = ""
  opus = ##f
  composer = \markup \override #'(baseline-skip . 3)
  \right-column { "Musik: Josephine Lang (14.3.1815-2.12.1880)" "Opus 12 №1" }
  poet = \markup \override #'(baseline-skip . 3)
  \left-column
  {
    "Text: Christian Reinhold Köstlin (29.1.1813-14.9.1856)"
    \concat { \char #169 " Public Domain" }
  }
  %copyright = \markup { \char #169; PD }
  tagline = \markup \concat { \char #169 " Public Domain" }
}

hps =
#(define-music-function (li re)
   (number? number?)
   #{
     \once \override Hairpin.shorten-pair = #`(,li . ,re)
   #}
   )

\layout {
  \context {
    \PianoStaff
    \consists #Span_stem_engraver
    \remove Keep_alive_together_engraver
    \accepts BarNumberStaff
  }
  \context {
    \Staff
    \RemoveAllEmptyStaves
    \remove "Dot_column_engraver"
  }
  \context {
    \Voice
    \consists "Dot_column_engraver"
    \override TextScript.font-name = #"French Script MT"
    \override TextScript.font-size = #6
  }
  \context {
    \Score
    \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.9
    \override BarNumber.font-series = #'bold
    \override BarNumber.self-alignment-X = #0
  }
  \context {
    \Lyrics
    \override LyricHyphen.dash-period = #6
    \override LyricHyphen.length = #1
    \override LyricHyphen.thickness = #1
    \override LyricHyphen.height = #1
    \override LyricHyphen.minimum-distance = #3
  }
}

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
                                  #:override '(font-size . 6)
                                  #:override '(font-name . "French Script MT") 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))
       #}))

tonart = { \key c \major }
Alt =
\relative c' {
  \tonart
  s4
  R2. * 12
  r4 r d
  e g d e g a
  \phrasingSlurDotted
  h4.\( h8\) c4
  g2 d4 e g d e g c
  e4. 8 d4 c( h ) a
  d2. g,2 g4
  g'2. cis,2 4
  e2 ( d4)
  c \grace { d16[ c] } h4 a
  g2. R2. * 4
  r4 r d
  es g d es\( g\) b
  c4. 8 d4 es2 b4
  b as g b as g
  c4.\( h8\) c4 d2.
  R2. * 3
  r4 r g,4
  \phrasingSlurSolid
  \override Script.direction = #UP
  %\override Script.color = #red
  \override Script.outside-staff-priority = ##f
  \override Script.padding = #1
  \override Script.avoid-slur = #'inside
  \override TextScript.direction = #UP
  \override TextScript.outside-staff-priority = ##f
  \override TextScript.padding = #2
  \override TextScript.avoid-slur = #'inside
  \override TextScript.self-alignment-X = #0
  a\(-^ h-^ d\)-^
  g, e g a h d g,2 4
  e' d c b a g
  f f' e e( d) c
  \override PhrasingSlur.height-limit = #4
  h g'\( fis-\markup \italic "riten." f d h
  g a-\markup \italic "ritard." f e2\) r4
  R2. r4 r d
  e-^ g-^ a-^ h c r
  R2. r4 r d,
  e g a h ( c ) g
  g'2 ( e4 c ) g e
  \once \override Slur.details.max-slope = 0
  d2 ( c'4) ~ 4 h a
  a2\( g4 f \grace { g16[ f] } e4 d \slashedGrace { c8 } c2.\)
  R2. * 14
}

dynalt = {
  s4
  R2. * 12
  s2 s4\p
  s2. * 5
  s2.\< s\!
  s\> s\! s s\f
  s s\> s\!
  s2. * 7
  s2.\dynamictext "cres."
  s\< s2\f s4\p
  s2.\< s\> s\p s
  s2. * 3
  s2 s4\dynamictext "a Tempo"
  s2. * 4 s2.\f
  s\< s4 s\f\> s s2. s2.\!
  s2. * 11
  s2.\f
  s2. * 4
  s4 s\dynamictext "riten."
}

rdyn = {
  s4\p
  s2. * 18
  s2.\< s\! s
  s\p s
  s4\f s\< s
  %\once \override Hairpin.
  \hps #0 #3
  s\> s\! s
  s2. s s
  s\p s s s s s
  s\dynamictext "cres." s
  s4\ff \tuplet 3/2 { s4 \hps #0 #2 s8\p\< } s4
  s s4\> s s\< \hps #1 #0 s\> s s2.\p
  s2. * 13
  s2 s4\dynamictext "riten."
  s2. s4 s2\dynamictext "ritard."
  s2.
  s\dynamictext "a Tempo"
  s2. * 12
  s4\pp s2\dynamictext "riten."
  s2.
  s\dynamictext "a Tempo"
}

ldyn = {
  s4
  s2. * 36
  s2 s4\< s2.
  s2.\> s\!
  s2. * 17
  \hps #0 #-2
  s4\> s2\!
  s4\> s2\!
  s2.
  \hps #0 #-2
  s4\> s2\!
  s4\> s2\!
  s4\> s2\!
  s2.\<
  \hps #0 #-2
  s4\> s2\!
}
struktur = {
  \override PianoStaff.VerticalAxisGroup.staff-staff-spacing.basic-distance = #12
}

versi =
\lyricmode {
  Dein Jüng -- _ ling träu -- met am Was -- _ ser -- fall,
  das wo -- get und schäu -- met
  im e -- wi -- gem Schwall,
  das wo -- get und schäu -- met im e -- wi -- _ gem Schwall.
  Mit Won -- ne -- ge -- brül -- _ le giesst es da -- her!
  \override LyricExtender.minimum-length = #5
  % {
  Un -- end -- li -- che Fül -- le und wird __ _ nicht leer!
  Springt auf an den Stei -- nen und stemmt sich zu -- rück!
  Her -- nie -- der zu wei -- nen un -- säg -- li -- ches Glück,__
  her -- nie -- der zu wei -- nen un -- säg -- li -- ches Glück!
  Springt auf an den Stei -- nen und stemmt sich zu -- rück!__
  Her -- nie -- der zu wei -- nen un -- säg -- _ _ li -- ches Glück,__
  her -- nie -- der zu wei -- nen un -- säg -- _ _ li -- ches Glück!
}

versii =
\lyricmode {
  Und sau -- set und bli -- tzet in se -- lig -- gen Braus,
  und brau -- set und spri -- tzet die See -- le sich aus,
  und brau -- set und spri -- tzet die See -- le __ _ sich aus!
  Und o -- ben -- drauf wei -- let die Son -- ne so mild,
  in Far -- ben zer -- thei -- let das gött -- li -- che Bild!
  So stür -- zet mein Le -- ben die Son -- ne du drin;
  im trun -- ke -- nen Be -- ben ich weiß nicht wo -- hin,__
  im trun -- ke -- nen Be -- ben ich weiß nicht wo -- hin,
  so stür -- zet mein Le -- ben die Son -- ne du drin;__
  im trun -- ke -- nen Be -- ben ich weiß __ _ _ nicht wo -- hin!
}

RHi =
\relative c'' {
  \tonart
  \voiceOne
  \tempo \markup "Mässig."
  \time 3/4
  \partial 4
  g4^\markup \italic "legato"
  \repeat unfold 2 { a h c g2 g4 }
  g'4 e c
  g e g f e d g2 s4
  g'4 e c g e g
  f e d
  c2.
  s2 d4
  e g d e g a
  h2 c4 g2 d4 e g d
  e g c
  s e d
  c h a s h d
  s g, h s g a
  b a g fis g a fis g a
  s2.
  g'4 d e a, d g, c h a
  g2. s2 d4
  es g d es g b
  c2 d4
  es2 b4 b as g
  b as g fis2.
  s2 g'4
  fis c' fis, g d g,
  fis c' fis, a g g
  a h d g, e g
  a h d g,2 4
  e' d c b a g f f' e
  e d c h g g
  h g g h2.
  s2 d,4 e g d
  e g d e g a
  h ( c ) d,
  e g d e g d e g a
  h c g s2.
  e'4 c g
  fis2. ~ fis f! f
  e2 g4( a h c
  g2 4)
  a h c g2 4
  g'4 e c g e g
  f e d g2 4
  g' e c g e g f e d c2.
}

runter = { \change Staff="down" \voiceOne }
rauf = { \change Staff="up" \voiceTwo }
RHii =
\relative c'' {
  \voiceTwo
  \tupletSpan 4
  \tuplet 3/2 {
    g8 c, g
    \override TupletNumber.stencil = ##f
    \omit TupletBracket
    a' c, a h' f h, c' e, c
    g' f d g f d g e c
    a' f c h' f h, c' e, c
    g' f d g, f' d g f d
    g' c, g e' g, e c' e, c
    %\override Beam.auto-knee-gap = #6
    g' c, g
    e' c g
    g' c, g
    f' h, g
    e' c g
    d' g, d
    g' e c g c e g c, g
    g'' c, g e' g, e c' e, g
    g c, g e' c g g' c, g
    f' h, g e' c g d' g, f
    c' \runter g e c g' e c' g e
    c g' e c' g e \rauf d' \runter h g
    \rauf e' c g g' c, g d' h g
    e' c g g' c, g a' c, a
    h' g f h, g' f c' e, c
    g' f d g, f' d d h g
    e' c g g' c, g d' h g
    e' c g g' c, g c' e, c
    e fis a e' a, fis d' g, d
    c' fis, d h' g d a' d, a
    \oneVoice
    r d g \voiceTwo h g d d' g, d
    \oneVoice r h e \voiceTwo g e h h' e, h
    \oneVoice r cis e \voiceTwo g e cis a' e cis
    b' e, cis a' e cis g' e cis
    fis c! a g' c, a a' c, a
    fis' c a g' c, a a' c, a
    \oneVoice
    g' d h g h d g h d
    \voiceTwo
    g h, g d' g, d e' g, e
    a fis d d' g, d g e h
    c' e, c h' e, c fis d c
    g' d h g d' h g' d h
    g d' h g' d h d h g
    es' c g g' c, g d' h! g
    es' c g g' b, g b' es, b
    c' as es c as' es d' as d,
    es' b g es b' g b g b,
    b' g b, as' f b, g' es b
    b' g b, as' f b, g' es b
    fis' d c fis, d' c fis d c
    \oneVoice
    g' d h g h d \voiceTwo g' h, g
    fis' c fis, c'' fis, c fis c fis,
    g' h, g d' g, d g h, g
    fis' c a c' fis, c fis c a
    a' f! h, g' f h, g' f h,
    a' f c h' f d d' f, d
    g d g, e' c g g' c, g
    a' c, a h' f h, d' g, f
    g e c g e' c g' c, g
    e'' g, e d' gis, e c' a e
    b' e, cis a' d, a g' cis, a
    f' d a f'' a, f e' a, g
    r f a d a f c' a d,
    h' h, f'! g f h, g' f h,
    h' h, f' g h, f' g h, f'
    r h, f' g f h, g' f h,
    \oneVoice
    c' g e c e g, \voiceTwo d' h g
    e' c g g' c, g d' h g
    e' c g g' c, g d' h g
    e' c g g' c, g a' c, a
    h' f h, c' e, c d h g
    \repeat unfold 2 { e' c g g' c, g d' h g }
    e' c g g' c, g a' c, a
    h' f h, c' e, c g' c, g
    \oneVoice
    c'' e, c c' e, c g' c, g
    \voiceTwo
    e' g, e c' e, c g' c, g
    \runter r fis c'! d c fis, d' c fis,
    \repeat unfold 2 { r f c' d c f, d' c f, }
    r f h d h f d' h f
    r c' g e g c \rauf g' c, g
    a' c, a h' f h, c' e, c
    r f d g, f' d r e g,
    r c a h' f h, c' e, c
    r f d g, f' d g f d
    g' c, g e' g, e c' e, c
    g' c, g e' c g g' c, g
    f' h, g e' c g d' \runter g, d \rauf
    r e' c g e' c g' c, g
    g'' c, g e' g, e c' e, c
    g' c, g e' c g g' c, g
    f' h, g e' c g d' g, f
    \runter
    c' g e c g' e c' g e
    c e g \rauf \oneVoice c e g c e g
  } %% Ende der Triolen
  < g c c, >2.\fermata \bar "|."
}

LHi =
\relative c {
  \mergeDifferentlyDottedOff
  \mergeDifferentlyHeadedOn
  \clef bass
  \tonart
  e4 f d c
  h g c f d c
  h g h
  e' c g
  e c e
  \once \stemUp d c h
  \grace { e,8 } e'2 4
  e' c g e c e
  \once \stemUp
  d c h
  \voiceTwo < c c, >2 g4 c,2 g'4
  \oneVoice
  c e g, c e f
  d2 c4 h2 g4
  c4 e g, c e g c2 h4
  a g < fis c > < g h, >2.
  < e e, > < a, a, > ~ q
  d, d' g,
  r4 h' cis c! h e,
  a,2 d4 g,2 d' 4
  g,2 4 c es g,
  c es g as2 < f f, >4
  < es es, >2 b4
  c d es c d es d2 d,4
  g2 d'4 es' g, es'
  d h d, es g, es' d g, g'
  \override Script.direction = #UP
  g,(-^ g'-^ g,)-^
  h ( c ) e f-^ d-^ h-^
  c2 e4 c' h a g f e
  < a d, > < d a d, > < cis a e >
  \voiceOne cis d \oneVoice fis,
  g g, d' g g, d'
  g g, g' c,2 g4
  c e g,-! c e g, %_\markup \rotate #55 \fontsize #-4 { \musicglyph #"noteheads.s1" }
  c e f d a g-!
  c e g, c e g, c e f d c e
  g'2 e4 c g e
  \voiceTwo
  < d d, >2. ~ < a d, >
  g, g' < c c, >2 c4
  \oneVoice
  f-. d-. c-. h g c f d c
  h g h e' c g
  e c e
  \voiceOne
  d c h e2 4
  \oneVoice
  e' c g
  e c e
}

LHii =
\relative c {
  s4
  s2. * 6
  \voiceTwo
  g2.
  s2. * 3
  g2.
  s2. * 33
  s4 g2
  s2. * 7
  < f' a >2 s4
  s2. * 25
  g,2. c, s s
  g'2. < c c, >2 g4
  c,2 g'4 |
  < c g' e' >2.^\fermata
}

\score {
  <<
    \new Dynamics \dynalt
    \new Staff = "Alt" \with { instrumentName = \markup \fontsize #2 #"Alt" }
    \new Voice = "alt" \Alt
    \new Lyrics \lyricsto "alt" \versi
    \new Lyrics \lyricsto "alt" \versii
    \new PianoStaff
    \with { instrumentName = \markup \fontsize #2 "Pianoforte" }
    <<
      \new Staff = "up"
      <<
        \new Voice \RHi
        \context Voice { s2. * 6 \override Staff.BarNumber.stencil = ##f }
        \new Voice \RHii
      >>
      \new Dynamics \rdyn
      \new Staff = "down"
      <<
        \new Voice \LHi
        \new Voice \LHii
        \new NullVoice \struktur
      >>
      \new Dynamics \ldyn
    >>
  >>
}