/*
- line-spanner.cc -- implement New_line_spanner
+ line-spanner.cc -- implement Line_spanner
source file of the GNU LilyPond music typesetter
(c) 2000--2007 Jan Nieuwenhuizen <janneke@gnu.org>
*/
+#include "axis-group-interface.hh"
#include "spanner.hh"
#include "output-def.hh"
#include "item.hh"
#include "align-interface.hh"
#include "line-interface.hh"
#include "moment.hh"
+#include "system.hh"
#include "lily-proto.hh"
#include "grob-interface.hh"
#include "text-interface.hh"
-class New_line_spanner
+class Line_spanner
{
public:
DECLARE_SCHEME_CALLBACK (print, (SCM));
DECLARE_SCHEME_CALLBACK (after_line_breaking, (SCM));
-
DECLARE_SCHEME_CALLBACK (calc_left_bound_info, (SCM));
DECLARE_SCHEME_CALLBACK (calc_left_bound_info_and_text, (SCM));
DECLARE_SCHEME_CALLBACK (calc_right_bound_info, (SCM));
DECLARE_SCHEME_CALLBACK (calc_bound_info, (SCM, Direction));
- DECLARE_GROB_INTERFACE();
+ DECLARE_GROB_INTERFACE ();
};
-
-static Grob *
-line_spanner_common_parent (Grob *me)
+Spanner *parent_spanner (Grob *g)
{
- Grob *common = find_fixed_alignment_parent (me);
- if (!common)
- {
- common = Staff_symbol_referencer::get_staff_symbol (me);
- if (common)
- common = common->get_parent (Y_AXIS);
- else
- common = me->get_parent (Y_AXIS);
- }
-
- return common;
+ if (Spanner::has_interface (g))
+ return dynamic_cast<Spanner*> (g);
+ return parent_spanner (g->get_parent (Y_AXIS));
}
SCM
-New_line_spanner::calc_bound_info (SCM smob, Direction dir)
+Line_spanner::calc_bound_info (SCM smob, Direction dir)
{
Spanner *me = unsmob_spanner (smob);
Real extra_dy = robust_scm2double (me->get_property ("extra-dy"),
0.0);
-
+
+ Grob *common_y = me->common_refpoint (me->get_bound (dir), Y_AXIS);
if (me->get_bound (dir)->break_status_dir ())
{
- /*
- This is hairy. For the normal case, we simply find common
- parents, and draw a line between the bounds. When two note
- heads are on different systems, there is no common parent
- anymore. We have to find the piano-staff object.
- */
-
Spanner *next_sp = me->broken_neighbor (dir);
Item *next_bound = next_sp->get_bound (dir);
return SCM_EOL;
}
- Grob *next_common_y = line_spanner_common_parent (next_bound);
- Interval next_ext = next_bound->extent (next_common_y, Y_AXIS);
+ Spanner *next_bound_parent = parent_spanner (next_bound);
+ Interval next_ext = next_bound->extent (next_bound_parent, Y_AXIS);
+
+ /* We want to know what would be the
+ y-position of the next bound (relative to my y-parent) if it belonged
+ to the same system as this bound. We rely on the fact that
+ the y-parent of the next bound is a spanner (probably the
+ VerticalAxisGroup of a staff) that extends over the break.
+ */
+ Spanner *next_bound_parent_on_this_line =
+ next_bound_parent->broken_neighbor (other_dir (dir));
- y = next_ext.center ();
+ if (next_bound_parent_on_this_line)
+ {
+ Grob *common = me->common_refpoint (next_bound_parent_on_this_line, Y_AXIS);
+ Real bound_offset = next_bound_parent_on_this_line->relative_coordinate (common, Y_AXIS);
+ y = next_ext.center () + bound_offset - me->relative_coordinate (common, Y_AXIS);
+ }
+ else
+ {
+ /* We fall back to assuming that the distance between staves doesn't
+ change over line breaks. */
+ programming_error ("next-bound's parent doesn't extend to this line");
+ Grob *next_system = next_bound->get_system ();
+ Grob *this_system = me->get_system ();
+ y = next_ext.center () + next_bound_parent->relative_coordinate (next_system, Y_AXIS)
+ - me->relative_coordinate (this_system, Y_AXIS);
+ }
}
else
{
- Grob *commony = me->common_refpoint (me->get_bound (dir), Y_AXIS);
- y = me->get_bound (dir)->extent (commony, Y_AXIS).center();
- details = scm_acons (ly_symbol2scm ("common-Y"), commony->self_scm (), details);
+ y = me->get_bound (dir)->extent (common_y, Y_AXIS).center ();
+ details = scm_acons (ly_symbol2scm ("common-Y"), common_y->self_scm (), details);
}
y += dir * extra_dy / 2;
return details;
}
-MAKE_SCHEME_CALLBACK (New_line_spanner, calc_right_bound_info, 1);
+MAKE_SCHEME_CALLBACK (Line_spanner, calc_right_bound_info, 1);
SCM
-New_line_spanner::calc_right_bound_info (SCM smob)
+Line_spanner::calc_right_bound_info (SCM smob)
{
- return New_line_spanner::calc_bound_info (smob, RIGHT);
+ return Line_spanner::calc_bound_info (smob, RIGHT);
}
-MAKE_SCHEME_CALLBACK (New_line_spanner, calc_left_bound_info, 1);
+MAKE_SCHEME_CALLBACK (Line_spanner, calc_left_bound_info, 1);
SCM
-New_line_spanner::calc_left_bound_info (SCM smob)
+Line_spanner::calc_left_bound_info (SCM smob)
{
- return New_line_spanner::calc_bound_info (smob, LEFT);
+ return Line_spanner::calc_bound_info (smob, LEFT);
}
-MAKE_SCHEME_CALLBACK (New_line_spanner, calc_left_bound_info_and_text, 1);
+MAKE_SCHEME_CALLBACK (Line_spanner, calc_left_bound_info_and_text, 1);
SCM
-New_line_spanner::calc_left_bound_info_and_text (SCM smob)
+Line_spanner::calc_left_bound_info_and_text (SCM smob)
{
- SCM alist = New_line_spanner::calc_bound_info (smob, LEFT);
+ SCM alist = Line_spanner::calc_bound_info (smob, LEFT);
Spanner *me = unsmob_spanner (smob);
SCM text = me->get_property ("text");
return alist;
}
-MAKE_SCHEME_CALLBACK (New_line_spanner, print, 1);
+MAKE_SCHEME_CALLBACK (Line_spanner, print, 1);
SCM
-New_line_spanner::print (SCM smob)
+Line_spanner::print (SCM smob)
{
Spanner *me = dynamic_cast<Spanner *> (unsmob_grob (smob));
do
{
Offset z (robust_scm2double (ly_assoc_get (ly_symbol2scm ("X"),
- bounds[d], SCM_BOOL_F), 0.0)
- + commonx->relative_coordinate (commonx, X_AXIS),
+ bounds[d], SCM_BOOL_F), 0.0),
robust_scm2double (ly_assoc_get (ly_symbol2scm ("Y"),
bounds[d], SCM_BOOL_F), 0.0));
Stencil line;
do
{
+ span_points[d] += -d * gaps[d] * dz.direction ();
+
if (stencils[d])
{
Stencil s = stencils[d]->translated (span_points[d]);
if (stencils[d])
span_points[d] += dz_dir *
(stencils[d]->extent (X_AXIS)[-d] / dz_dir[X_AXIS]);
-
- span_points[d] += -d * gaps[d] * dz.direction ();
}
while (flip (&d) != LEFT);
- line.add_stencil (Line_interface::line (me,
- span_points[LEFT],
- span_points[RIGHT]));
+ Offset adjust = dz.direction() * Staff_symbol_referencer::staff_space (me);
- line.add_stencil (Line_interface::arrows (me,
- span_points[LEFT],
- span_points[RIGHT],
- arrows[LEFT],
- arrows[RIGHT]));
+ Offset line_left = span_points[LEFT] + (arrows[LEFT] ? adjust*1.4 : Offset (0, 0));
+ Offset line_right = span_points[RIGHT] - (arrows[RIGHT] ? adjust*0.55 : Offset (0, 0));
+ if (line_right[X_AXIS] > line_left[X_AXIS])
+ {
+ line.add_stencil (Line_interface::line (me, line_left, line_right));
+
+ line.add_stencil (Line_interface::arrows (me,
+ span_points[LEFT],
+ span_points[RIGHT],
+ arrows[LEFT],
+ arrows[RIGHT]));
+ }
line.translate (Offset (-me->relative_coordinate (commonx, X_AXIS),
-me->relative_coordinate (my_common_y, Y_AXIS)));
return line.smobbed_copy ();
}
-ADD_INTERFACE (New_line_spanner,
+ADD_INTERFACE (Line_spanner,
"Generic line drawn between two objects, e.g. for use with glissandi.\n"
"The property @code{style} can be @code{line}, "
"@code{dashed-line}, @code{trill}, \n"