diff --git a/suites/steam_train_to_mallaig/config.ily b/suites/steam_train_to_mallaig/config.ily index b963555..63741a2 100644 --- a/suites/steam_train_to_mallaig/config.ily +++ b/suites/steam_train_to_mallaig/config.ily @@ -1,13 +1,12 @@ \version "2.19.0" %% Globals global = { - \key d \major + \key a \mixolydian } confTempo = { \tempo 4 = 80 } %% Format -part = { \partial 8 \grace{s4.} s8 } measure = { \grace {s1} s2 | } halfline = { \repeat unfold 4 \measure } line = { \repeat unfold 2 { \halfline } } diff --git a/suites/steam_train_to_mallaig/notes.pipes.ily b/suites/steam_train_to_mallaig/notes.pipes.ily index 17b1c5e..9561847 100644 --- a/suites/steam_train_to_mallaig/notes.pipes.ily +++ b/suites/steam_train_to_mallaig/notes.pipes.ily @@ -17,10 +17,13 @@ pipesIntro = { \grg e16 c8. \grg c8 \grip c4. | \grg d8 e8. d16 \grg G16 \grd a8.\grd b8\fermata | } +pipesAA = { + \dble e8 \gra e16 d16 \grg d16 c16 \grg a8 | + \grg d16 c16 \grG c16 d16 \grg G16 \grd G16 \gre G16 \grd a16 | +} pipesA = { \repeat unfold 2 { - \dble e8 \gra e16 d16 \grg d16 c16 \grg a8 | - \grg d16 c16 \grG c16 d16 \grg G16 \grd G16 \gre G16 \grd a16 | + \pipesAA } } pipesB = { diff --git a/suites/steam_train_to_mallaig/notes.pipes.seconds.ily b/suites/steam_train_to_mallaig/notes.pipes.seconds.ily new file mode 100644 index 0000000..7275e56 --- /dev/null +++ b/suites/steam_train_to_mallaig/notes.pipes.seconds.ily @@ -0,0 +1,80 @@ +% 6/8 - 2/4 Steam Train to Mallaig +% Pipes (Seconds / 3rd Piper) +\version "2.18.2" +composerPipesSecnd = "Mary-Ann MacKinnon" +arrangerPipesSecnd = "" +pipessecndglobal = { + \key a \mixolydian +} +% Music +pipessecndIntro = { + R2.*7 +} +pipessecndAA = { + R2*4 +} +pipessecndAB = { + \repeat unfold 2 { + A8 [ \grg A16 f16 ] \grg f16 [ e16 \grg c8 ] | + \grg f16 [ e16 \gra e16 f16 ] \grg b16 [ \grd b16 \gre b16 \grd c16 ] | + } +} + +pipessecndB = { + \dblg g4~ g8 [ A16 g16 ] | + \hdblf f4~ f8 [ A16 f16 ] | + \dble e4~ e4~ | + e4~ e4 +} + +pipessecndC = { + \grg c4~ c4~ | + c4~ c16 [ d16 \grg c16 b16 ] | + \grg c4~ c4~ | + c4~ c16 [ d16 \grg c16 b16 ] | + + \grg d4~ d4~ | + d4~ d16 [ e16 \grg d16 b16 ] | + \grg c4~ c4~ | + c4~ c16 [ d16 \grg c16 b16 ] +} + +pipessecndD = { + \grg c16 [ e16 \gra e16 c16 ] \grg c16 [ e16 \gra e16 b16 ] | + \grg b16 [ d16 \grc d16 b16 ] \grg b16 [ d16 \grc d16 a16 ] | + \grg a16 [ c16 \grG c16 a16 ] \grg d16 [ a16 \grg c16 a16 ] | + \grg a16 [ c16 \grG c16 a16 ] \grg d16 [ a16 \grg c16 a16 ] | + + \pipessecndB +} + +pipessecndE = { + \repeat unfold 2 { + \grg a16 [ \grd c16 e16 \grg a16 ] \grd c16 [ e16 a16 \grd c16 ] + \grg G16 [ b16 d16 G16 ] \grg b16 [ d16 G16 \grd b16 ] + \grg a16 [ \grd c16 e16 \grg a16 ] \grd c16 [ e16 a16 \grd c16 ] + e16 [ \grg a16 c16 e16 ] \grg a16 [ \grd c16 e16 a16 ] + } +} + +pipessecndF = { + A16 [ \grg A16 \grg A16 f16~ ] f16 [ \grg f16 e8 ] + \grg d16 [ c16 d16 \dble e16~ ] e4 | + \grg d16 [ \gre d16 \grG d16 \grg d16~ ] d16 [ A16 f8 ] | + \dblc c8 [ \gre a8~ ] a4 | + + \grg c16 [ \grd c16 \gre c16 a16~ ] a16 [ d16 c8 ] + \grg d16 [ e16 f16 \grg e16~ ] e4 | + \grg b16 [ c16 d8~ ] d4 | + \grg d16 [ e16 f8~ ] f4 | + + \grg e4~ e4 | + \grg d4~ d4 | + A8 [ \grg A16 f16 ] \grg f16 [ e16 \grg c8 ] | + \grg f16 [ e16 \gra e16 f16 ] \grg b16 [ \grd b16 \gre b16 \grd c16 ] | + + A8 [ \grg A16 f16 ] \grg f16 [ e16 \grg c8 ] | + \grg b4~ b4~ | + \grg b16 [ \grd b16 \gre b8 ] \grd c4~ | + c4~ c4 | +} \ No newline at end of file diff --git a/suites/steam_train_to_mallaig/notes.pipes.thirds.ily b/suites/steam_train_to_mallaig/notes.pipes.thirds.ily new file mode 100644 index 0000000..2f69dce --- /dev/null +++ b/suites/steam_train_to_mallaig/notes.pipes.thirds.ily @@ -0,0 +1,81 @@ +% 6/8 - 2/4 Steam Train to Mallaig +% Pipes (1st Harmony / 3rd Piper) +\version "2.18.2" +composerPipesthrd = "" +arrangerPipesthrd = "" +pipesthrdglobal = { + \key a \mixolydian +} +% Music +pipesthrdIntro = { + R2.*7 +} +pipesthrdAA = { + R2*6 +} +pipesthrdAB = { + \dble e8 [ \gra e16 d16 ] \grg d16 [ c16 \grg a8 ] | + d16 [ c16 \grG c16 d16 ] \grg G16 [ \grd G16 G16 \grd a16 ] +} + +pipesthrdBA = { + \grg e4~ e8 [ \grg f16 e16 ] | + \thrwd d4~ d8 [ \grg e16 d16 ] | + \dblc c4~ c4~ | + c4~ c4 +} + +pipesthrdC = { + \grg e4~ e4~ | + e4~ e16 [ f16 \grg e16 d16 ] + \grg e4~ e4~ | + e4~ e16 [ f16 \grg e16 d16 ] | + + \grg f4~ f4~ | + f4~ f16 [ g16 \grA f16 d16 ] | + \grg e4~ e4~ | + e4~ e16 [ f16 \grg e16 d16 ] +} + +pipesthrdD = { + \grg c16 [ e16 \gra e16 c16 ] \grg c16 [ e16 \gra e16 b16 ] | + \grg b16 [ d16 \grc d16 b16 ] \grg b16 [ d16 \grc d16 a16 ] | + \grg a16 [ c16 \grG c16 a16 ] \grg d16 [ a16 \grg c16 a16 ] | + \grg a16 [ c16 \grG c16 a16 ] \grg d16 [ a16 \grg c16 a16 ] | + + \grg e4~ e8 [ \grg f16 e16 ] | + \thrwd d4~ d8 [ \grg e16 d16 ] | + \dblc c4~ c4~ | + c4~ c4 +} + +pipesthrdE = { + \repeat unfold 2 { + \grg c16 [ e16 A16 c16 ] \grg e16 [ A16 c16 e16 ] | + \grg b16 [ d16 g16 \grA b16 ] d16 [ g16 \grA b16 d16 ] | + \grg c16 [ e16 A16 c16 ] \grg e16 [ A16 c16 e16 ] | + A16 [ c16 \grg e16 A16 ] c16 [ e16 A16 c16 ] | + } +} + +pipesthrdF = { + \dblA A4~ A4 | + e8. [ \dblA A16~ ] A4 | + \grf g8. [ \grA f16~ ] f4 | + \dblA A8 [ e8~ ] e4 | + + \grg e16 [ \grg e16 \gra e16 \dblA A16~ ] A4 | + G16 [ a16 b16 \grg e16~ ] e4 | + \grg b16 [ c16 d8 ] \grg b16 [ c16 d8 ] | + \grg d16 [ e16 f8 ] \grg d16 [ e16 f8 ] | + + \dblA A4~ A4 | + \grf g4~ g4 | + A8 [ \grg A16 f16 ] \grg f16 [ e16 \grg c8 ] | + \grg f16 [ e16 \grd e16 f16 ] \grg b16 [ \grd b16 \gre b16 \grd c16 ] | + + A8 [ \grg A16 f16 ] \grg f16 [ e16 \grg c8 ] | + \dblg g4~ g4~ | + g16 [ d16 \gre d16 \grc d16 ] \dble e4~ | + e4~ e4 +} \ No newline at end of file diff --git a/suites/steam_train_to_mallaig/pipes.full.ly b/suites/steam_train_to_mallaig/pipes.full.ly new file mode 100644 index 0000000..1131f05 --- /dev/null +++ b/suites/steam_train_to_mallaig/pipes.full.ly @@ -0,0 +1,268 @@ +\version "2.19.0" + +\include "bagpipe.ly" + +\include "./config.ily" +\include "./notes.pipes.ily" +\include "./notes.pipes.seconds.ily" +\include "./notes.pipes.thirds.ily" + +%% Remove EmptyStaves +\layout { + \context { + \RemoveEmptyStaffContext + } + \context { + \Score + \override VerticalAxisGroup #'remove-first = ##t + } + \context{ + \StaffGroup + \override SystemStartBracket #'collapse-height = #5 + } +} + +\layout { + indent = 8.0 + short-indent = 2.0 +} + +%% We want this a4 in portrait +#(set-default-paper-size "a4portrait") + + +\score { + \new StaffGroup << + \new Staff = "pipes" \with { + instrumentName = \markup{ \instrumentPipes } + shortInstrumentName = \markup{ \shortInstrumentPipes } + } { + \global + \pipeglobal + \set Score.markFormatter = #format-mark-box-letters + \time 6/8 + << + \new NullVoice = "format" { + \repeat unfold 7 { \grace {s2} s2. } + \bar "||" + \break + + \time 2/4 + \bar "||" + \mark \default + << + \repeat unfold 2 { \halfline } + { s2*2 \bar "--" \mark \markup { \box \tiny "2nd Piper" } } + >> + \break + + \mark \default + \repeat volta 2 {\halfline } + \break + + \mark \default + \repeat unfold 1 { \line } + \break + + \bar "||" + \mark \default + \repeat unfold 1 { \line } + \break + + \bar "||" + \mark \default + \repeat unfold 1 { \line \line} + \pageBreak + + \bar "||" + \mark \markup \box \bold "Fine" + \line \line + \bar "|." + } + \new Voice = "pipes" { + \pipesIntro + + + \repeat unfold 2 { + \pipesA + } + %\repeat volta 2 { + \pipesB + %} + + \pipesC + + \pipesD + + \pipesE + + \pipesF + }%Pipes + >> + } + \new Staff = "piper3 - seconds" \with { + instrumentName = \markup{ \instrumentPipesSecnd } + shortInstrumentName = \markup{ \shortInstrumentPipesSecnd } + } { + \pipessecndglobal + %%Tune + R2.*7 + + \repeat unfold 1 { + R2*2 \pipesAA \pipesA + + %\repeat volta 2 { + \pipesB + %} + + \pipesC + + \pipesD + + \pipesE + } + \pipesF + + } + \new Staff = "piper4 - thirds" \with { + instrumentName = \markup{ \instrumentPipesThrd } + shortInstrumentName = \markup{ \shortInstrumentPipesThrd } + } { + \pipesthrdglobal + %% Thirds + \pipesthrdIntro + + \repeat unfold 1 { + \pipesthrdAA + \pipesthrdAB + + %\repeat volta 2 { + \pipesthrdBA + %} + + \pipesthrdC + + \pipesthrdD + + \repeat unfold 2 { + \pipesthrdE + } + } + + \pipesthrdF + } + + >> + \header { + title = \title + meter = \meter + composer = \markup \large { + \column \right-align { + $(if (not (string=? "" composerPipes)) #{ \markup {\line { \composerPipes ":" }} #} ) + } + \column \right-align { + $(if (not (string=? "" composerPipes)) #{ \markup {\line { \instrumentPipes }}#} ) + } + } + } +} +\score { + \unfoldRepeats \new StaffGroup << + \global + \new Staff = "piper1" { + \pipeglobal + \set Staff.midiInstrument = #"bagpipe" + %%Tune + \tempo 4. = 40 + \time 6/8 + \pipesIntro + + \break + \confTempo + \time 2/4 + \repeat unfold 1 { + \mark \default + \repeat volta 2 {\pipesA} + \mark \default + \repeat volta 2 {\pipesB} + \mark \default + \repeat unfold 1 {\pipesC} + \mark \default + \repeat unfold 1 {\pipesD} + \mark \default + \repeat unfold 1 {\pipesE} + } + \mark \markup \box \bold "Fine" + \pipesF + + } + \new Staff = "piper2" { + \pipeglobal + \set Staff.midiInstrument = #"bagpipe" + %%Tune + R2.*7 + + \repeat unfold 1 { + R2*2 \pipesAA \pipesA + + \repeat volta 2 { \pipesB } + + \pipesC + + \pipesD + + \pipesE + } + \pipesF + } + \new Staff = "piper3 - seconds" { + \pipessecndglobal + \set Staff.midiInstrument = #"bagpipe" + %% Seconds + \pipessecndIntro + + \repeat unfold 1 { + \pipessecndAA + \pipessecndAB + + \repeat volta 2 { \pipessecndB } + + \pipessecndC + + \pipessecndD + + \repeat volta 2 { \pipessecndE } + } + + \pipessecndF + } + \new Staff = "piper4 - thirds" { + \pipesthrdglobal + \set Staff.midiInstrument = #"bagpipe" + %% Thirds + \pipesthrdIntro + + \repeat unfold 1 { + \pipesthrdAA + \pipesthrdAB + + \repeat volta 2 { \pipesthrdBA } + + \pipesthrdC + + \pipesthrdD + + \repeat volta 2 { \pipesthrdE } + } + + \pipesthrdF + } + >> + \midi { \confTempo } + \header { + title = \title + meter = \meter + instrument = \instrumentPipes + composer = \composerPipes + } +} diff --git a/suites/steam_train_to_mallaig/pipes.ly b/suites/steam_train_to_mallaig/pipes.ly index 1b2d07b..a927428 100644 --- a/suites/steam_train_to_mallaig/pipes.ly +++ b/suites/steam_train_to_mallaig/pipes.ly @@ -1,4 +1,3 @@ - \version "2.18.2" \include "bagpipe.ly" @@ -6,40 +5,48 @@ \include "./config.ily" \include "./notes.pipes.ily" - #(set-default-paper-size "a4" 'portrait) \score { \new Staff { \global \pipeglobal \set Score.markFormatter = #format-mark-box-letters - \time 6/8 << \new NullVoice = "format" { + + \time 6/8 \repeat unfold 7 { \grace {s2} s2. } \bar "||" \break \time 2/4 + \mark \default + << + \repeat volta 2 { \halfline } + { s2*2 \bar "--" \mark \markup { \box \tiny "2nd Piper" } } + >> + \break + \mark \default \repeat volta 2 { \halfline } \break - \mark \default - \repeat volta 2 {\halfline } - \break + \mark \default \repeat unfold 1 { \line } - \bar "||" \break + + \bar "||" \mark \default \repeat unfold 1 { \line } - \bar "||" \break + + \bar "||" \mark \default \repeat unfold 1 { \line \line} - \bar "||" \break - \mark \default + + \bar "||" + \mark \markup \box \bold "Fine" \line \line \bar "|." }%Format @@ -47,8 +54,12 @@ \new Voice = "pipes" { \pipesIntro - \pipesA - \pipesB + %\repeat volta 2 { + \pipesA + %} + %\repeat volta 2 { + \pipesB + %} \pipesC \pipesD \pipesE @@ -67,20 +78,24 @@ } \score { - \new Staff { \global \pipeglobal + \unfoldRepeats \new Staff { + \global \pipeglobal \set Staff.midiInstrument = #"bagpipe" %%Tune + \tempo 4. = 40 \time 6/8 \pipesIntro \time 2/4 + \confTempo \repeat unfold 1 { - \repeat unfold 2 {\pipesA} - \repeat unfold 2 {\pipesB} - \repeat unfold 2 {\pipesC} - \repeat unfold 2 {\pipesD} - \repeat unfold 2 {\pipesE} + \repeat volta 2 { \pipesA } + \repeat volta 2 { \pipesB } + \pipesC + \pipesD + \pipesE } + \pipesF } \midi { \confTempo } @@ -91,4 +106,5 @@ composer = \composerPipes arranger = \arrangerPipes } + } diff --git a/suites/steam_train_to_mallaig/pipes.seconds.ly b/suites/steam_train_to_mallaig/pipes.seconds.ly new file mode 100644 index 0000000..a2488a5 --- /dev/null +++ b/suites/steam_train_to_mallaig/pipes.seconds.ly @@ -0,0 +1,115 @@ +\version "2.18.2" + +\include "bagpipe.ly" + +\include "./config.ily" +\include "./notes.pipes.seconds.ily" + +\score { + \new Staff { + \global + \pipessecndglobal + \compressFullBarRests + \override Score.MultiMeasureRest.expand-limit = #1 + \set Score.markFormatter = #format-mark-box-letters + << + \new NullVoice = "format" { + + \time 6/8 + s2.*7 + \bar "||" + + \time 2/4 + \bar "||" + \mark \default + s2*4 + \repeat unfold 1 { \halfline } + \break + + \mark \default + \repeat volta 2 {\halfline } + \break + + \mark \default + \repeat unfold 1 { \line } + \break + + \bar "||" + \mark \default + \repeat unfold 1 { \line } + \break + + \mark \default + \repeat volta 2 { \halfline \break \halfline } + \break + + \mark \markup \box \bold "Fine" + \line \line + \bar "|." + }%Format + \new Voice = "seconds" { + \pipessecndIntro + + \pipessecndAA + \pipessecndAB + + %\repeat volta 2 { + \pipessecndB + %} + + \pipessecndC + + \pipessecndD + + %\repeat volta 2 { + \pipessecndE + %} + + \pipessecndF + } + >> + } + \header { + title = \title + meter = \meter + instrument = \instrumentSecnd + composer = \composerPipesSecnd + arranger = \arrangerPipesSecnd + } +} +\score { + \unfoldRepeats \new Staff { + \global \pipessecndglobal + \set Staff.midiInstrument = #"bagpipe" + %%Tune + \tempo 4. = 40 + \time 6/8 + \pipessecndIntro + + \time 2/4 + \confTempo + \repeat unfold 1 { + \pipessecndAA + \pipessecndAB + + \repeat volta 2 { \pipessecndB } + + \pipessecndC + + \pipessecndD + + \repeat volta 2 { \pipessecndE } + } + + \pipessecndF + } + \midi { \confTempo } + \header { + title = \title + meter = \meter + instrument = \instrumentSecnd + composer = \composerPipesSecnd + arranger = \arrangerPipesSecnd + } + +} diff --git a/suites/steam_train_to_mallaig/pipes.thirds.ly b/suites/steam_train_to_mallaig/pipes.thirds.ly new file mode 100644 index 0000000..8df30c2 --- /dev/null +++ b/suites/steam_train_to_mallaig/pipes.thirds.ly @@ -0,0 +1,115 @@ +\version "2.18.2" + +\include "bagpipe.ly" + +\include "./config.ily" +\include "./notes.pipes.thirds.ily" + +\score { + \new Staff { + \global + \pipesthrdglobal + \compressFullBarRests + \override Score.MultiMeasureRest.expand-limit = #1 + \set Score.markFormatter = #format-mark-box-letters + << + \new NullVoice = "format" { + + \time 6/8 + s2.*7 + \bar "||" + + \time 2/4 + \bar "||" + \mark \default + \repeat unfold 1 { \grace {s4} s2*8 } + \break + + \mark \default + \repeat volta 2 { \grace { s32 } s2*4 } + \break + + \mark \default + \repeat unfold 1 { \line } + \break + + \bar "||" + \mark \default + \repeat unfold 1 { \line } + \break + + \mark \default + \repeat volta 2 { \halfline \break \halfline } + \break + + \mark \markup \box \bold "Fine" + \line \line + \bar "|." + }%Format + + \new Voice = "thirds" { + \pipesthrdIntro + + \pipesthrdAA + \pipesthrdAB + + %\repeat volta 2 { + \pipesthrdBA + %} + + \pipesthrdC + + \pipesthrdD + + %\repeat volta 2 { + \pipesthrdE + %} + + \pipesthrdF + } + >> + } + \header { + title = \title + meter = \meter + instrument = \instrumentThrd + composer = \composerPipesthrd + arranger = \arrangerPipesthrd + } +} +\score { + \unfoldRepeats \new Staff { + \global \pipesthrdglobal + \set Staff.midiInstrument = #"bagpipe" + %%Tune + \tempo 4. = 40 + \time 6/8 + \pipesthrdIntro + + \time 2/4 + \confTempo + \repeat unfold 1 { + \pipesthrdAA + \pipesthrdAB + + \repeat volta 2 { \pipesthrdBA } + + \pipesthrdC + + \pipesthrdD + + \repeat volta 2 { \pipesthrdE } + } + + \pipesthrdF + } + \midi { \confTempo } + \header { + title = \title + meter = \meter + instrument = \instrumentThrd + composer = \composerPipesthrd + arranger = \arrangerPipesthrd + } + +}