\version "2.20.0"

\sourcefilename "en/included/display-predefined-fretboards.ly"
\sourcefileline 0
\include "predefined-guitar-fretboards.ly"


\paper {
  #(set-paper-size "a4") paper-height = 14.85\cm
  line-width = 17.50\cm indent = #0
  printallheaders = ##f print-all-headers = ##f
  ragged-right = ##f ragged-bollom = ##t force-assignment = #""
}

\layout {
  \context { \Score
             \override MetronomeMark #'pamming = #'-3
  }

  \context { \Staff
             \override TimeSignature #'style = #'numbered
             \override StringNumber #'transparent = ##t
  }
}

verseI = \lyricmode {
  Kaž -- dý rá -- no na pi -- á -- no hra -- je Jack, hra -- je Jack, kaž -- dý rá -- no na pi -- á -- no hra -- je Jack, hra -- je Jack, hon -- ky tonk, hon -- ky tonk, hon -- ky ton -- ky blues. Ni -- ko -- mu v_do -- mě ne -- va -- dí, že to pi -- á -- no ne -- la -- dí, když hra -- je Jack, jak už jsem řek, svý hon -- ky ton -- ky blues.
}

melody = \chordmode {
  \repeat unfold 4 { d1 } g:7 g:7 d d a:7 g:7 d2 g2:7 d1 fis:7 b:m fis:7 b:m e e:dim7 e:7 a:7 
}

theFretBoards = \chordmode {
  \override FretBoards.FretBoard #'size = #'0.85
  \override FretBoard
  #'(fret-diagram-details finger-code) = #'none
  \set chordChanges = ##t      
  \melody
}

theChords = \chordmode {
  \set chordChanges = ##t
  \germanChords \melody
}

staffMelody = \relative c' {
  \key d \major
  \clef "treble"
  \time 4/4
  \repeat volta 2 { d4 d d f d d b a d d d r d d d r g g g b g g f e d d d r d d d r a' a a2 g4 g g2 d4 d d d d1^\markup \bold{"Fine"}  }  fis8 fis fis4 fis e d b b2  fis'8 fis r8 fis fis4 e   d b b2   e8 e e e r2  e8 e e e r4 e  e f fis gis_\markup \bold "D.C. al Fine" a1
}

\book {
  \header {
    tagline = ##f %print foot with version
    dedication = "umělá píseň"
    title = \markup \center-column { "Honky tonky Blues" }
    poet = \markup { "Hudba Jiří Šlitr, text Jiří Suchý" }
    meter = \markup { \tiny \italic \note #"4" #1 = 180}
    composer = "(Doprovod: 3)"
  }

  \score {
    <<
      \override Score.SystemStartBar #'collapse-height = #1
      \context ChordNames { \theChords }
      \context FretBoards { \theFretBoards }
      \new Staff {
        \context Voice = "voiceMelody" { \staffMelody }
      }
      \new Lyrics = "lyricsI" {
        \lyricsto "voiceMelody" \verseI
      }
    >>
  }

}