Carl Czerny, Op.840 Nr.18/score

\version "2.20.0"
\language "deutsch"

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

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 2/4
  \repeat volta 2
  {
    c8-3-.
    c16( h16 a8-1-.) c16( h16 c8-.) c16( h16 c8-.) c16( h16 c8-3-.)
    c16 ( d e8-5 c16 a )
    gis8-2-. h-4-. e,4->
    d'16-3( e16 f16 e16 d8-.) d8-. c16-2( d16 e16 d16 c8-2-.) c8-4-.
    \set Staff.beatStructure = #'(4 )  %% abhängig vom Takt
    h8-3-. d8-. e,8-. gis8-. a8-. a8-.
    a4->
  }
  \repeat volta 2
  {
    h8-3-. h8-. e8-5-. e8-.
    h4-3 ( gis-2 )
    a8-4-. fis8-. dis8-. h8-.
    h8-1 ( gis'-4-. ) e4-1_>
    h'8-3-. h8-. e8-. e8-. h8-. h8-.   gis4_>
    h8-5 ( a ) fis-. dis-2-.
    e[-1-. dis16-2 ( e]-1 fis gis a-1 h )
    \set Staff.beatStructure = #'(1 1 1 1)
    c!8-3-.

    c16( h16 a8-.) a16( h16 c8-.) h16( a16 a8-.) a16( h16 c8-.)  c16-. ( d e8 c16 a )
    gis8-. h-. e,4_>
    d'16( c16 h16 c16 d8-.) e,8-. c'16( h16 a16 h16 c8-.) a8-2-.
    h8-3-. h-. e,16 ( fis gis e )
    a8-. a-.
    a4->^\markup "Fine."
  }
  \key a \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      e4-3 a8-5 cis,-2
      e4-3 d-1
      \set Staff.beatStructure = #'(4)
      h'8-5 ( gis-4 e-2 d-1 cis2-2 )
      e4 ( a8 cis,-2 h4-1 fis'-4 e8-3 d-2 h-1 gis-2 a4 ) r
    }
    \repeat volta 2
    {
      h8-1 ( e16 gis h8-5-.[ ) h-.]
      h-5 ( a gis a )
      h,[-1 ( dis16 fis] a8-4-. ) a-.
      a-3 ( gis-2 fisis-1 gis-2 )
      h-3 ( e h gis-2
      cis4-4_> h16-3 a-1 gis-3 fis
      e-1 dis-2 cis h gis'8-4 [ fis ]
      e-. ) e-. e-. e-3-.
      fis16-4  ( e dis e-3 a8 [ cis, ]
      e4 d!-1
      h'8 gis e d
      cis2 )
      e'4-5 ( d16 cis h a-1
      gis8-4 fis a d,-1 )
      cis-3 ( e h e a,4 ) r
    }
  }
}

LH= \relative c' {
  \mergeDifferentlyDottedOn
  \mergeDifferentlyHeadedOn
  \clef bass
  \set Staff.beatStructure = #'(4)
  \repeat volta 2
  {
    < a c e >8 r q r q r q r q r q r
    < e gis h d > r q r
    < gis h e > r q r
    < a c e >8 r q r
    < d, f h > r < e h' d > r
    < a c >4 q
  }
  \voiceOne
  \repeat volta 2
  {
    e2 e2 h e e e h
    \oneVoice
    < e gis>8 r r4
    < a c! e >8 r q r
    q r q r
    q r q r
    < e gis h d > r q r
    < gis h e > r q r
    < a c e > r q r
    < d, f h > r < e h' d > r
    < a c >2
  }
  \key a \major
  \voiceOne
  \tag #'Moll
  {
    \repeat volta 2
    {
      a2 gis gis a a d, e a
    }
    \repeat volta 2
    {
      gis2 fis fis e gis
      \clef treble
      a8 cis fis cis h a' dis, a' gis4 h4\rest
      \clef bass
      a,2 gis gis a cis, d
      a'8 cis gis d'
      s2
    }
  }
}

LHii = \relative c {
  \voiceTwo
  \repeat volta 2
  {
    s2 * 8
  }
  \repeat volta 2
  {
    e8 < gis h> q q
    e8 < gis h> q q
    h, < fis' a > q q
    e8 < gis h> q q
    e8 q q q
    e8 q q q
    h < fis' a > q q
    s2 * 9
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      a8 cis e cis gis h e h gis h e h
      a cis e cis a cis e cis
      d, fis h fis e h' d h a cis e cis
    }
    \repeat volta 2
    {
      gis8 h e h fis h dis h fis h dis h e, h' e h gis h e h
      a2 h e4 s
      a,8 cis e cis gis h e h gis h e h a cis e cis
      cis, a' e a d, a' fis a
      e4( e <a cis>8 e' a, ) h8\rest
    }
  }
}

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

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