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

[Nils Gey]

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
>