Largo aus Xerxes

Zur Navigation springen Zur Suche springen


Lilypond-Code

\version "2.22.0"
\language "deutsch"


\version "2.20.0"
\language "deutsch"
make-midi-list =
#(define-void-function (name score tempolist)
   ((string? #f) ly:score? list?)
   (for-each
    (lambda (tempo)
      (ly:book-process
       (apply
        ly:make-book
        $defaultpaper
        $defaultheader
        (list score))
       $defaultpaper
       #{
         \midi {
           \tempo 4 = $tempo
         }
       #}
       (format #f "~a_~a"
         (or name "midi")
         tempo)))
    tempolist))

#(define ((chord-name->german-markup-text-alteration B-instead-of-Bb) pitch lowercase?)

   (define (pitch-alteration-semitones pitch)
     (inexact->exact (round (* (ly:pitch-alteration pitch) 2))))

   (define (conditional-string-downcase str condition)
     (if condition
         (string-downcase str)
         str))

   (let* ((name (ly:pitch-notename pitch))
          (alt-semitones  (pitch-alteration-semitones pitch))
          (n-a (if (member (cons name alt-semitones) `((6 . -1) (6 . -1)))
                   (cons 7 (+ (if B-instead-of-Bb 1 1) alt-semitones))
                   (cons name alt-semitones))))
     (make-line-markup
      (list
       (make-simple-markup
        (conditional-string-downcase
         (vector-ref #("C" "D" "E" "F" "G" "A" "H" "B") (car n-a))
         lowercase?))
       (let ((alteration (/ (cdr n-a) 2)))
         (cond
          ((and (equal? lowercase? #f) (= alteration FLAT) (= (car n-a) 7)) (make-simple-markup ""))
          ((and (= alteration FLAT) (or (= (car n-a) 5) (= (car n-a) 2) )) (make-simple-markup "s"))
          ((= alteration FLAT) (make-simple-markup "es"))
          ((and (= alteration DOUBLE-FLAT) (or (= (car n-a) 5)(= (car n-a) 2) )) (make-simple-markup "ses"))
          ((= alteration DOUBLE-FLAT) (make-simple-markup "eses"))
          ((= alteration SHARP) (make-simple-markup "is"))
          ((= alteration DOUBLE-SHARP) (make-simple-markup "isis"))
          (else empty-markup)))))))

#(define germanChords (chord-name->german-markup-text-alteration #t))

\layout {
  \context {
    \Voice
    beamExceptions = #'()
    \override BreathingSign.text =
    \markup { \musicglyph #"scripts.lvarcomma" }
    \override Stem.neutral-direction = #down
    \override Script.outside-staff-priority = #'()
    \override Script.padding = #1
    \override Tie.thickness = #1
    \override PhrasingSlur.thickness = #3
    \override Rest.voiced-position = #0
    \override MultiMeasureRest.expand-limit = #3
  }
  \context {
    \Staff
    printPartCombineTexts = ##f
    beamExceptions = #'()
    \override BreathingSign.text =
    \markup { \musicglyph #"scripts.lvarcomma" }
    \override InstrumentName.font-features = #'("smcp")
  }
  \context {
    \Score
    \override VerticalAxisGroup.remove-first = ##t
    skipBars = ##f
    \override MetronomeMark.font-size = #1
    \override MetronomeMark.font-shape = #'caps
    \override BarLine.thick-thickness = 5
    \override Timing.beamExceptions = #'()
    barNumberVisibility = #all-bar-numbers-visible
    \override BarNumber.color = #(rgb-color 0.7 0.7 0.7)
    \override BarNumber.layer = #-200
    \override BarNumber.padding = #0.4
    \override BarNumber.outside-staff-priority =#'()
    \override BarNumber.after-line-breaking = ##f
    \override BarNumber.font-size = #-1
    \override BarNumber.font-series = #'bold
    \override BarNumber.self-alignment-X = #0
    \override BarNumber.break-visibility = #end-of-line-invisible
  }
  \context {
    \ChordNames
    chordNameLowercaseMinor = ##f
    \remove Staff_performer
    chordRootNamer = #germanChords
    \override ChordName.font-name = #"Orator10 BT"
    chordNoteNamer = #(chord-name->german-markup #f)
    \override ChordName.X-offset =
    #ly:self-alignment-interface::aligned-on-x-parent
    \override ChordName.self-alignment-X = #CENTER
    \override ChordName.font-name = #"Arial Narrow"
    \override ChordName.layer = #2
    \override ChordName.font-size = #-0.5
    noChordSymbol = ##f
  }
  \context {
    \Lyrics
    \override VerticalAxisGroup.staff-affinity = #CENTER
  }
}myTitel = "Largo aus Xerxes"

RH= \relative c'' {
  \time 3/4
  \key g \major
  \set Staff.connectArpeggios = ##t
  \override Arpeggio.positions = #'(4 . -4)
  \override Fingering.avoid-slur = #'inside
  <<
    {
      g2. ~ 4 fis e8. d16
    } \\ \relative c' {
      h4-. ( h-. h-. ) c-. ( c-. c-.)
    }
  >>
  d2. e4 fis \tuplet 3/2 { g8 ( a h ) }
  <<
    {
      a2. e'2-5 ~ 8. d16-4
      2.->-5 c2-5 ~ 8. h16-4
      h2.
    } \\ \relative c' {
      d4 d d g g g g g g
      fis fis fis g-1-. ( g-. g-. )
    }
  >>
  < h g' >4-1-5 < c g' >-1 < d fis >-2-4
  <<
    {
      \once \override Staff.Arpeggio.positions = #'(-2 . 3)
      fis-5\arpeggio e8.-4 ( d16-3 )
      4-4 ( cis ) cis4-.( cis-.-4 )
      d2.-5 c8-2-4 ( h-1-3 ) a4.-4 g8-3
      4-4 d'2-> ~ 2. ~ 4 ( h-3 ) a8.-4 g16-3
      g2.-2~ 4 fis-4 e8.-3 ( d16-2 )

    } \\ \relative c'' {
      g2\arpeggio fis4 g g g
      \override Fingering.direction =#UP
      a4. c!8-4 h4-3
      \override Fingering.direction = #DOWN
      a8 g g4-3 fis-2 d-1 r r
      < g h > q q fis-1 fis fis-2
      s2. d4-1 d-2 c-1
    }
  >>
  d2.-1 < c e >4-1-2 < c fis-3 >
  <<
    {
      \override TupletNumber.text =
      \markup { \overtie \fontsize #2 \italic " 3 " }
      \tuplet 3/2 { g'8-3 a h }
      < fis a >4.-1-3-5 < e g >8 < fis a >4
    } \\ \relative c' {
      h4 d2.
    }
  >>
  < g e' >4-.-5 ( q-4-. < a fis' >-.-5 )
  <<
    {
      g'4. d8 4
      r8 e-5 c4.-4 h8
      h2 g4-5 ~ g fis-4 e8.-3 ( d16-2 )

    } \\ \relative c'' {
      g2. 4 g-1 fis-2
      g2 h,4-1 c c c
    }
  >>
  d2.-1
  <<
    {
      c'4-. ( c-. h-. )
      a4. g8-3 g4-1

    } \\ \relative c'' {
      g4 a g e fis-2 g
    }
  >>
  < c fis >4-. q ( < h e > )
  <<
    {
      dis4.-4 ( cis16-3 dis-4 e4-5 )
      r8 a,-5 fis4.-4 e8-3
      e4-1 c'2 ~ 4 h8-5 ( a ) h4
      a8.-4 g16 a4 e'-5 ~ e d-4 c8.-5 ( h16-4 )
      h2-3

    } \\ \relative c'' {
      a2-1 g4-1 r dis2
      e4 < a e >-4 < g e >-3
      < d fis >-1-2 < d g >-1-3 q
      fis2 4-1 ~ 4 g-1 fis-2
      g2-1
    }
  >>
  r4
  <<
    {
      g'4 g fis-2-4~ fis e8.-3 ( d16-2 ) d4-4
      %\override Arpeggio.positions = #'(4 . -4)
      %\override Arpeggio.X-extent = #'(4 . 4)
      \once \override Staff.Arpeggio.positions = #'(-2 . 2)
      d8.->\arpeggio ( cis16 ) 4. 8-3
      d4.-4 e8-5 d4-4
      c!8-4 ( h-3 ) a4.-4 fis'8-4
      g2.-5\fermata
      \tuplet 3/2 { a,8-3 h c } h4-4 a8.-4 ( g16-3 )
      4-2 d'-1-2 fis-1-4
      g-2-5 g fis-4 ~ 4 e8. ( d16 ) d4-1-4
      d8-4->( cis ) cis4. 8-3
      d4.-4 e8 d4
      c!8 ( h ) a4.-4 g8-3 2.-4\fermata
    } \\ \relative c'' {
      d4 d d~ d c-1 a-1
      g\arpeggio g g
      fis2 g4
      a8-2 g-1 fis4.-2 d'8-2~ 4 c8-2 ( h-1 ) c4-2\fermata
      e,4 g fis-2
      s h c d d d~ d c a
      g g g fis2 g4
      a8 g g4 fis d2.-1
    }
  >>
  \bar "