\version "2.19.35"

\header {
  title = "Bad Eye Bill"
  subtitle = "Dr. Hook"
  composer = "C.Buschmann"
  tagline = ""  % removed
}

% Macro to print single slash
rs = {
  \once \override Rest #'stencil = #ly:percent-repeat-item-interface::beat-slash
  \once \override Rest #'thickness = #0.48
  \once \override Rest #'slope = #1.7
  r4
}

% Function to print a specified number of slashes
comp = #(define-music-function (parser location count) ( integer?)
  #{
    \override Rest #'stencil = #ly:percent-repeat-item-interface::beat-slash
    \override Rest #'thickness = #0.48
    \override Rest #'slope = #1.7
    \repeat unfold $count { r4 }
    \revert Rest #'stencil
  #}
)


global = {
  \numericTimeSignature
  \time 4/4
  \key a \major
  %\tempo 4=100
}

chordNames = \chordmode {
  \global
  a1
  d2 a
  d a
  b e
  a1
  d2 a
  d a4 fis:m
  b e a2
  
  a1
  d2 a
  d a
  b e:7
  a1
  d2 a
  d a4 fis:m
  b e a2
  
  a1
  d2 a
  d a
  b e:7
  a1
  d2 a
  d a4 fis:m
  b e a1
  
  a1
  d2 a
  d a4 fis:m
  b e a2
  
  a1
  d2 a
  d a
  b e
  a1
  d2 a
  d a4 fis:m
  b e a2
  
  a1
  d2 a
  d a
  b e:7
  a1
  d2 a
  d a4 fis:m
  b e a2
  
  b4 e
  
  a
  
}


upper = \relative c' {
  \global
  \clef treble
  \set Score.markFormatter = #format-mark-box-alphabet
  \mark \markup { \box \bold \fontsize #2 "Intro" \italic \normalsize stildefinisjon } 
  \override Stem.stemlet-length = 2
  r8[ < e a cis >8] r[ < e a cis >] r[ < e a cis >] r[ < e a cis >] |
  r[ < fis a d >] r[ < fis a d >] r[ < e a cis >] r[ < e a cis >] |
  r[ < fis a d >] r < fis a d >] r[ < e a cis >] r[ < e a cis >] |
  r[ < fis b dis >]  r[ < fis b dis >] r[ < gis b e >] r[ < gis b e >] | 
  \break
  r[ < e a cis >] r[ < e a cis >]  r[ < e a cis >] r[ < e a cis >] |
  r[ < fis a d >] r[ < fis a d >] r[ < e a cis >] r[ < e a cis >] |
  r[ < fis a d >] r[ < fis a d >] r[ < e a cis >] r[ < e a cis >] |
  r[ < fis b dis >] r[ < gis b e >]  < a cis e >4 r \bar "||"
  
  \break
  
  \mark \default \comp4 |
  \comp4 |
  \comp4 |
  \comp4 |
  \break
  \comp4 |
  \comp4 |
  \comp4 |
  \rs \rs \rs r4 | \bar "||"
  \break
  \mark \default \comp4 |
  \comp4 |
  \comp4 |
  \comp4 |
  \break
  \comp4 |
  \comp4 |
  \comp4 |
  \time 2/4
  \rs \rs 
  \time 4/4
  \rs r4 r2 | \bar "||"
  \break
  \mark \default \comp4 |
  \comp4 |
  \comp4 |
  \rs \rs \rs r4 | \bar "||"
  \break
  \mark \default \comp4 |
  \comp4 |
  \comp4 |
  \comp4 |
  \break
  \comp4 |
  \comp4 |
  \comp4 |
  \rs \rs \rs r4 | \bar ".|:-||"
  \break
  \repeat volta 2 { 
  \mark \default \comp4 |
  \comp4 |
  \comp4 |
  \comp4 |
  \break
  \comp4 |
  \comp4 |
  \comp4 }
  \alternative{
    { \comp4 }
    { \time 2/4 \rs \rs |  \time 4/4 < a cis a' >-. < b d a' >-. < bis dis a' >8.-. < cis e a >16~ < cis e a >8 < a a' > | }
  }
  \bar "|." 

}

lower = \relative c {
  \global
 \clef bass
  \magnifyStaff #5/7
a4 e' a,8. a16 b8 cis |
d4 a' a,8. a16 a8 ais |
d4 a' a,8. a16 a8 ais |
b4 cis8 d e e fis gis |
a4 e a, e' |
d fis a,8. a16 b8 cis |
d4 a' a,8. a16 fis'8 \override NoteHead.style = #'cross fis' |
\revert NoteHead.style b, fis e b' a4 r | 

}


\layout {
    
  \context {
    \ChordNames
    \override ChordName.font-family = #'roman
    \override ChordName.font-size = #0
  }
  
}

\score {
  <<
    \new ChordNames \chordNames <<
    >>
    \new PianoStaff <<
    \new Staff = "upper" \upper
    \new Staff = "lower" \lower 
    >>
  >>
  }