Fix beamlet pointing wrong way when tuplet 16th beamed with 8th (issue 2113)

[lilypond.git] / lily / bar-line.cc

diff --git a/lily/bar-line.cc b/lily/bar-line.cc
index e256e8fe55f16ceb8626bc134b08c0ef3c5f8e43..bfd79363934f058a082eedcb8288f5a547156208 100644 (file)
--- a/lily/bar-line.cc
+++ b/lily/bar-line.cc
@@ -46,9 +46,9 @@ Bar_line::calc_bar_extent (SCM smob)
       */
       SCM bar_line_color = me->get_property ("color");
       SCM staff_color = staff->get_property ("color");
-      if (bar_line_color == staff_color)
-       result *= (1 - 0.5 * (Staff_symbol_referencer::line_thickness (me) /
-                             Staff_symbol_referencer::staff_radius (me)));
+      Real radius = Staff_symbol_referencer::staff_radius (me);
+      if (bar_line_color == staff_color && radius)
+        result *= (1 - 0.5 * (Staff_symbol_referencer::line_thickness (me) / radius));
     }
   return ly_interval2scm (result);
 }
@@ -467,6 +467,7 @@ ADD_INTERFACE (Bar_line,
                "kern "
                "thin-kern "
                "hair-thickness "
+               "has-span-bar "
                "thick-thickness "
                "glyph "
                "glyph-name "