lilypond-1.3.28
[lilypond.git] / lily / hyphen-spanner.cc
blobbe36b99bf61ccbf8bc7d749d581a55c42ca43673
1 /*
2 hyphen-spanner.cc -- implement Hyphen_spanner
4 source file of the GNU LilyPond music typesetter
6 (c) 1999 Glen Prideaux <glenprideaux@iname.com>
8 (adapted from extender-spanner)
9 */
12 TODO: too complicated implementation. Why the dx_drul?.
15 #include <math.h>
16 #include "box.hh"
17 #include "debug.hh"
18 #include "lookup.hh"
19 #include "molecule.hh"
20 #include "paper-column.hh"
21 #include "paper-def.hh"
22 #include "hyphen-spanner.hh"
23 #include "dimension-cache.hh"
25 Hyphen_spanner::Hyphen_spanner ()
26 : Spanner ()
28 dx_f_drul_[LEFT] = dx_f_drul_[RIGHT] = 0.0;
30 dim_cache_[Y_AXIS]->set_callback (Dimension_cache::point_dimension_callback);
33 Molecule*
34 Hyphen_spanner::do_brew_molecule_p () const
36 Molecule* mol_p = new Molecule;
38 Real w = spanner_length ();
40 w += (dx_f_drul_[RIGHT] - dx_f_drul_[LEFT]);
42 Real th = paper_l ()->get_var ("hyphen_thickness");
43 Real h = paper_l ()->get_var ("hyphen_height");
45 // UGH. First try: just make the hyphen take 1/3 of the available space
46 // for length, use a geometric mean of the available space and some minimum
47 Real l = paper_l ()->get_var ("hyphen_minimum_length");
48 if(l < w)
49 l = sqrt(l*w);
50 Molecule a = lookup_l ()->filledbox ( Box (Interval ((w-l)/2,(w+l)/2), Interval (h,h+th)));
51 a.translate (Offset (dx_f_drul_[LEFT], 0));
53 mol_p->add_molecule (a);
55 return mol_p;
59 void
60 Hyphen_spanner::do_post_processing ()
62 // UGH
63 Real gap = paper_l ()->get_var ("interline");
65 Direction d = LEFT;
68 Item* t = spanned_drul_[d]
69 ? spanned_drul_[d] : spanned_drul_[(Direction)-d];
70 if (d == LEFT)
71 dx_f_drul_[d] += t->extent (X_AXIS).length ();
72 else
73 dx_f_drul_[d] -= d * gap / 2;
75 while (flip(&d) != LEFT);
79 void
80 Hyphen_spanner::set_textitem (Direction d, Item* textitem_l)
82 set_bounds (d, textitem_l);
83 add_dependency (textitem_l);