lilypond-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: feature request: semi-automatic vertical spacement


From: Nicolas Sceaux
Subject: Re: feature request: semi-automatic vertical spacement
Date: Sat, 28 Jan 2006 13:38:46 +0100
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (darwin)

Han-Wen Nienhuys <address@hidden> writes:

> you will need to define your own spacingTweaks music function to set
> stretching appropriately.

> muurbloem:~/src/lilypond$ cat page-layout-twopass-page-layout.ly
> blabla = {
> \break
> \pageBreak
> \spacingTweaks #'((system-Y-extent -11.050006 . 0.0)
>   (system-refpoint-Y-extent -4.0 . -4.0)
>   (system-index . 0)
>   (page-system-count . 3)
>   (page-printable-height . 148.438777952756)
>   (page-space-left . -47.1596563937008))

I find useful to have another property, the space-left that appears on
annotated output:

Index: layout-page-layout.scm
===================================================================
RCS file: /cvsroot/lilypond/lilypond/scm/layout-page-layout.scm,v
retrieving revision 1.13
diff -u -r1.13 layout-page-layout.scm
--- layout-page-layout.scm      26 Jan 2006 15:08:08 -0000      1.13
+++ layout-page-layout.scm      28 Jan 2006 12:31:16 -0000
@@ -115,6 +115,10 @@
                        (system-index . ,index)
                        (page-system-count . ,(length (page-lines page)))
                        (page-printable-height . ,(page-printable-height page)) 
+                       (page-bottom-space
+                        . ,(interval-length
+                            (cons (- (page-property page 'bottom-edge))
+                                  (page-property page 'bottom-system-edge))))
                        (page-space-left . ,(page-property page 'space-left))))
                    )))
 

unless it can be computed with the other properties, but I have not
find out how.

I've been testing that on a small book, it looks good! I'll post a
spacingTweaks function later.

nicolas




reply via email to

[Prev in Thread] Current Thread [Next in Thread]