Spaceable_grob::add_spring (left_col, right_col, distance, inverse_strength);
}
+/*
+ Check if COL fills the whole measure.
+ */
bool
-Spacing_spanner::fills_measure (Grob *me, Item *l, Item *r)
+Spacing_spanner::fills_measure (Grob *me, Item *left, Item *col)
{
System *sys = get_root_system (me);
- Grob *next = sys->column (r->get_column()->get_rank () + 1);
+ Grob *next = sys->column (col->get_column()->get_rank () + 1);
if (!next)
return false;
- if (Paper_column::is_musical (next))
+ if (Paper_column::is_musical (next)
+ || !Paper_column::is_used (next))
return false;
Moment dt =
- Paper_column::when_mom (next) - Paper_column::when_mom (r);
+ Paper_column::when_mom (next) - Paper_column::when_mom (col);
- Moment *len = unsmob_moment (l->get_property ("measure-length"));
+ Moment *len = unsmob_moment (left->get_property ("measure-length"));
if (!len)
return false;
}
if (Paper_column::is_musical (r)
+ && l->break_status_dir () == CENTER
&& fills_measure (me, l, r))
{
compound_space += 1.0;
);
-ADD_INTERFACE (Spacing_interface,
- "Something to do with line breaking and spacing. "
- "Kill this one after determining line breaks.",
-
- "");
-
(shortest-duration-space . 1.6)
(meta . ((class . Spanner)
(interfaces . (grace-spacing-interface
- spacing-interface
+
spacing-options-interface
spanner-interface))))))
(GridPoint
(X-extent . #f)
(meta . ((class . Spanner)
(interfaces . (spanner-interface
- lyric-hyphen-interface spacing-interface))
+ lyric-hyphen-interface ))
))
))
. (
(neutral-direction . ,DOWN)
(meta . ((class . Item)
- (interfaces . (melody-spanner-interface spacing-interface))))))
+ (interfaces . (melody-spanner-interface ))))))
(MensuralLigature
. (
(thickness . 1.4)
;; If you ever change this back, please document! --hwn
(knee-spacing-correction . 1.0)
(meta . ((class . Item)
- (interfaces . (spacing-interface
+ (interfaces . (
note-spacing-interface))))))
(NoteName
(Y-extent . ,ly:axis-group-interface::height)
(skylines . ,ly:separation-item::calc-skylines)
(meta . ((class . Item)
- (interfaces . (spacing-interface
+ (interfaces . (
separation-item-interface))))))
(SeparatingGroupSpanner
(springs-and-rods . ,ly:separating-group-spanner::set-spacing-rods)
(meta . ((class . Spanner)
(interfaces . (only-prebreak-interface
- spacing-interface
+
separating-group-spanner-interface))))))
(Slur
(base-shortest-duration . ,(ly:make-moment 3 16))
(meta . ((class . Spanner)
- (interfaces . (spacing-interface
+ (interfaces . (
spacing-options-interface
spacing-spanner-interface))))))
(non-musical . #t)
(stem-spacing-correction . 0.4)
(meta . ((class . Item)
- (interfaces . (spacing-interface
- staff-spacing-interface))))))
+ (interfaces . (staff-spacing-interface))))))
(StaffSymbol