[Denemo-devel] [bug #31558] Bug in preview four bars.

[anonymous]

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/