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

 
 

bug #31558: Bug in preview four bars.

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

Add a New Comment (Rich MarkupRich Markup):
   

You are not logged in

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

 

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

This is indeed in git, thanks.

Richard Shann <rshann>
Project 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 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 5 latest changes.

    Date Changed By Updated Field Previous Value => Replaced By
    Mon 06 Dec 2010 08:36:26 PM UTCrshannStatusIn Progress=>Fixed
    Mon 06 Dec 2010 08:31:22 PM UTCNoneAttached File-=>Added Preview4Bars, #22138
    Mon 06 Dec 2010 09:38:12 AM UTCrshannStatusNone=>In Progress
    Sun 14 Nov 2010 01:30:02 AM UTCNoneAttached File-=>Added Preview4Bars, #22014
    Fri 05 Nov 2010 10:00:47 PM UTCNoneAttached File-=>Added Preview4Bars, #21937

    Back to the top


    Powered by Savane 3.1-cleanup