- SCM porrectus_height_scm = me->get_grob_property ("porrectus-height");
- if (porrectus_height_scm != SCM_EOL)
- {
- porrectus_height = gh_scm2int (porrectus_height_scm);
- }
- else
- {
- me->warning ("Vaticana_ligature: "
- "porrectus-height undefined; assuming 0");
- }
-
- SCM porrectus_width_scm = me->get_grob_property ("porrectus-width");
- if (porrectus_width_scm != SCM_EOL)
- {
- porrectus_width = gh_scm2double (porrectus_width_scm);
- }
- else
- {
- me->warning ("Vaticana_ligature:"
- "porrectus-width undefined; assuming 2.0");
- porrectus_width = 2.0 * staff_space;
- }
-
- bool add_stem = to_boolean (me->get_grob_property ("add-stem"));
- out = vaticana_brew_flexa (me, porrectus_height, true,
- porrectus_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);