Sie liebt mich (Josephine Lang)

Zur Navigation springen Zur Suche springen

MP3

Noten auf einer Seite

Sie liebt mich.png

SVG logo.svg Noten im SVG-Format

Lilypond-Code

\version "2.20.0"
\language "deutsch"

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

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

arp =
#(define-music-function (un ob)
   (number? number?)
   #{
     \once \override Arpeggio.positions = #`(,un . ,ob)
   #})

#(set-global-staff-size 18)
\include "articulate.ly"
\paper {
  #(include-special-characters)
  #(set-paper-size "a4")
  top-markup-spacing.basic-distance = #12
  system-system-spacing.basic-distance = #16
  markup-system-spacing.basic-distance = 16
  markup-system-spacing.padding = 4
  oddHeaderMarkup = ##f
  evenHeaderMarkup = ##f
  oddFooterMarkup =\markup \fill-line { \null \concat {  "Quelle: Bayrische Staatsbibliothek" } \null }

  evenFooterMarkup = \markup \fill-line { \null \concat { \char #169 " Public Domain" } \null }
  oddFooterMarkup = ##f
  ragged-right = ##f
  ragged-last = ##f
  ragged-bottom = ##t
  ragged-last-bottom = ##t
  top-margin = 10\mm
  bottom-margin = #20
  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 "Sie liebt mich"
  subtitle = ""
  opus = ##f
  composer = \markup \override #'(baseline-skip . 3)
  \right-column { \vspace #2 "Musik: Josephine Lang (14.3.1815-2.12.1880)" "Opus 34 №4" }
  poet = \markup \override #'(baseline-skip . 3)
  \left-column
  {
    \vspace #2 "Text: J. W. Goethe (28.8.1749-22.3.1832)"
    \concat { \char #169 " Public Domain" }
  }
  %copyright = \markup { \char #169; PD }
  tagline = \markup \concat { \char #169 " Public Domain" }
}

\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 {
    \StaffGroup
    \remove System_start_delimiter_engraver
  }
  \context {
    \Dynamics
    %\override DynamicText.font-name = #"French Script MT"
  }
  \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
    %\override BarNumber.break-visibility = #end-of-line-invisible
  }
  \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 g \major }
Alt =
\relative c'' {
  \tonart
  \time 4/4
  \partial 8
  r8
  \repeat unfold 9 R1
  r2 r4 r8. g16
  g4-^ fis8 r16 h h4-^ a8 r
  fis'4 r8 e8 e4 d
  R1 r2 r4 gis,
  a2 d4. 8 e2 d4 r
  R1 R1
  e,2 a4. 8
  a4. ( fis8 ) a4 r
  h2 cis4 a
  fis'2. d4
  h2 cis4 a
  fis'2 ~ 4 d
  e2 ~( 8 d) cis([ h)]
  a2 a'-^ ~ a2. eis4 fis2 r2
  R1 R1 R1
  \autoBeamOff
  g,4 fis8. 16 g4 gis
  a h8. 16 c4 cis
  d fis,8. 16 g4 gis
  a h8. 16 c4 d
  g2-> fis4.. e16
  d2( c4 c)
  g2 a4. 8 h2. r4
  e1 ~( 4 h) c4. a8
  d1 g,2. r8. g16
  g4 fis8. h16 4 a
  fis' r8. e16 4 d
  g2(->~ 8[ e)] c([ a)]
  d2 g,4 r R1 * 9
}

dynalt = {
  s8
  s1 * 10
  s4 s\dynamictext "cresc." s2
  s s\>
  s1\!
  s1 * 24
  s2\< s\< s2.\> s4\!
  \once \override Hairpin.self-alignment-X = #0.5
  \hps #-2 #6
  s4\< %\once \override Hairpin.self-alignment-X = #0
  \hps #-6 #10 s2.\> s1\!
  \once \override Hairpin.self-alignment-X = #0.5
  \hps #-2 #6
  s4\<
  \hps #-6 #12 s2.\> s1\!
}

rdyn = {
  s8
  s1
  s4 s\< s\! s\fz
  s1
  s4\dynamictext "descres." s\> s\! s
  s1\f s\dynamictext "descres."
  s\dynamictext "Ped."
  s2 s4\> s8 s
  \p s1 s\p
  s s
  s2\> s\!
  s1\dynamictext "dolce"
  s2 s\< s\> s\!
  s\> s\!
  s1 * 7
  s2\> s\!
  s1 s s2. s4\dynamictext "Ped."
  s1\dynamictext "cresc."
  s
  s4\f\> s4\! s2\dynamictext "decresc."
  s1\p s s s s\p
  s s2 s\dynamictext "cresc."
  s1\f s2 s\dynamictext "cresc."
  s1\f
  s2 s\dynamictext "decresc."
  s1 s
  s2 s\dynamictext "cresc."
  s1\f
}

ldyn = {
  s4

}
struktur = {
  %\override Score.NonMusicalPaperColumn.page-break-permission = ##f
  \override PianoStaff.VerticalAxisGroup.staff-staff-spacing.basic-distance = #12
  \override StaffGroup.VerticalAxisGroup.staff-staff-spacing.basic-distance = #16
  \override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/16)
  s8 s1*9
  \newSpacingSection
  \override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/4)
  s1 * 38
  \newSpacingSection
  \override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/16)
}

versi =
\lyricmode {
  Sie liebt mich, sie liebt mich,
  ja sie liebt mich.
  Welch schreck -- li -- ches Be -- ben!
  Fühl' ich mich sel -- ber?
  Fühl' ich mich sel -- ber bin ich am Le -- ben.
  Sie __ liebt mich, sie __ liebt mich!
  \set stanza = "1."
  Ach kann die See -- le dich denn er -- fas -- sen,
  Glück oh -- ne Na -- me, kann es dich las -- sen.
  Ein -- mal er -- wacht, ein -- mal er -- wacht!
  Glück __ oh -- ne Na -- me!
  Sie liebt mich, sie liebt mich,
  ja sie liebt mich.
  Ja __ sie liebt mich!
  %   Fühl' ich mich selber?
  %  Bin ich am Leben?
  %  Sie [liebt]2 mich!
  %  Sie liebt mich!3
}

versii =
\lyricmode {
  \repeat unfold 37 \skip 1
  \set stanza = "2."
  Ach rings so an -- ders,
  bist du's noch Son -- ne,
  bist du's noch, Hüt -- te,
  tra -- ge die Won -- ne,
  tra -- ge die
  \set ignoreMelismata = ##t
  Won -- _ ne,
  see -- li -- ges Herz.
  \set ignoreMelismata = ##f
  Tra -- ge die Won -- ne!
  % Bist du's noch, Sonne?
  %  Bist du's noch, Hütte?
  %  Trage die Wonne,
  %  Seliges Herz!
  %  Sie liebt mich!
  %  Sie liebt mich
}

RHi =
\relative c' {
  \tonart
  %\mergeDifferentlyDottedOff
  %\mergeDifferentlyHeadedOn
  \tempo \markup "Agitato"
  r16 < h d g h >
  \set doubleSlurs = ##t
  q4-> ( < c d fis a >8)[ r16 < d fis a c >] q4-> ( < d g h >8[) r16 < fis a c e g >]
  < fis a c e >4->( < g h d >8[) r16 < c d fis a >] q4 ( < h d g h >8) r
  \set doubleSlurs = ##f
  < fis' a c e >4.-^( < fis a c >8 < d fis a c >4 < c d fis a >)
  < a c d fis > < fis a c d > \voiceOne c' ( h )
  \oneVoice
  < fis' a c e >4.( < fis a c >8 < d fis a c >4 < c d fis a >)
  < a c d fis > < fis a c d > \voiceOne c' ( h )
  d2 ( c )
  h2. ( a4)
  \oneVoice
  < g d h > r < d g > r
  < h g >1
  s1
  \voiceOne
  fis''4. e8 4 d
  c2 h4( a g fis g gis)
  s1 s
  c2 h4( a
  g fis g fis)
  s1 * 24
  \oneVoice
  < g d h >4 r r2 s1
  \voiceOne
  fis'4. e8 4 d
  s1
  \oneVoice
  s2 s4 s8. < h, e g h >16
  \set doubleSlurs = ##t
  < h d g h >4 ( < a d fis a >8.) < d fis a c >16
  q4 ( < d g h >8.) < fis a c e >16
  q4 ( < g h d >8.) < c d fis a >16 q4 < h d g h >
  < fis' a c e >4. q8 < d fis a c >4 < c d fis a >
  \set doubleSlurs = ##f
  < a c d fis > < fis a c d > c' ( h )
  < fis' a c e >4. < fis a c d >8 < d fis a c >4 < c d fis a >
  < a c d fis > < fis a c d > c' ( h )
  d2 ( c ) h ( a )
  < g d h >4 r < d h > r s1
  \bar "|."
}

