kastdeur/lilydrum
1
0
Fork 0
mirror of https://github.com/kastdeur/lilydrum.git synced 2024-12-22 09:13:33 +01:00
Code Issues Releases Activity

Closes #19: deprecation warnings due to property paths

Browse source
This commit is contained in:
Eric Teunis de Boone 2023-08-09 00:33:39 +02:00
parent 5440780bb0
commit a627bafd2a
2 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lilydrum/embellishments.ily
View file

@ -8,8 +8,8 @@ drumgrace = #(define-music-function (parser location notes ) ( ly:music? ) #{
\once \override Beam.positions = #'(2 . 2)
\once \override DrumStaff.Stem.length = #5
\override Flag.stroke-style = #"grace"
\override Score.GraceSpacing #'spacing-increment = #0
\override Score.Stem #'beamlet-max-length-proportion = #'(0.5 . 0.5)
\override Score.GraceSpacing.spacing-increment = #0
\override Score.Stem.beamlet-max-length-proportion = #'(0.5 . 0.5)
% Print notes
% Grace note timing is scaled, so they do not wander off too
@ -18,7 +18,7 @@ drumgrace = #(define-music-function (parser location notes ) ( ly:music? ) #{
\times 1/4 { \grace $notes }
% Revert back
\revert Score.Stem #'beamlet-default-length
\revert Score.Stem.beamlet-default-length
\revert Flag.stroke-style
\stemNeutral
#})

12
lilydrum/rehearsal_marks.ily
View file

@ -4,20 +4,20 @@
% From Svenax's bagpipemusic
markText = #(define-music-function (parser location text) (string?) #{
\once \override Score.RehearsalMark #'self-alignment-X = #LEFT
\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
\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
\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?) #{