* scm/grob-property-description.scm: Add head-width, join-left,
primitive.
2002-08-19 Jan Nieuwenhuizen <janneke@gnu.org>
2002-08-19 Jan Nieuwenhuizen <janneke@gnu.org>
+ * lily/mensural-ligature-engraver.cc:
+ * scm/grob-property-description.scm: Add head-width, join-left,
+ primitive.
+
+ * lily/mensural-ligature.cc:
+ * lily/ligature-bracket.cc:
+ * scm/grob-property-description.scm:
+
+ * lily/ligature-head.cc: Add ligature-primitive-callback.
+
* input/test/beam-control.ly:
* input/test/bar-script-visibility.ly: Update.
* input/test/beam-control.ly:
* input/test/bar-script-visibility.ly: Update.
return bracket.smobbed_copy ();
}
return bracket.smobbed_copy ();
}
-ADD_INTERFACE(Ligature_bracket, "ligature-bracket-interface",
- "A bracket indicating a ligature in the original edition",
- "width thickness height");
+ADD_INTERFACE (Ligature_bracket, "ligature-bracket-interface",
+ "A bracket indicating a ligature in the original edition",
+ "width thickness height ligature-primitive-callback");
-ENTER_DESCRIPTION(Ligature_engraver,
+ENTER_DESCRIPTION (Ligature_engraver,
/* descr */ "Abstract class; a concrete subclass handles Ligature_requests by engraving Ligatures in a concrete style.",
/* creats*/ "Ligature",
/* acks */ "ligature-head-interface rest-interface",
/* reads */ "",
/* descr */ "Abstract class; a concrete subclass handles Ligature_requests by engraving Ligatures in a concrete style.",
/* creats*/ "Ligature",
/* acks */ "ligature-head-interface rest-interface",
/* reads */ "",
+/* write */ "ligature-primitive-callback");
-ADD_INTERFACE (Ligature_head,"ligature-head-interface","Ligature head","");
+ADD_INTERFACE (Ligature_head,"ligature-head-interface","Ligature head",
+ "ligature-primitive-callback");
-ENTER_DESCRIPTION(Mensural_ligature_engraver,
+ENTER_DESCRIPTION (Mensural_ligature_engraver,
/* descr */ "Handles Mensural_ligature_requests by glueing special ligature heads together.",
/* creats*/ "MensuralLigature",
/* acks */ "ligature-head-interface note-head-interface rest-interface",
/* reads */ "",
/* descr */ "Handles Mensural_ligature_requests by glueing special ligature heads together.",
/* creats*/ "MensuralLigature",
/* acks */ "ligature-head-interface note-head-interface rest-interface",
/* reads */ "",
+/* write */ "head-width join-left primitive");
ADD_INTERFACE(Mensural_ligature, "mensural-ligature-interface",
"A mensural ligature",
ADD_INTERFACE(Mensural_ligature, "mensural-ligature-interface",
"A mensural ligature",
- "thickness flexa-width");
+ "thickness flexa-width ligature-primitive-callback");
(grob-property-description 'y-free number? "minimal vertical gap between slur and noteheads or stems.")
(grob-property-description 'y-offset number? "extra vertical offset for ties away from the center line.")
(grob-property-description 'y-free number? "minimal vertical gap between slur and noteheads or stems.")
(grob-property-description 'y-offset number? "extra vertical offset for ties away from the center line.")
;;; INTERNAL
(grob-property-description 'left-neighbors grob-list? " List of
;;; INTERNAL
(grob-property-description 'left-neighbors grob-list? " List of
-- can be stored for debugging")
(grob-property-description 'least-squares-dy number?
"ideal beam slope, without damping.")
-- can be stored for debugging")
(grob-property-description 'least-squares-dy number?
"ideal beam slope, without damping.")
+(grob-property-description 'ligature-primitive-callback procedure? "FIXME")
(grob-property-description 'stem-info pair? "caching of stem parameters")
(grob-property-description 'note-columns pair? "list of NoteColumn grobs.")
(grob-property-description 'stem-info pair? "caching of stem parameters")
(grob-property-description 'note-columns pair? "list of NoteColumn grobs.")
(grob-property-description 'grace-space-factor number? "space grace at this fraction of the increment.")
(grob-property-description 'position-callbacks list? "list of
functions set spanner positions.")
(grob-property-description 'grace-space-factor number? "space grace at this fraction of the increment.")
(grob-property-description 'position-callbacks list? "list of
functions set spanner positions.")
+(grob-property-description 'join-left number? "DOCME")
+(grob-property-description 'delta-pitch number? "DOCME")
+(grob-property-description 'head-width number? "DOCME")
+(grob-property-description 'primitive number? "DOCME")
(grob-property-description 'chord-name-function procedure? "DOCME")
(grob-property-description 'minimum-beam-collision-distance number?
"Minimum distance to beam for a rest collision.")
(grob-property-description 'chord-name-function procedure? "DOCME")
(grob-property-description 'minimum-beam-collision-distance number?
"Minimum distance to beam for a rest collision.")