NCIS Theme/pre

\version "2.19.52"
\language "deutsch"

myTitel = "N.C.I.S Theme"

mycomp=\markup \line \fontsize #-1.5 {
  #conlan
}
tema = \relative c' {
  r8\p c ( as' g ~ g2 )
  r8
  c, ( as' g b as g f )
  des4 ( as'2 g8 f
  es4 f b, ) es8 des
}

temao = \relative c'' {
  r8\p c ( as' g ~ g2 )
  r8
  \shape #'((0 . 0) (0 . 3) (0 . 3) (0 . 1)) Slur
  c, ( as' g b as g f )
  \shape #'((0 . 0) (0 . 3) (0 . 3) (0 . 1)) Slur
  des4 ( as'2 g8 f
  es4 f b, ) es8 des
}

RH= \relative c' {
  \time 4/4
  \key as \major
  \set Timing.beamExceptions = #'()
  \set Timing.baseMoment = #(ly:make-moment 1/4)
  \set Timing.beatStructure = #'(2 2 )  %% abhängig vom Takt
  \tempo 4=126
  %\override Staff.RehearsalMark.Y-offset = #13
  %\override Staff.RehearsalMark.outside-staff-priority = #'()
  %\override BalladStaff.RehearsalMark.staff-padding = #5
  %\override Staff.MetronomeMark.outside-staff-priority = #'()
  \mark "Intro"
  %{
  r4 < c~ f as >2\p < c~ f as >4
  q4  < b~ es g >2 < b~ es g >4
  q4 < c~ f as >2\p < c~ f as >4
  q4
  < c' f as~ >2 < c f as~ >4
  q4 < b es g~ >2 < b es g~ >4
  q4 < c f as~ >2\p < c f as~ >4
  q4 r r2
  %}
  < b des f >4.\arpeggio\f
  < b es g >8\arpeggio ~ q2
  < b des f >1\arpeggio
  \mark "Theme"
  \repeat volta 2 {
    \tema
  }
  \alternative {
    \relative c' {
      c1
    } {
      c1 R1
    }
  }
  \shape #'((0 . 2) (0 . 3) (0 . 3) (0 . 1)) Slur
  des4. ( b'8 c2 )
  es,4. b'8 c es f as
  < c, es g >1\arpeggio
  < as c f >\arpeggio\fermata
  \tema
  < c, f as >8. q16 ~ 8
  < b es g > < c f as > r r4
  < c f > < as c > < b d > q8 ( es8 )
  <<
    \magnifyMusic #1.1  {
      \override NoteHead.font-size = #-2
      \override Rest.font-size = #-2
      r4 r8 b'' c2
      r4 r8
      \myOttava #1
      b c es f as
      \ottava #0
    } \\ \magnifyMusic #1.1 \relative c' {
      des1
      es2. f'4
    }
  >>
  < f,, b >8. < f as c>16~ q8 < es g c > < f as c >4 r
  < c f > < as c > < b d > < b d >8 < c es >8
  f, < c' es > as g as as as as
  < c f >8 r < as c > r < b d > r < b d > < c es >
  \tema
  \set Voice.beatStructure = #'(1 1 1 1 )
  < c f as >2
  < b es g>8 ~ q16
  < c f as >16\noBeam ~ q4

  \set Voice.beatStructure = #'(2 2 )
  des8-2 ( f-1 as-2 b-3 c2-4 )
  es,8-2 ( f-1 g-2 b-3 c-1 es-2 f-3 as-4 )
  \once \override Arpeggio.positions = #'(0 . 3.5)
  < c, es g >4.\arpeggio
  \once \override Arpeggio.positions = #'(-0.5 . 3.7)
  <c f as>8~\arpeggio q2
  \repeat unfold 2 \temao

  \once \override Arpeggio.positions = #'(0 . 3.5)
  < c es g >4.\arpeggio
  \once \override Arpeggio.positions = #'(0 . 3.5)
  \shape #'((-0.5 . 1) (0 . 1.5) (0 . 1.5) (0.5 . 1)) Tie
  < c f as~ >8\arpeggio q2
  \once \override Arpeggio.positions = #'(-3 . 1)
  < es, g b >4.\arpeggio
  %\shape #'((-0.5 . -1) (0 . -1.5) (0 . -1.5) (0.5 . -1)) Tie
  \override Arpeggio.positions = #'(-2 . 1)
  < f~ as c >8\arpeggio q2
  < f as c >4.\arpeggio
  \once \override Arpeggio.positions = #'(-3 . 1)
  < es~ g b >8\arpeggio q2
  \once \override Arpeggio.positions = #'(-4 . 0)
  < c f as >2\arpeggio
  \override Arpeggio.positions = #'(-4.5 . -0.5)
  < b es g >\arpeggio
  < as des f >4. b'8 c2
  < g, b es >4.
  \makeOctaves #1 { b8 c es f as }
  \once \override Arpeggio.positions = #'(-1.5 . 2)
  < g c es >4.\arpeggio
  \once \override Arpeggio.positions = #'(-1 . 2.5)
  \shape #'((-0.5 . 1) (0 . 1.5) (0 . 1.5) (0.5 . 1)) Tie
  < as c f ~ >8\arpeggio 2
  \once \override Arpeggio.positions = #'(-1 . 3.3)
  \shape #'((-0.5 . 1) (0 . 1.5) (0 . 1.5) (0.5 . 1)) Tie
  < b es g >4.\arpeggio
  \once \override Arpeggio.positions = #'(-0.5 . 3.7)
  < c f as >8\arpeggio q2
  \revert  NoteHead.color
  \revert  Arpeggio.color
  \once \override Arpeggio.positions = #'(-0.5 . 3.7)
  < c f as>2\arpeggio
  \once \override Arpeggio.positions = #'(1 . 5)
  < f as c >\arpeggio ~ q1
  \set Score.connectArpeggios = ##t
  \once \override Arpeggio.positions = #'(1 . 7)
  < f as c f >\arpeggio\fermata
}

