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

[anonymous]

Follow-up Comment #3, bug #31558 (project denemo):

The problem was that when the new one-liner directive was implemented in
TypesetOn/Off, its behavior was not identical to old.  It cursored to the
right instead of staying on top of the inserted directive.  As a result is was
deleting notes, not the directives it put in.  Not sure what other scripts
this may have affected.
This update of the script for Preview4Bars should work.
-DW


(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-MoveCursorLeft)     ;get on the typesetting directive
(d-PushPosition)
(MoveRightNBars N)
(d-TypesettingOff)
(d-MoveCursorLeft)
(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, then
we don't do this TypeOff:
(if Extra? (begin (d-TypesettingOff) (d-MoveCursorLeft)))
(d-PrintPreview)
(if Extra? (d-DeleteObject))    ;delete the extra if there
(d-PopPosition)
(d-DeleteObject)
(d-PopPosition)
(d-DeleteObject)
(d-PopPosition)
) ;let

(file #22106)
    _______________________________________________________

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/