Follow-up Comment #1, bug #31558 (project denemo):
Sorry, there were bugs in that one too. It overwrote the first TypeOn with
the second TypeOff when you started in the first measure, and then deleted
some of your score to boot. I THINK this is good. -Dan W.
(let ((N 4)(Extra? #t)) ;set N to be number of bars to preview
(define (MoveRightNBars NumBars)
(if (> NumBars 0)
(begin
(d-MoveToMeasureRight)
(MoveRightNBars (- NumBars 1)))
))
(d-PushPosition)
(while (d-MoveToStaffUp))
(while (d-PrevObjectInMeasure)) ;make sure we get to start o' bar.
(d-TypesettingOn)
(d-PushPosition)
(MoveRightNBars N)
(d-TypesettingOff)
(d-PushPosition)
(d-MoveToBeginning)
(if (d-DirectiveGet-standalone-postfix "Typesetting Control") (set! Extra?
#f)) ;if going to the beginning, we ended up on top of the TypesettingOn, we
don't do this TypeOff:
(if Extra? (d-TypesettingOff))
(d-PrintPreview)
(if Extra? (d-DeleteObject)) ;delete the extra if there
(d-PopPosition)
(d-DeleteObject)
(d-PopPosition)
(d-DeleteObject)
(d-PopPosition)
) ;let
(file #22014)
_______________________________________________________
Additional Item Attachment:
File name: Preview4Bars Size:1 KB
_______________________________________________________
Reply to this item at:
<http://savannah.gnu.org/bugs/?31558>
_______________________________________________
Message sent via/by Savannah
http://savannah.gnu.org/
_______________________________________________
Denemo-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/denemo-devel
