Mark Staffs (and Dynamics Staffs) with Mulit-measure rests

[Richard Shann]

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