mirror of
https://github.com/kastdeur/lilydrum.git
synced 2024-12-23 01:33:32 +01:00
33 lines
1.1 KiB
Text
33 lines
1.1 KiB
Text
|
% ================================================= %
|
||
|
% Rehearsal Marks %
|
||
|
% ================================================= %
|
||
|
#(newline)
|
||
|
#(display "Midi Support loaded")
|
||
|
% 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
|
||
|
dacapoalfine = {\markTextEol "D.C. al fine" }
|
||
|
|