Cz op840 nr 3/score

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

\include "defn.ily"
exercise ="3"
myTitel = #(string-append "Melodische Übung C-Moll")

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

RH= \relative c'' {
  %\accidentalStyle modern
  \key c \minor \time 3/8
  \override Fingering.direction = #UP
  \set fingeringOrientations = #'(left)
  \set Staff.beatStructure =  #'(3) % abhängig vom Takt
  \override Slur.height-limit = #4
  \repeat volta 2 {
    < es, c' >8 q q
    <<
      {
        es'4-5( c8-3
        < h d >8^2^4)_[ q q]
      }
      \\
      {
        g4.-1
        s4.
      }
    >>
    < d'-3 f-5 >4( < g,-1 d'-5 >8 < g-1 es'-4 >) q q
    < es'-3 g-5 >( < d f > < c-1 es-3 > < h  d >4 < c es >8 < h d >) r
    g'-3  as-4( d,) r as'( d,) r
    g-2( c) r g( c) r
    < d,-1 f-3 >( < es g > < f-3 as-5 >)
    < c-1 es-3 >( < d f >) < f,-1 h-4 >( \once\stemDown < f d' >4. < es c' >8) r r
  }
  \repeat volta 2 {
    b'!4-1( es8-2 g8.-4 f16 es8)
    es16-2([ d f es] d8) d4.
    b4-1( f'8-3 as8.-5 g16 f8)
    f16-3( es g f es8)\noBeam es4.
    < h d g >8 q q
    <<
      { g'4( f8-4) }
      \\
      { < h, d >4. }
    >>
    < g c es^4 >8 q q
    < g c es >4  g'16( es)
    d8( as') r
    g( h,) r
    < f d' >4.( < es c' >8)  r r^\markup "Fine."
  }
  \key c \major
  \set Timing.baseMoment = #(ly:make-moment 1/16)
  \set Staff.beatStructure = #'(2 2 2 )
  \tag #'Moll
  {
    \repeat volta 2 {
      e16-1( g-2) c-4( e-5) d-3( c-2)
      \waacc h8-1 f'16-.-5[ r32 f( d8.-3 h16-2)]
      g16( h) d( f) e( d)
      \waacc c8-1( g'16-.)[ r32 f( e8.-3 c16-1)]
      a'32-5( g fis e d16[ d'-.) d-. d-.]
      d32-5( c h a g16[ g'-.) g-. g-.]
      g16([ d h g-1] \slashedGrace h8 a32-2 d a h)
      a8( g4)
    }
    \set Staff.beatStructure = #'(3) % abhängig vom Takt
    \set fingeringOrientations = #'(left)
    \repeat volta 2 {
      < g, h d f! >8 q q
      < d'-2 f-4 >16([ < e g > < d f >  < c e >]  < h-2 d-4 >8)
      < f' g d' > q q  < f g d' >4( c'32-4 h a g)
      e'16-.-5[ r32 e( c8. g16-1)]
      a-2([ c-4)]  < g-1 h-3 >-. < f-1 a-3 >-. < e g >-. < d f >-.
      e-2([ c' g e-1]  \slashedGrace e8-3 d32-2 c d e)
      c8 r r
    }
  }
}

LH = \relative c' {
  \set fingeringOrientations = #'(down)
  \override Fingering.direction = #DOWN
  \override Fingering.staff-padding = #'()
  \override Slur.height-limit = #4
  \clef bass
  \key c \minor
  \mergeDifferentlyHeadedOn
  \mergeDifferentlyDottedOn
  \repeat volta 2 {
    c,4.
    r8 c-4^( es-2^) g4.
    r8 g,_5_( h_3 c4._2)
    c8^2^( h c g g' fis g) r8 r
    \voiceOne
    f8 < as h d > q f8 < as h d > q
    es < g c > q es < g c > q
    \oneVoice
    f4 f8^2 g4^1 g8
    g,8_( h g c) r8 r
  }
  \voiceOne
  \repeat volta 2 {
    r8 b'_1 b_1 r8 b b r8 as as r8 as as r8 as as r8 as as
    r b b r b b
    \oneVoice
    g,8[( h d] g[ g,)] r8
    c( es g c c,) r8
    \voiceOne
    f8 < as d > q g < d' f > q
    \oneVoice
    g,8-4( h g c) r8 r
  }
  \set fingeringOrientations = #'(left)
  \key c \major
  \voiceOne
  \tag #'Moll
  {
    \repeat volta 2 {
      c,8 < e g > q
      d < f g h > q d q q
      e < g c > q fis < c' d > q
      g < h d > q d, < g h > < fis c' >
      < d fis c' >8 < g h >4
    }
    \oneVoice
    \repeat volta 2 {
      g,16[-5( h-4 d-2 g-1 h-2 d]-1)
      g,8-5 g'4-1
      g16[-1( d-2 h-4 g-1 d h])
      \once \override Slur.details.max-slope = 0
      g8( g'4)
      \voiceOne
      c,8 < e g > q f a d
      g, < c-2 e-1 > < h f' >
      \oneVoice
      \override TextScript.self-alignment-X = #0
      < c e >8 c,4->_\markup "D.C. sino al fine."
    }
  }
}

LHii = \relative c {
  \override Fingering.staff-padding = #'()
  \voiceTwo
  \set fingeringOrientations = #'(left left)
  \set Timing.beamExceptions = #'()
  \set Timing.baseMoment = #(ly:make-moment 1/8)
  \set Staff.beatStructure = #'(3 ) % abhängig vom Takt
  \repeat volta 2 {
    s4. * 8
    f4. f4. es4. es4.
    s4. s s s
  }
  \repeat volta 2 {
    < es-4 g-2 >4. q
    < b-5 f'-2 > q
    < b-5 d-3 > q
    < es-4 g-2 >4. q
    s4. s s s
    f4. g
    s4. s
  }
  \tag #'Moll
  {
    \repeat volta 2 {
      c,4. d d e fis g d4 d8
      s4.
    }
    \repeat volta 2 {
      s4. s s s
      c4. f g4 g8
      s4.
    }
  }
}

dynamics = {
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup { \center-align \larger "Andantino con moto." }
  s4.\p
  s4. * 15
  s4.\p
  s4. * 7
  s4.\f
  s4. * 7
  \mark \markup \fontsize #0 { \bold "C Dur." \italic "(Ut majeur)" }
  s4.-\markup { \dynamic p \italic dol. }
  s
  s8 s4-\markup { \italic cresc. }
  s4. * 5
  s4.\f
  s s\sf
}

#(set! paper-alist (cons '("mein Format" . (cons 270 300)) 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 \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/32)
      }

    }
  }
}

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=144
  }
  \layout { }
}