Medidation aus Thais

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

#(define myTitel "Medidation aus Thaïs")

myGrax = {
  \once \override Slur.details.max-slope = 0
  \once \override Slur.details.edge-slope-exponent = 0
  %\shape #'((1.5 . 0) (1 . 0 ) (0 . 0) (-1 . 0 )) Slur
}

teili = \relative c''
{
  \set Voice.beatStructure = #'(2 1 1)
  \override Slur.minimum-length = #0.1
  \bar ""
  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
  \appoggiatura { f,16([ b] } f'2)\)--
  \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 c2 d4 e
  \once \override Slur.details.max-slope = 0
  \appoggiatura { dis,16[ h'] } fis'2-^ ~ 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)
  %\mark \markup \bold "a Tempo"
  < e h g >2--\arpeggio < fis h, a >4--\arpeggio  < g e h >--\arpeggio
  < e h g >--\arpeggio  < fis h, a >--\arpeggio  < h, g >--\arpeggio  < e h g >--\arpeggio
  < d h g >2\arpeggio  < cis a g >\arpeggio
}

%% Voice 1
firstvoice =
\relative c'' {
  \key d \major
  \time 4/4
  \override Slur.minimum-length = #0.1
  %\once \override Score.MetronomeMark.self-alignment-X = #-2.8
  %\tempo 4=70
  \override Score.RehearsalMark.self-alignment-X = #-0.9
  \override PhrasingSlur.height-limit = #6
  %\temporary \override Arpeggio.stencil = ##f
  \teili
  %\revert Arpeggio.stencil

  < d, fis, >1
  \set Voice.beatStructure = #'(2 2)
  \voiceOne
  c'2 ~(-- 8 g a e
  g4\espressivo fis2)
  \oneVoice
  \tuplet 3/2 { ais8 cis e }
  \once \override Slur.details.max-slope = 0
  \grace {
    %\myGrax
    e,16([ h']
  } e2) ~ 8 h cis g
  \voiceOne
  \set Voice.connectArpeggios = ##t
  <h>4\espressivo
  %\mark \markup \bold "Poco a poco appassionato"
  a2
  \oneVoice
  \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)--
  \voiceOne

  b2\( a4 g8 e
  \oneVoice
  a'4 g8 f e4 d8 c
  d'4. 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

  \appoggiatura { f,8 }  f'4.\(-- e8-- g-- f-- c-- as--
  f-- e-- g-- f-^ ~ f c-- as-- f\)--
  \voiceOne

  b8.^^\( g16 e[ g b! cis!] e8 f fis g\)
  g\( fis f e g-- a-- ais-- h--
  \oneVoice
  h4.-^ g8--~ g e4-- cis8\)
  \teili
  \set Voice.beatStructure = #'(2 1 1)
  %% teili % sind 18 Takte
  < d, fis,> 2 ~\( q8. fis16 a d fis a
  \once \override Slur.details.max-slope = 0
  \grace { h,16([ eis] } h'2.) cis4

  fis4. d8 a[ fis d a]
  g4 b2 cis,4\) ~ 8 \tuplet 3/2 { cis16( d e) } d2\( fis4
  a d fis a\)
  \stemUp
  \once \override Tie.direction = #UP
  a'1^-- ~
  \once \override Stem.length = #6
  %\override Stem.color = #red
  \override Stem.cross-staff = ##t
  \set PianoStaff.connectArpeggios = ##t
  \override Stem.cross-staff = ##t
  a2-- d,,,2\arpeggio
  \once \override DynamicLineSpanner.direction = #UP
  e4. fis8 2 ~ 2 e
  d2. \tuplet 3/2 { cis8 d e }
  d2. \tuplet 3/2 { cis8 d e }
  \set PianoStaff.connectArpeggios = ##t
  d1 \clef bass
  < d fis, d>\arpeggio\fermata
  \bar "|."
}

csBracket = \override PianoStaff.Arpeggio.stencil = #ly:arpeggio::brew-chord-bracket
nachoben = { \change Staff="leadsheet"  }
nachunten = { \change Staff="down" }

secvoice = \relative c' {
  \key d \major
  s1 * 20
  \voiceTwo
  < e ais, >2. s4
  s1
  \once \override Arpeggio.positions = #'(-3.5 . 0.5)
  < g cis, >2.\arpeggio s4
  s1 s
  \once \override Arpeggio.positions = #'(-4 . 1)
  < e b >1\arpeggio
  s1 * 2
  s1 s
  s
  \once \override Arpeggio.positions = #'(-3.5 . 0.5)
  < cis g' >\arpeggio
  \once \override Arpeggio.positions = #'(-1.5 . 3.2)
  < g' cis >\arpeggio
  s1 * 26
  \stemUp
  \override NoteColumn.ignore-collision = ##t
  %\override Stem.cross-staff = ##t
  %\override Stem.length = #19
  s2 \change Staff="down" \crossStaff < fis, d >2\arpeggio
  \revert Stem.length
  \change Staff="leadsheet"
  \once \override TextScript.extra-offset = #'(-1 . -6)
  cis'1^\markup\openBracket #9.5
  <  g cis >
}

thrdvoice = \relative c
{
  \key d \major
  s1 * 60
  %\set PianoStaff.connectArpeggios = ##t
  \voiceThree
  \nachunten
  %\override Stem.length = #19
  fis1 s \crossStaff  fis2. s4
  \crossStaff fis2. s4 fis2 fis
}

FiFirst = {
  s1 * 4
  s2. s8-2 s-1
  s-2 s s4 s2
  s1 * 48
  s4.-5 s8-3 s-1 s-3 s-2 s-1
  s4-2 s2-4
}

dmol = \relative c { d8 f a d ~ d2 }
bdur = \relative c { b8 d f b ~ b2 }
cdur = \relative c { c8 e g c ~ c2 }
amol = \relative c { a8 c e a ~ a2 }
fdur = \relative c, { f8 a c f ~ f2 }
adur = \relative c { a8 cis e a a, cis e a }

uteili = \relative c, {
  d8 a' d fis a4 d
  d,,8 a' d fis a d fis a
  d,,,8 a' d fis a2
  g,8 d' g h d g d h
  e,, h' e g h e g e
  e,,8 h' e g h d g d
  a,8 e' g cis h, d g d'
  cis,8 g' a e' des,8 f b f'
  d,,8 a' d fis a4 d
  d,,8 a' d fis a d fis a
  d,,,8 a' d fis a2
  e,8 g c e e g c e
  h,,8 fis' h dis fis2
  e,8 h' e4 h'8 g' e4
  a,,8 d fis4 a,8 e' g h
  < a, a, >1^~ a4 2. q1\arpeggio

}


Bass = \relative c, {
  \key d \major
  \clef bass
  \set Voice.beatStructure = #'(2 2)
  d8 a' d fis a d fis4
  d,,8 a' d fis a d fis a
  d,,,8 a' d fis a4 fis'
  g,,8 d' g h d g d h
  e,, h' e g h e g e
  e,,8 h' e g h d g d
  a,8 e' g cis h, d g4
  cis,8 g' a e' des,8 f b f'
  d,,8 a' d fis a d fis4
  d,,8 a' d fis a d fis a
  d,,,8 a' d fis a4 fis'
  e,,8 g c e e g c e
  h,,8 fis' h dis fis h dis4
  e,,8 h' e4 h'8 g' e4
  a,,8 d fis4 a,8 e' g h
  < a, a, >1^~ a4 2. q1\arpeggio
  d,8 a' d fis a d fis a
  e,,8 g c e e g c g
  fis,8 cis' e fis ais cis e4
  g,,8 h e g g h e h
  a,8 e' g a cis4 e
  h,8 d g h d, fis h d
  c, e a4 c,8 g' c e
  < c, c, >1
  c8 e b' c
  \clef treble
  e g b e,
  \clef bass
  c,, a' d f
  \clef treble
  %\change Staff=leadsheet
  %\stemDown
  a c f a
  %\stemNeutral
  %\change Staff=down
  \clef bass
  a,, c f a \clef treble c f a f
  \clef bass \grace { s8 } des,-^ f b f' c,-^ f as c
  b, f' b des as, c f c'
  \clef treble r4 b4 g'2
  %\once \override Arpeggio.positions = #'(1.5 . 4.5)
  \once \override Arpeggio.positions = #'(-4.5 . -1.5)
  < a, e' >1\arpeggio
  R1 \clef bass
  d,,8 a' d fis a d fis4
  d,,8 a' d fis a d fis a
  d,,,8 a' d fis a4 fis'4
  g,,8 d' g h d g d h
  e,, h' e g h e g e
  e,,8 h' d g h d g d
  a,8 e' g cis h, d g4
  cis,8 g' a e' des,8 f b f'
  c, fis a d fis d a4
  h,8 d g d' g d g, d
  a d fis a d a fis4
  g,8 e' g c e, g c e
  fis,,8 dis' fis h fis h dis4
  e,,8 h' e g h g' e4
  a,,,8 a' d4 a8 d g h
  \temporary \override Arpeggio.positions = #'(-5.5 . -1.3)
  < a, a, >1^~\arpeggio q4 a2. q1\arpeggio
  \revert Arpeggio.positions
  r8 a d fis a fis d4
  \grace { s16 s } cis,8 gis' h eis gis h eis gis,
  d, a' d fis a d a fis
  es, b' cis g' b g b, g'
  \repeat unfold 2 { d, a' d fis a fis d a }
  d, a' d fis a \nachoben d fis a d fis a r
  \nachunten
  < h,,, h, >2\arpeggio
  \set PianoStaff.connectArpeggios = ##f
  \once \override PianoStaff.Arpeggio.positions = #'(-6.5 . -0.5)
  %\override PianoStaff.Arpeggio.color = #red
  \voiceTwo
  \once \override Arpeggio.positions = #'(-5.5 . -1.3)
  < ais ais, >1\arpeggio
  < a a, >
  \repeat unfold 2 { d,8 a' d fis a4 r }
  < a, d, >2 q
  q1\arpeggio\fermata
}

FiBass =  {
  s8-5 s s-1 s-3 s-2 s-1 s-2
  s s s s-1 s-3 s s-1 s-3 s-2
  s1
  s8-5 s s s-3 s-2 s-1 s s
  s-5 s-3 s-1 s-3 s-2 s-1 s-2 s-1
  \override Fingering.staff-padding = #'()
  s1
  s8-5 s-2 s-1 s-2 s2
  s8-5 s-3 s-2 s-1 s2
  s1 s s
  s8-5 s s-2 s-1 s-5 s s s
  s-5 s-2 s-1 s-3 s-2 s-1 s4-2
  s s-1 s8-5 s-1 s4
  s2 s8 s-2 s-1 s-2
  s1 * 4
  s4 s8 s-1 s-4 s s4
  s8-5 s-2 s-1 s-4 s-3 s-2 s4-1
  s s8 s-1 s-4 s s4
  s8-5 s-2 s-1 s-4 s4-2 s-1
  s1
  s2 s4-5 s8-1 s-2
  s1
  s8-5 s-4 s-2 s-1 s-3 s-2 s-1 s-2-\parenthesize -3
  s-5 s-2 s-1 s-4 s-3 s-2 s-1 s-2
  s-5 s-4 s-2 s-1 s-4 s-2 s-1 s-2
  s1 * 5
  \temporary \override Fingering.color = #grey
  s8-5 s s-1 s-3 s-2 s-1 s-2
  s s s s-1 s-3 s s-1 s-3 s-2
  s1
  s8-5 s s s-3 s-2 s-1 s s
  s-5 s-3 s-1 s-3 s-2 s-1 s-2 s-1
  s-5 s-3 s-1 s-3 s-2 s-1 s-2 s-1
  s8-5 s-2 s-1 s-2 s2
  s8-5 s-3 s-2 s-1 s2
  s1
  \revert Fingering.color
  s4 s8 s-1 s-2 s-1 s4
  s s8 s-1 s-2 s-1 s s
  s-5 s-3 s-2 s-1 s-5 s s s
  s-5 s-3 s-2 s-1 s2-5
  s4 s8-1 s-3-\parenthesize -4 s-2 s-1 s4-2
  s2 s8-5 s-4-\parenthesize -3 s-2 s-1
  s1 * 4
  s4 s8-1 s-4 s-3 s-2 s-1 s
  s1
  s8 s-3 s-2 s-1 s-2 s-1 s4
  s8 s-2 s-1 s-3 s-2 s-3 s-1 s-2
  s1
  s8-5 s s-1 s-3 s s-1 s-3 s s-1 s-3
}

Dyn = {
  %\override DynamicText.self-alignment-X = #-1
  %\override DynamicText.self-alignment-X = #-8
  %\mark \markup \box "Intro"
  %\set PianoStaff.instrumentName = \markup \bold \fontsize #0 \caps "Piano"
  \override Score.RehearsalMark.outside-staff-priority = ##f
  \override Score.RehearsalMark.padding = #2
  \override Score.RehearsalMark.self-alignment-X = #-1
  %\override Score.RehearsalMark.color = #red
  \mark \markup { \bold "Andante religioso" }

  \override DynamicText.self-alignment-X = #-0.9

  s1\dynamictext \markup { \dynamic "pp" \fontsize #-1 \bold "Trés sostenu." }
  s1 * 4
  \once \override Hairpin.shorten-pair = #'(0 . 2)
  s2\<
  \once \override Hairpin.shorten-pair = #'(0 . 4)
  s\>
  \override Score.RehearsalMark.self-alignment-X = #-0.7
  s1\p s2\<
  \mark \markup \bold "rall."
  s2\sf
  \override Score.RehearsalMark.self-alignment-X = #-0.5
  \mark \markup \bold "a Tempo"
  s1\dynamictext \markup { \dynamic "ppp" \fontsize #-1 \bold "subito." }
  s
  \override Hairpin.to-barline = ##t
  s2
  \once \override Hairpin.shorten-pair = #'(2 . 1)
  \once \override Hairpin.rotation = #'(10 -1 0)
  s\<
  \once \override DynamicText.self-alignment-X = #-1.5
  s1\! \dynamictext "cresc."
  s\f
  \temporary \override Hairpin.rotation = #'(5 0 1)
  \tuplet 3/2 {
    \repeat unfold 2 {
      s4
      \once \override Hairpin.height = #0.5
      \once \override Hairpin.shorten-pair = #'(0 . 0.5)
      s8\> s8\! s4
    }
  }
  \revert Hairpin.rotation
  s1\p |
  \override DynamicText.self-alignment-X = #0
  %\override DynamicText.color = #red
  s2\dynamictext "dol."
  \override DynamicText.self-alignment-X = #-1
  s\dynamictext "cresc."
  s1
  \mark \markup \bold "rall."
  \override DynamicText.self-alignment-X = #0
  s\p
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup \bold "a Tempo"
  s
  s\mf s2.
  \once \override Hairpin.shorten-pair = #'(0 . 2)
  \once \override Hairpin.height = #0.5
  \once \override Hairpin.rotation = #'(10 0 1)
  \override DynamicText.self-alignment-X = #-0.5
  s4\< s1\!\dynamictext \markup { \bold "piú " \dynamic "f" }
  \textLengthOff
  \override Score.RehearsalMark.self-alignment-X = #-0.9
  \override Score.RehearsalMark.padding = #4
  \mark \markup \bold "Poco a poco appassionato"
  s1
  s1\f
  \once \override Hairpin.shorten-pair = #'(0 . 5)
  s2\< s\!
  \mark \markup \bold "calmato"
  s1\p s s
  \override Score.RehearsalMark.self-alignment-X = #-0.8
  s\dynamictext "Cresc."
  \override Score.RehearsalMark.padding = #7
  \mark \markup \bold  { "Poco piú appassionato" }
  s\f
  s\dynamictext "Trés expressif"
  s\sff s2\sf
  \override DynamicText.self-alignment-X = #-0.4
  s\dynamictext \markup \whiteout \italic "Trés expressif"
  \override DynamicText.self-alignment-X = #-0.9
  s1\dynamictext \markup { \dynamic "p" \bold " rall." }
  \override Score.RehearsalMark.self-alignment-X = #0.5
  \override Score.RehearsalMark.padding = #3
  \mark \markup \whiteout \bold {
    "a Tempo"
    \fontsize #-1 \overlay { \number "1" \translate #'(1.2 . 1.0) "o" }
  }
  s\pp
  s1 * 4
  \temporary \override Hairpin.height = #0.5
  \once \override Hairpin.rotation = #'(5 0 1)
  \once \override Hairpin.shorten-pair = #'(0 . 0.5)
  s2\<
  \once \override Hairpin.shorten-pair = #'(0.1 . 1)
  \once \override Hairpin.rotation = #'(-5 0 1)
  s\>
  s1\p
  \once \override Hairpin.shorten-pair = #'(0.2 . 3)
  \override Score.RehearsalMark.self-alignment-X = #-1
  s2\<
  \mark \markup \bold { rall. }
  s\f
  \override Score.RehearsalMark.self-alignment-X = #-0.3
  \mark \markup \bold { a Tempo. }
  s1\pp s
  s2.
  \once \override Hairpin.rotation = #'(15 0 1)
  s4\<
  s1\!\dynamictext "Cresc."
  s\f s s\p
  \override DynamicText.self-alignment-X = #-0.2
  s2.\dynamictext "dol." s4\dynamictext "Cresc."
  s1
  \override Score.RehearsalMark.self-alignment-X = #-0.9
  \mark \markup \bold { rall. }
  s2 s\dynamictext "dim."
  \override Score.RehearsalMark.self-alignment-X = #0
  \mark \markup \bold { a Tempo. }
  s1
  \once \override Hairpin.shorten-pair = #'(6 . -0.1)
  s\< s2\sf s\dynamictext "dim."
  s4\p\<
  \once \override Hairpin.shorten-pair = #'(1 . 2)
  s2 \> s4\!
  s8 s\dynamictext \markup \override #'(baseline-skip . 1)
  \center-column { \italic "dol." \bold \fontsize #-2 { "(sans presser" "le groupe.)" } }
  s4 s2
  s1 s
  \override DynamicText.self-alignment-X = #0
  s2 s\p |
  s\sf\< s\sf
  s2\p s\dynamictext "dim."
  s1
  \override Score.RehearsalMark.self-alignment-X = #-1
  \mark \markup \bold { calmato. }
  s s
  \override DynamicText.self-alignment-X = #-0.4
  s\pp
}

Struktur = {
  \override Score.NonMusicalPaperColumn.page-break-permission = ##f
  \set Score.proportionalNotationDuration = #(ly:make-moment 1/2)
  s1 *3 \break s1 * 19 \pageBreak
  \newSpacingSection
  \set Score.proportionalNotationDuration = #(ly:make-moment 1/2)
  s1 * 22 \pageBreak
  \newSpacingSection
  \set Score.proportionalNotationDuration = #(ly:make-moment 1/8)
}

\bookpart {
  \paper {
    % {
    top-markup-spacing = #'((basic-distance . 5)
                            (minimum-distance . 0)
                            (padding . 5)
                            (stretchability . 30))
    markup-system-spacing  = #top-markup-spacing
    system-system-spacing.minimum-distance = #8
    %}
  }
  \header {
    title = \markup \concat
    {
      #myTitel
    }
    subtitle = ##f
    subsubtitle = ##f
    poet = ##f
    %poet = "Arrangeur: ?"
    composer = \markup \override #'(baseline-skip . 4) \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
      "für Klavier gesetzt"
      "von Manuela" "nach Léon Jean Roques"
    }
  }
  \include "_index.ly"
  \score
  {
    <<
      %\new UpperChords \songchords
      \new PianoStaff
      <<
        \new BarNumberStaff="leadsheet"
        <<
          \override PianoStaff.VerticalAxisGroup.staff-staff-spacing.minimum-distance = #14
          \new Voice="melody" \firstvoice
          \new Voice \secvoice
          \new Voice \thrdvoice
          \new NullVoice \Struktur
          \context Voice \FiFirst
        >>
        \new Dynamics \Dyn
        \new Staff="down"
        <<
          \new Voice \Bass
          \context Voice \FiBass
        >>
      >>
    >>
  }
}