Carl Czerny, Op.840 Nr.1/score

\version "2.20.0"
\language "deutsch"

\include "defn.ily"
exercise ="1"
myTitel = #(string-append "Melodische Übung C-Dur")

RH= \relative c'' {
  \accidentalStyle modern
  \override Slur.height-limit = #6
  \partial 4
  \tag #'Dur
  {
    \repeat volta 2 {
      \slashedGrace a'8 g8.(-3 fis16
      g8)-.-1 r
      \waacc g8 e'-. r g,-.-1 r \waacc g8 d'8-. r
      g,8-. r \waacc g8 e'-. r \slashedGrace a,8 g8.-3( fis16 g8. fis16-2
      g8-.-1) r \waacc g8 d'-. r g,8.-1( a16 g8. a16
      g8-.) r \waacc g8 e'-. r e,8.-2( c16-1 f8.-3 d16-1
      g8-.-4) r \waacc g8 e'-. r g,-. r \waacc g8 d'-. r
      g,8-. r \waacc g8 c-. r \slashedGrace a8^( g8.-3[ fis16-2 g8.-3 a16-4)]
      \set fingeringOrientations = #'(left)
      < d,-1 h'-5 >8-. < e-1 c'-5 >-. <  f d' >-. < g e' >-.
      \set fingeringOrientations = #'(left up right down)
      \myott #1
      < a f' >-. < h g' >-. < c a' >-. < d h' >8-.
      < e c' >8-. \ottava #0 r r4 r
    }
    \repeat volta 2 {
      \slashedGrace a,,8 g8._3( fis16
      g8-.) r < d f g h> r < f g h d > r \slashedGrace a8 g8.( fis16
      g8) r < e g c >8 r < g c e > r \slashedGrace a8 g8.( fis16
      g8-.) r < g h d >-. r < g h f' >-. r < d'-2 g-5 >-. r
      < g,_~ d' f >2( < g c e >8) r
      \slashedGrace a'8  g8.( fis16
      g8-.) r
      \waacc g8 e'-. r g,-.-1 r
      %\shpSlurB
      \waacc g8 d'8-. r
      g,8-. r
      \waacc g8 c-. r r
      \myott #1
      < g' e' >8-.-1-5 < f d' >-.-1-5 <  e c' >-.
      < d h' >-. < c a' >8-. < h g' >-. <  a f' >-.
      \ottava #0 < g e' >8-. < f d' >-. <  e c' >-. < d h' >-.
      <  e c' >-. r r4 r4
    }
  }
  \key c \minor
  \tag #'Moll
  {
    \repeat volta 2 {
      \once \override Slur.details.max-slope = 0
      g,4-1(
      es'-3) es( d c)
      g'2-5( d)
      \set fingeringOrientations = #'(up)
      es4-3 es( d c < h-2 d-4 >2 g)
      es'4-3  es( d c
      fis2-3_> g-1_> b!4-3 g-1 fis-2 a-4)  g2 r4
    }
    \repeat volta 2 {
      g4-5(
      f!4.-4 d8-2 es4-3 c-1)
      \once \override Slur.details.max-slope = 0
      g'( g,) g8 r g'4(
      f4. d8 es4 c)
      < h d g >2.
      g4(
      es') es( d c)
      c'2( fis,-2)
      g4-4( es d g
      c,) r4 r4
    }
  }
}

