\version "2.12.1"
date = #(strftime "%d %B %Y" (localtime (current-time)))

\header {
  title = "Hymn to Freedom"
  composer = "Oscar Peterson"
  source = ""
  style = ""
  copyright = \date
  lastupdated = ""
  tagline = ""
}

% music pieces

thechords = {
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \set Staff.instrumentName = "Chords "
  \transpose c bes {
    \chordmode {
      \mark \default
      c2 e4 e8:7 a:m ~ |
      a2:m c:7 |
      f2 fis:dim |
      c2 c:7 |
      f2 fis:dim |
      c8 e4.:7 a4:m a:m7 |
      d:7 e:m7 f:dim d:7 |
      g4 g:7 c g:7 |
      c2 e4 e8:7 a:m |
      a2:m c:7 |
      f2 fis4.:dim c8 |
      c2 c:7 |
      f2 fis:dim |
      c8 e4.:7 a4:m a:m7 |
      d4:m e:m d8:m7 g4.:7 |
      c1 |

      \mark \default
      g1 |
      g2. g4:7 |
      c2 e4 e:7 |
      a2:m c:7 |
      f2 fis:dim |
      c8 e4.:7 a4:m a:m7 |
      d4:7 e:m7 f:dim d:7 |
      g4 g:7 c g:7 |
      c2 e:7 |
      a2:m c:7 |
      f2 fis4.:dim c8 ~ |
      c2 c:7 |
      f2 fis:dim |
      c8 e4.:7 a4:m a:m7 |
      d4:m e:m d8:m7 g4.:7 |
      c1 |
    }
  }
}

thewords = \lyricmode {
  When ev -- 'ry heart _ joins ev -- 'ry heart and to -- _ gether yearns_for lib -- er -- ty, that's when we'll be free.
  When ev -- 'ry hand _ _ joins ev -- 'ry hand _ and to -- gether moulds our des -- ti -- ny, that's when we'll be free.
  An -- y hour, an -- y day, the time _ soon will come _ when we_will live in dig -- ni -- ty, that's when we'll be free.
  When ev -- 'ry one _ _ joins in our song, and to -- _ geth -- er sing in har -- mo -- my, that's when we'll be free.
}

%part: melody
melody = {
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \set Staff.instrumentName = "Melody "
  \key bes \major
  \relative c'' {
    \mark \default
    d2 d4 c8 bes ~ |
    bes2. bes4 |
    bes'2-> a4 g8 f ~ |
    f2 bes,4 bes8. bes16 |
    bes'2-> a4.( g8) |
    f8 d4. bes2 |
    c4 c c c |
    f,2. r4 |
    d'2 d4 c8 bes ~ |
    bes2. bes8. bes16 |
    bes'4.-> bes8 a4 g8 f ~ |
    f2 bes,4. bes8 |
    bes'2-> a4. g8 |
    f8 d4. bes2 |
    ees4 d bes8 c4. |
    bes2. c8. d16 |
    \bar "||"

    \mark \default
    c2-> r4 c8. d16 |
    c2.-> f4 |
    d4. d8 d4 c8 bes ~ |
    bes2 bes4 bes |
    bes'2-> a4. g8 |
    f8 d4. bes2 |
    c4 c c c |
    f,2. r4 |
    d'2-> d4 c8 bes ~ |
    bes2 r4 bes8 bes |
    bes'2-> a4 g8 f ~ |
    f2 bes,4 bes8. bes16 |
    bes'4. bes8 a4. g8 |
    f8 d4. bes2 |
    ees4 d bes8 c4. |
    bes1 | \bar "|."

  }
}

%part: harmony
harmony = {
  \set Staff.instrumentName = "Harmony "
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \relative c' {
    \key bes \major
    \mark \default
    <d bes'>2 <d a'>4. <d g>8 ~ |
    <d g>2( <d f>) |
    <bes' ees>2-> <bes des>4. <bes d>8 ~ |
    <bes d>2 <d, f> |
    <des' g>2-> <bes des> |
    <f d'>8 <d a'>4. <d g>2 |
    e4( f g8. f16 e4) |
    a4( bes c) \times 2/3 { <c ees f>8 <c ees f> <c ees f> } |
    r8 <bes f'>4.-> <d a'>4. <d g>8 ~ |
    <d g>2( <d f>) |
    <bes ees>2-> <bes cis>4. <bes d>8 ~ |
    <bes d>2 <d f> |
    <des g>2-> <bes des> |
    <f' d>8 <d a'>4. <d g>2 |
    <g bes>4 <f a> <c g'>8 <ees a>4. |
    ees8( d16 ees d8. c16 d4) <c a'>8. <d bes'>16 |
    \bar "||"

    \mark \default
    <c a'>2-> r8. c16 <c a'>8. <d bes'>16 |
    <c a'>2.-> \times 2/3 { <c ees f>8 <c ees f> <c ees f> } |
    <d f>2 <d a'>4. <d g>8 ~ |
    <d g>2 <d f> |
    <bes ees>2-> <bes des> |
    <f d'>8 <d a'>4. <d g>2 |
    e4( f g8. f16 e4) |
    a4( bes c) \times 2/3 { <c ees f>8 <c ees f> <c ees f> } |
    <d bes'>2-> <d a'>4. <d g>8 ~ |
    <d g>2( <d f>) |
    r8 <des g>4. <bes des>4. <bes d>8 ~ |
    <bes d>2 <d f> |
    <des g>2 <bes des> |
    bes8 a4. g2 |
    <g bes>4 <f a> <c' g>8 <ees a>4. |
    ees8( d16 ees d8. c16 d2) |
    \bar "|."

  }
}