LH = \relative c, {
  \clef bass
  \key as \major
  \set fingeringOrientations = #'(left) %% für Akkorde!
  \mergeDifferentlyHeadedOn
  \mergeDifferentlyDottedOn
  \override Fingering.direction = #DOWN
  \override Fingering.padding = #0.2
  %\override Fingering.staff-padding = #'()
  \override Fingering.avoid-slur = #'inside
  %\override Slur.direction = #UP
  %{
  < f c' f >2\p~ q q q q q
  q q q q q q q r
  %}
  < f as c f >1\arpeggio\p
  q\arpeggio
  f8\p c' f c f, c' f c
  f,8 c' f c f, c' f c
  as des f des as des es f
  es, b' es b es, g b es
  f,8 c' f c f, c' f c
  f,-5 c'-2 f-1 g-3 as-2 g-3 f-1 c-2
  f, c' f c f,4 es
  des8 b' des b des,8 b' des b
  es, b' es b es, g b es
  f,8-5 c'-2 f-1 g-4 as-3 b-2 c-1 es-2 f1-1\fermata
  \repeat unfold 8 { f,,8 f' }
  \repeat unfold 4 { des, des' }
  \repeat unfold 4 { es, es' }
  \repeat unfold 8 { f,8 f' }
  \repeat unfold 4 { des, des' }
  \repeat unfold 4 { es, es' }
  \repeat unfold 16 { f,8 f' }
  \repeat unfold 4 {  f,8 c' f c }
  des, as' des as des, as' des as
  %des, des' as des des, des' as des
  es b' es b es, g b es
  f, c' f c f, b f' b,
  des,8-5 as'-2 des-1 es-3 f-2 es-3 des as
  es-5 b'-2 es-1 f-3 g-2 f-3 es b
  \repeat unfold 6 { f c' f c }
  as des f des as des es f
  es, b' es b es, g b es
  \repeat unfold 8 { f,8 f' }
  \repeat unfold 4 { des, des' }
  \repeat unfold 4 { es, es' }
  f, c' f c f, c' f c
  f, c' f c f, c' f c
  f, c' f c f, c' f c
  f,8 c' < f as >4
  es,8 b' < es g >4
  des,8 b' des b des,8 b' des b
  es, b' es b es, g b es
  \repeat unfold 6 {  f, c' f c }
  f,8-5 c'-2 f-1 g-4 as-3 b-2 c-1 es-2
  < f, c' f >1\arpeggio\fermata
}


Struktur =
{
  \override Score.NonMusicalPaperColumn.page-break-permission = ##f
  \override Score.NonMusicalPaperColumn.line-break-permission = ##f
  \override Score.StaffGrouper.staff-staff-spacing.minimum-distance = #11
  <<
    { s1 * 25 \pageBreak } \\
    {
      s1*6 \break
      s1*5 \break
      s1*5 \break
      s1*4 \break
      s1*9 \break
      s1*4 \break
      s1*4 \break
      s1*4 \break
      s1*5 \break
    }
  >>
}

Akk=
\chordmode {
  f1:m f:m
  f:m f:m des es
  f:m f:m f:m
  des es f:m f:m
  f:m f:m des es
  f4:m s8 es/f f2:m
  f:m b/f des1 es
  f4:sus4 f8:m c:m/f f2:m
  f2:m b
  f:m s f:m b/f
  f1:m f:m des es f2:m es4 f:m
  des1
  es
  f:m f:m f:m des es
  f:m f:m des es
  f:m f:m f:m f:m
  des es f:m f:m f:m f:m
}

\bookpart {
  \header {
    title = \myTitel
    subtitle = ##f
    subsubtitle = ##f
    poet = ##f
    composer = "Joseph Conlan"
    piece = ##f
    opus = ##f
  }
  \include "_index.ly"
  \paper {
    ragged-bottom = ##f
    ragged-last-bottom = ##f
    bottom-margin = #20
  }
  \score
  {
    <<
      \new ChordNames \Akk
      \new PianoStaff="leadsheet"
      <<
        \new BarNumberStaff="up"
        <<
          \new Voice \RH
        >>
        \new Staff="Bass"
        <<
          \new Voice \LH
          \new NullVoice \Struktur
        >>
      >>
    >>
  }
}