On Mon, Dec 22, 2008 at 10:18:04PM +0000, Neil Puttock wrote:
> 2008/12/22 Patrick McCarty <pnor...@gmail.com>:
>
> > BTW, I think I these properties need to be moved from "internal
> > backend" to "user backend":
> >
> > - circled-tip
> > - padding-pairs
> > - skyline-horizontal-padding
>
> I agree.
>
> Do you want to prepare a patch?
Sure. Here it is.
Thanks,
Patrick
>From 26db4c3e184f95e83db6c736ffe9adee6db693f8 Mon Sep 17 00:00:00 2001
From: Patrick McCarty <pnor...@gmail.com>
Date: Mon, 22 Dec 2008 17:17:17 -0800
Subject: [PATCH] Move three grob properties from internal to user
* 'circled-tip, 'padding-pairs, and
'skyline-horizontal-padding are user
grob properties
Signed-off-by: Patrick McCarty <pnor...@gmail.com>
---
scm/define-grob-properties.scm | 20 +++++++++-----------
1 files changed, 9 insertions(+), 11 deletions(-)
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 00cb1eb..2eda053 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -133,6 +133,8 @@ stick out of its bounds?")
(c0-position ,integer? "An integer indicating the position of
mid...@tie{}c.")
+ (circled-tip ,boolean? "Put a circle at start/end of hairpins (al/del
+niente).")
(clip-edges ,boolean? "Allow outward pointing beamlets at the
edges of beams?")
(collapse-height ,ly:dimension? "Minimum height of system start
@@ -500,6 +502,8 @@ In case of a potential collision, the grob with the smaller
tightly as possible.")
(padding ,ly:dimension? "Add this much extra space between
objects that are next to each other.")
+ (padding-pairs ,list? "An alist mapping @code{(@var{name} . @var{name})}
+to distances.")
(page-break-penalty ,number? "Penalty for page break at this
column. This affects the choices of the page breaker; it avoids a
page break at a column with a positive penalty and prefers a page break
@@ -577,6 +581,11 @@ is placed vertically.")
@code{direction-source} with this to get the direction of this
object.")
(size ,number? "Size of object, relative to standard size.")
+ (skyline-horizontal-padding ,number? "For determining the vertical
+distance between two staves, it is possible to have a configuration which
+would result in a tight interleaving of grobs from the top staff and the
+bottom staff. The larger this parameter is, the farther apart the staves
+are placed in such a configuration.")
(slash-negative-kern ,number? "The space to remove between
slashes in percent repeat glyphs. Larger values bring the two
elements closer together.")
@@ -765,9 +774,6 @@ columns.")
(note-columns ,pair? "A list of @code{NoteColumn} grobs.")
(note-head ,ly:grob? "A single note head.")
(note-heads ,ly:grob-array? "A list of note head grobs.")
-
- (padding-pairs ,list? "An alist mapping @code{(@var{name} . @var{name})}
-to distances.")
(pedal-text ,ly:grob? "A pointer to the text of a mixed-style piano
pedal.")
(pure-Y-common ,ly:grob? "A cache of the
@@ -811,9 +817,6 @@ that should only show changes.")
(cause ,scheme? "Any kind of causation objects (i.e., music, or perhaps
translator) that was the cause for this grob.")
- (circled-tip ,boolean? "Put a circle at start/end of hairpins (al/del
-niente).")
-
(delta-position ,number? "The vertical position difference.")
(details ,list? "Alist of parameters for detailed grob behavior.
@@ -856,11 +859,6 @@ acts as an index for looking up a @code{Stencil} object.")
Internally used to distribute beam shortening over stems.")
(skyline-distance ,number? "The distance between this staff and the
next one, as determined by a skyline algorithm.")
- (skyline-horizontal-padding ,number? "For determining the vertical
-distance between two staves, it is possible to have a configuration which
-would result in a tight interleaving of grobs from the top staff and the
-bottom staff. The larger this parameter is, the farther apart the staves
-are placed in such a configuration.")
(stem-info ,pair? "A cache of stem parameters.")
(use-breve-rest ,boolean? "Use breve rests for measures longer
--
1.6.0.5
_______________________________________________
lilypond-devel mailing list
lilypond-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/lilypond-devel
