- TODO: robustify.
- */
- SCM which = me->get_grob_property ("style");
- SCM thick = me->get_grob_property ("thickness");
- SCM height = me->get_grob_property ("height");
-
- Real t = me->get_paper ()->get_realvar (ly_symbol2scm ("linethickness")) * gh_scm2double (thick);
- Grob *common = me->get_bound(LEFT)->common_refpoint (me->get_bound (RIGHT),
- X_AXIS);
-
- Interval rext = me->get_bound (RIGHT)->extent (common, X_AXIS);
-
-
- Real w =(rext.empty_b()
- ? me->get_bound (RIGHT)->relative_coordinate (common, X_AXIS)
- : rext[RIGHT])
- - me->get_bound (LEFT)->relative_coordinate (common, X_AXIS);
-
- Interval iv (0,w);
-
- Molecule m;
- if (which == ly_symbol2scm ("bracket"))
- {
- m = Lookup::bracket (X_AXIS, iv, t,-gh_scm2double (height));
- }
- else if (which == ly_symbol2scm ("triangle"))
- {
- m = Lookup::triangle (iv, t, gh_scm2double (height));
- }
+ TODO: use line interface
+ */
+ if (scm_is_eq (which, ly_symbol2scm ("bracket")))
+ m = Lookup::bracket (X_AXIS, iv, t, -height, t);
+ else if (scm_is_eq (which, ly_symbol2scm ("triangle")))
+ m = Lookup::triangle (iv, t, height);