source file of the GNU LilyPond music typesetter
- (c) 2001--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ (c) 2001--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "staff-spacing.hh"
Item *col = dynamic_cast<Item *> (g)->get_column ();
Real left_stickout_correction = max (0., (- g->extent (col, X_AXIS)[LEFT]));
+ /* staff space -> positions */
+ bar_size *= 2;
+
/*
Duh. If this gets out of hand, we should invent something more generic.
*/
Direction d = get_grob_direction (stem);
if (Stem::is_normal_stem (stem) && d == DOWN)
{
- Real stem_start = Stem::head_positions (stem) [DOWN];
- Real stem_end = Stem::stem_end_position (stem);
+
+ /*
+ can't look at stem-end-position, since that triggers
+ beam slope computations.
+ */
+ Real stem_start = Stem::head_positions (stem) [d];
+ Real stem_end = stem_start +
+ d * robust_scm2double (stem->get_property ("length"), 7);
+
Interval stem_posns (min (stem_start, stem_end),
max (stem_end, stem_start));
Real correction = optical_corr + left_stickout_correction;
if (correction)
{
- wish_count ++;
+ (*wish_count) ++;
/*
This minute adjustments don't make sense for widely spaced scores.