2 slur.cc -- implement Slur
4 source file of the GNU LilyPond music typesetter
6 (c) 1996, 1997 Han-Wen Nienhuys <hanwen@stack.nl>
13 think about crossing stems.
14 Begin and end should be treated as a Script.
20 #include "paper-def.hh"
21 #include "note-column.hh"
24 #include "molecule.hh"
31 Slur::add (Note_column*n)
33 encompass_arr_.push (n);
38 Slur::set_default_dir()
41 for (int i=0; i < encompass_arr_.size(); i ++) {
42 if (encompass_arr_[i]->dir_i_ < 0) {
50 Slur::do_pre_processing()
52 right_col_l_ = encompass_arr_.top()->pcol_l_;
53 left_col_l_ = encompass_arr_[0]->pcol_l_;
58 Slur::do_substitute_dependency (Score_elem*o, Score_elem*n)
61 while ((i = encompass_arr_.find_i ((Note_column*)o->item())) >=0) {
63 encompass_arr_[i] = (Note_column*)n->item();
65 encompass_arr_.del (i);
71 Note_column_compare (Note_column *const&n1 , Note_column* const&n2)
73 return n1->pcol_l_->rank_i() - n2->pcol_l_->rank_i ();
77 Slur::do_post_processing()
79 encompass_arr_.sort (Note_column_compare);
82 Real inter_f = paper()->internote_f ();
84 if (encompass_arr_[0]->stem_l_)
85 left_pos_i_ = rint (encompass_arr_[0]->stem_l_->height()[dir_i_]/inter_f);
87 left_pos_i_ = rint ( encompass_arr_[0]->head_positions_interval()[dir_i_]);
89 if (encompass_arr_.top()->stem_l_)
90 right_pos_i_ = rint (encompass_arr_.top()->stem_l_->height ()[dir_i_]/inter_f);
92 right_pos_i_ = rint (encompass_arr_.top()->head_positions_interval ()[dir_i_]);
94 left_pos_i_ += dir_i_;
95 right_pos_i_ += dir_i_;
98 IMPLEMENT_IS_TYPE_B1(Slur,Spanner);