Carl Czerny, Op.840 Nr.9

\version "2.20.0"
\language "deutsch"

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

durde = \markup "B Dur."
durfr = \markup \general-align #Y #DOWN { "Si" \flat "majeur." }
molde = \markup \bold { "B moll." }
molfr = \markup \general-align #Y #DOWN \italic { "(Si" \flat "mineur.)" }

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

RH= \relative c' {
  \time 2/4
  \set Staff.beatStructure = #'(1 1)
  \repeat volta 2
  {
    \appoggiatura   { f32-1 b-2 } d8-4-. r
    \appoggiatura { b32-1  d-2 } f8-5-.  r
    \appoggiatura { d32-1  f-2 } b8-5-.  r
    \appoggiatura { f32-1  b-2 } d8-5-.  r
    \slashedGrace f,32 d'8[-5 ( c]-4-. )
    \slashedGrace f,32 c'8-5 ( b-4-. )
    \grace { b32 c } b8[-5 ( a-2-. ) g-1-. f]-2-.
    \grace { f,32-1 ( b-2 } d8-4-. ) r
    \grace { b32-1 ( d-2 } f8-5-. ) r
    \grace { d32-1 ( f-2 } b8-5-. ) r
    \grace { f32-1 ( b-2 } d8-5-. ) r
    \waacc g,8 c-3-. es-5-.
    \waacc f,8 a-2-. c-4-. b r8 r4
  }
  \repeat volta 2
  {
    a16-3  ( b a g a8-. ) f-1-.
    b16-2 ( c b a b8-2-. ) d-1-.
    \myott #1
    f16-3 ( g f e f8-. ) c-1-.
    es!-3 ( d ) c-1-. b-2-.
    e16-3 ( f e d e8-. ) c-.
    f16-3 ( g f es f8-1-. ) c'-3-.
    c-5 ( b ) g-. e-.
    f-2  \ottava #0 f,-5 [ ( es!-4 c-2 ) ]
    \grace { f,32-1 ( b-2 } d8-4-. ) r
    \grace { b32-1 ( d-2 } f8-5-. ) r
    \grace { d32-1 ( f-2 } b8-5-. ) r
    \grace { f32-1 ( b-2 } d8-5-. ) r
    \slashedGrace f,32 d'8-5 ( c-4-. )
    \slashedGrace f,32\noBeam c'8-5 ( b-4-. )
    \grace { b32 c } b8[-5 ( a-2-. ) g-1-. f]-2-.
    \myott #1
    \grace { b32-1 ( d-2 } f8-5-. ) r
    \acciaccatura f-1 b-4-. r
    \acciaccatura es,-3 g-5-. r
    \acciaccatura c,-1 es-3-. r
    \ottava #0
    \acciaccatura b-2 d-4-. f-5-.
    \acciaccatura a, es'-4-. c-1-.
    b-2 r r4^\markup "Fine."
  }
  \key es \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      g,16-1 ( b-3 es-4 b-2 g'4-5
      f,16 b es b g'4 )
      f,16 ( b d-4 f-1 b d f b,-4
      es4-5 b8-2-. ) r
      g,16 ( b es b g'4
      f,16 b es b g'4 )
      a,16 ( c es-3 f-1 a c es-4 a,
      b8-. ) b-. b-. r
    }
    \repeat volta 2
    {
      b16-4  ( as! f d b-4 as f d b_2 d_1 f as b-4 d-1 f-3 d-1 )
      es-2 ( f es d es8-. ) g-4-.
      f4-1 ( b8-4-. ) r
      b16  ( as f d b as f d-1
      f as b-4 d-1 f as b-4 d-1
      f-4 es d es g-5 es b f
      f2-2 )
      g,16  ( b es b g'4 g,16 b es b g'4 )
      f,16 ( b d-4 f-1 b d f b,-4
      es4-5 b8-2-. ) r
      c,16 ( es as es c'4
      b,16-1 es-2 g-4 es-2 b'4-5 )
      d,,16  ( f as b-4 d-1 f as d,
      es8-. ) es-. es-. r
    }
  }
}

LH = \relative c' {
  \clef bass
  \mergeDifferentlyDottedOn
  \mergeDifferentlyHeadedOn
  \repeat volta 2
  {
    \grace { s32 s32 }
    b8-. < d f >-. b-. q-.
    b-. q-. b-. q-.
    a-. < es' f >-. b-. < d f >-.
    \voiceOne
    f,2
    \oneVoice
    \grace { s32 s32 } b8-. < d f >-. b-. q-.
    b8-. < d f >-. b-. q-.
    es,-. < g c >-. f-. < c' es >-.
    < b-4 d-2 >-. < d-2 f-1 >-. < b d >-. r
  }
  \voiceOne
  \repeat volta 2
  {
    \set Staff.beatStructure = #'(2)
    f8 < c' es > q q
    f, < b d > q q
    f < a c > q q
    \clef treble
    b < d f > q q
    c < g' b > q q
    c, < f a > q q
    c < es g > c < g' b >
    \oneVoice
    < f a > r8 r4
    \clef bass
    \set Staff.beatStructure = #'(1 1)
    b,8-. < d f >-. b-. q-.
    b8-. < d f >-. b-. q-.
    es,-. < g c >-. e q
    f-. < a c >-. es!-. q
    d-. < f b >-. d-. q-.
    es-. < g b >-. es-. < g c >-.
    f-. < b d >-. f-. < a c es >-.
    < b-4 d-2 > < d-2 f-1 > < b d > r
  }
  \voiceOne
  \set Staff.beatStructure = #'(2)
  \key es \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      es,2 es b es es es
      f
      \oneVoice
      < b d >4. r8
    }
    \voiceOne
    \repeat volta 2
    {
      b,2 b s b b b b
      \oneVoice
      < b^5 d^3 >8 b'-1 as-2 f-3
      \voiceOne
      es2 es b es as-4 g-5
      b,
      \oneVoice
      < es g >4. r8
    }
  }
}

LHii = \relative c' {
  \voiceTwo
  \repeat volta 2
  {
    s2 * 3
    f,8 < c' es > q q
    s2 * 4
  }
  \repeat volta 2
  {
    f,2 f f
    b c c
    c4 c
    s2 * 9
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      es,8-4 b'-1 g-2 b-1
      es,8 b' g b
      b, as' f as
      es b' g b
      es, b' g b
      es, b' g b
      f es' c es
      < b d >4. s8
    }
    \repeat volta 2
    {
      b,8 as'! f as
      b, as' f as
      g-2^( b-1 g-2 es-3 )
      b f' d f
      b, f' d f
      b, f' d f
      b, g' es g
      s2
      es8 b' g b
      es, b' g b
      b, as' f as
      es b' g b
      as es' c es
      g, es' b es
      b, as' f as
      s2
    }
  }
}

dynamics = {
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup { \center-align "Allegro vivace" }
  s2\f s2 * 7
  s2\p s s s
  s4 s-\markup { \italic cresc. } s2 s s
  s\f s2 * 7
  \mark \markup { \bold \molde \italic \molfr }
  s2-\markup { \dynamic p \italic \large dol. } s2 * 7
  s2\p s s s
  s\f s s s
  s\p s s s
  s-\markup { \italic cresc. } s
  s\f
  \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
  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/7)
      }

    }
  }
}

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