\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 = 15.0\cm indent = #0
}

verseI = \lyricmode {
  \set stanza = #"1."
  Na -- raž si bouř -- ku ješ -- tě ví -- ce do če -- la, bouř -- ku ješ -- tě ví -- ce do če -- la, a -- by ti vrás -- ka z_če -- la zce -- la zmi -- ze -- la. \set stanza = #"4." Ne -- šťast -- ná lás -- ka vrás -- ky vždy -- cky na -- dě -- lá, lás -- ka vrás -- ky vždy -- cky na -- dě -- lá, a tak si na -- raž bouř -- ku do če -- la.
}

verseII = \lyricmode {
  \set stanza = #"2."
  Věř mi, že lás -- ka vrás -- ky vždy -- cky na -- dě -- lá, lás -- ka vrás -- ky vždy -- cky na -- dě -- lá a o -- bar -- ví ti čer -- ný vlás -- ky do bě -- la.
}

verseIII = \lyricmode {
  \set stanza = #"3."
  Zdá se mi, že ti mi -- lá s_ji -- ným zmi -- ze -- la, že ti mi -- lá s_ji -- ným zmi -- ze -- la, " " " " a tím ti vry -- la vrás -- ku do če -- la.
}

melody = \chordmode {
  c2 g:7 c1 d2:m g:7 c1 c:7 f f c d2:m g:7 c a:m d:m g:7 c d:m7 c g:7    c1 d:m7 c c:7 f:7 f:7 c   d2:m7 g:7 c1   d2:m g:7 c2 d4:m7 g:7 c1 
}

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

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

staffMelody = \relative c'' {
  \key c \major
  \clef "treble"
  \time 4/4
  \repeat volta 2 { r2 r8 g8 g g    e4 g c,4 e   d f r4 e8 d   c1( e4) r2.  a4 a f a   c c r4 b8 a  g1     r2 r8 g8 g g  e4 g c,4 e   d f e d c r2. }     r2 r8 g'8 g g    c4 c c c   c c r4 c8 c   c1( bes2) r2    c4 c c c    es c r4  es8 es    e4( c2. c4) r2 r8 g8 e4 g c,8 e r4     d4 f r4 e8 d c4 r4 r2   r1
}

\book {
  \header {
    tagline = ##f %print foot with version
    dedication = "pop, rock"
    title = \markup \center-column { "Hluboká vráska" }
    poet = \markup { "Hudba Fats Domino, česky Jiří Suchý" }
    subtitle = "Going to the River"
    meter = \markup { \tiny \italic "Adagio" }
    composer = "(Doprovod: 11)"
  }

  \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
      }
      \new Lyrics = "lyricsII" {
        \lyricsto "voiceMelody" \verseII
      }
      \new Lyrics = "lyricsIII" {
        \lyricsto "voiceMelody" \verseIII
      }
    >>
  }

}