If you are using multi-measure rests and create a staff for marks or
dynamics you will find that the multi-measure rests will revert to
whole measure rests unless the multi-measure rests are present in the
marks/dynamics staff. As these staffs have by default blank measures it
is convenient to be able to flood them with multi-measure rests once
you have finished installing the marks/dynamics.
Here is a script that does that:
8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8
(d-GoToEmptyMeasure)
(while (EmptyMeasure?)
(d-PushPosition)
(let loop ((count 1))
(if (and (EmptyMeasure?) (d-MeasureRight))
(loop (1+ count))
(if (EmptyMeasure?)
(begin
(d-PopPosition)
(d-MultiMeasureRests count))
(begin
(d-PopPosition)
(d-MultiMeasureRests (1- count))
(d-GoToEmptyMeasure))))))
8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8><8
You would use this at the final stage, when all your marks/dynamics
were in, otherwise you will have to ungroup the multi measure rests and
re-make them after inserting stuff.
Richard
