\language "deutsch"

ru = #(define-music-function (n m) (number? ly:music?)
   #{ \repeat unfold $n $m #})

\header {
  title = "Sonate in C"
  subtitle = "KV 545"
  composer = "Wolfgang Amadeus Mozart"
  date = "Wien, 26. Juni 1788"
  copyright = "© 1986 by Bärenreiter-Verlag, Kassel"
}

#(set-global-staff-size 17)

\paper {
  ragged-last = ##t
  left-margin = 2\cm
  right-margin = 2\cm
  paper-height = 370\mm
}


right = \relative c'' {
  c2 e4 g | h,4.( c16 d) c4 r | a'2 g4 c 
  \noBreak % only nescessary for default score
  | g f8(\trill e16 f) e4 r |
  a,8 h16 c d e f g a g f e d c h a |
  g8 a16 h c d e f g f e d c h a g |
  f8 g16 a h c d e f e d c h a g f |
  e8 f16 g a h c d e d c h a g f e |
  d8 e16 f g a h cis d a h cis d e f g |
  a h c h a g f e f g a g f e d c |
  h8[ g'] e[ c] d[ g] e[ c] | d4 <h d g> g r |
  
  R1 |
  
  \ru2{d''8( h) g4.( a16 h a8) g-! |
  g8.\trill( fis16) fis4 r2 |}
}

left = \relative c' {
  \tempo "Allegro"
  \clef bass
  \once\hideNotes\grace c64
  \once\override Staff.Clef.X-extent = #'(1.5 . 2)
  \clef treble
  \repeat unfold 2 { c8 g' e g }
  d g f g c, g' e g |
  c, a' f a c, g' e g |
  h, g' d g c, g' e g |
  f4 r r \clef bass <c f,> |
  <c e,> r r <c e,> | <h d,> r r <h d,> |
  <c c,> r r <e, c> | <f a>1 |
  f4. g8 a4. fis8 |
  g,16 h d g g, c e g g, h d g g, c e g |
  g,4 g' g, r |
  
  \ru 4 { cis'16 d } \ru4 {c d} |
  \ru2{\ru8 {h d} | c d h d a d h d c d h d c d a d |}
  
  
}


\score {
  \header {
    piece = "Custom"
  }
  <<
    \new PianoStaff \with {
      
    } <<
      \new Staff="right" {
        \right
      }
      \new Staff="left" {
        \left
      }
    >>
  >>
  \layout {
  \context {
    \Score
    \override SpacingSpanner.spacing-increment = #0.9
    \override SpacingSpanner.shortest-duration-space = #1.9
  }
  \override Staff.Beam.beam-thickness = #0.52
  }
}

\score {
  \header {
    piece = "Default"
  }
  <<
    \new PianoStaff \with {
      
    } <<
      \new Staff="right" {
        \right
      }
      \new Staff="left" {
        \left
      }
    >>
  >>
  \layout {
    \override Score.SpacingSpanner.base-shortest-duration = #(ly:make-moment 1/8)
    \override Staff.Beam.beam-thickness = #0.52
  }
}