Carl Czerny, Op.840 Nr.6/score

\version "2.20.0"
\language "deutsch"

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

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
  \key c \major \partial 8
  \set Timing.beamExceptions = #'()
  \set Timing.baseMoment = #(ly:make-moment 1/8)
  \set Staff.beatStructure = #'(3 3) % abhängig vom Takt
  \override Fingering.padding = #0.8
  \override Fingering.staff-padding = #'()
  \override Fingering.avoid-slur = #'inside
  \set fingeringOrientations = #'(up) %% für Akkorde!
  \override Fingering.direction = #UP  %% für Einzelnoten!
  \override Slur.height-limit = #4
  \repeat volta 2 {
    \slashedGrace f8 e16-3 ( dis-2
    e8-1 a-3 c-5_>~ c a e )
    e( h' d_>~ d h e, )
    e8-1 ( a-3 c~-5_> c a e )
    gis-2 ( h4~ ) h8 e, e e-1 ( a16-2 h c8~-4 c h-2 a-1 )
    \slashedGrace c8 b16-2 ( a b d-4 f8~ f e d )
    c4-2 ( e8-5 h!4 e8 a,4. r8 r)
  }
  \tag #'umbruch \break
  \repeat volta 2 {
    e8 e( fis gis-3 a-1 h c)
    c4-3 ( h8 a ) r a
    a-5 ( a, ) a \grace { c16 d! } c8.-3 ( h16 a8 )
    < gis~ h^~ e~ >4. < gis h e >8 e' e
    e-1 ( a-2 c-4 \grace { c16 d } c8.-3 h16-2 a8-1 )
    \override Fingering.avoid-slur = #'outside
    \grace { f16-1 b-2 d-4 } f4.-5-.~ f8( e d ) c-2 ( e-5-. ) e-. h ( e-. ) e-.
    a,4. r8
    r8^\markup "Fine."
  }
  \tag #'umbruch \break
  \key a \major
  \override Fingering.avoid-slur = #'inside
  \tag #'Moll
  {
    \repeat volta 2 {
      e8
      < cis-2 e-4 >4. ( < a-1 cis-2 >8 < d-3 fis-5 > < cis e > < h~ d~ >4. )
      < h d >8 < h-2 d-4 > q
      < h-2 d-4 >4. ( < gis-1 h-2 >8 < cis-3 e-5 > < h d > )
      < a~ cis~ >4. < a cis >8
      %\once \override Voice.Slur #'positions = #'(3 . 3.5)
      a( e' )
      dis16-3 ( cis h cis dis e-1 fis gis a-1 h cis dis-4
      \myott #1 e-1 gis h-5 a gis fis e-1 dis-4 cis h a-1 gis-3 ) \ottava #0
      fis-2 ( gis fis eis fis-2 a-5 ) h,8-. cis-. dis-.
      e16-2 ( h e gis h gis e8 ) r
    }
    \repeat volta 2 {
      e-5 < h d! gis~ >4. gis'8 ( fis e )
      < cis-2 e-3 >4. a'8 ( cis, e )
      \override Fingering.avoid-slur = #'outside
      \override Slur.outside-staff-priority = #500
      \override Fingering.outside-staff-priority = #1000
      < cis-2 e-4 >  ( < h d > ) q < h-2 d-4 > ( < a cis > ) q
      < gis h >4. r8 e'-5 e
      \override Fingering.avoid-slur = #'inside
      \override Fingering.outside-staff-priority = #100
      cis16-3 ( h a h cis d-1 e fis gis-4 a-1 cis-3 a-1
      gis-3 fis eis fis gis ais-4 h-1 cis-2 e!-4 d cis h )
      e-5 ( cis a e cis' a d-5 h-3 gis-1 e-1 d-4 h-2
      a-1 cis e a e cis a8 ) r
    }
  }
}

LH = \relative c' {
  \clef bass \key c \major \partial 8
  \mergeDifferentlyHeadedOn
  \mergeDifferentlyDottedOn
  \set fingeringOrientations = #'(left) %% für Akkorde!
  %\override Fingering.direction = #UP  %% für Einzelnoten!
  \override Fingering.padding = #0.8
  \override Fingering.staff-padding = #'()
  \repeat volta 2 {
    \slashedGrace s8 r8
    \voiceOne
    a4. a gis gis a f
    \oneVoice
    e8( gis h e-1 d!-2 h-4 )
    \voiceOne
    a4. a d, d e e
    \oneVoice
    < a c >8 e'-2( c-3 a-5 ) r
  }

  \repeat volta 2 {
    r
    \voiceOne
    e4. e e a f f
    \oneVoice
    e8( gis h e ) e, ( d
    \voiceOne
    c4.) c d d e e
    \oneVoice
    < a c >8 e[-2( c]-3 a-5 ) r
  }
  \key a \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      r
      \override Fingering.direction = #DOWN
      a16-5( cis-3 d e-1 fis-3 gis a8 ) r r
      \once \override Slur.details.max-slope = #0.2
      e,16-5_( gis-3 h-2 e-1 gis h e8 ) r r
      e,,16 ( gis a h-1 cis-3 d  e8 ) r8 r
      a,16 cis e a e cis  a8 r8 r
      \clef treble
      < a' h dis fis >4 r8 q4 r8
      < gis h e >4 r8 q4 r8
      < a' cis fis >4 r8 q4 r8
      < e~ gis~ >4. < e gis >8 r
    }
    \repeat volta 2
    {
      r
      \clef bass
      e,,16( gis h e gis h e8 ) r r
      \override Fingering.avoid-slur = #'inside
      \stemUp
      e,,16-5_( a-3 cis-2 e-1 a-3 cis-2
      \stemNeutral
      e8 ) r8 r
      < gis, e' >4 r8 < a e' >4 r8
      \revert Fingering.direction
      e16( e' d cis-3 h-1 a gis fis-4 e-1 d cis h-4 )
      a4 r8 < cis e a >4 r8
      < d fis h >4 r8 q4 r8
      < e a cis >4 r8 < e gis d' >4 r8
      < a~ cis~ >4. q8 r
    }
  }
}

