mirror of https://github.com/kastdeur/lilydrum.git
33 lines
1.2 KiB
Plaintext
33 lines
1.2 KiB
Plaintext
% ================================================= %
|
|
% Rehearsal Marks %
|
|
% ================================================= %
|
|
|
|
% From Svenax's bagpipemusic
|
|
markText = #(define-music-function (parser location text) (string?) #{
|
|
\once \override Score.RehearsalMark.self-alignment-X = #LEFT
|
|
\mark \markup $text
|
|
#})
|
|
|
|
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
|
|
#})
|
|
|
|
markTextEolDown = #(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
|
|
\once \override Score.RehearsalMark.direction = #DOWN
|
|
\mark \markup $text
|
|
#})
|
|
altBracket = #(define-music-function (parser location tag) (string?) #{
|
|
\set Score.repeatCommands = #(list (list 'volta (markup #:text tag)))
|
|
#}
|
|
)
|
|
|
|
|
|
% Short al fine's and stuff
|
|
dcalfine = {\markTextEol "D.C. al Fine" }
|
|
dacapoalfine = {\markTextEol "Da Capo al Fine" }
|
|
fine = {\markTextEol "Fine" }
|