bugDenemo - Bugs: bug #31558, Bug in preview four bars.

 
 

bug #31558: Bug in preview four bars.

Submitter:  None
Submitted:  Fri 05 Nov 2010 10:00:47 PM UTC
   
 
Category:  None Severity:  3 - Normal
Item Group:  None Status:  Fixed
Privacy:  Public Assigned to:  None
Originator Name:  Open/Closed:  Closed
* Mandatory Fields

Add a New Comment Rich Markup
   

Mon 06 Dec 2010 08:36:26 PM UTC, comment #4: 

This is indeed in git, thanks.

Richard Shann <rshann>
Group administrator
Mon 06 Dec 2010 08:31:22 PM UTC, comment #3: 

I think when savannah was down the posts I put with the new file got deleted.  I think this is clean of bugs.  This should be identical to the one already in git, I'm only submitting this to replace what vanished and assert this to be bug free.
-DW

(file #22138)

Anonymous
Sun 21 Nov 2010 08:14:06 PM UTC, comment #2: 

Still has bugs, not ready yet.  Sorry.-DW

Anonymous
Sun 14 Nov 2010 01:30:02 AM UTC, comment #1: 

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)

Anonymous
Fri 05 Nov 2010 10:00:47 PM UTC, original submission:  

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

Anonymous

 

(Note: upload size limit is set to 16384 kB, after insertion of the required escape characters.)

Attach Files:
   
   
Comment:
   

Attached Files
file #22138:  Preview4Bars added by None (1KiB - application/octet-stream)
file #22014:  Preview4Bars added by None (1KiB - application/octet-stream)
file #21937:  Preview4Bars added by None (839B - application/octet-stream)

 

Depends on the following items: None found

Items that depend on this one: None found

 

Carbon-Copy List
  • -email is unavailable- added by rshann (Updated the item)
  •  

    There are 0 votes so far. Votes easily highlight which items people would like to see resolved in priority, independently of the priority of the item set by tracker managers.

    Only logged-in users can vote.

     

    Follow 6 latest changes.

    Date Changed by Updated Field Previous Value => Replaced by
    2016-08-16 rshann Open/ClosedOpen Closed
    2010-12-06 rshann StatusIn Progress Fixed
    2010-12-06 None Attached File- Added Preview4Bars, #22138
    2010-12-06 rshann StatusNone In Progress
    2010-11-14 None Attached File- Added Preview4Bars, #22014
    2010-11-05 None Attached File- Added Preview4Bars, #21937

    Back to the top

    Powered by Savane 3.13-02a9.
    Corresponding source code