- Interval (-0.5*(ledgerlinethickness - blotdiameter),
- +0.5*(ledgerlinethickness - blotdiameter));
- Box ledger_line (x_extent, y_extent);
-
- // FIXME: Currently need blotdiameter factor 2.0 to compensate
- // for error somewhere else. (Maybe draw_box confuses radius
- // and diameter?)
-#if 1
- Molecule proto_ledger_line =
- Lookup::roundfilledbox (ledger_line, ledgerlinethickness );
-#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);
+ Interval (-0.5*(ledgerlinethickness),
+ +0.5*(ledgerlinethickness));
+ Molecule proto_ledger_line =
+ Lookup::round_filled_box (Box (x_extent, y_extent), blotdiameter);
+
+ x_extent[LEFT] += left_shorten;
+ Molecule proto_first_line =
+ Lookup::round_filled_box (Box (x_extent, y_extent), blotdiameter);