Carl Czerny, Op.840 Nr.5/score

\version "2.20.0"
\language "deutsch"

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

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

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

RH= \relative c'' {
  \time 2/4
  \key c \major
  \set Timing.baseMoment = #(ly:make-moment 1/8)
  \set Staff.beatStructure = #'(1 1 1 1) % abhängig vom Takt
  \set fingeringOrientations = #'(left) %% für Akkorde!
  \override Fingering.direction = #UP  %% für Einzelnoten!
  \override Fingering.padding = #0.8
  \override Fingering.staff-padding = #'()
  \override Fingering.avoid-slur = #'inside
  \repeat volta 2 {
    r8
    c32-.-1
    ( d e f g8-5-. ) g32-1 ( a h c
    d8-5-. ) d32-5 ( c h a g8-1-. ) g'32-5 ( f e d
    e8-3-. ) e32-5 ( d c h a8-. ) d32-5 ( c h a
    g8 ) f'!32-4 g f e  d c-1 h-4 a g f-1 e-3 d
    c8-. c32 ( d e f g8-. ) g32 ( a h c
    d8-. ) d32 ( c h a g8-. ) h32-5 ( a g f
    e8-. ) a32-5 ( g f e d8-. ) g32-5 ( f e d
    c d e-3 f-1 g a h c ) c,8-. r8
  }
  \repeat volta 2 {
    \set Staff.beatStructure = #'(4)
    < h-3 d-5 >8 q q q
    < c d >^4^5 q q q < fis,-1 a-2 d-5 >_[ q q q] < g h d > q q q r8
    \set Staff.beatStructure = #'(1 1 1 1 )
    d''32-5 ( c h a g8-. ) h32-5 ( a g fis
    e8-. ) e'32-5 ( d c h a8-.) c32-4 ( h a g
    fis-3 g a g fis e d e fis-3 g-1 a h c-1 d e fis )
    \set Staff.beatStructure = #'(2 2 )
    e16 ( d ) h-. g-1-. f!-3 ( e f d )
    \set Staff.beatStructure = #'(1 1 1 1 )
    c8-2-. c32-1 ( d e f g8-5-. ) g32 ( a h c
    d8-. ) d32 ( c h a g8-. ) g'32 ( f e d
    < e-3>8-. ) e32-5 ( d c h a8-. ) d32 c h a
    g-1 a h-3 c-1  d e f!-4 e d c-1 h-4 a g f-1 e-3 d-2
    \set Staff.beatStructure = #'(4 )
    < c-1 e-3 >8 q q q < a c d >[ q] < c d a' > q
    \set Staff.beatStructure = #'(1 1 1 1 )
    h32-5 c d c h a g a h-3 c-1 d e f-1 g a h
    \myott #1
    c-1 d e f-1 g a h c c,8 \ottava #0 r8^\markup "Fine."
  }
  \key es \major
  \set Staff.beatStructure = #'(4 )
  \tag #'Moll
  {
    \repeat volta 2 {
      es,4-3 ( f16 es d c )
      as'4-3 ( b16 as g f )
      es8-2 ( d g d )
      f4 ( es16-. ) g,-1 ( c-2 d-3
      es4-4f16-5 es-3 d-2 c-1 )
      c'4-5_> ( b16 as g f )
      \set Staff.beatStructure = #'(2 2 )
      b8-5 ( g16-4 es-1 as8-5 f16-3 d-1
      es-3 b-1 g'-5 b,-1 es8-3 ) r8
    }
    \repeat volta 2 {
      g8-5 g f16 ( es d c-1
      d4-3 g, )
      g'8 g ( f16 es d c ) d4. g,8
      es'4-3 ( f16 es d c )
      c'4 ( b16 a g f )
      es8-3 ( g16 c, es-3 d-2 f-4 h, c8 ) r8 r4
    }
  }
}

