updates for newest lilypond versions
This commit is contained in:
parent
152d56fe3f
commit
3cb0e00e8f
@ -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)
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
}#})
|
}#})
|
||||||
|
@ -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)
|
||||||
|
Loading…
x
Reference in New Issue
Block a user