[tune] Renamed British National Anthem: Queen -> King

other/god_save_the_king/config.ily

@@ -0,0 +1,16 @@
+\version "2.19.0"
+%% Globals
+global = {
+	\time 3/4
+	}
+confTempo = { 
+	\tempo 4 = 60 
+	}
+%% Format
+measure = { \grace {s1} s2. | }
+halfline = { \repeat unfold 2 \measure }
+line = { \repeat unfold 2 { \halfline } }
+
+%% Headers
+title = "God Save The King"
+meter = "British National Anthem"

other/god_save_the_king/lyrics.ly

@@ -0,0 +1,66 @@
+\version "2.18.2"
+
+\include "bagpipe.ly"
+
+\include "./config.ily"
+%\include "./notes.pipes.ily"
+\include "./notes.lyrics.ily"
+
+\score {
+    \new Staff {
+		\global
+		\lyricsglobal
+		<<
+		  	\new NullVoice = "format"{
+				\line \halfline
+				\break
+				\line
+				\break
+				\line
+				\bar "|."
+			}%Format
+
+			\new Voice = "tune" {
+				\songA
+			}
+
+			\new Lyrics = "lyrics" {
+				\lyricsto "tune" { 
+					\lyricsA
+				}
+			}
+		>>
+	}
+	\header {
+		title = \title
+		meter = \meter
+		instrument = \instrumentLyrics
+		composer = \markup \large {
+		  	\column \right-align {
+				$(if (not (string=? "" composerLyrics)) #{ \markup { \line { \composerLyrics } } #} )
+				$(if (not (string=? "" composerPipes)) #{ \markup { \line { \composerPipes  ":" } } #} )
+		  	}
+			\column \right-align {
+				$(if (not (string=? "" composerLyrics)) #{ \markup { \line { } } #} )
+			    $(if (not (string=? "" composerPipes)) #{ \markup { \line { \instrumentPipes  } } #} )
+			}
+		}
+
+	}
+}
+\markup {
+  \line{
+	\column {
+	  \verseA
+	  \combine \null \vspace #0.5
+	  \verseC
+	  \combine \null \vspace #0.5
+	  \verseE
+	}
+	\column {
+	  \verseB
+	  \combine \null \vspace #0.5
+	  \verseD
+	}
+  }
+}

other/god_save_the_king/notes.lyrics.ily

@@ -0,0 +1,94 @@
+% 3/4 God Save the King
+% Lyrics (From Wikipedia)
+\version "2.18.2"
+composerLyrics  = ""
+lyricsglobal = {}
+% Music
+songA = {
+	 d4  d4  e4 |
+	 c4. d8  e4 |
+	 f4  f4  g4 |
+	 f4. e8  d4 |
+	 e4  d4 c4 |
+	 d2. | 
+	
+	 A4  A4  A4 |
+	 A4. g8  f4 |
+	 g4  g4  g4 |
+	 g4. f8  e4 | 
+	
+	 f4  g8([ f8)]  e8([ d8)] |
+	 f4. g8  A4 |
+	 A8(  g8)   f4  e4 |
+	 d2.
+}
+lyricsA = \lyricmode {
+	\set stanza = #"1."
+	God save our grac- ious King,
+	Long live our no- ble King,
+	God save the King:
+	Send him vic- tor- i- ous,
+	Hap- py and glor- i- ous,
+	Long to reign  ov- er us:
+	God save the King.
+}
+verseA = \markup \column {
+  \line \bold {1.}
+  \line { God save our gracious King,}
+  \line { Long live our noble King,}
+  \line { God save the King:}
+  \line { Send him victorious,}
+  \line { Happy and glorious,}
+  \line { Long to reign over us:}
+  \line { God save the King.}
+}
+verseB = \markup \column {
+  \line \bold {2.}
+  \line { O Lord, our God, arise,}
+  \line { Scatter him enemies,}
+  \line { And make them fall:}
+  \line { Confound their politics,}
+  \line { Frustrate their knavish tricks,}
+  \line { On thee our hopes we fix:}
+  \line { God save us all.}
+}
+verseC = \markup \column {
+  \line \bold {3.}
+  \line { Thy choicest gifts in store,}
+  \line { On him be pleased to pour;}
+  \line { Long may she reign:}
+  \line { May she defend our laws,}
+  \line { And ever give us cause}
+  \line { To sing with heart and voice}
+  \line { God save the King.}
+}
+verseD = \markup \column {
+  \line \bold {4.}
+  \line { Not in this land alone,}
+  \line { But be God's mercies known,}
+  \line { From shore to shore!}
+  \line { Lord make the nations see,}
+  \line { That men should brothers be,}
+  \line { And form one family,}
+  \line { The wide world over.}
+}
+verseE = \markup \column {
+  \line \bold {5.}
+  \line { From every latent foe,}
+  \line { From the assassins blow,}
+  \line { God save the King!}
+  \line { O'er him thine arm extend,}
+  \line { For Britain's sake defend,}
+  \line { Our father, prince, and friend,}
+  \line { God save the King!}
+}
+verseF = \markup \column {
+  \line \bold {During the Jacobite Risings:}
+  \line { Lord grant that Marshall Wade}
+  \line { May by thy mighty aid}
+  \line { Victory bring.}
+  \line { May he sedition hush,}
+  \line { And like a torrent rush,}
+  \line { Rebellious Scots to crush.}
+  \line { God save the King!}
+}

other/god_save_the_king/notes.pipes.ily

@@ -0,0 +1,28 @@
+% 3/4 God Save The King
+% Pipes
+\version "2.18.2"
+composerPipes = ""
+pipeglobal = {
+	\key d \major
+}
+% Music
+pipesA = {
+	\thrwd d4 \slurd d4 \dble e4 |
+	\dblc c4. d8 \dble e4 |
+	\grg f4 \gre f4 \dblg g4 |
+	\hdblf f4. e8 \thrwd d4 |
+	\grg e4 \thrwd d4 c4 |
+	\thrwd d2. | 
+}
+pipesB = {
+	\dblA A4 \grip A4 \grg A4 |
+	\dblA A4. g8 \hdblf f4 |
+	\dblg g4 \grA g4 \grf g4 |
+	\grA g4. f8 \dble e4 | 
+}
+pipesC = {
+	\grg f4 \dblg g8 [ f8 ] \grg e8 [ d8 ] |
+	\dblf f4. g8 \dblA A4 |
+	\grip A8 [ g8 ] \hdblf f4 \dble e4 |
+	\thrwd d2.
+}

other/god_save_the_king/pipes.ly

@@ -0,0 +1,51 @@
+\version "2.18.2"
+
+\include "bagpipe.ly"
+
+\include "./config.ily"
+\include "./notes.pipes.ily"
+
+\score {
+    \new Staff {
+		\global
+		\pipeglobal
+		<<
+			\new NullVoice = "format" {
+				\line \halfline
+				\break
+				\line
+				\break
+				\line
+				\bar "|."
+			}%Format
+			
+			\new Voice = "pipes" {
+				\pipesA
+				\pipesB
+				\pipesC
+			}
+		>>
+	}
+	\header {
+		title = \title
+		meter = \meter
+		instrument = \instrumentPipes
+		composer = \composerPipes
+	}
+}
+\score {
+	\new Staff { \global \pipeglobal
+		\set Staff.midiInstrument = #"bagpipe"
+		%%Tune
+		\pipesA
+		\pipesB
+		\pipesC
+	}
+	\midi { \confTempo }
+	\header {
+		title = \title
+		meter = \meter
+		instrument = \instrumentPipes
+		composer = \composerPipes
+	}
+}