[tune] Additional Black Bear setting

2-4_marches/black_bear/notes.pipes.ily

@@ -1,31 +1,52 @@
 % 2/4 Black Bear
 % Pipes
 \version "2.18.2"
-composerPipes = "1936"
+composerFacsimilePipes = "1936"
+composerPipes = ""
+arrangerPipes = "M. Bain" % PM Mike Bain, SHoC
 pipeglobal = {
   \bagpipeKey
 }
-pipesA = {
+pipesSourceA = {
 	\tag #'upbeat { \grg a16. [ b32 ] | }
-	\thrwd d8 [ \dbld d8 ] \grg f16.[  d32  A16.  f32  ]|
+	\repeat unfold 2 {
-	\thrwd d8 [ \dbld d8 ] \grg f16.[  d32  A16.  f32  ]|
+		\thrwd d8 [ \tag #'facsimile {\dbld} \tag #'current {\slurd} d8 ] \grg f16.[  d32  A16.  f32  ]|
-	\dble e8 [ \grg b8 ] \grip b8 [ \grg e16 d16 ] |
+		\thrwd d8 [ \tag #'facsimile {\dbld} \tag #'current {\slurd} d8 ] \grg f16.[  d32  A16.  f32  ]|
-	\grg c32 [ d16. \grg b32 \grd c16. ] \grg a16. [ b32 \grg c32 \grd a16. ]
+	} \alternative {
-
+		{
-	\thrwd d8 [ \dbld d8 ] \grg f16. [ d32 A16.  f32 ] |
+			\dble e8 [ \grg b8 ] \grip b8 [ \tag #'facsimile {\grg e16 d16 ]} \tag #'current {\grg e16. d32]} |
-	\thrwd d8 [ \dbld d8 ] \grg f16. [ d32 A16.  f32 ] |
+			\grg c32 [ d16. \tag #'facsimile {\grg b32 \grd c16. ]} \tag #'current {\grg b16. \grd c32 ]} \grg a16. [ b32 \grg c32 \grd a16. ]
-	\dble e8 [ \grip e8 ] \grg e16. [ g32 \grA f32 e16. ] |
+		}
-	\thrwd d8 [ \grg f8 ] \thrwd d8
+		{
+			\dble e8 [ \grip e8 ] \grg e16. [ g32 \tag #'facsimile {\grA f32 e16. ]} \tag #'current {f16. e32 ]} |
+			\thrwd d8 [ \grg f8 ] \thrwd d8
+		}
+	}
 }
-pipesB = {
+pipesSourceB = {
 	e8 |
-	\grg a16. [ \grd a32 a16  \grd b16 ] \thrwd d8 [ \grg d16 e16 ] |
+	\repeat unfold 2 {
-	\dblg g8 [ \grA f16 e16 ] \grg f32 [ A16. f16. d32 ] |
+		\grg a16. [ \grd a32 \tag #'facsimile {a16  \grd b16 ]} \tag #'current {\gre a16. b32 ]} \thrwd d8 [ \tag #'facsimile {\grg d16 e16 ]} \tag #'current {\slurd d16. e32 ]} |
-	\grg a16. [ \grd a32 a16 ] \grd b16 ] \thrwd d8 [ \grg d16 e16 ] |
+		\dblg g8 [ \tag #'facsimile {\grA f16 e16 ]} \tag #'current {f16. e32 ]} \grg f32 [ A16. \tag #'facsimile {f16. d32 ]} \tag #'current {f32 d16. ]} |
-	\dblg g8 [ \grA f16 e16 ] \grg f32 [ A16. f16. d32 ] |
+	}
 
-	A8 [ a16 \dbla a16 ] \grg c8 [ \grd a16 \dbla a16 ] |
+	\tag #'facsimile {
-	\grg d8 [ b16 \dblb b16 ] \grg e8 [ c16 \dblc c16 ] |
+		A8 [ a16 \dbla a16 ] \grg c8 [ \grd a16 \dbla a16 ] |
-	\grg d32 [ f16.  \grg d32  f16. ] e16. [ g32 \grA f32 g16. ] |
+		\grg d8 [ b16 \dblb b16 ] \grg e8 [ c16 \dblc c16 ] |
+		\grg d32 [ f16.  \grg d32  f16. ] e16. [ g32 \grA f32 g16. ] |
+	}
+	\tag #'current {
+		A32 [ a16. \grg a32 \grd a16. ]	\grg c32 [ a16. \grg a32 \grd a16. ] |
+		\grg d32 [ b16. \grg b32 \grd b16. ]	\grg e32 [ c16. \grg c32 \grd c16. ] |
+		\grg d16. [ f32 \grg d16. f32 ]	\grg e16. [ g32 \grA f16. g32 ] |
+	}
 	A8 [ \grip A8 ] \grg A16. [ g32 f16.  e32 ]
-}
+}
+
+
+pipesFacsimileA = { \removeWithTag #'current \pipesSourceA }
+pipesFacsimileB = { \removeWithTag #'current \pipesSourceB }
+
+pipesA = { \removeWithTag #'facsimile \pipesSourceA }
+pipesB = { \removeWithTag #'facsimile \pipesSourceB }
+

2-4_marches/black_bear/pipes.1936.ly

@@ -0,0 +1,55 @@
+\version "2.18.2"
+
+\include "bagpipe.ly"
+
+\include "./config.ily"
+\include "./notes.pipes.ily"
+
+markTextEol = #(define-music-function (parser location text) (string?) #{
+	\once \override Score.RehearsalMark #'break-visibility = #end-of-line-visible
+	\once \override Score.RehearsalMark #'self-alignment-X = #RIGHT
+	\mark \markup $text
+#})
+
+\score {
+    \new Staff {
+		\global
+		\pipeglobal
+		<<
+			{
+				\repeat volta 2 {
+						\part \line \markTextEol "Fine"
+					}\break
+					\part \line \markTextEol "D.C. al Fine" \bar "||"
+			}
+			{
+				\pipesFacsimileA s8
+				\pipesFacsimileB
+			}
+		>>
+	}
+	\header {
+		title = \title
+		meter = \meter
+		instrument = \instrumentPipes
+		composer = \composerFacsimilePipes
+	}
+}
+\score {
+	\new Staff { \global \pipeglobal
+		\set Staff.midiInstrument = #"bagpipe"
+		%%Tune
+		\partial 8
+		\pipesFacsimileA
+		\pipesFacsimileA
+		\pipesFacsimileB
+		\removeWithTag #'upbeat \pipesFacsimileA
+	}
+	\midi { \confTempo }
+	\header {
+		title = \title
+		meter = \meter
+		instrument = \instrumentPipes
+		composer = \composerPipes
+	}
+}

2-4_marches/black_bear/pipes.ly

@@ -33,6 +33,7 @@ markTextEol = #(define-music-function (parser location text) (string?) #{
 		meter = \meter
 		instrument = \instrumentPipes
 		composer = \composerPipes
+		arranger = \arrangerPipes
 	}
 }
 \score {