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

 
 

bug #31558: Bug in preview four bars.

Submitted by:  None
Submitted on:  Fri Nov 5 22:00:47 2010  
 
Category: NoneSeverity: 3 - Normal
Item Group: NoneStatus: Fixed
Privacy: PublicAssigned to: None
Open/Closed: Closed

Add a New Comment (Rich MarkupRich Markup):
   

You are not logged in

Please log in, so followups can be emailed to you.

 

Mon Dec 6 20:36:26 2010, comment #4:

This is indeed in git, thanks.

Richard Shann <rshann>
Project Administrator
Mon Dec 6 20:31:22 2010, 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 Nov 21 20:14:06 2010, comment #2:

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

Anonymous
Sun Nov 14 01:30:02 2010, 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 Nov 5 22:00:47 2010, 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 File(s):
   
   
Comment:
   

Attached Files
file #22138:  Preview4Bars added by None (1kB - application/octet-stream)
file #22014:  Preview4Bars added by None (1kB - 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
  • -unavailable- added by rshann (Updated the item)
  •  

    Do you think this task is very important?
    If so, you can click here to add your encouragement to it.
    This task has 0 encouragements so far.

    Only logged-in users can vote.

     

    Please enter the title of George Orwell's famous dystopian book (it's a date):

     

     

    Follow 6 latest changes.

    Date Changed By Updated Field Previous Value => Replaced By
    Tue Aug 16 15:50:29 2016rshannOpen/ClosedOpen=>Closed
    Mon Dec 6 20:36:26 2010rshannStatusIn Progress=>Fixed
    Mon Dec 6 20:31:22 2010NoneAttached File-=>Added Preview4Bars, #22138
    Mon Dec 6 09:38:12 2010rshannStatusNone=>In Progress
    Sun Nov 14 01:30:02 2010NoneAttached File-=>Added Preview4Bars, #22014
    Fri Nov 5 22:00:47 2010NoneAttached File-=>Added Preview4Bars, #21937

    Back to the top


    Powered by Savane 3.1-cleanup