Carl Czerny, Op.840 Nr.46

\version "2.20.0"
\language "deutsch"

\include "defn.ily"
exercise ="46"

myTitel = #(string-append "Melodische Übung " durde)

RH= \relative c' {
  \time 3/4
  \override Fingering.avoid-slur = #'inside
  \override Fingering.staff-padding = #'()
  \override Slur.height-limit = #6
  %\override Fingering.padding = #1
  \repeat volta 2
  {
    \override Fingering.direction = #DOWN
    c8-1 ( g'-2 e-1 c'-4 g-2 e'-5 )
    \revert Fingering.direction
    \grace { e32[ f ] } e4-3 ( d8-2 c-1 h-3 c-4 )
    \override Fingering.direction = #DOWN
    d,-1 ( h'-3 g-1 d'-4 h-2 f'-5 )
    \revert Fingering.direction
    \grace { f32[ g] } f4-3 ( e8-2 d-1 cis-2 d-3 )
    g,-1 e'-4 c!-2 g'-5 e-2 c'-5
    \myott #1
    g-2 e'-4 c-2 g'-5 e-2 c'-5
    < h d, >-1-4-. r < d f, >-.\arpeggio r < h d, >-. r
    < g h, >2.-> \ottava #0
    c,,,8 ( g' e c' g e' )
    \grace { e32[ f ] } e4 ( d8 c h c )
    fis,-2 ( d'-5 a-1 fis'-4 d-1 a'-3
    fis-2 d'-5 a-1 fis'-4
    \myott #1
    d-1 a'-2 ) h-3 ( d-5 )
    \grace { d32[ e] } d4-3 ( c8-2 h-1 )
    a-2 ( c-4 ) \grace { c32[ d] } c4-3-> ( h8 a )
    d-5 ( c-4 a-3 fis d fis g4 )
    \ottava #0 r r
  }
  \repeat volta 2
  {
    d8-5 ( g,-2 h-4 d,-1 g-5 h,-2
    \override Fingering.direction = #DOWN
    d-5 g,-1 h-5 d,-2 g-4 h,-1 c-2-. )
    \revert Fingering.direction
    r < c' e >-1-2-. r < e c' >-. r
    < e g >2.
    f'8-5 ( h,-2 d-4 f,-1 h-5 d,-2
    g-5 d-1 f-5 h,-2 d-4 g,-1 < c e >-2-4-. ) r < c' e >-1-3-. r < e g >-. r
    < c e >2.
    a,8-1 ( f'-3 d-1 a'-4 f-3 c'-5 )
    \grace { c32[ d] } c4-5 ( h8-2\prall a-1 gis-2 a-5 )
    g!-1 ( c-2 e-4 g,-1 < e' g >-4-5-. ) r
    f, ( a d f, < d' f >-. ) r
    e-2 ( g-4 \grace { f32[-3 g]-4 } f8-3 e-2 d-1 c-3 )
    h-2 ( a-1 \grace { g32[ a] } g8-3 f-2 e-1 d-2 )
    c-1 ( e-2 g-3 c-1 e-2 g-3
    c4-5 ) r r
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      \set Staff.beatStructure = #'(1 1 1)
      \tupletSpan 4
      \repeat unfold 2 {
        \tuplet 3/2 { c,,8-2 ( d c a-1 c f } a-. ) r
        \override TupletNumber.stencil = ##f
      }
      \tuplet 3/2 { g-3 ( a g c,-1 e g } c-. ) r
      \myott #1 < e g c >2. \ottava #0
      \repeat unfold 2 {
        \tuplet 3/2 { c,8-2 ( d c g-1 c e } g-. ) r
      }
      \tuplet 3/2 { f-3 ( g f a,-1 c f } a-. ) r
      \myott #1 < c f a >2.
      \tuplet 3/2 {
        d'8-3 ( e-4 d-3 c-2 d-4 c-3 h!-2 c-4 h-3
        a-2 h-4 a-3 g-2 a-4 g-3 f-2 g-4 f-3
        e f e d e d c d c )
      }
      \ottava #0
      \tuplet 3/2 {
        h c h a h a g a g
        f g f e f e d e d
      }
      g4 < h, g d > q
      < c g e > \tuplet 3/2 { c,8 e g-5 c-1 e g }
      c2 r4
    }
    \repeat volta 2
    {
      \repeat unfold 2 {
        \tuplet 3/2 { c,8 ( e g }
        b4-. ) b-.
        \tuplet 3/2 {
          b8-3 ( c-4 b-3 a-2 b-3 a-2 g-1 a-2 g-1
          f-3 g-4 f-3
        } e4-2-. ) e-2-. e2.
      }
      \myott #1
      \tuplet 3/2 {
        c''8-3 ( d c b-2 c-4 b-3 a-2 b-4 a-3
        g-2 a-4 g-3 f-2 g-4 f-3 e-2 f-4 e-3
        d e d c d c b-2 c-4 b-3
        \ottava #0
        a b a g a g f g f
        e-2 f-4 e-3 d-2 e-3 d-2 c-1 d-2 c-1 )
      }
      c'4-. < e, c g >-.-4 q-.
      < f c a >
      \tuplet 3/2 {
        f,8 ( a c-3 f-1 a c
      } f2 ) r4
    }
  }
}


LH = \relative c {
  \clef bass
  \repeat volta 2
  {
    c4 < e g c > q c q q
    g < d' f g h > q g, q q
    c < e g c > q c q q
    g < d' g h > q g, < d' f g h > q
    c4 < e g c > q c q q
    d, < d' fis a c > q d, q q g < d' g h > q
    c < e a c > q d < a' c d > q
    < g h > g, r
  }
  \repeat volta 2
  {
    \voiceOne
    g < h d f > q g q q
    \oneVoice
    c < e g c > q c q q
    \voiceOne
    g < h d f > q g q q
    \oneVoice
    c < e g c > q c q q
    f < a c f > q f q q
    \voiceOne
    e < g c > q f < a d > q
    g < c e > q g < h f' > q
    \oneVoice
    < c e > < c, e g > q q r r
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      f4 < a c > q f q q
      \repeat unfold 4 { c < b' c e > q }
      f4 < a c > q f q q
      g, < d' g h! > q g, q q
      c4 < e g c > q c q q
      f, < d' f a > q g, < d' f g > q
      c < e g > q < c e >2 r4
    }
    \repeat volta 2
    {
      \repeat unfold 8 { c < b' c e > q }
      \voiceOne
      a, < c f > q a q q
      b < d g > q b q q
      c < g' b > q c, q q
      \oneVoice
      < f a >4 < a c > q < f a >2 r4
    }
  }
}

LHii = \relative c {
  \voiceTwo
  \repeat volta 2
  {
    s2. * 16
  }
  \repeat volta 2
  {
    g2. g s s g g
    s2.*4
    e'2. f g g
    s2. s
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      s2. * 16
    }
    \repeat volta 2
    {
      s2. * 8
      a,2. a b b c c
      s s
    }
  }
}

dynamics = {
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup { \center-align "Vivace Tempo di Valze." }
  s2.\p s s s s
  s-\markup { \italic cresc. }
  s\f s
  s\p s
  s-\markup { \italic cresc. } s
  s\f s s s
  s\p s
  \override Hairpin.to-barline = ##f
  s4 s2\< s4\! s2
  s2.-\markup { \italic cresc. } s s
  s\sf
  s\f s2. * 7
  \override Score.RehearsalMark.self-alignment-X = #1
  \mark \markup "Fine."
  s2.\p s s
  s\sf s\p s s
  s\sf s\p s
  s2.-\markup { \italic cresc. } s
  s\f s
  s\fz s\sf
  s\p s
  s\< s\sf
  s\p s
  s\< s\sf
  s4\p s2-\markup { \italic cresc. }
  s2. s s
  s\f s s\sf s\sf
  \override Score.RehearsalMark.direction = #DOWN
  \mark \markup "D.C. sino al fine."
}

#(set! paper-alist (cons '("mein Format" . (cons 290 440)) paper-alist))

\paper {
  #(include-special-characters)
  #(define fonts
     (set-global-fonts
      #:music "Ross"
      #:brace "emmentaler"
      #:roman "Century Schoolbook L"
      #:sans "sans-serif"
      #:typewriter "monospace"
      ))
}

aa= \paper
{
  %#(set-paper-size "a3")
  #(set-paper-size "mein Format")
  top-markup-spacing.basic-distance = #1
  system-system-spacing.basic-distance = #16
  markup-system-spacing.basic-distance = 16
  markup-system-spacing.padding = 4
  oddHeaderMarkup = ##f
  evenHeaderMarkup = ##f
  oddFooterMarkup = ##f
  evenFooterMarkup = ##f
  ragged-right = ##f
  ragged-last = ##f
  ragged-bottom = ##t
  ragged-last-bottom = ##t
  top-margin = 0
  bottom-margin = 0
  left-margin = 15\mm
  %line-width = 260\mm
  right-margin = #left-margin
  page-breaking = #ly:one-page-breaking
  annotate-spacing = ##f

}

cc=\paper {
  line-width = 165\mm
  top-margin = 20\mm
  bottom-margin = 20\mm
  annotate-spacing = ##f
  evenFooterMarkup = ##f
  oddFooterMarkup = ##f
  evenHeaderMarkup = ##f
  oddHeaderMarkup = ##f
  page-breaking = #ly:minimal-breaking
  system-system-spacing = #'((basic-distance . 10)
                             (minimum-distance . 8)
                             (padding . 2)
                             (stretchability . 60))
}

xx=\paper {
  line-width = 175\mm
  top-margin = 10\mm
  bottom-margin = 5\mm
  annotate-spacing = ##f
  evenFooterMarkup = ##f
  oddFooterMarkup = ##f
  evenHeaderMarkup = ##f
  oddHeaderMarkup = ##f
}

%\aa   %% Ausgabe auf einer Seite
\xx   %% Ausgabe im A4-Format

%dd=
\bookpart {
  \header {
    title = \myTitel
    subtitle = \markup \concat { "Op.840, №" \exercise }
    subsubtitle = ##f
    poet = ##f
    composer = "Carl Czerny (1791-1857)"
    piece = ##f
    opus = ##f
  }
  \score {
    \new PianoStaff
    <<
      \new Staff="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 = #10
        \override VerticalAxisGroup.staff-staff-spacing.padding = #4
      }
      \context {
        \Score
        %\override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/10)
        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
      }

    }
  }
}

bb=
\score {
  {
    <<
      \new Staff {
        \set Staff.midiInstrument = "pan flute"
        \unfoldRepeats
        \RH
        \removeWithTag #'Moll \RH
      }
      \new Staff {
        \set Staff.midiInstrument = #"vibraphone"
        \unfoldRepeats
        \LH
        \removeWithTag #'Moll \LH
      }
      \new Staff {
        \set Staff.midiInstrument = "fx 4 (atmosphere)"
        \clef bass \unfoldRepeats \LHii
        \removeWithTag #'Moll \LHii
      }
    >>
  }
  \layout { }
  \midi {
    \tempo 4=120
  }
}