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

[anonymous]

URL:
  <http://savannah.gnu.org/bugs/?31558>

                 Summary: Bug in preview four bars.
                 Project: GNU Denemo, a gtk+ frontend to GNU Lilypond
            Submitted by: None
            Submitted on: Fri 05 Nov 2010 10:00:47 PM UTC
                Category: None
                Severity: 3 - Normal
              Item Group: None
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open
         Discussion Lock: Any

    _______________________________________________________

Details:

The script didn't go to the beginning of the measure the cursor was in, so
that the first bar was effectively incomplete unless the cursor happened to be
at the beginning of the bar.  This should work better now.
-Dan W.

(let ((N 4)) ;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))
(d-PushPosition)
(d-TypesettingOn) 
(MoveRightNBars N)
(d-TypesettingOff)
(d-PushPosition)
(d-MoveToBeginning)
(d-TypesettingOff)
(d-PrintPreview)
(d-DeleteObject)
(d-PopPosition)
(d-DeleteObject)
(d-PopPosition)
(d-DeleteObject)
(d-PopPosition)
) ;let



    _______________________________________________________

File Attachments:


-------------------------------------------------------
Date: Fri 05 Nov 2010 10:00:47 PM UTC  Name: Preview4Bars  Size: 839B   By:
None

<http://savannah.gnu.org/bugs/download.php?file_id=21937>

    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?31558>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/