[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Denemo-devel] [bug #31558] Bug in preview four bars.
From: |
anonymous |
Subject: |
[Denemo-devel] [bug #31558] Bug in preview four bars. |
Date: |
Sun, 14 Nov 2010 01:30:03 +0000 |
User-agent: |
Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12 ( .NET CLR 3.5.30729) |
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/