%part: tenor
tenor = {
  \set Staff.instrumentName = "Tenor "
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \key bes \major
  \relative c' {
    \mark \default
    f2 fis4. g8 ~ |
    g2( aes) |
    g2 bes4. bes8 ~ |
    bes2 aes |
    r8 ees4.-> e2 |
    f8 fis4. g2 |
    c2.( bes4) |
    ees,2. a4-> |
    bes8 bes4.-> fis4. g8 ~ |
    g2( aes) |
    g2 bes4. bes8 ~ |
    bes2 aes |
    r8 ees4.-> e2 |
    f8 fis4. g2 |
    c,4 d ees8 f4. |
    g8( f16 g f8. ees16 f4) r |
    \bar "||"

    \mark \default
    r4 c8.( d16 c4) r |
    r4 \times 2/3 { f8( d des } c4) a' |
    bes2 fis4. g8 ~ |
    g2 aes |
    g2 bes |
    bes8 c4. bes2 |
    c2.( bes4) |
    ees,2. a4 |
    f2-> fis4. g8 ~ |
    g2( aes) |
    r8 ees4.-> e4. f8 ~ |
    f2 aes |
    g2 des' |
    d8 d4. d2 |
    c,4 d ees8 f4. |
    g8( f16 g f8. ees16 f2) |

  }
}

%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  \tempo 4 = 90
  \override Staff.TimeSignature   #'style = #'numbered
  \time 4/4
  \key bes \major
  \relative c {
    \mark \default
    bes2 a4. g8 ~ |
    g2( bes) |
    ees2 e4. f8 ~ |
    f2 bes, |
    r8 ees,4.-> e2 |
    f8 fis4. g2 |
    c4( d e8. d16 c4) |
    f,4( g a) a-> |
    bes8 bes4.-> a4. g8~ |
    g2( bes) |
    ees2 e4. f8 ~ |
    f2 bes, |
    r8 ees,4.-> e2 |
    f8 fis4. g2 |
    c4 d ees8 f4. |
    bes,2. r4 |

    \mark \default
    f2. r4 |
    f2. a4 |
    bes2 fis4. g8 ~ |
    g2 bes |
    ees2 e |
    f8 fis4. g2 |
    c,4( d e8. d16 c4) |
    f,4( g a) a |
    bes2-> a4.-> g8 ~ |
    g2( bes2) |
    r8 ees4.-> e4. f8 ~ |
    f2 bes, |
    ees2 e |
    f8 fis4. g2 |
    c,4 d ees8 f4. |
    bes,1 |
    \bar "|."

  }
}

%layout

\book {
  \score {
    <<
      \unfoldRepeats \new Staff \melody
      \unfoldRepeats \new Staff \harmony
      \unfoldRepeats \new Staff \tenor
      \unfoldRepeats \new Staff \bass
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "C")
\book {
  \paper { }
  \header { poet = "C / Do" }
  \score {
    <<
      \new ChordNames {
        %\set chordChanges = ##t
        \thechords
      }
      \new Staff \melody
      %\new Voice = "melody" { \melody }
      %\new Lyrics \lyricsto "melody" { \thewords }
      \new Staff \harmony
      \new Staff \transpose c c, { \clef bass \tenor }
      \new Staff { \clef bass \bass }
    >>
  }
}

#(define output-suffix "Bflat")
\book {
  \paper { }
  \header { poet = "B flat / Si bémol" }
  \score {
    <<
      \new ChordNames {
        %\set chordChanges = ##t
        \transpose bes c \thechords
      }
      \new Staff { \transpose bes c'  \melody }
      \new Staff { \transpose bes c'  \harmony }
      \new Staff { \transpose bes c'  \tenor }
      \new Staff { \transpose bes c'' \bass }
    >>
  }
}

#(define output-suffix "Eflat")
\book {
  \paper { }
  \header { poet = "E flat / Mi bémol" }
  \score {
    <<
      \new ChordNames {
        %\set chordChanges = ##t
        \transpose ees c \thechords
      }
      \new Staff { \transpose ees c  \melody }
      \new Staff { \transpose ees c   \harmony }
      \new Staff { \transpose ees c'  \tenor }
      \new Staff { \transpose ees c'' \bass }
    >>
  }
}

#(define output-suffix "F")
\book {
  \paper { }
  \header { poet = "F / Fa" }
  \score {
    <<
      \new ChordNames {
        %\set chordChanges = ##t
        \transpose f c \thechords
      }
      \new Staff { \transpose f c   \melody }
      \new Staff { \transpose f c   \harmony }
      \new Staff { \transpose f c'  \tenor }
      \new Staff { \transpose f c'' \bass }
    >>
  }
}