2 tie.cc -- implement Tie
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
11 #include "paper-def.hh"
13 #include "note-head.hh"
15 #include "paper-column.hh"
17 #include "staff-symbol-referencer.hh"
18 #include "directional-element-interface.hh"
19 #include "molecule.hh"
20 #include "bezier-bow.hh"
24 Tie::set_head (Direction d, Item * head_l)
27 index_set_cell (get_elt_property ("heads"), d, head_l->self_scm_);
29 set_bounds (d, head_l);
30 add_dependency (head_l);
35 set_elt_property ("heads", gh_cons (SCM_EOL, SCM_EOL));
36 dy_f_drul_[LEFT] = dy_f_drul_[RIGHT] = 0.0;
37 dx_f_drul_[LEFT] = dx_f_drul_[RIGHT] = 0.0;
42 Tie::head (Direction d) const
44 SCM c = get_elt_property ("heads");
45 c = index_cell (c, d);
47 return dynamic_cast<Note_head*> (unsmob_element (c));
52 ugh: direction of the Tie is more complicated. See [Ross] p136 and further
55 Tie::get_default_dir () const
57 Stem * sl = head(LEFT) ? head (LEFT)->stem_l () :0;
58 Stem * sr = head(RIGHT) ? head (RIGHT)->stem_l () :0;
60 if (sl && directional_element (sl).get () == UP
61 && sr && directional_element (sr).get () == UP)
68 Tie::do_add_processing()
70 if (!(head (LEFT) && head (RIGHT)))
71 warning (_ ("lonely tie"));
74 Drul_array<Note_head *> new_head_drul;
75 new_head_drul[LEFT] = head(LEFT);
76 new_head_drul[RIGHT] = head(RIGHT);
79 new_head_drul[d] = head((Direction)-d);
80 } while (flip(&d) != LEFT);
82 index_set_cell (get_elt_property ("heads"), LEFT, new_head_drul[LEFT]->self_scm_ );
83 index_set_cell (get_elt_property ("heads"), RIGHT, new_head_drul[LEFT]->self_scm_ );
88 Tie::do_post_processing()
90 if (!head (LEFT) && !head (RIGHT))
92 programming_error ("Tie without heads.");
93 set_elt_property ("transparent", SCM_BOOL_T);
99 if (!directional_element (this).get ())
100 directional_element (this).set (get_default_dir ());
102 Real staff_space = paper_l ()->get_var ("interline");
103 Real half_staff_space = staff_space / 2;
104 Real x_gap_f = paper_l ()->get_var ("tie_x_gap");
105 Real y_gap_f = paper_l ()->get_var ("tie_y_gap");
108 Slur and tie placement [OSU]
112 * x = inner vertical tangent - d * gap
118 OSU: not different for outer notes, so why all this code?
119 ie, can we drop this, or should it be made switchable.
122 dx_f_drul_[LEFT] = head (LEFT)->extent (X_AXIS).length ();
124 dx_f_drul_[LEFT] = get_broken_left_end_align ();
125 dx_f_drul_[LEFT] += x_gap_f;
126 dx_f_drul_[RIGHT] -= x_gap_f;
129 Slur and tie placement [OSU] -- check this
133 * y = dx < 5ss: horizontal tangent
134 y = dx >= 5ss: y next interline - d * 0.25 ss
136 which probably means that OSU assumes that
144 Real ypos = head (LEFT)
145 ? staff_symbol_referencer (head (LEFT)).position_f ()
146 : staff_symbol_referencer (head (RIGHT)).position_f () ;
148 Real y_f = half_staff_space * ypos;
149 int ypos_i = int (ypos);
151 Real dx_f = extent (X_AXIS).length () + dx_f_drul_[RIGHT] - dx_f_drul_[LEFT];
152 Direction dir = directional_element (this).get();
153 if (dx_f < paper_l ()->get_var ("tie_staffspace_length"))
155 if (abs (ypos_i) % 2)
156 y_f += dir * half_staff_space;
157 y_f += dir * y_gap_f;
161 if (! (abs (ypos_i) % 2))
162 y_f += dir * half_staff_space;
163 y_f += dir * half_staff_space;
164 y_f -= dir * y_gap_f;
167 dy_f_drul_[LEFT] = dy_f_drul_[RIGHT] = y_f;
173 Tie::get_rods () const
177 r.item_l_drul_ = spanned_drul_;
178 r.distance_f_ = paper_l ()->get_var ("tie_x_minimum");
187 Tie::do_brew_molecule_p () const
189 Real thick = paper_l ()->get_var ("tie_thickness");
190 Bezier one = get_curve ();
193 SCM d = get_elt_property ("dashed");
195 a = lookup_l ()->dashed_slur (one, thick, gh_scm2int (d));
197 a = lookup_l ()->slur (one, directional_element (this).get () * thick, thick);
199 return new Molecule (a);
205 Tie::get_curve () const
207 Direction d (directional_element (this).get ());
208 Bezier_bow b (get_encompass_offset_arr (), d);
210 b.ratio_ = paper_l ()->get_var ("slur_ratio");
211 b.height_limit_ = paper_l ()->get_var ("slur_height_limit");
212 b.rc_factor_ = paper_l ()->get_var ("slur_rc_factor");
215 Bezier c (b.get_curve ());
217 /* should do this for slurs as well. */
218 Array<Real> horizontal (c.solve_derivative (Offset (1,0)));
220 if (horizontal.size ())
223 ugh. Doesnt work for non-horizontal curves.
225 Real space = staff_symbol_referencer (this).staff_space ();
226 Real y = c.curve_point (horizontal[0])[Y_AXIS];
228 Real ry = rint (y/space) * space;
231 if (fabs (diff) < paper_l ()->get_var ("tie_staffline_clearance"))
233 newy = ry - 0.5 * space * sign (diff) ;
236 Real y0 = c.control_ [0][Y_AXIS];
237 c.control_[2][Y_AXIS] =
238 c.control_[1][Y_AXIS] =
239 (c.control_[1][Y_AXIS] - y0) * (newy / y) + y0;
242 programming_error ("Tie is nowhere horizontal");
248 Tie::get_encompass_offset_arr () const
250 Array<Offset> offset_arr;
251 offset_arr.push (Offset (dx_f_drul_[LEFT], dy_f_drul_[LEFT]));
252 offset_arr.push (Offset (spanner_length () + dx_f_drul_[RIGHT],