I mag net Küahüatn/score

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

#(define myTitel "I måg net Küahüatn")
mypoet =  \markup {
  \override #'(baseline-skip . 3)
  \left-column {
    "aufgezeichnet 1903 durch""Franz Friedrich Kohl (1851-1924)"
    "Notensatz: https://lilypond.miraheze.org"
  }
}

mycomposer = \markup {
  \override #'(baseline-skip . 3)
  \right-column {
    "Volksweise Klausen/Südtirol"
    "Echte Tiroler Lieder, 1915"
    "Kommisionsverlag Gebr. Hug&Co., Leipzig"
  }
}

lbeam =
#(define-scheme-function (vorne hinten) (number? number?)
   #{
     \override Beam.positions = #`(,vorne . ,hinten)
   #}
   )

kopf= \header {
  title = \markup \line
  {
    %\fontsize #-3
    %\number \score-sequence #sequence-number
    #myTitel
  }
  subtitle = ##f
  subsubtitle = ##f
  poet = #mypoet
  composer = #mycomposer
  piece = ##f
  opus = ##f
}

\bookpart {
  \paper {
    markup-system-spacing  = #'((basic-distance . 5)
                                (minimum-distance . 3)
                                (padding . 2)
                                (stretchability . 30))
    top-markup-spacing = #'((basic-distance . 5)
                            (padding . 3)
                            (stretchability . 60))
  }
  \kopf
  \score
  {
    <<
      \new StaffGroup
      <<
        \new BarNumberStaff=melodie
        <<
          %\new NullVoice \Struktur
          \new Voice="melody" { \voiceOne \sop }
          \new Voice { \voiceTwo \alt }
          \new Lyrics \lyricsto "melody" \firstverse
          \new Lyrics \lyricsto "melody" \secverse
          \new Lyrics \lyricsto "melody" \thiverse
        >>
        \new Staff
        <<
          \new Voice="melody" { \voiceOne \ten }
          \new Voice { \voiceTwo \bas }
        >>
      >>
    >>
  }
   \markup \wordwrap { Melodie und Text der 1. u. 2. Strophe wurden nach dem Gesang der Tölzer Sänger aufgeschrieben,
                   die 3. Strophe ist ein weit verbreitetes Gestanzl. }
}