- SCM flexa_height_scm = me->get_grob_property ("flexa-height");
- if (flexa_height_scm != SCM_EOL)
- {
- flexa_height = gh_scm2int (flexa_height_scm);
- }
- else
- {
- me->warning ("Vaticana_ligature: "
- "flexa-height undefined; assuming 0");
- }
-
- Real flexa_width;
- SCM flexa_width_scm = me->get_grob_property ("flexa-width");
- if (flexa_width_scm != SCM_EOL)
- {
- flexa_width = gh_scm2double (flexa_width_scm);
- }
- else
- {
- me->warning ("Vaticana_ligature:"
- "flexa-width undefined; assuming 2.0");
- flexa_width = 2.0 * staff_space;
- }
-
- bool add_stem = to_boolean (me->get_grob_property ("add-stem"));
- out = vaticana_brew_flexa (me, flexa_height, true,
- flexa_width, thickness, add_stem, DOWN);
- }
- else
- {
- Molecule mol =
- Font_interface::get_default_font (me)->
- find_by_name ("noteheads-" + glyph_name);
- mol.translate_axis (x_offset, X_AXIS);
- out.add_molecule (mol);
+ Stencil cauda
+ = vaticana_brew_cauda (me, pos, delta_pitch,
+ line_thickness, blotdiameter);
+ out.add_stencil (cauda);