Re: [Denemo-devel] Script to trigger a display bug.

[Nils Gey]

> Can you simplify the example?

amazingly, yes: 

(d-NewWindow)
(d-InsertA) 
(d-InsertA)
(d-InsertA)
(d-InsertA)
(d-InsertA) 

It does not happen with only 4 notes. Which means the auto-creating of a new 
measure might be involved.

Nils

> 
> 
> 
> On Sun, 2011-01-16 at 19:33 +0100, Nils Gey wrote:
> > E-Mail line-breaking has destroyed this script. Use this instead, since the 
> > defining is in the now recent git version, too:
> > 
> >  (d-NotationMagick-TwelveToneRow)
> >  (d-AddAfter)
> >  (d-NotationMagick-TwelveToneRow)
> >  (define lol (CreateAbstractionMovement))
> >  (PasteAbstractionMovement lol)
> > 
> > 
> > 
> > On Sun, 16 Jan 2011 14:56:04 +0100
> > Nils Gey <address@hidden> wrote:
> > 
> > > ;You need the latest GIT. Open Denemo and execute the following in the
> > > Scheme window.
> > > 
> > > ;This script should:
> > > ;1. Create two staffs filled with three measures of notes (works)
> > > ;2. Save all notes as a scheme data structure (works)
> > > ;3. Create a new window/tab (works)
> > > ;4. Recreate the staffs, slightly different, with the notes. First
> > > staff will be empty. ;Step 4 works for lilypond output but Denemos
> > > display is broken for the second tab. ;In a previous version I worked
> > > with a new movement instead of a window and it was correct so I suspect
> > > a bug outside of my own program.
> > > 
> > > (d-NotationMagick-TwelveToneRow)
> > > (d-AddAfter)
> > > (d-NotationMagick-TwelveToneRow)
> > > 
> > > (define lol (CreateAbstractionMovement))
> > > 
> > > (define (PasteAbstractionMovement abstractionmovement)
> > >  ; For each staff (primary list in abstractionmovement)
> > >  ; do inserting the pitch for every (for-each) object 
> > >   (d-NewWindow) ; creates a new movement with the same number of
> > > staffs (d-MoveToMovementBeginning)
> > >   (for-each (lambda (staff) 
> > >           (d-AddAfter)
> > >           (d-MoveToBeginning)
> > >           (for-each (lambda (object)
> > >                   (if (not object)
> > >                           (d-MoveToStaffDown)  ; move one down
> > > for the next iteration (ANS::InsertNotes (musobj.pitch object) 0 2)))
> > >                    staff))
> > >   abstractionmovement)            
> > > )
> > > 
> > > (PasteAbstractionMovement lol)
> > > 
> > > _______________________________________________
> > > Denemo-devel mailing list
> > > address@hidden
> > > http://lists.gnu.org/mailman/listinfo/denemo-devel
> > > 
> > 
> > _______________________________________________
> > Denemo-devel mailing list
> > address@hidden
> > http://lists.gnu.org/mailman/listinfo/denemo-devel
>