Closes #19: deprecation warnings due to property paths

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

View File

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

View File

@ -4,20 +4,20 @@
% From Svenax's bagpipemusic % From Svenax's bagpipemusic
markText = #(define-music-function (parser location text) (string?) #{ 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 \mark \markup $text
#}) #})
markTextEol = #(define-music-function (parser location text) (string?) #{ markTextEol = #(define-music-function (parser location text) (string?) #{
\once \override Score.RehearsalMark #'break-visibility = #end-of-line-visible \once \override Score.RehearsalMark.break-visibility = #end-of-line-visible
\once \override Score.RehearsalMark #'self-alignment-X = #RIGHT \once \override Score.RehearsalMark.self-alignment-X = #RIGHT
\mark \markup $text \mark \markup $text
#}) #})
markTextEolDown = #(define-music-function (parser location text) (string?) #{ markTextEolDown = #(define-music-function (parser location text) (string?) #{
\once \override Score.RehearsalMark #'break-visibility = #end-of-line-visible \once \override Score.RehearsalMark.break-visibility = #end-of-line-visible
\once \override Score.RehearsalMark #'self-alignment-X = #RIGHT \once \override Score.RehearsalMark.self-alignment-X = #RIGHT
\once \override Score.RehearsalMark #'direction = #DOWN \once \override Score.RehearsalMark.direction = #DOWN
\mark \markup $text \mark \markup $text
#}) #})
altBracket = #(define-music-function (parser location tag) (string?) #{ altBracket = #(define-music-function (parser location tag) (string?) #{