LH = \relative c' {
  \clef bass
  \tag #'Dur
  {
    \repeat volta 2 {
      \grace s8 r4
      \clef treble
      \set fingeringOrientations = #'(left)
      < c-4 e-2 g-1 >8 r < c e g >8 r < g h f' > r < g h f' > r
      < c-3 e-1 >8 r q r q r q r
      < h f' g >8 r q r q r q r
      < c e g >8 r q r < c-5 e-3 >4( < d f >
      < e-3 g-1 >8-.) r < c e g >8 r < g h f' > r q r
      < c-3 e-1 >8 r q r q r q r
      < g d' f > r q r q r q r
      \clef bass
      < c e >8 r c r c, r
    }
    \repeat volta 2 {
      \slashedGrace s8 r4
      g8 r < g'-2 h-1 > r q r r4
      g,8 r < g'-4 c-1 > r q r r4
      g,8 r < g' d' > r q r < g h > r
      h4-2( g c8-.) r \grace s8 r4
      \clef treble
      < c e g >8 r q r < h f' g >8 r q r
      < c e g >8 r q r  < c e g >8 r q r
      < g d' f > r q r q r q r
      \clef bass
      < c e >8 r c r c, r
    }
  }
  \key c \minor
  \tag #'Moll
  {
    \repeat volta 2 {
      r4
      \voiceOne
      \mergeDifferentlyHeadedOn
      \mergeDifferentlyDottedOn
      \set fingeringOrientations = #'(down)
      \override Fingering.direction = #DOWN
      \override Fingering.staff-padding = #'()
      c8 g' es g c,8 g' es g
      h,8 g' f g h, g' f g
      c,8 g' es g c,8 g' es g
      s1
      c,8 g' es g c,8 g' es g
      c,8 a' es a cis, b'!-1 e,-3 b'-1
      d,8 b'-1 g_2 b-1 d, c' fis, c'
      g8 b d b s4
    }
    \repeat volta 2 {
      s4
      g8 h d h g c_2 es_1 c_2
      g8 h d h g8 h d h
      g8 h d h g c es c
      g8 h_(-2 d-1 h-2 \oneVoice g^1 f es d^4)
      \voiceOne
      c8 g' es g c,8 g' es g
      as,8 es' c es as, es' c es
      g,8 es' c es g, f' h, f'
      c8 es g es c
      \oneVoice r8
    }
  }
}

LHii = \relative c
{
  s4
  s1 * 15
  s2.
  \voiceTwo
  \set fingeringOrientations = #'(down)
  \override Fingering.direction = #LEFT
  \override Fingering.staff-padding = #'()
  \repeat volta 2 {
    s4
    c2-4 c h-5 h c c
    g8^( h d g^1 f^2 es f d^4)
    c2 c2
    c2 cis-5 d-5 d g-4 g8 d8\rest
  }
  \repeat volta 2 {
    d4\rest
    g2-5 g2-5
    g2 g2
    g2 g2
    g2-5 s2
    c,2 c
    as2 as
    g2 g
    c2-4_\markup "D.C. sino al fine." s4
  }
}

dynamics = {
  s4\p
  \mark \markup { "Allegro giocoso." }
  s1*4
  %5
  s1-\markup { \italic \small "cresc." }
  s1
  s1\f
  s2. %{--repeat bar--%} s4\p
  s1 s
  s4 s\< s2
  s2\> s4\! s\p
  %   s2. s4\p s4
  s4 s2.-\markup { \italic \small "cresc." }
  s2 s8 s4.\f
  s1 s2.
  \mark \markup \fontsize #-1.5 { \bold "C Moll." \italic "(Ut mineur.)" }
  s4-\markup \whiteout { \musicglyph "p" \italic \small "dol." }
  s1 * 4
  s2 s-\markup { \italic \small "cresc." }
  s1 s s2. s4\p
  s1 s s
  s2. s4-\markup { \italic \small "cresc." }
  s1 s\f s\p
}

\bookpart {
  \header {
    title = \myTitel
    subtitle = "Op.840, №1"
    subsubtitle = ##f
    poet = ##f
    composer = "Carl Czerny (1791-1857)"
    piece = ##f
    opus = ##f
  }
  \paper {
    line-width = 160\mm
    top-margin = 20\mm
    bottom-margin = 20\mm
    annotate-spacing = ##f
    evenFooterMarkup = ##f
    oddFooterMarkup = ##f
    evenHeaderMarkup = ##f
    oddHeaderMarkup = ##f
    system-system-spacing = #'((basic-distance . 12)
                               (minimum-distance . 8)
                               (padding . 5)
                               (stretchability . 60))
  }
  \score {
    \new PianoStaff
    <<
      \new BarNumberStaff="Discant"
      <<
        \new Voice \RH
      >>
      \new Dynamics\dynamics
      \new Staff="Bass"
      <<
        \new Voice \LH
        \new Voice \LHii
      >>
    >>
    \layout {
      \context {
        \PianoStaff
        instrumentName = \markup {
          \center-column {
            \line { \bold \huge { "№" } \number { \exercise "." } }
            \line \large { \durde }
            \italic \line { \durfr }
          }
        }
        shortInstrumentName = ""
        \override VerticalAxisGroup.staff-staff-spacing.basic-distance = #14
        \override VerticalAxisGroup.staff-staff-spacing.padding = #5
      }
    }
  }
}