runter = { \change Staff="down" \voiceOne }
rauf = { \change Staff="up" \voiceTwo }
RHii =
\relative c' {
  s8
  s1 s s
  s2
  \voiceTwo
  < d g > s1 s2 q
  < fis a >1
  \arp #-4 #-1
  < h, d fis >1\arpeggio s1 s
  \omit TupletBracket
  \omit TupletNumber
  \oneVoice
  \tupletSpan 4
  \oneVoice
  \tuplet 3/2
  {
    \runter r8 fis( c' d c fis,) r a( c < d fis > c a) \rauf
    \slurUp
    fis'( a c) fis,( a c) e,( a c) d,( a' c)
    c,( e g) c,( e g) h,( d g) a,( d fis)
    \slurNeutral
    \runter
    g,( h d) fis,( ais d) g,( h d) gis,( h d)
    \rauf \oneVoice
    \slurDown
    r a( d a' d, a r) h( d < f h > d h)
    r c( d < fis! c' > d c) r c( d < fis a > d c)
    \voiceTwo \slurNeutral
    c e g c,( e g) h,( d g) a,( d fis)
    \runter
    g,( h e) fis,( ais d) g,( h e) fis,( a d)
    r e,( h' e h e,) r e( a < cis e > a e)
    r d a' d a d, r fis a < d fis > a fis
    \rauf
    \oneVoice
    h( d g h g d) a( cis e a e cis)
    r a( d a' d, a) r d( fis d' fis, d)
    h( d g h g d) a( cis e a e cis)
    r a( d a' d, a) r a( d fis d a)
    r gis( d' < e gis > d gis,) r d'( e gis e d)
    r d( fis a fis d) r a( d a' d, a)
    r g( d' e d g,) r g( cis e cis g)
    \runter
    \override Script.direction = #UP
    r fis( a d a fis) fis'-^( d a) \rauf \oneVoice
    \override Script.direction = #UP
    a'-^( fis d)
    d'-^( a fis) fis'( d a) a'( fis d) c'( fis, d)
    h'( d, c) a'( d, c) g'( c, a) fis'( c a)
    e' a, fis d'( a fis c' fis, d a' fis d)
    r g( d) r fis( d) r g( d) r gis( d)
    r a'( d,) r h'( d,) r c'( d,) r cis'( d,)
    r d'( d,) r fis( es) r g( d) r gis( d)
    r a'( d,) r h'( d,) r < fis c' >( d) r < fis d' >( d)
    h( d g h g d) c d( fis c' fis, d)
    d( g h d h g) e( g a e' a, g)
    h,( d g h g d) fis,( c' d fis d c)
    g( h d g d h) a( h dis a' dis, h)
    gis( d' e gis e d) d[( e h' d h e,])
    c[( e a c a e]) a,[( c e a e c])
    g[( h d g d h]) a[( c d fis d c])
    \runter
    g, d' cis d cis d cis d cis d cis d
    \rauf
    \oneVoice
    r8 a'( c fis c a) r c( fis a fis c)
    \voiceTwo \slurUp
    fis( a c) fis,( a c) e,( a c) d,( a' c)
    \oneVoice
    r g,( d' g d g,) r a( c < e g > c a)
    r a( c < c fis > c a < a d g >4) r8. s8
  }
  s8 |
  s1 s s
  s2 < d g >1*1/2
  s1 s2 < d g >1*1/2
  < fis a >1 < a, d fis >\arpeggio
}

LHi =
\relative c, {
  \mergeDifferentlyDottedOff
  \mergeDifferentlyHeadedOff
  \clef bass
  \tonart
  r8
  \tupletSpan 4
  \tuplet 3/2 {
    c8( d' cis d cis d) cis( d cis d cis d)
    \omit TupletBracket
    \omit TupletNumber
    \repeat unfold 2 { d,( d' cis d cis d d, d' cis d cis d) }
    \voiceOne
    \repeat unfold 2 {
      cis( d cis d cis d) r d( cis d cis d)
      r d( cis d cis d cis d cis d cis d)
    }
    \repeat unfold 3 { r d( cis d cis d cis d cis d cis d) }
  }
  \oneVoice
  s1 s
  < e g >2 < d g >4 < c d >
  \voiceTwo
  < h d > < ais d > < h d > < eis, d' >
  < fis fis' >2 < gis gis' > < a a' > q
  < e' g > d4 < c d >
  < d h > < d ais > < d h > < d ais >
  gis,2 g
  fis d \oneVoice g g' fis < a d, >
  g, g' fis d h h
  a < a fis' > a a
  < d d, >1 q < fis a, d, > < d a' c >2. c4
  c'( ais h eis,)
  fis( g a ais)
  h( a h eis,)
  e( g a d,)
  < d g g, >2 < d a a' > < d h h' > < c e g a >
  d d, g < f f' >
  < e e' > < gis gis' >
  < a a' > c d d,
  \once \override NoteColumn.force-hshift = 1
  g1
  d2 d'
  < d a' d >4. < g a c >8 g4 fis
  h,2 c4 a
  d2 \tupletSpan 4
  \tuplet 3/2
  {
    \stemDown
    < g g, >8[ d( cis d cis d])
    \stemNeutral
    \slurUp
    d,([ d' cis d cis d] cis[ d cis d cis d)]
    d,( d' cis d cis d) d\rest d( cis d cis d)
    d,( d' cis d cis d) d\rest d( cis d cis d)
    \repeat unfold 2 {
      d\rest d( cis d cis d) d\rest d( cis d cis d)
      d\rest d( cis d cis d cis d cis d cis d)
    }
    d\rest d( cis d cis d cis d cis d cis d)
    d\rest d( cis d cis d) d\rest d( cis d cis d)
  }
  < g d g, >1\fermata
}

LHii =
\relative c, {
  s8
  \voiceTwo
  s1 s s d2 g s d
  d g d1 d
  g2 g g1 d d'
  s1 * 35
  d,1
  \once \override NoteColumn.force-hshift = 2
  d2 d
  \once \override NoteColumn.force-hshift = 2 d d
  d g d1 d2 g
}

\score {
  \new StaffGroup
  <<
    \new Dynamics \dynalt
    \new Staff = "Alt" \with { instrumentName = \markup \fontsize #2 #"Voce" }
    \new Voice = "alt" \Alt
    \new Lyrics \lyricsto "alt" \versi
    \new Lyrics \lyricsto "alt" \versii
    \new PianoStaff
    \with { instrumentName = \markup \fontsize #2 "Pianof:" }
    <<
      \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
    >>
  >>
}