Libertango/score

Zur Navigation springen Zur Suche springen

Lilypond Score

\language "deutsch"
myTitel = "Libertango"
%mycomp=\markup \fontsize #-2 { " (Albert Parlow, 1824-1888)" }
mycomp=\markup \line \fontsize #-1.5 {
  Astor Piazzolla
}

Akk = \chordmode {
  s1 * 8
}

%% diese Stimme gibt den Rhythmus der Noten an

chordnotes = \chordmode {
  \repeat unfold 40 { a4. 8 ~ 4 4 }
  g4. 8 ~ 4 4 4. 8 ~ 4 4
  fis4. 8 ~ 4 4 4. 8 ~ 4 4
  \repeat unfold 2 { f4. 8 ~ 4 4 }
  \Rt
  \repeat unfold 2 { e4. 8 ~ 4 4 } \revRt
  \repeat unfold 8 { a4. 8 ~ 4 4 }
  g4. 8 ~ 4 4 4. 8 ~ 4 4
  fis4. 8 ~ 4 4 4. 8 ~ 4 4
  f4. 8 ~ 4 4 4. 8 ~ 4 4
  \Rt
  \repeat unfold 2 { e4. 8 ~ 4 4 } \revRt
  b4. 8 ~ 4 4
  \Rt a4. 8 ~ 4 4 d4. 8 ~ 4 4 4. 8 ~ 4 4
  \revRt
  as4. 8 ~ 4 4
  \Rt g4. 8 ~ 4 4 \revRt
  c4. c8 ~ 4 4
  \Rt e4. 8 ~ 4 4 \revRt
  \repeat unfold 24 { a4. 8 ~ 4 4 }
  \repeat unfold 6 { c4. 8 ~ 4 4 } |
  c4 g8 c r g \noBeam c r |
  g c r g \noBeam c r g r |
  c4 g8 c r g \noBeam c r |
  g c r g \noBeam c r g r
  r1
}

cAkk = \chordmode {
  s1 * 24
  \repeat unfold 2 {
    a4.:m9 q8 ~ q4 q
    q4. q8 ~ q4 q
    h4.:m q8 ~ q4 q
    q4. q8 ~ q4 q
    d4.:m9 q8 ~ q4 q
    q4. q8 ~ q4 q
    a4.:m9 q8 ~ q4 q
    q4. q8 ~ q4 q
  }
  a4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
  c4.:dim q8 ~ q4 q q4. q8 ~ q4 q
  \repeat unfold 4 { f4.:dim q8 ~ q4 q }
  a4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
  h4.:m q8 ~ q4 q q4. q8 ~ q4 q
  d4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
  \repeat unfold 4 { a4.:m9 q8 ~ q4 q }
  c4.:dim q8 ~ q4 q q4. q8 ~ q4 q
  \repeat unfold 4 { f4.:dim q8 ~ q4 q }
  g4.:m9 q8 ~ q4 q
  b4.:dim q8 ~ q4 q
  f4.:m q8 ~ q4 q q4. q8 ~ q4 q
  f4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
  c4.:m9 q8 ~ q4 q f4.:dim q8 ~ q4 q
  a4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
  b4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
  d4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
  \repeat unfold 4 { a4.:m9 q8 ~ q4 q }
  h4.:m q8 ~ q4 q q4. q8 ~ q4 q
  d4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
  \repeat unfold 4 { a4.:m9 q8 ~ q4 q }
  h4.:m q8 ~ q4 q q4. q8 ~ q4 q
  d4.:m q8 ~ q4 q q4. q8 ~ q4 q
  a4.:m q8 ~ q4 q q4. q8 ~ q4 q
  c4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
  d4.:m q8 ~ q4 q q4. q8 ~ q4 q
  f4.:m9 q8 ~ q4 q q4. q8 ~ q4 q
}

%% traditionelle Akkordnotation

OAkk = \chordmode {
  s4
}

