Carl Czerny, Op.840 Nr.14

\version "2.20.0"
\language "deutsch"

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

durde = \markup "A moll."
durfr = \markup "La mineur."
molde = \markup \bold { "A Dur. " }
molfr = \markup \italic { "(La majeur.)" }

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

RH= \relative c'' {
  \time 6/8
  \override Slur.height-limit = #4
  \set Staff.beatStructure = #'(3 3)
  \repeat volta 2
  {
    e4 e8-1 ( a4-3 ) a8
    \grace { a32 h } c4.-5_> ( a4  e8
    f4-2 ) f8 ( a-4 g f )
    e4.~ e8 ( f-4 e-3
    d4 ) d8 d-2 ( e-4 d-3
    c4. h8 d f )
    a,4 a8 ( c4 h8 )
    a4 r8 r4 r8
  }
  \repeat volta 2
  {
    < gis-2 h-4 >4(  < a-1 c-3 >8 < h d >4 < a c >8 )
    < a-1 c-3 >4.( < gis-2 h-4 > )
    < a-1 c-3 >4 q8 ( < c e >4 <a c >8 )
    < gis-2 h-4 >2.
    e'8 e e e e e
    e e e e e e
    e ( a-. ) a-. a ( dis, ) dis
    e4 r8 r4 r8
    e4  e8 ( a4 ) a8
     \grace { a32 h } c4._> ( a )
    f4 f8 ( a g f )
    e4.~ e8 ( f e
    d4 ) d8 ( h' gis d )
    c4 ( a'8 ) h, ( d f
    e4 ) a,8 ( c4 h8 )
    a4 r8 r4 r8^\markup "Fine."
  }
  \key a \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      <<
        {
          \override Slur.height-limit = #6
          < cis a >4 ( q8 q4 q8
          \voiceOne
          <cis-5>4 h8 a4 cis8 )
          <e-5>8 ( d-4-. ) <cis-3>-. e ( d-. ) cis-.
        }
        \\
        {
          s2.
          \voiceTwo
          <gis-2>4. a4 a8
          <h-2>4 <a-1>8 h4 a8
        }
      >>
      < gis~ h~>4. q8 h[-1 ( e]-4 )
      dis8( cis8-.) h8-. dis8( cis8-.) h8-.
      h ( e-. ) gis-. h4 ( gis8-4 )
      fis-3 ( a-. ) fis-. \grace e-4 dis-3 ( fis-. ) dis-.
      e4. r4 r8
    }
    \repeat volta 2
    {
      gis8-4( fis8-.) e8-. gis8( fis8-.) e8-.
      e4 ( a8 cis,-2 fis-5 e )
      d8( h8-.) e8-. cis8( a8-.) e'8-.
      h e[-. fis]-. gis-3-. a-1-. h-.
      cis4-3 cis8 cis8( h8-.) a8-1-.
      < fis-3 a-5 >4. ( < d-2 fis-4>4 < h d>8 )
      cis-2 ( fis e ) h ( fis' e ) a,4 r8 r4 r8
    }
  }
}

LH = \relative c' {
  \clef bass
  \mergeDifferentlyDottedOn
  \mergeDifferentlyHeadedOn
  \override Slur.height-limit = #6
  \repeat volta 2
  {
    a8-5 ( c-3 e-1 a, c e a, c e a, c e )
    a, ( d f a, d f a, c e a, c e )
    gis, ( h e gis, h e a, c e d, f h )
    e, a c e, gis d'
    a c e a, r r
  }
  \repeat volta 2
  {
    e ( e'-. ) e-. e-. e-. e-.
    e e e e e e
    \voiceOne
    a,4. a
    \oneVoice
    e8 e' e e e e
    \clef treble
    \slurDown
    < gis h >4(-4-2 < a c >8-3-1 < h d >4-2-1 < a c >8-3-1
    < a c >4.-3-1 < gis h >-4-2 )
    \slurNeutral
    \once \override Slur.details.max-slope = #0
    < a c >( < f a > )

    < e gis>8( h'-1 gis-2
    \clef bass e-1 d-2 h-4 )
    a c e a, c e \grace { s32 s } a,8 c e a, c e a, d f a, d f
    a, c e a, c e gis, h e gis, h e
    a, c e d, f h
    e, ( a c e, gis d'
    < a c >-. )
    \once \override Slur.details.max-slope = #0
    e[ ( c] a ) r r
  }
  \key a \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      \set fingeringOrientations = #'(left)
      < a'-3 e'-1>4 q8 q4 q8
      < e d' >4. < a cis >4 < a e' >8
      < gis e' >4 < a e'>8 < gis e'>4 < a e'>8
      e ( gis h e ) r r
      \clef treble
      < h fis' a >4 q8 q4 q8
      < e gis >4 q8 < gis, h e >4 q8
      < a cis fis>4 q8 < h fis' a>4 q8
      < e gis >( h' gis e4 ) r8
    }
    \clef bass
    \repeat volta 2
    {
      e, ( h' d e, h' d )
      e, a cis e, a cis
      e, gis h e, a cis
      < e, gis h >4 r8 r4 r8
      a, ( cis e a, cis e d fis a d, fis h )
      \once \override Slur.details.max-slope = #0
      e, ( a cis e, gis d' )
      < a cis > ( e' cis a ) r
      r
    }
  }
}

LHii = \relative c' {
  \repeat volta 2
  {
    s2. * 8
  }
  \repeat volta 2
  {
    s2. s
    \voiceTwo
    a8 e' e a, e' e
    s2. * 13
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      s2. * 16
    }
  }
}

dynamics = {
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup { \center-align "Allegretto." }
  s2.\p s2. * 7
  s2.\f s s s
  s\p s s
  s-\markup { \italic cresc. }
  s\f s2. * 7
  s2.-\markup { \dynamic p \italic dol. } s s s s
  s4.\< s\> s2.\! s s s s
  s8 s\< s2 s2.\sf
  s\sf\> s\p
  \override Score.RehearsalMark.direction = #DOWN
  \mark \markup "D.C. sino al fine."
}

#(set! paper-alist (cons '("mein Format" . (cons 290 330)) 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))
}

%\aa   %% Ausgabe auf einer Seite
\cc   %% 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 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 = #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/16)
      }

    }
  }
}

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
      }
    >>
  }
  \midi {
    \tempo 4=116
  }
}