#include "lookup.hh"
#include "dimensions.hh"
-#include "paper-def.hh"
+#include "output-def.hh"
#include "stencil.hh"
#include "warn.hh"
#include "item.hh"
--hwn.
*/
+ Real t = me->get_paper ()->get_dimension (ly_symbol2scm ("linethickness"));
+ t *= robust_scm2double (me->get_property ("thickness"), 1.0);
+
Direction d = LEFT;
do
{
SCM width_scm = me->get_property ("width");
- if (d == RIGHT && ly_number_p (width_scm))
+ if (d == RIGHT && ly_c_number_p (width_scm))
{
/*
don't multiply by Staff_symbol_referencer::staff_space (me),
&& !x->extent (x, X_AXIS).is_empty ())
span_points[d] += x->extent (x, X_AXIS)[d];
}
+
+ span_points[d] -= d* t/2;
}
while (flip (&d) !=LEFT);
- Real t = me->get_paper ()->get_dimension (ly_symbol2scm ("linethickness"));
- t *= robust_scm2double (me->get_property ("thickness"), 1.0);
-
int l = Staff_symbol::line_count (me);
Real height = (l-1) * staff_space (me) /2;
Staff_symbol::line_count (Grob*me)
{
SCM c = me->get_property ("line-count");
- if (ly_number_p (c))
+ if (ly_c_number_p (c))
return ly_scm2int (c);
else
return 0;
Real
Staff_symbol::staff_space (Grob*me)
{
- return robust_scm2double ( me->get_property ("staff-space"), 1.0);
+ return robust_scm2double (me->get_property ("staff-space"), 1.0);
}
Real