2 lyric-extender.cc -- implement Lyric_extender
3 source file of the GNU LilyPond music typesetter
5 (c) 1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
9 TODO: too complicated implementation. Why the dx_drul?.
13 #include "dimension-cache.hh"
17 #include "molecule.hh"
18 #include "paper-column.hh"
19 #include "paper-def.hh"
20 #include "extender-spanner.hh"
22 Lyric_extender::Lyric_extender (SCM s)
26 dx_f_drul_[LEFT] = dx_f_drul_[RIGHT] = 0.0;
27 set_extent_callback (Score_element::point_dimension_callback, Y_AXIS);
33 MAKE_SCHEME_SCORE_ELEMENT_CALLBACKS(Lyric_extender)
35 Lyric_extender::do_brew_molecule () const
39 Real w = spanner_length ();
41 w += (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT]);
42 Real h = paper_l ()->get_var ("extender_height");
43 Molecule a = lookup_l ()->filledbox ( Box (Interval (0,w), Interval (0,h)));
44 a.translate (Offset (dx_f_drul_[LEFT], 0));
54 Lyric_extender::after_line_breaking ()
57 Real gap = paper_l ()->get_var ("interline");
62 Item* t = get_bound (d)
63 ? get_bound (d) : get_bound ((Direction)-d);
65 dx_f_drul_[d] += t->extent (X_AXIS).length ();
67 dx_f_drul_[d] -= d * gap / 2;
69 while (flip(&d) != LEFT);
74 Lyric_extender::set_textitem (Direction d, Item* textitem_l)
76 set_bound (d, textitem_l);
77 add_dependency (textitem_l);