source file of the GNU LilyPond music typesetter
- (c) 2003--2006 Juergen Reuter <reuter@ipd.uka.de>
+ (c) 2003--2009 Juergen Reuter <reuter@ipd.uka.de>
*/
#include "vaticana-ligature.hh"
Real staff_space = Staff_symbol_referencer::staff_space (me);
if (!delta_pitch)
{
- me->programming_error (_f ("Vaticana_ligature: "
- "zero join (delta_pitch == 0)"));
- return Stencil ();
+ me->programming_error (_ ("Vaticana_ligature: "
+ "zero join (delta_pitch == 0)"));
+ return Lookup::blank (Box (Interval (0, 0), Interval (0, 0)));
}
Interval x_extent = Interval (0, join_thickness);
Interval y_extent = (delta_pitch > 0)
{
me->programming_error ("Vaticana_ligature: "
"undefined glyph-name -> ignoring grob");
- return Stencil ();
+ return Lookup::blank (Box (Interval (0, 0), Interval (0, 0)));
}
- std::string glyph_name = ly_scm2string (glyph_name_scm);
+ string glyph_name = ly_scm2string (glyph_name_scm);
Stencil out;
Real thickness = robust_scm2double (me->get_property ("thickness"), 1);
Real line_thickness
- = thickness * me->layout ()->get_dimension (ly_symbol2scm ("linethickness"));
+ = thickness * me->layout ()->get_dimension (ly_symbol2scm ("line-thickness"));
Real blotdiameter
- = (me->layout ()->get_dimension (ly_symbol2scm ("blotdiameter")));
+ = (me->layout ()->get_dimension (ly_symbol2scm ("blot-diameter")));
int pos = Staff_symbol_referencer::get_rounded_position (me);
- SCM delta_pitch_scm = me->get_property ("delta-pitch");
+ SCM delta_pitch_scm = me->get_property ("delta-position");
int delta_pitch;
if (delta_pitch_scm != SCM_EOL)
delta_pitch = scm_to_int (delta_pitch_scm);
return SCM_EOL;
}
-ADD_INTERFACE (Vaticana_ligature, "vaticana-ligature-interface",
- "A vaticana style gregorian ligature",
+ADD_INTERFACE (Vaticana_ligature,
+ "A vaticana style Gregorian ligature.",
/* properties */
"glyph-name "
- "flexa-height "
+ "flexa-height "
"flexa-width "
"thickness "
"add-cauda "
"add-stem "
"add-join "
- "delta-pitch "
+ "delta-position "
"x-offset "
);