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


\header {
  title = "Afoxé"
  composer = "RoR Toronto"
  source = ""
  style = ""
  copyright = \date
  lastupdated = ""
  tagline = ""
}

% music pieces
%part: melody
melody = {
  \set Staff.instrumentName = "Melody "
  \relative c'' {
    \key c \major
    a8 c e16 e r a, r a r c e r r8 |
    a,8 c e16 e r a, r a r c e r r8 |
    d8 f a16 a r d, r d r f a r r8 |
    d,8 f a16 a r d, r d r f a r r8 |
    a,8 c e16 e r a, r a r c e r r8 |
    a,8 c e16 e r a, r a r c e r r8 |
    e4 r e r |
    e4 r e16 d c b a4 |
  }
}

%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  \relative c {
    \key c \major
    a4 e a e8 gis |
    a4 e a f'8 e |
    d4 a d a8 cis |
    d4 a d e,8 gis |
    a4 e a e8 gis |
    a4 e a e8 gis |
    r4 e r e |
    r4 e e'16 d c b a4 |
  }
}

%layout

\book {
  \score {
    <<
      \tempo 4 = 100
      \unfoldRepeats \new Staff \melody
      \unfoldRepeats \new Staff \bass
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "C")
\book {
  \paper { }
  \header { poet = "C / Do" }
  \score {
    <<
      \new Staff \melody
      \new Staff { \transpose c c,, { \clef bass \melody } }
      \new Staff { \clef bass \bass }
    >>
  }
}

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

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

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