- int interspaces = Staff_symbol_referencer::line_count (me)-1;
- if (abs (pos) - interspaces > 1)
- {
- Interval hd = out->extent (X_AXIS);
- Real left_ledger_protusion = hd.length ()/4;
- Real right_ledger_protusion = left_ledger_protusion;
-
- Interval l_extents = Interval (hd[LEFT] - left_ledger_protusion,
- hd[RIGHT] + right_ledger_protusion);
- Molecule ledger_lines =
- Note_head::brew_ledger_lines (me, pos, interspaces,
- l_extents,
- ledger_take_space);
- ledger_lines.translate_axis (offs, Y_AXIS);
- out->add_molecule (ledger_lines);
- }
-}
-
-Molecule
-vaticana_brew_primitive (Grob *me, bool ledger_take_space)
-{
- SCM glyph_name_scm = me->get_grob_property ("glyph-name");