Präambulum RW 11/score

sop = \relative {
  \key f \major
  r16 a d a f' d a' f d d f d a' f d' a
  f d' c b a g f e < a f >2
  \voiceOne
  r8 a b4 ~ b16 b a g a4
  ~ a16 a g f g4 ~ g16 g f e r c' b a
  b4 ~ b16 b a g a4 s
  \oneVoice
  a16 f' e d c b a g < a f >2
  r16 a b c d c b a \voiceOne b4 g16 f e d
  \oneVoice
  cis8 h16 a d4 cis16 e f g a g f e
  f b a g a f e d cis8 d4 cis8
  < d a f >1
  \bar "|."
}

alt = \relative {
  s1 * 2
  \voiceTwo
  f'4 ~ f16 f g f e4 ~ e16 e f e
  d4 ~ d16 d e d c4 f
  ~ f16 f e d e4 r16 f a f c' a f' c
}

ten = \relative {
  \clef bass
  \key f \major
  < d d, >1 ~ q2 r16 d' c b a g f e
  d4 r8 d' cis4 c
  h4 b g r8 a
  g4 c, < d d, >2
  ~ q r16 f e d c b a g
  f4 < fis' a > \voiceOne < g >2 ~
  q4 f8 e16 d e4 cis
  d8[ e f g] ~ g f e a16 g 
  < d d, >1
}

bas = \relative {
  \voiceTwo
  s1 * 6
  s2 r4 g,
  a1 ~ a
}

Struktur =
{
  \override Score.NonMusicalPaperColumn.page-break-permission = ##f
  \time 4/4
  \override TextSpanner.dash-period = #1
  \override TextSpanner.dash-fraction = #0.5
  \override TextSpanner.bound-details.left.text = #"rit."
  \override TextSpanner.bound-details.right.text =
  \markup { \draw-line #'(0 . -1) }
  s1 * 8
  s1\startTextSpan
  s\stopTextSpan
}

kopf = \header {
  title = "Präambulum RW 11"
  composer = "M: Johann Baptist Peyer (1678-1733)"
}

mypaper =
\paper {
  top-margin = 25\mm
  ragged-bottom = ##t
  ragged-last-bottom = ##t
  bottom-margin = 20\mm
  line-width = 170\mm
  indent = 20
  markup-system-spacing.padding = #6
  system-system-spacing.padding = #4
  markup-markup-spacing.padding = #3
}

\bookpart {
  \mypaper
  \kopf
  \score
  {
    <<
      \new PianoStaff
      \with
      {
        instrumentName = \markup \center-column {
          \fontsize #1 "Primi toni"
        }
        \override VerticalAxisGroup.staff-staff-spacing.padding = #6
      }
      <<
        \new Staff="up"
        <<
          \new Voice="melody" { \sop }
          \new Voice { \alt }
          \new Voice \Struktur
        >>
        \new Staff="down"
        <<
          \new Voice { \ten }
          \new Voice { \bas }
        >>
      >>
    >>
  }
}