((marcato) "^")
((stopped) "+")
((tenuto) "-")
- ((staccatissimo) "|")
+ ((staccatissimo) "!")
((accent) ">")
((staccato) ".")
((portato) "_")
'())
(duration->lily-string ?unit #:force-duration #t)
(if (pair? ?count)
- (format #f "~a ~~ ~a" (car ?count) (cdr ?count))
+ (format #f "~a - ~a" (car ?count) (cdr ?count))
?count)
(new-line->lily-string))))
context-type 'Timing
element (music
'PartialSet
- partial-duration ?duration))))
+ duration ?duration))))
(and ?duration
(format #f "\\partial ~a"
quoted-voice-direction ?quoted-voice-direction
quoted-music-name ?quoted-music-name
quoted-context-id "cue"
- quoted-context-type 'Voice
+ quoted-context-type 'CueVoice
element ?music))
(format #f "\\cueDuring #~s #~a ~a"
?quoted-music-name