LH = \relative c' {
  \clef bass
  \key c \major
  \voiceOne
  \mergeDifferentlyHeadedOn
  \mergeDifferentlyDottedOn
  \set Staff.beatStructure = #'(4 ) % abhängig vom Takt
  \set fingeringOrientations = #'(up)
  \override Fingering.direction = #DOWN
  \override Fingering.staff-padding = #'()
  \clef treble
  \repeat volta 2 {
    c8 < e g > q q h < f' g > q q
    c[ < e g >] d < fis c' > h
    \oneVoice
    r8 r4
    \voiceOne
    \clef bass
    c,,8 < e g > q q h < f' g > q q
    c < e g > g, < h d > e
    \oneVoice
    r8 r4
  }
  \set Staff.beatStructure = #'(1 1 1 1 )
  \repeat volta 2 {
    r8 g,32-5 ( a h c d8-1 )  d32 ( e fis g
    a8-1-. ) a32-4 ( g fis e d4-5^> )
    r8 d32-5 ( e fis g a8-1-. ) a32-4 ( h c d
    h8-.-3 ) d32-1 ( c h a g4-5_> )
    \voiceOne
    \set Staff.beatStructure = #'(4 )
    h,8 < d g > q q c < e a > q q d < a' c > q q h
    \oneVoice
    r8 r4
    \voiceOne
    \clef treble
    %\mergeDifferentlyHeadedOn
    c8 < e g > q q h < f' g > q q
    c < e g > d < fis c' > h
    \oneVoice
    r8 r4
    \set Staff.beatStructure = #'(1 1 1 1)
    \clef bass
    c,,8-5-. c32-5( d e f g8-1-. ) g32-4( a h c
    f,8-5-. ) f32-3( g a g  fis4-3_> )
    \voiceOne
    \set Staff.beatStructure = #'(4)
    g8-5 < d' f! > <d f> q
    \oneVoice
    < c e > q q r8
  }
  \key es \major
  \set Staff.beatStructure = #'(2 2)
  \tag #'Moll
  {
    \repeat volta 2 {
      c,16 ( g' es g  c,8 ) r
      f16 ( c' as c f,8 ) r
      g16 ( f' h, f' g, f' h, f' )
      h, ( g' d g c,8-. ) r
      c,16 ( g' es g c,8_. ) r
      as16 ( f' c f  as,8_. ) r
      b16^( g' es g b, as' f as ) < es-3 g-1 >8 q q
      r8
    }
    \repeat volta 2 {
      g16 ( h d h g-5 c-2 es-1 c-2 g h d h g h d h )
      g16 ( h d h g c es c )
      g-5 ( h-2 d-1 h-2 g-1 f es d-4 )
      c16 ( g' es g c,8 ) r
      as16 ( f' c f as,8 ) r
      \stemDown
      g16 es' c es g, f'
      d f c-4 es g es  c8
      r8
    }
  }
}

LHii = \relative c' {
  \voiceTwo
  \set fingeringOrientations = #'(down)
  \override Fingering.direction = #LEFT
  \override Fingering.staff-padding = #'()
  \repeat volta 2 {
    c2 h c4 d g8
    s8 s4
    c,,2 h c4 g4 c8 s8 s4
  }
  \repeat volta 2 {
    s2 * 4
    h2 c2 d2 g8
    s s4
    c2 h2
    c4 d g8 s8 s4
    s2 s
    g,2 s
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      s2 * 16
    }
  }
}

dynamics = {
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup  "Allegretto animato"
  s2_\markup { \dynamic p \italic \large "leggierm." }
  s s
  s4 s-\markup { \italic \large cresc. }
  s2\f
  s s s
  s\f s2 * 6
  s2\> s\p s s
  s8 s-\markup { \italic \large cresc. } s4
  s2\f
  s4 s\sf
  s2 s
  \mark \markup \fontsize #-1.5 { \bold \molde \italic \molfr }
  s-\markup { \dynamic p \italic \large dol. }
  s2 s s
  s-\markup { \italic \large cresc. } s
  s\f s
  s\p s s
  s4. s8-\markup { \italic \large cresc. } s2
  s\sf
  \override Score.RehearsalMark.direction = #DOWN
  s
  \mark \markup "D.C. sino al fine."

}

#(set! paper-alist (cons '("mein Format" . (cons 300 400)) 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 . 8)
                             (minimum-distance . 1)
                             (padding . 0)
                             (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 = #3
      }
      \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 midiInstrument = #"vibraphone"
        \LH \removeWithTag #'Moll \LH
      }
      \new Staff {
        \set Staff.midiInstrument = "fx 4 (atmosphere)"
        \clef bass \LHii \removeWithTag #'Moll \LHii
      }
    >>
  }
  \midi {
    \tempo 4=120
  }
  \layout { }
}