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
));
51 Tie::position_f () const
54 ? staff_symbol_referencer (head (LEFT
)).position_f ()
55 : staff_symbol_referencer (head (RIGHT
)).position_f () ;
60 ugh: direction of the Tie is more complicated. See [Ross] p136 and further
63 Tie::get_default_dir () const
65 Stem
* sl
= head(LEFT
) ? head (LEFT
)->stem_l () :0;
66 Stem
* sr
= head(RIGHT
) ? head (RIGHT
)->stem_l () :0;
68 if (sl
&& directional_element (sl
).get () == UP
69 && sr
&& directional_element (sr
).get () == UP
)
76 Tie::do_add_processing()
78 if (!(head (LEFT
) && head (RIGHT
)))
79 warning (_ ("lonely tie"));
82 Drul_array
<Note_head
*> new_head_drul
;
83 new_head_drul
[LEFT
] = head(LEFT
);
84 new_head_drul
[RIGHT
] = head(RIGHT
);
87 new_head_drul
[d
] = head((Direction
)-d
);
88 } while (flip(&d
) != LEFT
);
90 index_set_cell (get_elt_property ("heads"), LEFT
, new_head_drul
[LEFT
]->self_scm_
);
91 index_set_cell (get_elt_property ("heads"), RIGHT
, new_head_drul
[RIGHT
]->self_scm_
);
95 Tie::do_post_processing()
97 if (!head (LEFT
) && !head (RIGHT
))
99 programming_error ("Tie without heads.");
100 set_elt_property ("transparent", SCM_BOOL_T
);
106 if (!directional_element (this).get ())
107 directional_element (this).set (get_default_dir ());
109 Real staff_space
= paper_l ()->get_var ("interline");
110 Real half_staff_space
= staff_space
/ 2;
111 Real x_gap_f
= paper_l ()->get_var ("tie_x_gap");
112 Real y_gap_f
= paper_l ()->get_var ("tie_y_gap");
115 Slur and tie placement [OSU]
119 * x = inner vertical tangent - d * gap
125 OSU: not different for outer notes, so why all this code?
126 ie, can we drop this, or should it be made switchable.
129 dx_f_drul_
[LEFT
] = head (LEFT
)->extent (X_AXIS
).length ();
131 dx_f_drul_
[LEFT
] = get_broken_left_end_align ();
132 dx_f_drul_
[LEFT
] += x_gap_f
;
133 dx_f_drul_
[RIGHT
] -= x_gap_f
;
136 Slur and tie placement [OSU] -- check this
140 * y = dx < 5ss: horizontal tangent
141 y = dx >= 5ss: y next interline - d * 0.25 ss
143 which probably means that OSU assumes that
151 Real ypos
= position_f ();
153 Real y_f
= half_staff_space
* ypos
;
154 int ypos_i
= int (ypos
);
156 Real dx_f
= extent (X_AXIS
).length () + dx_f_drul_
[RIGHT
] - dx_f_drul_
[LEFT
];
157 Direction dir
= directional_element (this).get();
158 if (dx_f
< paper_l ()->get_var ("tie_staffspace_length"))
160 if (abs (ypos_i
) % 2)
161 y_f
+= dir
* half_staff_space
;
162 y_f
+= dir
* y_gap_f
;
166 if (! (abs (ypos_i
) % 2))
167 y_f
+= dir
* half_staff_space
;
168 y_f
+= dir
* half_staff_space
;
169 y_f
-= dir
* y_gap_f
;
172 dy_f_drul_
[LEFT
] = dy_f_drul_
[RIGHT
] = y_f
;
178 Tie::get_rods () const
182 r
.item_l_drul_
= spanned_drul_
;
183 r
.distance_f_
= paper_l ()->get_var ("tie_x_minimum");
192 Tie::do_brew_molecule_p () const
194 Real thick
= paper_l ()->get_var ("tie_thickness");
195 Bezier one
= get_curve ();
198 SCM d
= get_elt_property ("dashed");
200 a
= lookup_l ()->dashed_slur (one
, thick
, gh_scm2int (d
));
202 a
= lookup_l ()->slur (one
, directional_element (this).get () * thick
, thick
);
204 return new Molecule (a
);
210 Tie::get_curve () const
212 Direction
d (directional_element (this).get ());
213 Bezier_bow
b (get_encompass_offset_arr (), d
);
215 b
.ratio_
= paper_l ()->get_var ("slur_ratio");
216 b
.height_limit_
= paper_l ()->get_var ("slur_height_limit");
217 b
.rc_factor_
= paper_l ()->get_var ("slur_rc_factor");
220 Bezier
c (b
.get_curve ());
222 /* should do this for slurs as well. */
223 Array
<Real
> horizontal (c
.solve_derivative (Offset (1,0)));
225 if (horizontal
.size ())
228 ugh. Doesnt work for non-horizontal curves.
230 Real space
= staff_symbol_referencer (this).staff_space ();
231 Real y
= c
.curve_point (horizontal
[0])[Y_AXIS
];
233 Real ry
= rint (y
/space
) * space
;
236 if (fabs (diff
) < paper_l ()->get_var ("tie_staffline_clearance"))
238 newy
= ry
- 0.5 * space
* sign (diff
) ;
241 Real y0
= c
.control_
[0][Y_AXIS
];
242 c
.control_
[2][Y_AXIS
] =
243 c
.control_
[1][Y_AXIS
] =
244 (c
.control_
[1][Y_AXIS
] - y0
) * ((newy
- y0
) / (y
- y0
)) + y0
;
247 programming_error ("Tie is nowhere horizontal");
252 Tie::get_encompass_offset_arr () const
254 Array
<Offset
> offset_arr
;
255 offset_arr
.push (Offset (dx_f_drul_
[LEFT
], dy_f_drul_
[LEFT
]));
256 offset_arr
.push (Offset (spanner_length () + dx_f_drul_
[RIGHT
],