Carl Czerny, Op.840 Nr.48/score

Zur Navigation springen Zur Suche springen
\version "2.20.0"
\language "deutsch"

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

durde = \markup "D moll."
durfr = \markup "Ré mineur."
molde = \markup \bold { "D Dur. " }
molfr = \markup \italic { "(Ré majeur.)" }

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

RH= \relative c' {
  \time 4/4
  \key f \major
  \repeat volta 2
  {
    r16 d16-1-.[ r16 f16-3-. r16 e16-2-. r16 g16-4-.]
    r16 f16-3-.[ r16 a16-5-. r16 a,16-1-. r16 cis16-2-.]
    r16 d16-.[ r16 f16-. r16 e16-. r16 g16-.]
    \override Script.transparent = ##t
    r16 f16-.[ r16 a16-. r16 a,16-. r16 cis16-.]
    r16 d16-.-1[ r16 f16-.-2 r16 a16-.-3 r16 d16-.-5]
    \revert Script.transparent
    r16 gis,16-.-1[ r16 f'16-.-5 r16 e16-.-4 r16 d16-.-3]
    r16 cis16-2-.[ r16 a16-1-. r16 cis16-2-. r16 e16-3-.]
    r16 a-3 ( gis-2 a gis a gis a )
    g!-1  ( a b!-3 a g-1 f-3 e f g-3 f e d-1 cis-4 b a g )
    f16-2( a16-1 d16 f16 a8-.) r8
    e,16-2( g16-1 b16 e16 g8-.) r8
    d,16-2( f16-1 a16 d16 f8-.) r8 cis,16-2( e16-1 a16 cis16 e8-.) r8
    d16 a f' a, d a f' a, d8 r8 r4
  }
  \repeat volta 2
  {
    \override Rest.staff-position = #4
    \voiceOne
    r16
    \override Beam.positions = #'(5.5 . 5.5)
    < cis-2 e-4 >16[ r16 < cis e >16 r16 < cis e >16 r16 < cis e >16]
    r16 < d-1 f-3 >16[ r16 < d f >16 r16 < d f >16 r16 < d f >16]
    r16 < e
    g-4 >16[ r16 < e g >16] r16 < d f-3 >16[ r16 < d f >16]
    r16 < cis e-4 >16[ r16 < cis e >16] r16 < cis e >16[ r16 < cis e >16]
    \oneVoice
    \revert Beam.positions
    \revert Rest.staff-position
    r16 < cis-1 e-2 a-5 >16[ r16 < cis e a >16] r16 < cis e a >16[ r16 < cis e a >16]
    r16 < d-1 f-3 a-5 >16[ r16 < d f a >16] r16 < d f a >16[ r16 < d f a >16]
    r16 < e g a >16[ r16 < e g a >16] r16 < d f a >16[ r16 < d f a >16]
    \set Staff.beatStructure = #'(2 2 2 2)  %% abhängig vom Takt
    r16
    < cis-1 e-2 a-5 > ( gis'-4 a-5 g-4 e g e )
    a16-5( gis16 a16 f16 d8-.) r8 d'16-5( cis16 d16 a16 f8-.) r8
    es16-2 g-1 b es g8 r
    \myott #1
    g,16-1 b-2 es-4 g-1 b8-3 r
    a16-5  g f e! d-1 c!-4 b! a
    \ottava #0
    g-1 f-3 e d cis-2 d e cis
    d-3 a-1 d-2 f-4 a f a f d8 r
    r4
  }
  \key d \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      fis8-5-. r fis-. r fis-. r h,16-4 ( a-3 gis-2 a-1
      fis'8 ) r fis r fis r h,16-4 ( a gis a-1
      d8.-2 fis16-4 a8.-1 d16-2 )
      \myott #1
      fis4-3 ( g16-4 fis e d
      cis4.-2 e8 g )
      \ottava #0
      r r4
      g,8-5-. r g-. r g-. r
      cis,16-2 ( a-1 e'-3 cis-2
      g'8-5-. ) r g-. r g-. r
      \myott #1
      cis16-2 ( a e' cis
      a'8-5 g16 fis
      e d-1 cis-4 h
      \ottava #0
      a g fis-3 e d-1 cis-3 h cis
      d8-. ) r < a fis' >-. r < fis d' >-. r r4
    }
    \repeat volta 2
    {
      fis'8-3-.  r fis-. r fis-. r g16-4 ( fis e d-1
      cis4.-3 ais8_2 fis4_1 ) r
      fis'8-3-.  r fis-. r fis ( eis16 fis
      g-4 fis e d )
      cis2-2 cis4-3 (
      h16-2 a-1 gis-2 a-1
      fis'8-. ) r fis-. r fis-. r e16-4 ( d-3 cis-2 d-1
      d'8-. )  r d-. r d4.-> (gis,8
      a-3 ) a,16-1 ( h cis d-1 e fis g!-4 fis e fis g a h cis
      d8-. ) r < fis,, a d >-. r q-. r r4
    }
  }
}

