- 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);
+ Stencil cauda =
+ vaticana_brew_cauda (me, pos, delta_pitch,
+ line_thickness, blotdiameter);
+ out.add_stencil (cauda);