From e3df09101c60f48d2e34ab481ef95b6b771245f4 Mon Sep 17 00:00:00 2001
From: Eric Teunis de Boone <ericteunis@gmail.com>
Date: Mon, 22 Jun 2020 21:15:02 +0200
Subject: [PATCH] Added Tune: Mrs. Flora Duncan

---
 4-4_marches/mrs_flora_duncan/config.ily      | 18 ++++++
 4-4_marches/mrs_flora_duncan/notes.pipes.ily | 58 ++++++++++++++++++
 4-4_marches/mrs_flora_duncan/pipes.ly        | 64 ++++++++++++++++++++
 3 files changed, 140 insertions(+)
 create mode 100644 4-4_marches/mrs_flora_duncan/config.ily
 create mode 100644 4-4_marches/mrs_flora_duncan/notes.pipes.ily
 create mode 100644 4-4_marches/mrs_flora_duncan/pipes.ly

diff --git a/4-4_marches/mrs_flora_duncan/config.ily b/4-4_marches/mrs_flora_duncan/config.ily
new file mode 100644
index 0000000..9b08a73
--- /dev/null
+++ b/4-4_marches/mrs_flora_duncan/config.ily
@@ -0,0 +1,18 @@
+\version "2.19.0"
+%% Globals
+global = {
+	\key d \major
+	\time 4/4
+	}
+confTempo = { 
+	\tempo 4 = 90 
+	}
+%% Format
+part = { \partial 8 \grace{s4.} s8 }
+measure = { \grace {s1} s1 | }
+halfline = { \repeat unfold 4 \measure }
+line = { \repeat unfold 2 { \halfline } }
+
+%% Headers
+title = "Mrs. Flora Duncan"
+meter = "March"
diff --git a/4-4_marches/mrs_flora_duncan/notes.pipes.ily b/4-4_marches/mrs_flora_duncan/notes.pipes.ily
new file mode 100644
index 0000000..d058f01
--- /dev/null
+++ b/4-4_marches/mrs_flora_duncan/notes.pipes.ily
@@ -0,0 +1,58 @@
+% 4/4 Mrs. Flora Duncan
+% Pipes
+\version "2.18.2"
+composerPipes = "Ian Duncan"
+arrangerPipes = ""
+pipeglobal = {
+	\key d \major
+}
+% Music
+pipesA = {
+	a8 |
+	\grg f4 \dblf f8 [ A8 ] \thrwd d4 \grg a8 [ d8 ] |
+	\grg d16 [ a8. ] \grg c8. [ d16 ] \dble e4. a8 |
+	\grg e4 \gra e8. [ f16 ] \dblg g8. [ e16 ] \dblc c8 [ \gre a8 ] |
+	\grg a16 [ d8. ] \grc d8. [ e16 ] \dblf f4. \grg a8 |
+
+	\grg f4 \dblf f8 [ A8 ] \thrwd d4 \grg a8 [ d8 ] |
+	\grg d16 [ a8. ] \grg c8. [ d16 ] \dble e4. a8 |
+	\dblA A8. [ g16 ] f8 [ A8 ] \slurf g8. [ e16 ] \dblc c8 [ \gre a8 ] |
+	\grg a16 [ g8. ] \grA f8. [ e16 ] \thrwd d4.
+}
+
+pipesB = {
+	a8 |
+	\wbirl a4 \dblb b8 [ \gre a8 ] \thrwd d4 \grg a8 [ d8 ] |
+	\grg d16 [ a8. ] \grg c8. [ d16 ] \dble e4. a8 |
+	\wbirl a4 \dblb b8 [ \gre a8 ] \dble e4 \grg a8 [ e8 ] |
+	\grg e16 [ d8. ] \grc d8. [ e16 ] \dble f4. a8 |
+
+	\grg a4 \dblb b8 [ \gre a8 ] \dblf f4 \thrwd d8. [ e16 ] |
+	\grg f8 [ d8 ] \grg f16 [ A8. ] \slurf g4. \grA f16. [ g32 ] |
+	\dblA A8. [ g16 ] f8 [ A8 ] \slurf g8. [ e16 ] \dblc c8 [ \gre a8 ] |
+	\grg a16 [ g8. ] \grA f8. [ e16 ] \thrwd d4.
+}
+pipesC = {
+	a8 |
+	\grg f4 \grg f8 [ e8 ] \dble e4 \thrwd d8. [ e16 ] |
+	\grg d8 [ c8 ] \grip c8. [ d16 ] \dble e4. a8 |
+	\dblg g4 \slurf g8. [ f16 ] \grg f8 [ e8 ] \gra e8. [ d16 ] |
+	\dblc c8 [ \gre a8 ] \thrwd d8. [ e16 ] \dble f4. a8 |
+
+	\grg f4 \grg f8 [ e8 ] \dble e4 \thrwd d8. [ e16 ] |
+	\grg d8 [ c8 ] \grip c8. [ d16 ] \dble e4. \birl a8 |
+	\dblA A8. [ g16 ] f8 [ A8 ] \slurf g8. [ e16 ] \dblc c8 [ \gre a8 ] |
+	\grg a16 [ g8. ] \grA f8. [ e16 ] \thrwd d4.
+}
+pipesD = {
+	a8 |
+	\wbirl a4 \thrwd d8. [ e16 ] \thrwd d4 \grg a8 [ d8 ] |
+	\grg d16 [ c8. ] \grip c8. [ d16 ] \dble e4. a8 |
+	\wbirl a4 \grg e8. [ f16 ] \dble e4 \grg a8 [ e8 ] |
+	\grg e16 [ d8. ] \grc d8. [ e16 ] \dble f4. a8 |
+
+	\wbirl a16 [ f8. ] \grg f8 [ e8 ] \grg e4 \thrwd d8. [ e16 ] |
+	\grg f8 [ d8 ] \grg f16 [ A8. ] \slurf g4. \grA f16. [ g32 ] |
+	\dblA A8. [ g16 ] f8 [ A8 ] \slurf g8. [ e16 ] \dblc c8 [ \gre a8 ] |
+	\grg a16 [ g8. ] \grA f8. [ e16 ] \thrwd d4.
+}
diff --git a/4-4_marches/mrs_flora_duncan/pipes.ly b/4-4_marches/mrs_flora_duncan/pipes.ly
new file mode 100644
index 0000000..69515bb
--- /dev/null
+++ b/4-4_marches/mrs_flora_duncan/pipes.ly
@@ -0,0 +1,64 @@
+\version "2.18.2"
+
+\include "bagpipe.ly"
+
+\include "./config.ily"
+\include "./notes.pipes.ily"
+
+\score {
+    \new Staff {
+		\global
+		\pipeglobal
+		<<
+			\new NullVoice = "format" {
+				\repeat unfold 4 {
+					\repeat volta 2 {
+						\part
+						\line
+					}
+					\break
+				}
+			}%Format
+
+			\new Voice = "pipes" {
+				\pipesA s8
+
+				\pipesB s8
+
+				\pipesC s8
+
+				\pipesD s8
+			}
+		>>
+	}
+	\header {
+		title = \title
+		meter = \meter
+		instrument = \instrumentPipes
+		composer = \composerPipes
+		arranger = \arrangerPipes
+	}
+}
+\score {
+	\new Staff { \global \pipeglobal
+		\set Staff.midiInstrument = #"bagpipe"
+		%%Tune
+		\partial 8
+		\pipesA
+		\pipesA
+		\pipesB
+		\pipesB
+		\pipesC
+		\pipesC
+		\pipesD
+		\pipesD
+	}
+	\midi { \confTempo }
+	\header {
+		title = \title
+		meter = \meter
+		instrument = \instrumentPipes
+		composer = \composerPipes
+		arranger = \arrangerPipes
+	}
+}