* Documentation/topdocs/NEWS.tely: add inputfileref macro.

[lilypond.git] / scm / define-grob-properties.scm

diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 65f0c23270a743ef7fdb62109393cc48ca32925a..23fb59f287bfc0a3c509675d4e6f04f9f80c07d0 100644 (file)
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -2,7 +2,7 @@
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 
 ;;;;
 ;;;;  source file of the GNU LilyPond music typesetter
 ;;;; 

-;;;; (c)  1998--2004  Han-Wen Nienhuys <hanwen@cs.uu.nl>
+;;;; (c) 1998--2005  Han-Wen Nienhuys <hanwen@cs.uu.nl>

 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 
 ;;;;                 Jan Nieuwenhuizen <janneke@gnu.org>
 
 


@@ -11,13 +11,11 @@
   (if (not (equal? (object-property symbol 'backend-doc) #f))
       (begin
        (ly:warn-append "Redefining ~S" symbol)
   (if (not (equal? (object-property symbol 'backend-doc) #f))
       (begin
        (ly:warn-append "Redefining ~S" symbol)

-       (exit 2)
-      ))
+       (exit 2)))

   
   (set-object-property! symbol 'backend-type? type?)
   (set-object-property! symbol 'backend-doc description)
   
   (set-object-property! symbol 'backend-type? type?)
   (set-object-property! symbol 'backend-doc description)

-  symbol
-  )
+  symbol)

 
 ;; put this in an alist?
 (define-public
 
 ;; put this in an alist?
 (define-public


@@ -42,6 +40,7 @@ called first.  The functions take a grob and axis argument. ")
      (Y-offset-callbacks ,list? "see @code{X-offset-callbacks}.")
 
      (accidentals ,list? "List of alteration numbers.")
      (Y-offset-callbacks ,list? "see @code{X-offset-callbacks}.")
 
      (accidentals ,list? "List of alteration numbers.")

+     (add-stem-support ,boolean? "If set, the Stem object is included in this script's support") 

     
      (align-dir ,ly:dir? "Which side to align? @code{-1}: left side,
 @code{0}: around center of width, @code{1}: right side.")
     
      (align-dir ,ly:dir? "Which side to align? @code{-1}: left side,
 @code{0}: around center of width, @code{1}: right side.")


@@ -51,19 +50,9 @@ called first.  The functions take a grob and axis argument. ")
      (arch-width ,ly:dimension? "Width of the hook of a system brace.")
      (arpeggio-direction ,ly:dir? "If set, put an
 arrow on the arpeggio squiggly line.")
      (arch-width ,ly:dimension? "Width of the hook of a system brace.")
      (arpeggio-direction ,ly:dir? "If set, put an
 arrow on the arpeggio squiggly line.")

-     (attachment ,pair? "Pair of symbols
-indicating how a slur should be attached at the ends. The format is
-'(@var{left-type} . @var{right-type}), where both @var{type}s are
-symbols. The values of these symbols may be @code{alongside-stem},
-@code{stem}, @code{head} or @code{loose-end}.")
-     (attachment-offset ,pair? "cons of offsets,
-'(@var{left-offset} . @var{right-offset}).  This offset is added to
-the attachments to prevent ugly slurs.  [fixme: we need more
-documentation here].")
-
-
+  

      (auto-knee-gap ,ly:dimension? "If a gap is found between note heads
      (auto-knee-gap ,ly:dimension? "If a gap is found between note heads

-where a  horizontal beam fits that is larger than this number,  make a kneed beam.")
+where a horizontal beam fits that is larger than this number, make a kneed beam.")

      (axes ,list? "list of axis numbers.
 In the case of alignment grobs, this should contain only one number.")
 
      (axes ,list? "list of axis numbers.
 In the case of alignment grobs, this should contain only one number.")
 


@@ -91,8 +80,8 @@ Choices include @code{curved} and @code{straight}.")
      (beamed-minimum-free-lengths ,list? "list of normal minimum free stem lengths (chord to beams) given beam multiplicity.")
      (beamed-extreme-minimum-free-lengths ,list? "list of extreme minimum free stem lengths (chord to beams) given beam multiplicity.")
 
      (beamed-minimum-free-lengths ,list? "list of normal minimum free stem lengths (chord to beams) given beam multiplicity.")
      (beamed-extreme-minimum-free-lengths ,list? "list of extreme minimum free stem lengths (chord to beams) given beam multiplicity.")
 

-     (beamed-stem-shorten ,list? " How much to shorten beamed stems,
-when their direction is forced. It is a  list, since the value is different
+     (beamed-stem-shorten ,list? "How much to shorten beamed stems,
+when their direction is forced. It is a list, since the value is different

 depending on the number flags/beams.")
      (beaming ,pair?
              "Pair of number lists. Each number list specifies which
 depending on the number flags/beams.")
      (beaming ,pair?
              "Pair of number lists. Each number list specifies which


@@ -101,11 +90,11 @@ note etc. This information is used to determine how to connect the
 beaming patterns from stem to stem inside a beam.")
 
 
 beaming patterns from stem to stem inside a beam.")
 
 

-     (beautiful ,number? "number that dictates when a slur should be de-uglyfied.  It correlates with the enclosed area between noteheads and slurs.  A value of 0.1 yields only undisturbed slurs, a value of 5 will tolerate quite high blown slurs.")

      (before-line-breaking-callback ,procedure? "This procedure is
 called before line breaking, but after splitting breakable items at
 potential line breaks.")
      (between-cols ,pair? "Where to attach a loose column to")
      (before-line-breaking-callback ,procedure? "This procedure is
 called before line breaking, but after splitting breakable items at
 potential line breaks.")
      (between-cols ,pair? "Where to attach a loose column to")

+     (bound-padding ,number? "The amount of padding to insert around spanner bounds.")

      (bracket-flare ,number-pair? "A pair of numbers specifying how
 much edges of brackets should slant outward.  Value 0.0 means straight
 edges")
      (bracket-flare ,number-pair? "A pair of numbers specifying how
 much edges of brackets should slant outward.  Value 0.0 means straight
 edges")


@@ -140,21 +129,17 @@ middle C.")
 accidentals. Choices are @code{smaller} or
 @code{parentheses}.")
      (cautionary ,boolean? "Is this a cautionary accidental?")
 accidentals. Choices are @code{smaller} or
 @code{parentheses}.")
      (cautionary ,boolean? "Is this a cautionary accidental?")

-     (concaveness-gap ,ly:dimension? "A beam is printed horizontally
-if its concaveness-gap is larger than this value.  The concaveness-gap
-is the distance of an inner note head to the line between two outer
-note heads. ")
-     (concaveness-threshold ,number? "A beam is printed horizontally
-if its concaveness is bigger than this threshold.
-
-Concaveness is calculated as the sum of the vertical distances of
-inner note heads that fall outside the interval of the two outer
-note heads, to the vertically nearest outer note head, divided by the
-square of the inner notes involved.")
+     (concaveness ,number? "A beam is concave when its inner stems are
+closer to the beam than the two outside stems. This number is a
+measure of the closeness of the inner stems. It is used for damping
+the slope of the beam.")

      (collapse-height ,ly:dimension? "Minimum height of system start delimiter.  If equal or smaller, the bracket is removed.")
 
      (collapse-height ,ly:dimension? "Minimum height of system start delimiter.  If equal or smaller, the bracket is removed.")
 

-     ;;DOCME
+     (color ,color? "The color of this grob.")

 
 

+     (context ,ly:context? "Originating context of the grob")
+     
+     ;;DOCME

      (control-points ,list? "List of 4 offsets (number-pairs) that form control points for the  tie/slur shape.")
 
      (damping ,number? "Amount of beam slope damping. 0: no, 1: yes,
      (control-points ,list? "List of 4 offsets (number-pairs) that form control points for the  tie/slur shape.")
 
      (damping ,number? "Amount of beam slope damping. 0: no, 1: yes,


@@ -166,19 +151,16 @@ negative, no line is drawn at all.")
 dash-period. Should be between 0.0 (no line) and 1.0 (continuous
 line).")
 
 dash-period. Should be between 0.0 (no line) and 1.0 (continuous
 line).")
 

-     ;; [FIXME: use dash-period/dash length; see text-spanner]
-     (dashed ,number? " number representing the length of the dashes.")
- 

      ;; todo: why is this tunable?
      (dir-function ,procedure? "The function to determine the
 direction of a beam. Choices include: 
 
 @table @code
      ;; todo: why is this tunable?
      (dir-function ,procedure? "The function to determine the
 direction of a beam. Choices include: 
 
 @table @code

-@item  beam-dir-majority
+@item beam-dir-majority

 number count of up or down notes
 @item beam-dir-mean
 mean center distance of all notes
 number count of up or down notes
 @item beam-dir-mean
 mean center distance of all notes

-@item  beam-dir-median.
+@item beam-dir-median.

 mean center distance weighted per note
 @end table
 
 mean center distance weighted per note
 @end table
 


@@ -194,6 +176,8 @@ mean center distance weighted per note
 the vertical edges '(@var{left-height} . @var{right-height}).")
      (edge-text ,pair? "A pair specifying the texts to be set at the
 edges '(@var{left-text} . @var{right-text}).")
 the vertical edges '(@var{left-height} . @var{right-height}).")
      (edge-text ,pair? "A pair specifying the texts to be set at the
 edges '(@var{left-text} . @var{right-text}).")

+     (excentricity ,number? "How asymmetrical to make a slur. Positive means move the center to the right.")
+     

      (expand-limit ,integer? "maximum number of measures expanded in church rests.")
 
      ;; remove me? 
      (expand-limit ,integer? "maximum number of measures expanded in church rests.")
 
      ;; remove me? 


@@ -208,16 +192,6 @@ by this much.")
 offset is added just before outputting the symbol, so the typesetting
 engine is completely oblivious to it.")
 
 offset is added just before outputting the symbol, so the typesetting
 engine is completely oblivious to it.")
 

-      ;; docme.
-     (extremity-offset-alist ,list? "The offset adds to the centre of
-the note head, or stem.
-
-Format: alist (attachment stem-dir*dir slur-dir*dir) -> offset.
-")
-
-     ;;
-     (extremity-function ,procedure? "A function that calculates the
-attachment of  a slur-end. The function takes a slur and direction argument and returns a symbol.")  

      (finger-code ,symbol? "Code for the type of fingering indication in a
 fret diagram.  Options include @code{none}, @code{in-dot}, and @code{below-string}.")
      (flag-style ,symbol?
      (finger-code ,symbol? "Code for the type of fingering indication in a
 fret diagram.  Options include @code{none}, @code{in-dot}, and @code{below-string}.")
      (flag-style ,symbol?


@@ -225,7 +199,6 @@ fret diagram.  Options include @code{none}, @code{in-dot}, and @code{below-strin
 typeset on a Stem. Valid options include @code{()} and
 @code{mensural}.  Additionally, @code{\"no-flag\"} switches off the
 flag.")
 typeset on a Stem. Valid options include @code{()} and
 @code{mensural}.  Additionally, @code{\"no-flag\"} switches off the
 flag.")

-     (stroke-style ,string? "set to \"grace\" to turn stroke through flag on.")

      (flag-width-function ,procedure? "Procedure that computes the width of a half-beam (a non-connecting beam.).")
      (font-family ,symbol? "The font family is the broadest category for selecting text fonts. Options include: @code{sans}, @code{roman} ")
      (font-encoding ,symbol? "The font encoding is the broadest
      (flag-width-function ,procedure? "Procedure that computes the width of a half-beam (a non-connecting beam.).")
      (font-family ,symbol? "The font family is the broadest category for selecting text fonts. Options include: @code{sans}, @code{roman} ")
      (font-encoding ,symbol? "The font encoding is the broadest


@@ -248,6 +221,9 @@ include @code{medium}, @code{bold}, @code{bold-narrow}, etc.")
      (font-shape ,symbol? "Select the shape of a font. Choices include @code{upright},
 @code{italic}, @code{caps}.")
 
      (font-shape ,symbol? "Select the shape of a font. Choices include @code{upright},
 @code{italic}, @code{caps}.")
 

+     (forced-distance ,ly:dimension? "A fixed distance between object
+reference points in an alignment.")
+

      (force-hshift ,number? "This specifies a manual shift for notes
 in collisions. The unit is the note head width of the first voice
 note.  This is used by @internalsref{note-collision-interface}.")
      (force-hshift ,number? "This specifies a manual shift for notes
 in collisions. The unit is the note head width of the first voice
 note.  This is used by @internalsref{note-collision-interface}.")


@@ -284,15 +260,21 @@ slur, the closer it is to this height.")
      (horizontal-shift ,integer? "An integer that identifies ranking
 of note-column for horizontal shifting. This is used by
 @internalsref{note-collision-interface}.")
      (horizontal-shift ,integer? "An integer that identifies ranking
 of note-column for horizontal shifting. This is used by
 @internalsref{note-collision-interface}.")

+     (inside-slur ,boolean? "If set, this script should be inside the
+slur. If set to false, the script places itself around the slur. If
+unset, script and slur ignore each other ")

      (inspect-quants ,number-pair? "If debugging is set,
 set beam quant to this position, and print the respective scores.")
      (inspect-quants ,number-pair? "If debugging is set,
 set beam quant to this position, and print the respective scores.")

-     
+
+     (allow-outside-line ,boolean? "If set, allow this column to
+things sticking into the margin.")

      (kern ,ly:dimension? "Amount of extra white space to add. For
 bar line, this is the amount of space after a thick line.")
      (knee ,boolean? "Is this beam kneed?")
      (knee-spacing-correction ,number? "Factor for the optical
 correction amount for kneed beams. Set between 0 for no correction and
 1 for full correction.")
      (kern ,ly:dimension? "Amount of extra white space to add. For
 bar line, this is the amount of space after a thick line.")
      (knee ,boolean? "Is this beam kneed?")
      (knee-spacing-correction ,number? "Factor for the optical
 correction amount for kneed beams. Set between 0 for no correction and
 1 for full correction.")

+     (label-dir ,ly:dir? "Side to which label is attached. @code{-1} for left, @code{1} for right.")

      (layer ,number? "The output layer [0..2]: layers define the order
 of printing objects. Objects in lower layers are overprinted by
 objects in higher layers.")
      (layer ,number? "The output layer [0..2]: layers define the order
 of printing objects. Objects in lower layers are overprinted by
 objects in higher layers.")


@@ -342,13 +324,17 @@ to flip the direction of custos stem.")
 
      (new-accidentals ,list? "List of @code{(@var{pitch}
 . @var{accidental})} pairs.")
 
      (new-accidentals ,list? "List of @code{(@var{pitch}
 . @var{accidental})} pairs.")

+     (next ,ly:grob? "Object that is next relation (eg. the lyric syllable following an extender.")

      (note-names ,vector? "Vector of strings containing names for
 easy-notation note heads.")
      (note-names ,vector? "Vector of strings containing names for
 easy-notation note heads.")

+     (no-ledgers ,boolean? "If set, don't draw ledger lines on this object.")

      (no-spacing-rods ,boolean? "Items with this property do not cause
 spacing constraints.")
      (no-stem-extend ,boolean? "If set, notes with ledger lines do not
 get stems extending to the middle staff line.")
      (no-spacing-rods ,boolean? "Items with this property do not cause
 spacing constraints.")
      (no-stem-extend ,boolean? "If set, notes with ledger lines do not
 get stems extending to the middle staff line.")

-
+     (number-type ,symbol? "Type of numbers to use in label.  Choices
+include @code{roman-lower}, @code{roman-upper}, and @code{arabic}.")
+     

      (old-accidentals ,list? "List of @code{(@var{pitch} . @var{accidental})
 pairs.}")
 
      (old-accidentals ,list? "List of @code{(@var{pitch} . @var{accidental})
 pairs.}")
 


@@ -367,9 +353,6 @@ this column.  10000 or more means forbid line break, -10000 or less
 means force line break.  Other values influence line breaking decisions
 as a real penalty.")
 
 means force line break.  Other values influence line breaking decisions
 as a real penalty.")
 

-     (pitch-max ,ly:pitch? "Top pitch for ambitus.")
-     (pitch-min ,ly:pitch? "Bottom pitch for ambitus.")
-

      (positions ,pair?
                "Pair of staff coordinates @code{(@var{left}
 . @var{right})}, where both @var{left} and @var{right} are in the
      (positions ,pair?
                "Pair of staff coordinates @code{(@var{left}
 . @var{right})}, where both @var{left} and @var{right} are in the


@@ -408,9 +391,9 @@ note that starts here.")
 object.")
      (size ,number? "Size of object, relative to standard size.")
      (slope ,number? "The slope of this object.")
 object.")
      (size ,number? "Size of object, relative to standard size.")
      (slope ,number? "The slope of this object.")

-     (slope-limit ,number? "Set slope to zero if slope is running away
-steeper than this.")
-
+     (slur-padding ,number? "Extra distance between slur and script.")
+     (slur-details ,list?
+                  "An alist of scoring parameters for slur formatting")

      (space-alist ,list? "A table that specifies distances between
 prefatory items, like clef and time-signature. The format is an alist
 of spacing tuples: @code{(@var{break-align-symbol} @var{type}
      (space-alist ,list? "A table that specifies distances between
 prefatory items, like clef and time-signature. The format is an alist
 of spacing tuples: @code{(@var{break-align-symbol} @var{type}


@@ -434,7 +417,7 @@ expressed in global staffspace.")
 staff spaces, counted from the middle line.")
      (staffline-clearance ,ly:dimension? "How far away ties keep from
 staff lines.")
 staff spaces, counted from the middle line.")
      (staffline-clearance ,ly:dimension? "How far away ties keep from
 staff lines.")

-
+     (stemlet-length ,number? "How long should a stem over a rest be?")

      (stem-attachment-function ,procedure? "A function that calculates
 where a stem attaches to the note head? This is a fallback when this
 information is not specified in the font.  The function takes a grob
      (stem-attachment-function ,procedure? "A function that calculates
 where a stem attaches to the note head? This is a fallback when this
 information is not specified in the font.  The function takes a grob


@@ -452,7 +435,11 @@ of flags/beams.")
 stems that are placed in tight configurations. For opposite
 directions, this amount is the correction for two normal sized stems
 that overlap completely.")
 stems that are placed in tight configurations. For opposite
 directions, this amount is the correction for two normal sized stems
 that overlap completely.")

+
+     

      (string-count ,integer? "The number of strings in a fret diagram.")
      (string-count ,integer? "The number of strings in a fret diagram.")

+     (stroke-style ,string? "set to \"grace\" to turn stroke through flag on.")
+     

      (style ,symbol? "This setting determines in what style a grob is
 typeset. Valid choices depend on the @code{print-function} that is
 reading this property.")
      (style ,symbol? "This setting determines in what style a grob is
 typeset. Valid choices depend on the @code{print-function} that is
 reading this property.")


@@ -463,8 +450,6 @@ reading this property.")
      (thickness ,number? "Bar line thickness, measured in
 @code{linethickness}.")
      (thin-kern ,number? "The space after a hair-line in a bar line.")
      (thickness ,number? "Bar line thickness, measured in
 @code{linethickness}.")
      (thin-kern ,number? "The space after a hair-line in a bar line.")

-     (forced-distance ,ly:dimension? "A fixed distance between object
-reference points in an alignment.")

 
      (threshold ,number-pair? "(@var{min} . @var{max}), where
 @var{min} and @var{max} are dimensions in staff space.")
 
      (threshold ,number-pair? "(@var{min} . @var{max}), where
 @var{min} and @var{max} are dimensions in staff space.")


@@ -494,8 +479,6 @@ happen?")
 words in texts.")
      (width ,ly:dimension? "The width of a grob measured in staff space.")
      (x-gap ,ly:dimension? "The horizontal gap between note head and tie.")
 words in texts.")
      (width ,ly:dimension? "The width of a grob measured in staff space.")
      (x-gap ,ly:dimension? "The horizontal gap between note head and tie.")

-     (y-free ,ly:dimension? "The minimal vertical gap between slur and
-note heads or stems.")

      (y-offset ,ly:dimension? "Extra vertical offset for ties away
 from the center line.")
      (zigzag-length ,ly:dimension? "The length of the lines of a
      (y-offset ,ly:dimension? "Extra vertical offset for ties away
 from the center line.")
      (zigzag-length ,ly:dimension? "The length of the lines of a


@@ -532,16 +515,20 @@ sizes (like the dynamic @b{p} and @b{f}) on their baselines.")
      (apply define-internal-grob-property x))
    
    `(
      (apply define-internal-grob-property x))
    
    `(

+     (axis-group-parent-X ,ly:grob? "Containing X axis group")
+     (axis-group-parent-Y ,ly:grob? "Containing Y axis group")

      (accidental-grobs ,list? "Alist with (NOTENAME . GROBLIST) entries")
      (accidental-grobs ,list? "Alist with (NOTENAME . GROBLIST) entries")

+     (adjacent-hairpins ,grob-list? "List of directly neighboring hairpins")

      (after-line-breaking-callback ,procedure? "This procedure is called after line breaking. Its return value is ignored.")     
      (all-elements ,grob-list? "list of all grobs in this line. Its
 function is to protect objects from being garbage collected.")
      (after-line-breaking-callback ,procedure? "This procedure is called after line breaking. Its return value is ignored.")     
      (all-elements ,grob-list? "list of all grobs in this line. Its
 function is to protect objects from being garbage collected.")

-     (ambituses ,grob-list? "list of Ambitus objects")

      (arpeggio ,ly:grob? "pointer to arpeggio object.")
      (beam ,ly:grob? "pointer to the beam, if applicable.")
      (center-element ,ly:grob? "grob which will be at the center of
 the group after aligning (when using
 Align_interface::center_on_element).")
      (arpeggio ,ly:grob? "pointer to arpeggio object.")
      (beam ,ly:grob? "pointer to the beam, if applicable.")
      (center-element ,ly:grob? "grob which will be at the center of
 the group after aligning (when using
 Align_interface::center_on_element).")

+     (tweak-count ,number? "Number of otherwise unique Grobs.")
+     (tweak-rank ,number? "Identify otherwise unique Grobs.")

      (direction-source ,ly:grob? "in case side-relative-direction is
 set, which grob to get the direction from .")
      (dot ,ly:grob? "reference to Dots object.")
      (direction-source ,ly:grob? "in case side-relative-direction is
 set, which grob to get the direction from .")
      (dot ,ly:grob? "reference to Dots object.")


@@ -551,6 +538,7 @@ set, which grob to get the direction from .")
      (tie ,ly:grob? "")
      (staff-symbol ,ly:grob? "the staff symbol grob that we're in.")
      (rest ,ly:grob? "the staff symbol grob that we're in.")
      (tie ,ly:grob? "")
      (staff-symbol ,ly:grob? "the staff symbol grob that we're in.")
      (rest ,ly:grob? "the staff symbol grob that we're in.")

+     (rests ,grob-list? "A list of rest objects.")

      (rest-collision ,ly:grob? "rest collision that a rest is in.")
      (accidental-grob ,ly:grob? "Accidental for this note.")
      (bars ,grob-list? "list of bar line pointers.")
      (rest-collision ,ly:grob? "rest collision that a rest is in.")
      (accidental-grob ,ly:grob? "Accidental for this note.")
      (bars ,grob-list? "list of bar line pointers.")


@@ -609,7 +597,6 @@ debugging")
      (stem-info ,pair? "caching of stem parameters")
      (note-columns ,pair? "list of NoteColumn grobs.")
 
      (stem-info ,pair? "caching of stem parameters")
      (note-columns ,pair? "list of NoteColumn grobs.")
 

-     (if-text-padding ,number? "padding in case texts are there.")

      (position-callbacks ,list? "list of
 functions set spanner positions.")
 
      (position-callbacks ,list? "list of
 functions set spanner positions.")
 


@@ -622,21 +609,18 @@ functions set spanner positions.")
      ;; [TODO: change this]
      (primitive ,integer? "Pointer to a ligature primitive, i.e. an item similar to a note head that is part of a ligature. ")
      (stencil ,ly:stencil? "Cached output of the print-function.")
      ;; [TODO: change this]
      (primitive ,integer? "Pointer to a ligature primitive, i.e. an item similar to a note head that is part of a ligature. ")
      (stencil ,ly:stencil? "Cached output of the print-function.")

-     (de-uglify-parameters ,list? "list of 3 real constants. They
-define the valid areas for the middle control points.  They are
-empirical.")

      (ideal-distances ,list? "(@var{obj} . (@var{dist} . @var{strength})) pairs.")
      (minimum-distances ,list? "list of rods, that have the format (@var{obj} . @var{dist}).")
 
      (interfaces ,list? "list of symbols indicating the interfaces supported by this object. Is initialized from the @code{meta} field.")
      (shorten ,ly:dimension? "The amount of space that a
 stem. Internally used to distribute beam shortening over stems. ")
      (ideal-distances ,list? "(@var{obj} . (@var{dist} . @var{strength})) pairs.")
      (minimum-distances ,list? "list of rods, that have the format (@var{obj} . @var{dist}).")
 
      (interfaces ,list? "list of symbols indicating the interfaces supported by this object. Is initialized from the @code{meta} field.")
      (shorten ,ly:dimension? "The amount of space that a
 stem. Internally used to distribute beam shortening over stems. ")

-
+     (slur ,ly:grob? "A pointer to a slur object")

      (use-breve-rest ,boolean? "Use breve rests for measures longer
 than a whole rest.")
      
 
      (use-breve-rest ,boolean? "Use breve rests for measures longer
 than a whole rest.")
      
 

-
+     (spaceable-staves ,grob-list? "Objects to be spaced during page layout.")

 
      ;; ancient notation
 
 
      ;; ancient notation
 


@@ -661,7 +645,6 @@ than a whole rest.")
      (join-left ,boolean? "is this ligature head joined with the previous one by a vertical line?")
      (context-info ,integer? "DOCME")
      (inclinatum ,boolean? "is this neume an inclinatum?")
      (join-left ,boolean? "is this ligature head joined with the previous one by a vertical line?")
      (context-info ,integer? "DOCME")
      (inclinatum ,boolean? "is this neume an inclinatum?")

-     (note-head-style ,string? "name of the font character to be used as note heads in the ambitus grob.")

      (oriscus ,boolean? "is this neume an oriscus?")
      (quilisma ,boolean? "is this neume a quilisma?")
      (pes-or-flexa ,boolean? "shall this neume be joined with the previous head?")
      (oriscus ,boolean? "is this neume an oriscus?")
      (quilisma ,boolean? "is this neume a quilisma?")
      (pes-or-flexa ,boolean? "shall this neume be joined with the previous head?")


@@ -673,13 +656,9 @@ than a whole rest.")
      
      ;; end ancient notation
 
      
      ;; end ancient notation
 

-     ; ugh.
-     (accidentals-style ,symbol? "style for ambitus.")
-     

      )))
 
 (define-public all-backend-properties
   (append
    all-internal-grob-properties
    all-user-grob-properties))
      )))
 
 (define-public all-backend-properties
   (append
    all-internal-grob-properties
    all-user-grob-properties))

-