Meditation aus Thais (Orgel)/score

Zur Navigation springen Zur Suche springen
teili = \relative c''
{
  \set Voice.beatStructure = #'(2 1 1)
  \override Slur.minimum-length = #0.1
  \override PhrasingSlur.height-limit = #4
  fis2 ~--\( 8 d \tuplet 3/2 { a d fis }
  h2 cis4 d d,4. e8 \tuplet 5/4 { fis16 g fis e fis } a8 a,
  h2.\) cis8\( d fis e g2 dis8 e
  fis g a h h4-- h,\)
  cis2\( d4 e16 d cis d e2
  \once \override Slur.details.max-slope = 0
  f2\)--
  \once \override Score.RehearsalMark.self-alignment-X = #0
  %\mark \markup \bold "a Tempo"
  fis2~\( 8 d \tuplet 3/2 { a d fis }
  h2 cis4 d\)
  fis,2 ~\( 8. d16 a d fis a c,2 d4 e
  \once \override Slur.details.max-slope = 0
  fis2 ~ fis8 dis \tuplet 3/2 { h' fis dis\) }
  \tupletSpan 4
  \tuplet 3/2 {
    a'4(-- g8 e[ h g)] fis'4( e8 h g e)
    d'4(-- a8 fis[ d a]
  } h4 cis8 d)
  < e h g >2(--< fis h, a >4-- < g e h >--
  < e h g >-- < fis h, a >-- < h, g >)-- < e h g >(--
  < d h g >2 < cis a g >)
  \mark \markup \musicglyph "scripts.coda" d1
}

extendRT =
#(define-music-function (further) (number?)
   #{
     \once \override RepeatTie.X-extent = #'(0 . 0)
     \once \override RepeatTie.details.note-head-gap = #(/ further -8)
     \once \override RepeatTie.extra-offset = #(cons (- 0.5 (/ further 3)) .1)
   #} )

sop = \relative c'' {
  \key d \major
  \time 4/4
  \override Slur.minimum-length = #0.1
  \override PhrasingSlur.height-limit = #6
  \teili
  \set Voice.beatStructure = #'(2 2)
  c2 ~( 8 g a e
  g4 fis2)
  \oneVoice
  \tuplet 3/2 { ais8 cis e }
  \once \override Slur.details.max-slope = 0
  e2 ~ 8 h cis g
  <h>4
  a2
  \tuplet 3/2 { cis8\< e g\! }
  g4.( a8-- h-- fis-- d-- h)--
  e8.( fis16 \tuplet 5/4 {  e[ dis e fis g] } g8-- e-- c-- g)--
  b2\( a4 g
  a'4 g8 f e4 d8 c
  d4. c8 a4. c8 e4. d8 c4 a8 c\)
  \once \override Slur.details.max-slope = 0
  \once \override Slur.details.head-slur-distance-factor=1
  \override Slur.minimum-length = #0.1
  f4.\(-- e8-- g-- f-- c-- as'--
  f-- e-- g-- f ~ f c-- as-- f\)--
  b8.\( g16 e[ g b! cis!] e8\) f( fis g)
  g( fis f e g-- a-- ais-- h)--
  h4.( g8-- g e4--
  cis8)

  d,2. \tuplet 3/2 { cis8 d e }
  d2. \tuplet 3/2 { cis8 d e }
  \set PianoStaff.connectArpeggios = ##t
  d1~d\fermata
  \bar "|."
}

ten = \relative c {
  \clef bass
  \voiceOne
  \key d \major
  \set Voice.beatStructure = #'(2 2)
  r8 fis8( a d fis, a d4)
  r8 fis,8( a d a d a fis)
  r8 a8( d fis a,4 fis'4)
  r8 h,8 d g h, d g4
  r8 g,8 h e g, h e4
  r8 g,8 h e g, h e h
  r8 a cis e r d, g4
  r8 e a cis r f, b des
  r8 fis,( a8 d fis, a d4)
  r8 fis,8 a d fis, a d a
  r8 fis a d a4 fis

  \repeat unfold 2 { r8 g( c e ) }
  r8 fis,( h dis fis, h dis4)
  r8 g,( h4 g8 h e4)
  r8 
  \once \override Slur.details.max-slope = 0
  \override Slur.minimum-length = #3
  d,( fis4) r8 h,( e g )
  \oneVoice
  a,1 ~ a ~ a
  \set tieWaitForNote = ##t
  r8 d~ fis~ a~ < a fis d >2
  \voiceOne
  r8 g( c e) r g,( c g)
  r8 e( fis ais e fis ais4)
  r8 g( h e g, h e4)
  r8 cis,( e g cis,4 e4)
  r8 d( g h) r fis( h d)
  r8 
  \once \override Slur.details.max-slope = 0
  e,( a4) r8 e( g c)
  c1
  r8 e,( b' c) r g( b e)
  r8 a,( c f) r a,( c f)
  r c,( f a) r c,( f a)
  r8 f b des r f, as c
  r8 des,( f b) r8 c,( f as)
  \clef treble
  \oneVoice
  r4 b g'2
  < e a, >1 R1
  \clef bass
  \set tieWaitForNote = ##t
  \override Tie.minimum-length = #5
  \repeat unfold 2 { r8 a,,~ d~ fis~ < a fis d a >2 }
  < fis a, >2 q < fis d a >1\fermata
}

bas = \relative c {
  \mergeDifferentlyDottedOn
  \mergeDifferentlyHeadedOn
  \voiceTwo
  d2 ~ d d ~ d fis ~ fis
  g ~ g e ~ e e ~ e
  e2 h
  cis des
  d ~ d
  d ~ d d ~ d
  e e
  dis ~ dis
  e ~ e
  a, a
  s1 s s
  s1
  e'2 e
  cis ~ cis
  e ~ e
  a, ~ a
  h d c c
  c1 c2 e
  f f a, a
  des c
  b as

}

Struktur = {
  \override Score.NonMusicalPaperColumn.page-break-permission = ##f
  \override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/1)
  s1 * 17
  \once \override Score.RehearsalMark.extra-offset = #'(15 . 0)
  \mark \markup \musicglyph "scripts.coda"
  s1
  \bar "||"
  \pageBreak s1 * 6
  \override Score.RehearsalMark.self-alignment-X = #LEFT
  s1 * 9
  \mark \markup \fontsize #-1 \italic "D.C. al Coda"
  \override Score.RehearsalMark.self-alignment-X = #-1
  s1 \mark \markup \vcenter { \musicglyph "scripts.coda" \bold Coda }
  \bar "||" \break
}

kopf=\header {
  title = "Medidation aus Thaïs"
  %poet = "Arrangeur: ?"
  composer = \markup \override #'(baseline-skip . 2) \right-column {
    "Jules Émile Frédéric Massenet" "(*12.Mai 1842 †13.August 1912)"
  }
  piece = ##f
  poet = \markup \override #'(baseline-skip . 2) \left-column {
    %\null \vspace #0.5
    "Notensatz:lilypond.miraheze.org"
    "nach Alfred Jethro Silver (1870—1935)"
  }
}

mypaper= \paper {
  markup-system-spacing.padding = #3
  top-margin = 20\mm
  ragged-right = ##f
  ragged-last = ##f
  ragged-bottom = ##f
  ragged-last-bottom = ##f
  bottom-margin = 15\mm
  indent = #0
  line-width = 170\mm
  print-all-headers = ##f
  #(include-special-characters)
  print-page-number = ##f
}

\bookpart {
  \mypaper
  \kopf
  \score
  {
    <<
      \new PianoStaff="leadsheet"
      <<
        \new Staff="RH"
        <<
          \new Voice \Struktur
          \new Voice="Alt" { \sop }
        >>
        \new Staff="LH"
        <<
          \new Voice { \voiceOne \ten }
          \new Voice { \voiceTwo \bas }
        >>
      >>
    >>
  }
}