Partial_iterator::process (Moment m)
{
if (Duration * dur
- = unsmob_duration (get_music ()->get_property ("partial-duration")))
+ = unsmob_duration (get_music ()->get_property ("duration")))
{
Context *ctx = get_outlet ();
Moment now = ctx->now_mom ();
(descend-to-context
(context-spec-music (make-music 'PartialSet
'origin location
- 'partial-duration dur)
+ 'duration dur)
'Timing)
'Score))
context-type 'Timing
element (music
'PartialSet
- partial-duration ?duration))))
+ duration ?duration))))
(and ?duration
(format #f "\\partial ~a"
(page-turn-permission ,symbol? "When the music is at top-level,
whether to allow, forbid or force a page turn.")
(parenthesize ,boolean? "Enclose resulting objects in parentheses?")
- (partial-duration ,ly:duration? "The length of a partial measure as a
-duration.")
(part-combine-status ,symbol? "Change to what kind of state?
Options are @code{solo1}, @code{solo2} and @code{unisono}.")
(pitch ,ly:pitch? "The pitch of this note.")
(PartialSet
. ((description . "Create an anacrusis or upbeat (partial measure).")
(iterator-ctor . ,ly:partial-iterator::constructor)
+ ;; The length-callback is kind of cheesy since 'elements is
+ ;; empty. We just use that in order to get a zero length
+ ;; for the overall timing in spite of having a non-zero
+ ;; duration field.
+ (length-callback . ,ly:music-sequence::cumulative-length-callback)
(types . (general-music partial-set))
))