- Real blot = me->get_paper ()->get_dimension (ly_symbol2scm ("blotdiameter"));
- return Lookup::round_filled_box (Box (Interval (0,w), Interval (-h/2, h/2)), blot);
-}
-
-MAKE_SCHEME_CALLBACK (Bar_line,before_line_breaking ,1);
-
-SCM
-Bar_line::before_line_breaking (SCM smob)
-{
- Grob*me=unsmob_grob (smob);
- Item * item = dynamic_cast<Item*> (me);
-
- SCM g = me->get_property ("glyph");
- SCM orig = g;
- Direction bsd = item->break_status_dir ();
- if (ly_c_string_p (g) && bsd)
- {
- SCM proc = me->get_property ("break-glyph-function");
- g = scm_call_2 (proc, g, scm_int2num (bsd));
- }
-
- if (!ly_c_string_p (g))
- {
- me->set_property ("print-function", SCM_EOL);
- me->set_extent (SCM_EOL, X_AXIS);
- // leave y_extent for spanbar?
- }
-
- if (! ly_c_equal_p (g, orig))
- me->set_property ("glyph", g);