mirror of
https://github.com/kastdeur/pipeband-music.git
synced 2024-10-31 17:43:32 +01:00
58 lines
893 B
Text
58 lines
893 B
Text
% 2/4 Caller Herrin
|
|
% Tenor
|
|
\version "2.18.2"
|
|
composerTenor = "E.T. de Boone, v0.3"
|
|
arrangerTenor = ""
|
|
tenorglobal = {}
|
|
|
|
startRPiano = #(define-event-function (parser location) () #{
|
|
-\tweak HorizontalBracketText.text "R"
|
|
\startGroup
|
|
#})
|
|
|
|
startTPiano = #(define-event-function (parser location) () #{
|
|
-\tweak HorizontalBracketText.text "T"
|
|
\startGroup
|
|
#})
|
|
|
|
% Music
|
|
tenorA = \drummode {
|
|
\tag #'fineRemove {
|
|
\tag #'upbeat { d8 | }
|
|
g4\up
|
|
|
|
d8\startRPiano g |
|
|
d8 g d4\stopGroup |
|
|
g4\up d8.\up
|
|
g16 |
|
|
d4 g8
|
|
|
|
d8 |
|
|
}
|
|
|
|
g4\up d8\startRPiano g |
|
|
d8 g d4\stopGroup |
|
|
g4 \scoop { d8. g16 |
|
|
d4 } r8
|
|
}
|
|
|
|
tenorB = \drummode {
|
|
\tag #'upbeat { g8 | }
|
|
\stf d2 |
|
|
r4. g8
|
|
\stf d2 |
|
|
%d16. g32 d16. d32 g4 |
|
|
r4. g8
|
|
|
|
\stf d2 |
|
|
r2 |
|
|
%\flourish { d4 g4 } |
|
|
|
|
|
|
\flourish { d4 g4 } |
|
|
%d4 d16 g d d |
|
|
d4 g8 d8 |
|
|
\tag #'fine {
|
|
\removeWithTag #'fineRemove \tenorA
|
|
}
|
|
}
|