Interval height = me->pure_height (me, 0, INT_MAX);
Real staff_space = Staff_symbol_referencer::staff_space (me);
- Real half_space = staff_space * 0.5;
+ Real half_space = staff_space * 0.5;
height[d] = se * half_space + beam_end_corrective (me);
height[-d] = (height[d] - d
* (0.5 * beam_thickness
- + beam_translation * max (0, (beam_count - 1))
- + stemlet_length));
+ + beam_translation * max (0, (beam_count - 1))
+ + stemlet_length));
}
else if (!stemlet && beam)
height[-d] = height[d];
if (scm_is_pair (s))
length = 2 * scm_to_double (robust_list_ref (durlog - 2, s));
-
/* Stems in unnatural (forced) direction should be shortened,
according to [Roush & Gourlay] */
Interval hp = head_positions (me);
return ly_interval2scm (internal_height (me, true));
}
-Grob*
+Grob *
Stem::get_reference_head (Grob *me)
{
return to_boolean (me->get_property ("avoid-note-head"))
0.0);
Real y2 = dir * robust_scm2double ((calc_beam
- ? me->get_property ("length")
- : me->get_pure_property ("length", 0, INT_MAX)),
- 0.0)
- + y1;
+ ? me->get_property ("length")
+ : me->get_pure_property ("length", 0, INT_MAX)),
+ 0.0)
+ + y1;
Real half_space = Staff_symbol_referencer::staff_space (me) * 0.5;
- Interval stem_y = Interval (min (y1, y2), max (y2, y1)) * half_space;
+ Interval stem_y = Interval (min (y1, y2), max (y2, y1)) * half_space;
return stem_y;
}
Real half_space = Staff_symbol_referencer::staff_space (me) * 0.5;
- Interval stem_y = Interval (min (y1, y2), max (y2, y1)) * half_space;
+ Interval stem_y = Interval (min (y1, y2), max (y2, y1)) * half_space;
stem_y[dir] -= beam_end_corrective (me);
Real r = real_attach;
/* If not centered: correct for stem thickness. */
- extract_grob_set (me, "note-heads", heads);
- SCM style = heads[0]->get_property ("style");
- if (attach && !scm_is_eq (style, ly_symbol2scm ("mensural"))
- && !scm_is_eq (style, ly_symbol2scm ("neomensural"))
- && !scm_is_eq (style, ly_symbol2scm ("petrucci")))
+ string style = robust_symbol2string (f->get_property ("style"), "default");
+ if (attach && style != "mensural"
+ && style != "neomensural"
+ && style != "petrucci")
{
Real rule_thick = thickness (me);
r += -d * rule_thick * 0.5;
return scm_from_bool (is_cross_staff (unsmob_grob (smob)));
}
-Grob*
+Grob *
Stem::flag (Grob *me)
{
return unsmob_grob (me->get_object ("flag"));
"length "
"length-fraction "
"max-beam-connect "
+ "melody-spanner "
"neutral-direction "
"no-stem-extend "
"note-heads "