LHii = \relative c' {
  \voiceTwo
  \repeat volta 2 {
    \slashedGrace s8 s8
    a < c e > q a q q
    gis < h e > q gis q q
    a < c e > q f, < a dis > q
    s2.
    a8 < c e >8 q a q q
    d, < f b > q d q q
    e < a c > q e < gis d' > q
    s2 s8
  }
  \repeat volta 2 {
    s
    e8 < h' d > q e, < a c > q
    e < gis d' > q a < c e > q
    f, < a dis > q f q q
    s2.
    c8 < e a > q c q q
    d < f b > q d q q
    e < a c > q e < gis d' > q
    s2 s8
  }
  \tag #'Moll
  {
    \repeat volta 4 {
      s8
      s2. * 7
      s2 s8
    }
  }
}

dynamics = {
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup "Allegretto moderato"
  \once \override TextScript.X-offset = #-3
  s8-\markup { \dynamic p \italic \large dol. }
  s2. * 4
  s8 s-\markup { \italic \large cresc. } s2
  s4 s2\sf\> s2.\p s2 s8
  s\p s2.\< s\sf\> s\!
  s2 s4-\markup { \italic \large cresc. }
  s2.
  s\f\> s\p s2 s8
  s8-\markup \whiteout { \dynamic p \italic \large dol. }
  s2. s s s
  s4. s\< s\> s\!
  s2.\p s2 s8
  s\f s2. s
  s\p s
  s4. s-\markup { \italic \large cresc. }
  s2.
  s4.\sf s-\markup { \italic \large dim. }
  \override Score.RehearsalMark.direction = #DOWN
  s4
  \mark \markup "D.C. sino al fine."
}

#(set! paper-alist (cons '("mein Format" . (cons 280 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 %\removeWithTag #'umbruch %% auskommentieren bei A4
        \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 = #5
      }
      \context {
        \Score
        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/7)
      }
    }
  }
}

%bb=
\score {
  \unfoldRepeats
  {
    <<
      \new Staff {
        \set Staff.midiInstrument = "pan flute"
        \removeWithTag #'umbruch
        \RH \removeWithTag #'Moll \removeWithTag #'umbruch \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=120
  }
  \layout { }
}