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


\header {
  title = "Groove is in the Heart"
  composer = "arr. RMO"
  source = ""
  style = ""
  copyright = \date
  lastupdated = ""
  tagline = ""
}

% music pieces
%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  \relative c'' {
    \key aes \major
    \repeat unfold 4 {
      aes,2 ges'4 ees aes ges ees des ~ |
      des b' aes des b aes ges8 g aes4 |
    }
  }
}

%part: melody
melody = {
  \set Staff.instrumentName = "Melody "
  \relative c' {
    \key aes \major
    <ees ees'>4 <ees ees'>8 <ees ees'>4 <ees ees'>8 <aes aes'>4 <ges ges'>1 ~ |
    <ges ges'>4 <des des'>8 <b b'> <des des'> <b b'> <des des'>4 <b b'>2. r4 |
    <ees ees'>4 <ees ees'>8 <ees ees'>4 <ees ees'>8 <aes aes'>4 <ges ges'>1 ~ |
    <ges ges'>4 <aes aes'>8 <ges ges'> <aes aes'> <ges ges'> <aes aes'>4 <aes aes'>2. r4 |
    <aes aes'>4 <aes aes'>8 <aes aes'>4 <aes aes'>8 <des des'>2 <ees ees'>8 <des des'> <b b'>2 ~ |
    <b b'>4. <aes aes'>8 <ges ges'>8 <aes aes'> <ges ges'> <aes aes'> <aes aes'>1 |
    <aes aes'>4 <aes aes'>8 <aes aes'>4 <aes aes'>8 <des des'>4 <b b'>1 ~ |
    <b b'>4 <aes aes'>8 <ges ges'>8 <aes aes'> <ges ges'> <aes aes'>4 <aes aes'>2. r4 |
  }
}

%part: backbeats
backbeats = {
  \set Staff.instrumentName = "Backbeats "
  \relative c'' {
    \key aes \major
    \repeat unfold 4 {
      <aes c>4 r r <aes c> r2 r4 <ges bes> |
      r4 <b ees> <b ees>2 <aes c>2 <ges bes>4 <g b> |
    }
  }
}

%layout

\book {
  \score {
    <<
      \tempo 4 = 180
      \unfoldRepeats \new Staff \transpose c c,, \bass
      \unfoldRepeats \new Staff \melody
      \unfoldRepeats \new Staff \transpose c c, \backbeats
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)

#(define output-suffix "C")
\book {
  \paper { }
  \header { poet = "C / Do" }
  \score {
    <<
      \new Staff \bass
      \new Staff \melody
      \new Staff \backbeats
    >>
  }
}

#(define output-suffix "C.bass")
\book {
  \paper { }
  \header { poet = "C / Do" }
  \score {
    <<
      \new Staff { \clef bass \transpose c c,  \bass }
      \new Staff { \clef bass \transpose c c,, \melody }
      \new Staff { \clef bass \transpose c c,, \backbeats }
    >>
  }
}

#(define output-suffix "Bflat")
\book {
  \paper { }
  \header { poet = "B flat / Si bémol" }
  \score {
    <<
      \new Staff { \transpose bes c'  \bass }
      \new Staff { \transpose bes c'  \melody }
      \new Staff { \transpose bes c'  \backbeats }
    >>
  }
}

#(define output-suffix "Eflat")
\book {
  \paper { }
  \header { poet = "E flat / Mi bémol" }
  \score {
    <<
      \new Staff { \transpose ees c'  \bass }
      \new Staff { \transpose ees c   \melody }
      \new Staff { \transpose ees c   \backbeats }
    >>
  }
}

#(define output-suffix "F")
\book {
  \paper { }
  \header { poet = "F / Fa" }
  \score {
    <<
      \new Staff { \transpose f c'  \bass }
      \new Staff { \transpose f c   \melody }
      \new Staff { \transpose f c   \backbeats }
    >>
  }
}