\version "2.6.3"
#(set-default-paper-size "letter")

\header {
   title = "We three laws of orbiting"
   subtitle = "A gravmas carol"
   poet = "words by James P. Hoghan & Kate Gladstone"
   composer = "music by Rev. John Henry Hopkins"
   dedication = "to Isaac Newton"
   copyright = "Engraved by Mark Van den Borre using GNU Lilypond 2.6.3"
   tagline = "Engraved by Mark Van den Borre using GNU Lilypond 2.6.3"
}

\paper{
   raggedlastbottom = ##t
}
global = {
   \key e \minor
   \time 3/8
}

sopStanza = \relative c'' {
   \slurDotted b8(  b) a| g4 e8| fis( g) fis| e4( e8)|\break
   b'8( b) a| g g e| fis( g) fis| e4( e8)|\break
   g( g) g| a( a) a| b( b) b| d( c) b|\break
   a b a| g4 fis8| e4.|
   fis4.| a4.|\bar"||"\break
}

sopChorus = \relative c'' {
   g4 g8| g4 d8| g4 e8| g4.|
   g4 g8| g4 d8| g4 e8| g4.|
   g4 g8| a4 b8| c4 b8| a4 b8|
   g4 g8| g4 d8| g8 g e| g4.\bar"||"
}

stanzaOne = \lyricmode {
   \set stanza = "1. "
   We three laws of \set ignoreMelismata = ##t
   or- bi- ting \unset ignoreMelismata
   are
   \set ignoreMelismata = ##t
   Ru- ling tra- jec- to- ries lo- cal and \unset ignoreMelismata far
   \set ignoreMelismata = ##t
   Col- lis- sions bil- li- ard, par- ti- cles my- ri- ad
   Pla- net and moon and star.   

   Oh! Oh!

   Laws of won- der, laws of might,
   Laws that steer the worlds a- right,
   Ne- ver fai- ling we are hai- ling
   Your pow'r and mys- te- ry to- night!
}

stanzaTwo = \lyricmode {
   \set stanza = "2. "
   \set ignoreMelismata = ##t
   First Law am I, by \unset ignoreMelismata New- ton 
   \set ignoreMelismata = ##t
   drawn: An
   ob- ject in mo- tion keeps 
   \unset ignoreMelismata 
   mo- ving on.
   \set ignoreMelismata = ##t
   E- ver pro- cee- ding, not slo- wing or 
   spee- ding Till
   o- ther force acts there- on.
}

stanzaThree = \lyricmode {
   \set stanza = "3. "
   \set ignoreMelismata = ##t
   The Se- cond Law,
   \unset ignoreMelismata I come to say:
   F is e- qual to m times 
   \set ignoreMelismata = ##t
   a. For
   ac- cel- le- 
   \unset ignoreMelismata
   ra- tion cal- cu- la- tion,
   Se- cond Law shows the way.
}

stanzaFour = \lyricmode {
   \set stanza = "4. "
   \set ignoreMelismata = ##t
   Third Law: to e- very ac- tion must be An
   e- qual, op- po- sing re- 
   \unset ignoreMelismata
   a- ction. We
   Now have 
   \set ignoreMelismata = ##t
   said it -to New- ton give cre- dit, Who
   gave us the Laws all three.
}

altoChorus = \relative c' {
   d4 d8| d4 b8| b4 e8| d4.|
   d4 d8| d4 b8| b4 e8| d4.|
   e4 e8| fis4 g8| g4 g8| g4 fis8|
   g4 d8| b4 d8| e e c| d4.|
}

altoStanza = \relative c'' {
   \slurDotted
   g8( g) fis| e4 e8| dis( dis) dis| e4( e8)|
   g( g) fis| e e e| dis( dis) dis| e4( e8)|
   e( e) e| fis( fis) fis| g( g) g| g( fis) g|
   e e e| e4 dis8| e4. |

   d4.| d4.|
}


tenorChorus = \relative c' {
   b4 b8| b4 g8| g4 c8| b4.|
   b4 b8| b4 g8| g4 c8| b4.|
   b4 b8| d4 d8| e4 d8| d4 d8|
   b4 b8| g4 g8| g g c| b4.|

}

tenorStanza = \relative c' {
   \slurDotted
   b8( b) b| b4 g8| a( a) a| g4( g8)|
   b( b) b| b b g8| a( b) a| g4( g8)|
   b( b) b| d( d) d| d( d) d|b( c) d|
   c d c| b4 a8| g4.|

   a4.| c4.|
}

bassChorus = \relative c {
   g'4 g8| g4 g8| e4 c8| g'4.|
   g4 g8| g4 g8| e4 c8| g'4.|
   e4 e8| d4 d8| c4 g'8| d4 d8|
   g4 g8| g4 b,8| c c c| g4.|
}

bassStanza = \relative c {
   \slurDotted
   e8( e) e| e4 e8| b( b) b| e4( e8)|
   e( e) e| e e e| b( b) b| e4( e8)|
   e( e) e| d( d) d8| g( g) g8| b( a) g|
   a a a| b4 b,8| e4.|

   d4.| d4.|
}

\score {
   
   \context ChoirStaff <<
      \context Staff = women <<
       \set Staff.midiInstrument = "recorder"
        \context Voice = sopranos { 
           \voiceOne \global << \sopStanza >> << \sopChorus >>
        }
        \context Voice = altos {
           \voiceTwo \global << \altoStanza >>  << \altoChorus >>
        }
      >>
        \context Lyrics = verseone
        \context Lyrics = versetwo 
        \context Lyrics = versethree 
        \context Lyrics = versefour 
      \context Staff = men <<
         \clef bass
         \set Staff.midiInstrument = "recorder"
         \context Voice =
           tenors { \voiceOne \global << \tenorStanza >> << \tenorChorus >> }
         \context Voice =
           basses { \voiceTwo \global << \bassStanza >> << \bassChorus >>}
      >>
	\context Lyrics = verseone \lyricsto sopranos \stanzaOne
	\context Lyrics = versetwo \lyricsto sopranos \stanzaTwo
	\context Lyrics = versethree \lyricsto sopranos \stanzaThree
	\context Lyrics = versefour \lyricsto sopranos \stanzaFour
   >>

   \layout {
      \context {
      }
   }
   \midi {
      \tempo 8=160
   }
}