source file of the GNU LilyPond music typesetter
- (c) 2002 Juergen Reuter <reuter@ipd.uka.de>
+ (c) 2002--2003 Juergen Reuter <reuter@ipd.uka.de>
*/
#include <math.h>
SCM primitive_scm = me->get_grob_property ("primitive");
if (primitive_scm == SCM_EOL)
{
- programming_error ("Mensural_ligature: undefined primitive -> ignoring grob");
+ programming_error ("Mensural_ligature:"
+ "undefined primitive -> ignoring grob");
return Molecule ();
}
}
else
{
- programming_error (_f ("Mensural_ligature: thickness undefined on flexa %d; assuming 1.4", primitive));
- thickness = 1.4 * me->paper_l ()->get_var ("linethickness");
+ programming_error (_f ("Mensural_ligature:"
+ "thickness undefined on flexa %d; assuming 1.4",
+ primitive));
+ thickness = 1.4 * me->get_paper ()->get_var ("linethickness");
}
}
}
else
{
- programming_error (_f ("Mensural_ligature: delta-pitch undefined on flexa %d; assuming 0", primitive));
+ programming_error (_f ("Mensural_ligature:"
+ "delta-pitch undefined on flexa %d; assuming 0",
+ primitive));
delta_pitch = 0;
}
}
else
{
- programming_error (_f ("Mensural_ligature: flexa-width undefined on flexa %d; assuming 2.0", primitive));
+ programming_error (_f ("Mensural_ligature:"
+ "flexa-width undefined on flexa %d; assuming 2.0",
+ primitive));
flexa_width = 2.0 * staff_space;
}
}
flexa_width, thickness, false, CENTER);
break;
default:
- programming_error (_f ("Mensural_ligature: unexpected case fall-through"));
+ programming_error (_f ("Mensural_ligature:"
+ "unexpected case fall-through"));
return Molecule ();
}
- SCM join_left_scm = me->get_grob_property ("join-left");
+ SCM join_left_scm = me->get_grob_property ("join-left-amount");
if (join_left_scm != SCM_EOL)
{
int join_left = gh_scm2int (join_left_scm);
if (!join_left)
- programming_error (_f ("Menusral_ligature: (join_left == 0)"));
- Real blotdiameter = (me->paper_l ()->get_var ("blotdiameter"));
+ programming_error (_f ("Mensural_ligature: (join_left == 0)"));
+ Real blotdiameter = (me->get_paper ()->get_var ("blotdiameter"));
Interval x_extent = Interval (0, thickness);
Interval y_extent = (join_left > 0) ?
Interval (-join_left * 0.5 * staff_space, 0) :
Interval (0, -join_left * 0.5 * staff_space);
Box stem_box (x_extent, y_extent);
- Molecule stem =
- Lookup::roundfilledbox (stem_box, blotdiameter);
+ Molecule stem = Lookup::roundfilledbox (stem_box, blotdiameter);
out.add_molecule (stem);
}
- int pos = (int)rint (Staff_symbol_referencer::position_f (me));
+ int pos = (int)rint (Staff_symbol_referencer::get_position (me));
add_ledger_lines(me, &out, pos, 0, ledger_take_space);
if (primitive & MLP_FLEXA)
{
return SCM_EOL;
}
-ADD_INTERFACE(Mensural_ligature, "mensural-ligature-interface",
- "A mensural ligature",
- "thickness flexa-width");
+ADD_INTERFACE (Mensural_ligature, "mensural-ligature-interface",
+ "A mensural ligature",
+ "delta-pitch flexa-width head-width join-left join-left-amount "
+ "ligature-primitive-callback primitive thickness");