Carl Czerny, Op.840 Nr.21

Zur Navigation springen Zur Suche springen

\version "2.20.0"
\language "deutsch"

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

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

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

#(define (my-tuplet-number::calc-denominator-text grob)
   (let (;; let 'direction evaluate to use the generic tie-markup-command
          (dir (ly:grob-property grob 'direction)))
     (make-tie-markup
      (string-append  "         " (tuplet-number::calc-denominator-text grob) "         "))
     ))

tupletU = {
  \tupletUp
  \override TupletNumber.direction = #UP
}

tupletD = {
  \tupletDown
  \override TupletNumber.direction = #DOWN
}

RH= \relative c'' {
  \time 3/4
  \key b \major
  \mergeDifferentlyDottedOn
  \mergeDifferentlyHeadedOn
  \set fingeringOrientations = #'(left)
  \repeat volta 2
  {
    \override Rest.staff-position = #0
    \voiceOne
    d8.( es32 d c4 b
    a8. c16 es8) r r4
    es8.( f32 es d4 c
    b8. d16 f8)-. r r4
    \oneVoice
    b4(-3 \grace { c32[ b a b] } c8-4 b a g
    f es) < es c >4-1-3 ( < d b >-2-4)
    \override TupletNumber.text = #my-tuplet-number::calc-denominator-text
    c8 g' f es \tuplet 6/4 { d16 f-4 es d es c }
    b4(-3 a16)-. f[-.-1 e-.-2 f]-.-2 g-.-2 a-.-1 b-.-2 c-.-3
    \voiceOne
    <d-4>8. ( es32 d c4 b
    a8.-2 c16-4 <es-5 >8-.)
    \oneVoice
    f,[-. f-. f]-.
    \voiceOne
    < es'-4 >8.( f32 es d4 c
    \oneVoice
    < b-2 f-1 >8. d16 f8)-. b,[-. b-. b]-.
    b'4(-3 \grace { c32[ b a b] } c8-4 b-3 g-2 e-1
    f16-2 c'-5 a-3 f-1 < c es >4-2-4 < d b >-2-3)
    \tupletU
    \tuplet 6/4 { d16 c h c es g } b,4-2(
    \voiceOne
    d8. c16 c4 b8)
    \oneVoice
    \override Fingering.avoid-slur = #'inside
    f[ ( b d-4])
    < c a >4-1-3 ( < f a, >8 < a c, > < g b, > < f a, >
    < e g, >8.-1-4 < f a, >16 < g b, >8) r r4
    < e c >8-1-2( g-4 < b g >[-1-3 < d b > < c a > < b g >]
    < a f >8.-1-3 < b g >16 < c a >8) r r4
    r16 c-1( f-4 e d c-1 b-4 a \grace { g[ a] } g-2 f a f-1)
    g-4( f e d-1 cis-2 d e d c-1 b-3 a-2 g-1 )
    c8-3[ ( \grace { d16[-4 c-3 b]-2 } c-1 f]-2 a8[-4 f-2 \slashedGrace  e8 c'8. e,16]-1)
    g8-5( f e f c-1 es-4)
    \voiceOne
    < d-4 >8.( es32 d c4 b
    \oneVoice
    \tupletD
    \tuplet 6/4 { a16-2 b a g a c } es8 ) r r4
    \voiceOne
    es8.-1( f32 es d4 c
    \oneVoice
    \tuplet 6/4 { b16-3 c b a b d } f8-. ) r r4
    f'16-4( es d c b-4 a g f es-3 d c b-3
    \set Staff.beamExceptions =
    \beamExceptions {
      16[ 16] 16[ 16] 16[ 16] 16[ 16] 16[ 16] 16[ 16]
    }
    a-2 g-1) c'-4( b-3) fis-2( g-3) a-4( g-3) d-1( es-2) f-3( es-2)
    d[-1( f-2 b-5-.) r32 b,]-2(
    \voiceOne
    d4. c8-3)
    \oneVoice
    b8 r r4 r^\markup "Fine."
  }
  \key des \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      \set Staff.beatStructure = #'(1 1 1)
      \set Staff.beamExceptions = #'()
      f4-1( des'-4 b-2)
      c8.[-1( f16]-4) f4.( es8)
      es-3( des c-1 b-2 a b )
      < c a >4 r r
      \override TrillSpanner.outside-staff-priority = ##f
      des-2( f-4 \afterGrace e-2\startTrillSpan { d32-1\stopTrillSpan es-2 }
      f8.-1 as16-3 c-5 h c as f-2 c-1 as-2 f-1 )
      r8 < des' b >-3-5-. ( r < c as >-2-4 r < e, b >-2-4-.)
      < f as, >4 r8 f[-1 f f]
    }
    \repeat volta 2
    {
      f'4.-4( des8-2 as'-5 f-4
      ges8.-5 es16-3 as,4.-1 ges'8-5 )
      \override TrillSpanner.outside-staff-priority = #'()
      \override Fingering.outside-staff-priority = #1
      f4-4( es \afterGrace des^2)\startTrillSpan { c32\stopTrillSpan des }
      \override Fingering.outside-staff-priority = #'()
      c16-1( f-5 e f es f des f e f c-2 f-5)
      b,8.-1( b'16-5) b8-5( f-1 es-3 des-2 )
      c16-1( des d es e f ges-3 f-2 ges f as g)
      \override Fingering.avoid-slur = #'around
      r8 < f des >-3-5-.( r < des b f >-. r < c a es >-. )
    }
    \alternative
    {
      {
        < b des, >4 r8 f[ f f]
      }
      {
        < b des, >4 r f
      }
    }
  }
  \bar "|."
}

RHii = \relative c'' {
  \voiceTwo
  \set fingeringOrientations = #'(left)
  \repeat volta 2
  {
    b4 a b
    a4 a8 s s4
    a b a
    b b8 s s4
    s2. s s s
    <b-2>4 a b
    a <f-1>8 s s4
    <f-1>2 f4
    s2. s s
    s2 a4 a b8 s s4
    s2. * 8
    b4 a b
    s2.
    a4 b a
    s2. s s
    s4 b a s2.
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      s2. * 8
    }
    \repeat volta 2
    {
      s2. * 7
    }
    \alternative
    {
      {
        s2.
      }
      {
        s2.
      }
    }
  }
}

LH = \relative c' {
  \clef bass
  \key b \major
  \mergeDifferentlyDottedOn
  \mergeDifferentlyHeadedOn
  \repeat volta 2
  {
    \clef treble
    < f b, >4( < f es > < f d >
    < f es c > q8) r r4
    < f c >4( < f d > < f es >
    < f d > q8) r r4
    \clef bass
    < es b g >2 q4
    < f c a >
    \voiceOne
    f2
    \oneVoice
    < c g es >2 q4
    \once \set doubleSlurs = ##t
    < d f, >( < c f, >8) r8 r4
    < f, b, >( < f es > < f d >
    < f es c > < a f c >8) r r4
    q4 < b f d > < a f es >
    < b f d >2 r4
    < e c b g >2 q4
    < f c a > < f a, > < f b, >
    < g, es >4( < d' f, > < es f, > < es b_~ > < d b >8) r r4
    \voiceOne
    f,8 c' c c c c
    \oneVoice
    c, ( c' c[ g e g] )
    c, c'
    \voiceOne
    e, c' c c
    \oneVoice
    f,( c' f[ c a f] )
    < f c a >2.
    < f d b >4 r < g d b >
    < a f c >2 < b g c, >4
    < a f > r r
    \clef treble
    \voiceOne
    b8 f' es f d f
    \set fingeringOrientations = #'(left)
    < es-3 > f a f a f
    c f d f es f
    d f d f b f
    \clef bass
    \oneVoice
    < b, f d >2.
    \voiceOne
    \once \override Slur.details.max-slope = 0
    \override Slur.height-limit = #6
    b2_( h8-2 c-1
    \oneVoice
    < d b f >4 g < es f, >)
    < d b >8 r b, r r4
  }
  \key des \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      \voiceOne
      \repeat unfold 3 { b16 f' des f }
      \repeat unfold 3 { a, f' c f }
      \repeat unfold 3 { b,16 f' des f }
      \oneVoice
      f,( a c f e-2 f-1 ges-2 f-1 es-2 f c f)
      \voiceOne
      \repeat unfold 2 { b,16 f' des f } b, ges' d g
      as, f' c f
      \oneVoice
      as,8 r r4
      b( c c, )
      f8 ( c' f) r r4
    }
    \repeat volta 2
    {
      \voiceOne
      des16 as' f as des, as' f as des, as' f as
      c, as' es as c, as' es as c, as' es as
      des, as' f as c, a'f a b, b' f b
      \oneVoice
      < a f >4 r r
      \voiceOne
      des,16 as' f as des, as' f as des, as' f as
      ges4
      \oneVoice
      r r f, f' f,
    }
    \alternative
    {
      {
        b b,8 r r4
      }
      {
        b'4 b, r
      }
    }
  }
}

LHii = \relative c' {
  \voiceTwo
  \repeat volta 2
  {
    s2. * 5
    s4 a b
    s2. * 10
    f2. s
    s4 e2
    s2. * 5
    b'4 es d
    \once \mergeDifferentlyDottedOff
    < es c >2.
    c4 d es
    d d2 s2.
    < g, es > s s
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      b,4( b b
      a a a
      b b b)
      s2.
      b4 b b as s s
      s2. s
    }
    \repeat volta 2
    {
      des4 des des
      c c c
      des c b s2.
      des4 des des es s2
      s2.
    }
    \alternative
    {
      {
        s2.
      }
      {
        s2.
      }
    }
  }
}

dynamics = {
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup { \center-align "Andante espressivo." }
  s2.\p s s s
  s\f s
  s\p s s s s s
  f\f s16 s\> s8 s2 s2.\! s
  s4. s-\markup { \italic dol. } s2. s s s
  s\f
  s2\> s4\p s2. * 5
  s2.\f s s s
  \mark \markup \fontsize #-1.5 { \bold \molde \italic \molfr }
  s\p
  s4\< s2\> s2.\! s
  s-\markup { \italic cresc. }
  s4 s2\> s2.\p s
  s\f s s
  s4 s2-\markup { \italic dim. }
  s-\p s s s s
  \override Score.RehearsalMark.direction = #DOWN
  \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 "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
  right-margin = #left-margin
  page-breaking = #ly:one-page-breaking
  annotate-spacing = ##f
}

cc=\paper {
  line-width = 170\mm
  top-margin = 4\mm
  bottom-margin = 4\mm
  annotate-spacing = ##f
  evenFooterMarkup = ##f
  oddFooterMarkup = ##f
  evenHeaderMarkup = ##f
  oddHeaderMarkup = ##f
  page-breaking = #ly:minimal-breaking
  system-system-spacing.basic-distance = #6
  system-system-spacing.minimum-distance = #3
}

%\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 Voice \RHii
      >>
      \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 = ""
      }
      \context {
        \Score
        \override SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/3)
      }

    }
  }
}

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