- if (gh_symbol_p (gl) && gl == ly_symbol2scm ("brace")
- && gh_symbol_p (my_gl) && my_gl == ly_symbol2scm ("bracket"))
- b->translate_axis ( -paper_l ()->get_var ("interline"), X_AXIS); // ugh
+ if (gh_string_p (gl) && gh_equal_p (gl, ly_symbol2scm ("brace"))
+ && gh_string_p (my_gl) && gh_equal_p (my_gl, ly_symbol2scm ("bracket")))
+ inf.grob_l_->translate_axis (-0.8, X_AXIS); // ugh
+ else if (gh_string_p (gl) && gh_equal_p (gl, ly_symbol2scm ("bracket"))
+ && gh_string_p (my_gl) && gh_equal_p (my_gl, ly_symbol2scm ("bracket")))
+ {
+ inf.grob_l_->translate_axis ( -0.8, X_AXIS); // ugh
+ inf.grob_l_->set_grob_property ("arch-height",
+ gh_double2scm(gh_scm2double(inf.grob_l_->get_grob_property
+ ("arch-height"))+0.5));
+ }