- Real ledgerlinethickness =
- (me->paper_l ()->get_var ("ledgerlinethickness"));
- Real blotdiameter = ledgerlinethickness;
- // (me->paper_l ()->get_var ("blotdiameter"));
- Interval y_extent =
- Interval (-0.5*(ledgerlinethickness),
- +0.5*(ledgerlinethickness));
- Box ledger_line (x_extent, y_extent);
-
-#if 1
- Molecule proto_ledger_line =
- Lookup::roundfilledbox (ledger_line, blotdiameter);
-#else
- Molecule proto_ledger_line = // if you like it the old way
- Lookup::filledbox (ledger_line);
-#endif
-
- if (!take_space)
- proto_ledger_line.set_empty (true);
-
- Direction dir = (Direction)sign (pos);
- Real offs = (Staff_symbol_referencer::on_staffline (me, pos))
- ? 0.0
- : -dir * inter_f;
- for (int i = 0; i < lines_i; i++)
+ if (!Staff_symbol_referencer::on_line
+ (me,
+ robust_scm2int (me->get_property ("staff-position"), 0)))