LH = \relative c {
  \clef bass
  \key f \major
  \repeat volta 2
  {
    d8-5-. f8-3-. e8-3-. g8-2-. g8-3-. a8-1-. a,8-5-. cis8-3-.
    d8-1-. f8-3-. e8-4-. g8-2-.
    \override Script.transparent = ##t
    f8-. a-. a,-. cis-.
    d-.-1 f-.-3 a-.-2 d-.-1 gis,-.-5 f'-.-1 e-.-2 d-.-1
    \revert Script.transparent
    cis8-3-. a8-5-. cis8-3-. e8-2-.
    f-1-. r r4
    \voiceOne
    \mergeDifferentlyHeadedOn
    \mergeDifferentlyDottedOn
    cis,8 < e a > q q cis q q q
    d < f a > q q g, < b e > q q
    a < d f > q q a < e' g > q q
    \oneVoice
    < d f >8 a' < d, f > a' < d, f > r8 r4
  }
  \repeat volta 2
  {
    \change Staff = "Discant"
    \override Fingering.self-alignment-X = #1.5
    \voiceTwo
    \override Beam.positions = #'(-4 . -5)
    a''8-1_. b-2-.  a-1-. g-2-.
    \override Beam.positions = #'(-5 . -6)
    f-3-. a-1-. f-2-. d-3-.
    \override Beam.positions = #'(-7 . -5.5)
    cis-.-3 a-.-5 d-.-3 f-.-2
    \override Beam.positions = #'(-5 . -6)
    a-.-1 e-.-2 cis-.-3 e-.-2
    \oneVoice
    \change Staff = "Bass"
    \override Beam.positions = #'(-3 . -2)
    \revert Fingering.self-alignment-X
    a,-1 e-4 a g f-3 a-1 f-2 d-3
    \stemNeutral
    \revert Beam.positions
    \once \override Beam.positions = #'(3 . 4.5)
    cis-3 a-5 d-3 f a  r8 r4
    \voiceOne
    f,8 < a d > q q f q q q
    g < b es > q q g q q q
    a < d f > q q a < e' g > q q
    \oneVoice
    < d f >8 a' < d, f > a' < d, f > r8 r4
  }
  \key d \major
  \tag #'Moll
  {
    \repeat volta 2
    {
      \set Staff.beatStructure = #'(4 4)
      \voiceOne
      \override Beam.positions = #'(6 . 7)
      \repeat unfold 3 { fis8 a d a fis a d a }
      \repeat unfold 3 { g a cis a g a cis a }
      \revert Beam.positions
      a, cis e g a, cis e g
      \oneVoice
      < d fis >8 a' d a d, r8 r4
    }
    \repeat volta 2
    {
      < h'-2 d-1 >8 ( fis q fis q fis q fis
      < ais-3 e'-1 > fis q fis q fis q fis
      )
      < h-2 d-1 >8 ( fis q fis q fis q fis )
      < ais cis > fis q fis
      \voiceOne
      g!8 cis a! cis
      \mergeDifferentlyHeadedOn
      \repeat unfold 2 { fis,8 a d a }
      d, e gis e d e gis e
      a, fis' d fis a, g'! e g
      \oneVoice
      < fis d > d[( a fis d] ) r r4
    }
  }
}

LHii = \relative c {
  \voiceTwo

  \repeat volta 2
  {
    s1 * 4
    cis2 cis d g, a a
    s1
  }
  \repeat volta 2
  {
    s1 * 4
    f2 f g g a a
    s1
  }
  \tag #'Moll
  {
    \repeat volta 2
    {
      d2 d d d d d
      e e e e e e
      a, a
      s1
    }
    \repeat volta 2
    {
      s1 * 3 s2
      < e' g >2
      d d h h a a
      s1
    }
  }
}

dynamics = {
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup { \center-align "Allegro vivace." }
  s1-\markup { \dynamic f \italic stacc. } s s
  s2 s\> s1\p
  s2 s-\markup { \italic cresc. } s1
  s\f s\p s
  s-\markup { \italic cresc. }
  s2 s\> s1\p
  s-\markup { \italic cresc. }
  s\f
  %\override Score.RehearsalMark.direction = #UP
  s2
  \once \override Score.RehearsalMark.self-alignment-X = #-1.5
  \mark \markup "Fine."
  s
  \mark \markup \fontsize #-1.5 { \bold \molde \italic \molfr }
  s1-\markup { \dynamic p \italic dol. } s1 * 4
  s2. s4\< s\> s2.\! s1
  s\p s
  s-\markup { \italic cresc. }
  s2 s\f s1
  s\sf s
  \override Score.RehearsalMark.direction = #DOWN
  \mark \markup "D.C. sino al fine."
}

#(set! paper-alist (cons '("mein Format" . (cons 290 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 = 175\mm
  top-margin = 15\mm
  bottom-margin = 10\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 =#4
  system-system-spacing.padding = #0
}

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

    }
  }
}

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=120
  }
}