From e42f33373f6924bd1742a470b31d976e815abd77 Mon Sep 17 00:00:00 2001
From: Eric Teunis de Boone <ericteunis@deboone.nl>
Date: Tue, 1 Nov 2022 15:44:55 +0100
Subject: [PATCH] New [tune]: Dornoch Links

---
 2-4_marches/dornoch_links/config.ily      | 19 ++++++
 2-4_marches/dornoch_links/notes.pipes.ily | 41 +++++++++++++
 2-4_marches/dornoch_links/pipes.ly        | 73 +++++++++++++++++++++++
 3 files changed, 133 insertions(+)
 create mode 100644 2-4_marches/dornoch_links/config.ily
 create mode 100644 2-4_marches/dornoch_links/notes.pipes.ily
 create mode 100644 2-4_marches/dornoch_links/pipes.ly

diff --git a/2-4_marches/dornoch_links/config.ily b/2-4_marches/dornoch_links/config.ily
new file mode 100644
index 0000000..2a67706
--- /dev/null
+++ b/2-4_marches/dornoch_links/config.ily
@@ -0,0 +1,19 @@
+\version "2.19.0"
+%% Globals
+global = {
+	%\key a \major
+	\key a \mixolydian
+	\time 2/4
+	}
+confTempo = { 
+	\tempo 4 = 90 
+	}
+%% Format
+part = { \partial 8 \grace{s4.} s8 }
+measure = { \grace {s1} s2 | }
+halfline = { \repeat unfold 4 \measure }
+line = { \repeat unfold 2 { \halfline } }
+
+%% Headers
+title = "The Dornoch Links"
+meter = "March"
diff --git a/2-4_marches/dornoch_links/notes.pipes.ily b/2-4_marches/dornoch_links/notes.pipes.ily
new file mode 100644
index 0000000..fdc5c38
--- /dev/null
+++ b/2-4_marches/dornoch_links/notes.pipes.ily
@@ -0,0 +1,41 @@
+% 2/4 The Dornoch Links
+% Pipes
+\version "2.22.2"
+composerPipes = ""
+arrangerPipes = "1936"
+pipeglobal = {
+	%\key a \major
+	\key a \mixolydian
+}
+% Music
+pipesA = {
+	A16. f32 |
+	\dble e8.[ a16]	\dblc c8[ \gre b16 \grd c16] |
+	\dble e8[ a8]	\wbirl a8[ A16. f32] |
+	\dble e8.[ a16]	\dblc c8[ \gre b16 \grd c16] |
+	\dblf f8[ b8]	\grip b8[
+
+	\grg c16 d16] |
+	\grg e16.[ f32 \grg e16. d32]  \dblc c8[ \grg b16 \grd a16] |
+	\dblc c8[ e8]	\dblA A8.[ c16] |
+	\thrwd d8[ \dblg g8]  \hslurb b8[ \dble e16 d16] |
+	\dblc c8[ \gre a8]    \grip a8
+}
+pipesB = {
+	\hdblg g8 |
+	\hdblA A4   \hdble e8[ \grg f16 g] |
+	\hdblA A8[ e16 d]   \dblc c8[ \grg b16 \grd a16] |
+	\hdblA A4   e16.[ f32 \grg e16. c32] |
+	\thrwd d8[ \grg b8]   \taor b8[
+	
+	\hdblg g8] |
+	\hdblA A4   \hdble e8[ \grg f16 g] |
+	\tag #'voltaI { 
+	    \hdblA A8[ e16 d]   \dblc c8[ \grg b16 \grd a16]
+	} |
+	\tag #'voltaII {
+	    A16.[ e32 \grg f16. d32]  \dblc c8[ \grg b16 \grd a16]
+	} |
+	\thrwd d8[ \dblg g8]  \hslurb b8[ \dble e16 d16] |
+	\dblc c8[ \gre a8]    \grip a8
+}
diff --git a/2-4_marches/dornoch_links/pipes.ly b/2-4_marches/dornoch_links/pipes.ly
new file mode 100644
index 0000000..6b6e0bb
--- /dev/null
+++ b/2-4_marches/dornoch_links/pipes.ly
@@ -0,0 +1,73 @@
+\version "2.22.2"
+
+\include "bagpipe.ly"
+
+\include "./config.ily"
+\include "./notes.pipes.ily"
+
+pbreak = { \break }
+
+\score {
+    \new Staff {
+		\global
+		\pipeglobal
+		<<
+			\new NullVoice = "format" {
+				\repeat volta 2 {
+					\part
+					\halfline
+					\pbreak
+					\halfline
+				}
+				\break
+				\repeat volta 2 {
+					\part
+					\halfline
+					\pbreak
+
+					\measure
+					\set Score.repeatCommands = #'((volta "1"))
+						\measure \bar "||"
+					\set Score.repeatCommands = #'((volta "2"))
+						\measure
+					\set Score.repeatCommands = #'((volta #f))
+					\measure
+					\measure
+				}
+			}%Format
+			\new Voice = "pipes" {
+				\pipesA s8
+
+				\pipesB s8
+			}%Pipes
+		>>
+	}
+	\header {
+		title = \title
+		subtitle = \subtitle
+		meter = \meter
+		instrument = \instrumentPipes
+		composer = \composerPipes
+		arranger = \arrangerPipes
+	}
+}
+\score {
+	\new Staff { \global \pipeglobal
+		\set Staff.midiInstrument = #"bagpipe"
+		%%Tune
+		\partial 8
+		\repeat unfold 2 { \pipesA }
+
+		\keepWithTag #'voltaI \pipesB
+		\keepWithTag #'voltaII \pipesB
+	}
+	\midi { \confTempo }
+	\header {
+		title = \title
+		subtitle = \subtitle
+		meter = \meter
+		instrument = \instrumentPipes
+		composer = \composerPipes
+		arranger = \arrangerPipes
+	}
+}