+MAKE_SCHEME_CALLBACK (Grid_line_interface, width, 1);
+SCM
+Grid_line_interface::width (SCM smob)
+{
+ Grob *me = Grob::unsmob (smob);
+
+ Real staffline = me->layout ()->get_dimension (ly_symbol2scm ("line-thickness"));
+ Real thick = robust_scm2double (me->get_property ("thickness"), 1.0)
+ * staffline;
+
+ return ly_interval2scm (Interval (0, thick));
+}
+