\version "2.19.6"
\language "english"

\header {
  title = "Prince Charlie's Whimsy"
  composer = "Traditional"
  arranger = "C. Campbell"
}

\paper {
  #(set-paper-size "letter")
  left-margin = 1.5\cm
  system-system-spacing  #'basic-distance = #18
  ragged-last-bottom = ##t
  ragged-bottom = ##t
}

#(set-global-staff-size 16)

global = {
  \key g \major
  \time 4/4
  %  \partial 4
  \tempo 4=100
}

soprano = \relative c'' {
  \global
  \time 4/4
  r1 g4 a b g g a b g b c d2 b4 c4 d2 |
  d8 e d c b4 g d'8 e d c b4 g
  g4 d g2 g4 d g2
  \bar "|."
}

alto = \relative c'' {
  \global
  \time 4/4
  \set Staff.timeSignatureFraction = 3/4
  \scaleDurations 8/6 {

    r2  g4 e' d c d c a g e2~ e4 r g4
    e'4 d c c b c d2.~ d4 r2
  }
  \bar "|."
}

tenor = \relative c' {
  \global
  \time 4/4
  \set Staff.timeSignatureFraction = 5/4
  \scaleDurations 4/5 {
    <d g,>2. \fermata r2
    g,8 b8 r8 a8 b4 g4 a4
    g8 b8 r8 a8 b4 g4 a4
    g8 b8 r8 a8 b4 g4 a4
    g8 b8 r8 a8 b4 g4 a4
    g8 b8 r8 a8 b4 g4 a4
    g8 b8 r8 a8 b4 g4 a4
    g8 b8 r8 a8 b4 g4 a4
    \override Glissando.style = #'trill
    g2 \glissando  bf2.
  }
  \bar "|."
}

bass = \relative c {
  \global
  \time 4/4
  \set Staff.timeSignatureFraction = 6/8
  \scaleDurations 8/6 {
    r2. d8. [e16 d8] g8. [g16 g8] a8. [b16 a8] d4.
    b8. [a16 b8] e,4 e8 d4.~ d4 r8
    d8. [e16 d8] g8. [g16 g8] a8. [b16 a8] d4.
    b8. [a16 b8] e,4 e8 d4.~ d4 r8
  }
  \bar "|."
}

sopranoVerse = \lyricmode {
  Fre -- re Jac -- ques,
  Fre -- re Jac -- ques,
  Dor -- mez vous?
  Dor -- mez vous?
  Son -- nez les ma -- ti -- nes,
  Son -- nez les ma -- ti -- nes,
  Din dan don, din dan don.
}

altoVerse = \lyricmode {
  My Bon -- ny lies o -- ver the o -- cean
  My Bon -- ny lies o -- ver the sea.

}

tenorVerse = \lyricmode {
  Doo
  Doo doot doot doo doo doo
  Doo doot doot doo doo doo
  Doo doot doot doo doo doo
  Doo doot doot doo doo doo
  Doo doot doot doo doo doo
  Doo doot doot doo doo doo
  Doo doot doot doo doo doo
  Doo waaaah!

}

bassVerse = \lyricmode {
  Speed Bon -- ny boat, like a bird on the wing
  On -- ward the sai -- lors cry.
  Car -- ry the lad that is born to be king
  O -- ver the sea to Skye.
}

pianoReduction = \new PianoStaff \with {
  fontSize = #-1
  \override StaffSymbol #'staff-space = #(magstep -1)
} <<
  \new Staff \with {
    \consists "Mark_engraver"
    \consists "Metronome_mark_engraver"
    \remove "Staff_performer"
  } {
    #(set-accidental-style 'piano)
    <<
      \soprano \\
      \alto
    >>
  }
  \new Staff \with {
    \remove "Staff_performer"
  } {
    \clef bass
    #(set-accidental-style 'piano)
    <<
      \tenor \\
      \bass
    >>
  }
>>

rehearsalMidi = #
(define-music-function
 (parser location name midiInstrument lyrics) (string? string? ly:music?)
 #{
   \unfoldRepeats <<
     \new Staff = "soprano" \new Voice = "soprano" { \soprano }
     \new Staff = "alto" \new Voice = "alto" { \alto }
     \new Staff = "tenor" \new Voice = "tenor" { \tenor }
     \new Staff = "bass" \new Voice = "bass" { \bass }
     \context Staff = $name {
       \set Score.midiMinimumVolume = #0.5
       \set Score.midiMaximumVolume = #0.5
       \set Score.tempoWholesPerMinute = #(ly:make-moment 100 4)
       \set Staff.midiMinimumVolume = #0.8
       \set Staff.midiMaximumVolume = #1.0
       \set Staff.midiInstrument = $midiInstrument
     }
     \new Lyrics \with {
       alignBelowContext = $name
     } \lyricsto $name $lyrics
   >>
 #})

\score {
  <<
    \new ChoirStaff <<
      \new Staff \with {
        midiInstrument = "choir aahs"
        instrumentName = "Soprano"
        shortInstrumentName = "S."
     
      } { \soprano }
      \addlyrics { \sopranoVerse }

      \new Staff \with {
        midiInstrument = "choir aahs"
        instrumentName = "Alto"
        shortInstrumentName = "A."
      } { \alto }
      \addlyrics { \altoVerse }

      \new Staff \with {
        midiInstrument = "choir aahs"
        instrumentName = "Tenor"
        shortInstrumentName = "T."
      } { \clef "treble_8" \tenor }
      \addlyrics { \tenorVerse }

      \new Staff \with {
        midiInstrument = "choir aahs"
        instrumentName = "Bass"
        shortInstrumentName = "B."
      } { \clef bass \bass }
      \addlyrics { \bassVerse }

    >>
    %   \pianoReduction
  >>
  \layout {

  }
  \midi { }
}

% Rehearsal MIDI files:
\book {
  \bookOutputSuffix "soprano"
  \score {
    \rehearsalMidi "soprano" "soprano sax" \sopranoVerse
    \midi { }
  }
}

\book {
  \bookOutputSuffix "alto"
  \score {
    \rehearsalMidi "alto" "soprano sax" \altoVerse
    \midi { }
  }
}

\book {
  \bookOutputSuffix "tenor"
  \score {
    \rehearsalMidi "tenor" "tenor sax" \tenorVerse
    \midi { }
  }
}

\book {
  \bookOutputSuffix "bass"
  \score {
    \rehearsalMidi "bass" "tenor sax" \bassVerse
    \midi { }
  }
}