updates for newest lilypond versions

This commit is contained in:
tux 2025-02-09 13:06:12 +01:00
parent 152d56fe3f
commit 3cb0e00e8f
2 changed files with 2 additions and 2 deletions

View File

@ -37,7 +37,7 @@ TEXT = \markuplist {
\context { \context {
\Score \Score
% Tempo des midi files % Tempo des midi files
tempoWholesPerMinute = #(ly:make-moment midiQuarterNoteSpeed 4) tempoWholesPerMinute = #(/ midiQuarterNoteSpeed 4)
} }
} }
}#}) }#})

View File

@ -59,7 +59,7 @@ swingMusic =
(partial-duration-length (car es)) (partial-duration-length (car es))
(if (ly:music? e) (if (ly:music? e)
(if (and (eq? name 'ContextSpeccedMusic) (eq? (ly:music-property e 'name) 'PartialSet)) (if (and (eq? name 'ContextSpeccedMusic) (eq? (ly:music-property e 'name) 'PartialSet))
(ly:duration-length (ly:music-property e 'duration)) (ly:duration->moment (ly:music-property e 'duration))
(if (eq? name 'NoteEvent) (if (eq? name 'NoteEvent)
ZERO-MOMENT ZERO-MOMENT
(partial-duration-length e) (partial-duration-length e)