melody= \relative c'' {
  \key c \major
  \time 4/4
  \mark \markup \discant #"101"
  \tempo "Allegro" 2=90
  %\set Voice.baseMoment = #(ly:make-moment 1/4)
  \set Timing.beatStructure = #'(2 2 )
  <a h c e >1 ~ q
  < a cis d fis > ~ q
  < a c d f > ~ q
  <a h c e >1 ~ q \bar "||"
  \repeat unfold 16 <a h c e >8
  \repeat unfold 16 < a cis d fis >
  \repeat unfold 16 < a c d f >
  \repeat unfold 16 <a h c e > \bar "||"
  r e-> ( f ) e-> ( f e ) c'-> ( a )
  r e ( f ) e ( c' a ) e ( f )
  r dis ( e ) dis ( e dis ) h' ( fis )
  r dis ( e ) dis ( h' fis ) dis ( e )
  r d ( e ) d ( e d ) h' ( f )
  r d ( e ) d ( h' f ) d ( e )
  r c ( d ) c ( d c ) a' ( e )
  r c ( d ) c ( a' e ) c ( d ) \bar "||" \pageBreak
  r e' ( f ) e ( f e ) c' ( a )
  r e ( f ) e ( c' a ) e ( f )
  r dis ( e ) dis ( e dis ) h' ( fis )
  r dis ( e ) dis ( h' fis ) dis ( e )
  r d ( e ) d ( e d ) h' ( f )
  r d ( e ) d ( h' f ) d ( e )
  r c ( d ) c ( d c ) a' ( e )
  r c ( d ) c ( a' e ) r4 \bar "||"
  \mark \markup \fontsize#-1 {
    \center-column {
      \line {
        \center-column {
          \line { 8 \hspace #-0.5 \super va }
          \vspace #0.3 \discant #"101"
        } \hspace #1
        \center-column {
          loco
          \vspace #0.3 \discant #"110"
        }
      } \vspace #0.3 "ossia"
    }
  }
  e1 ( ~ 2 d8 c h a h1 ~ h )
  d1 ~ ( 2 c8 h a gis a1 ~ a2 )
  r8 e ( a h
  \mark "Seite 6"
  \voiceOne
  c1 ~ 2 ) c8 ( h c a h1 ~ h
  h ~ h2 ~ 8 c h a
  h1 ~ h ) \bar "||" \pageBreak
  \oneVoice
  < a c e >1 ~ ( q2 d8 c h a
  < h fis dis >1 ~ q )
  < f a d > ~ q2 c'8 h a gis
  < a e c >1 ~ 2 r8 e ( a h
  \voiceOne
  c1 ~ 2 ) c8 ( h c a
  h1 ~ h )
  h1 ~ ( h2 ~ 8 c h a h1 ~ h )
  \bar "||"
  \oneVoice
  \mark "Seite 7"
  g'2. ~ 8 b,16 ( gis )
  a8 ( cis-. ) e-. g-. f16 ( e d8 ~ d[ ) e]
  \voiceOne
  f1 ~ 2 ~ 4 r8 e-.
  \oneVoice
  f16 e f8 ~-> 2 r8 fis,16 ( g )
  as8 ( g-. ) fis-. g-. g'16 ( f e8-> ~ e[ ) d]-.
  < e c g >1 < e h gis f >
  e,8-> ( a ) h-. e,-> ( a ) c e,-> ( a )
  d-. e,-> ( a ) e'-. d16 ( c h8-> ~ h[ ) a]-.
  h1
  r8 dis, ( e ) dis ( h' fis ) dis ( e )
  d ( f ) a-. d, ( f ) h-. d, ( f )
  c'-. d, ( f ) d' c16 ( h a8-> ~ a[ ) gis]-.
  a1^~ a
  \bar "||"
  r8 e-> ( f ) e-> ( f e ) c'->( a )
  r8 e-> ( f ) e->( c' a ) e->( f )
  \mark "Seite 8"
  r8 dis-> ( e ) dis-> ( e dis ) h'-> ( fis )
  r8 dis-> ( e ) dis-> ( h' fis ) dis-> ( e )
  r8 d-> ( e ) d-> ( e d ) h'-> ( f )
  r8 d-> ( e ) d-> ( h' f ) d-> ( e )
  r8 c-> ( d ) c-> ( d c ) a'-> ( e )
  r c-> ( d ) c-> ( a' e ) c-> ( d )
  \repeat volta 2 {
    < a' h c e >4-. r8 q-^ r2
    r8 q[ r q] r q[ r q]
    < a c dis fis >4-. r8 q-^ r2
    r8 q[ r q] r q[ r q]
    < a h d f >4-. r8 q-^ r2
    r8 q[ r q] r q[ r q]
    < a h c f >4-. r8 q-^ r2
    r8 q[ r q] r q[ r q]
  }
  \key es \major
  \repeat volta 2 {
    < c g es >4-. r8 < c d es g >-^ r4 c8-. d-.
    es16 ( d ) c8-> ~ c[ q]-^ r2
    < c a fis es >4-. r8 < a c es fis>-^ r4 c8-. d-.
    es16 ( d ) c8-> ~ c[ q]-^ r2
    < c as f d >4-. r8 < as c d f >-^ r4 h8-. c-.
    d16 ( c ) h8[-> ~ h] < as c d f >-^ r2
  }
  \alternative {
    {
      c4-^ g'8-^ c,-^ r g'-^ \noBeam c,-^ r
      g'-^ c,-^ r g'-^ c,-^ r g'-^ r
    }  {
      c,4-^ g'8-^ c,-^ r g'-^ \noBeam  c,-^ r
      g'-^ c,-^ r g'-^ c,-^ r g'-^ c-^
      r1
    }
  }
  \bar "|."
}

secondv = \relative c' {
  s1 * 40
  \voiceTwo
  e1 ~ 2 r2
  es1 ~ 1
  d4 ( e f2 ~ f ) r2
  e1 ~ e
  s1 * 8
  e1 ~ 2 r
  es1 ~ 1
  d4 ( e f2 ~ 2 ) r
  e1 ~ e
  s1 s
  a4. ( b8~ 4 h c4. b8 ~ b4) r
  s1 * 6 r8 dis, ( e ) dis ( e dis ) h' ( fis )
  s1 * 3
  r8 c ( d ) c ( d c ) a' ( e )
  r c ( d ) c ( a ' e ) c ( d )

}

myFinger = {
  s4
}

summe= {
  %\set Voice.baseMoment = #(ly:make-moment 1/4)
  %\set Voice.beatStructure = #'(2 2)
  %\extractNote #1 \chordnotes
  \firstNote \chordnotes
}

Struktur = {
  %\override Score.NonMusicalPaperColumn.page-break-permission = ##f
  %\override Score.SpacingSpanner.common-shortest-duration = #(ly:make-moment 1/8)
  %\override NonMusicalPaperColumn.line-break-permission = ##f
  s4
}

Dyn = {
  \override Hairpin.to-barline = ##t
  s1\p\< s s s s\mp\> s s s s\p\<
  s s s2 s4. s8\mf
  s1\> s s s s\mp
  \override DynamicText.self-alignment-X = #-1
  \override TextSpanner.dash-period = #1
  \override TextSpanner.dash-fraction = #0.1
  %s4. s\ritardando\startTextSpan
  %s2. s2.\stopTextSpan
  %s2.\dynamictext \markup \right-column \fontsize #2 {
  %  \italic \caps "D.C. al Fine"
  %  \fontsize #-2 \italic "senza replica"
  % }
}

%% für den Fall, dass im Bassbereich Artikulationszeichen benötigt werden
Punkte = \relative c'' {
  %\override Script.direction = #UP
  \override Script.direction = #DOWN
  \override Script.outside-staff-priority = ##f
  \override Script.staff-padding = #4
  \override Script.color = #red % zum Testen
  s4
}

\bookpart {

  \header {
    title = \markup \line
    {
      \fontsize #-3
      \number \score-sequence #sequence-number
      #myTitel
    }
    subtitle = ##f
    subsubtitle = ##f
    poet = ##f
    composer = "Musik: Astor Piazzolla"
    piece = ##f
    opus = ##f
  }
  \tocItem \markup
  \concat { \score-sequence #sequence-number #myTitel #mycomp }
  \indexItem #myTitel \markup
  \concat { #myTitel #mycomp }

  \score {
    \new GrandStaff
    <<
      \new UpperChords {
        \override Rest.stencil = ##f
        \OAkk
      }
      \new Staff=melodie
      <<
        \new Voice=melody \melody
        \new Voice \secondv
      >>
      \new ChordNames=oben
      <<
        {
          \override Rest.stencil = ##f
          \chordnotes
        }
        \new MyFingers \myFinger
      >>
      \new SecondChords \chordmode {
        \cAkk
      }
      \new Dynamics \Dyn
      \new SecondChords
      <<
        \Akk
        %\new MyFingers \myFinger
      >>
      \new RhythmicStaff
      <<
        \new NullVoice \Struktur
        \new Voice {
          \stemDown
          \override Rest.staff-position = #0
          \override Dots.staff-position = #0
          \override Beam.staff-position = #0
          \override NoteHead.staff-position = #0
          \summe
        }
        \new Voice \Punkte
      >>
    >>
  }
}