[Denemo-devel] [bug #30443] Quick lilyponding in print view window

[anonymous]

Follow-up Comment #1, bug #30443 (project denemo):

I have managed to script this.  It looks like it works.
There are several new commands.  The basic ones turn typesetting on or off in
all staffs simultaneously via the lilypond commands set Score.skipTypesetting
= ##t or ##f.  Then there is a command that jumps around in the score, putting
in standalone lily directives to only typeset from the current point out to a
given number of bars ahead.  It then print previews all staffs for those bars,
and afterwards cleans up after itself by deleting those directives, ending
right where it started.
I wasn't sure which menu was best; ended up putting them in the Score menu. 
This could be changed, of course.
It seems like lilypond digests it quickly, testing it on modest sized
scores.
-Dan W.

Typesetting Off:
(d-DirectivePut-standalone-postfix "Typesetting Control" "\set
Score.skipTypesetting = ##t")
(d-MoveCursorLeft)
(d-DirectivePut-standalone-display "Typesetting Control" "TypesetOff")

Typesetting On:
(d-DirectivePut-standalone-postfix "Typesetting Control" "\set
Score.skipTypesetting = ##f")
(d-MoveCursorLeft)
(d-DirectivePut-standalone-display "Typesetting Control" "TypesetOn")

Preview4Bars: (change N to change number of bars)
(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-TypesettingOn) ;shows this bar and the next 2-by DRW
(d-PushPosition)
(MoveRightNBars N)
(d-TypesettingOff)
(d-PushPosition)
(d-MoveToBeginning)
(d-TypesettingOff)
(d-PrintPreview)
(d-DeleteObject)
(d-PopPosition)
(d-DeleteObject)
(d-PopPosition)
(d-DeleteObject)
) ;let

(file #20977, file #20978, file #20979)
    _______________________________________________________

Additional Item Attachment:

File name: Preview4Bars                   Size:0 KB
File name: TypesettingOff                 Size:0 KB
File name: TypesettingOn                  Size:0 KB


    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?30443>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/