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_;
57 Slur::do_break_at(PCol*l, PCol*r)
59 assert(l->line_l_ == r->line_l_);
61 Array<Note_column*> old_encompass_arr = encompass_arr_;
62 encompass_arr_.set_size(0);
63 for (int i =0; i < old_encompass_arr.size(); i++) {
64 if (old_encompass_arr[i]->pcol_l_->line_l_==l->line_l_)
65 encompass_arr_.push(old_encompass_arr[i]);
70 Slur::do_substitute_dependency(Score_elem*o, Score_elem*n)
73 while((i = encompass_arr_.find_i((Note_column*)o->item())) >=0) {
75 encompass_arr_[i] = (Note_column*)n->item();
77 encompass_arr_.del(i);
83 Note_column_compare(Note_column *const&n1 , Note_column* const&n2)
85 return n1->pcol_l_->rank_i() - n2->pcol_l_->rank_i();
89 Slur::do_post_processing()
91 encompass_arr_.sort(Note_column_compare);
94 Real inter_f = paper()->internote_f();
96 if (encompass_arr_[0]->stem_l_)
97 left_pos_i_ = rint(encompass_arr_[0]->stem_l_->height()[dir_i_]/inter_f);
99 left_pos_i_ = rint ( encompass_arr_[0]->head_positions_interval()[dir_i_]);
101 if (encompass_arr_.top()->stem_l_)
102 right_pos_i_ = rint(encompass_arr_.top()->stem_l_->height()[dir_i_]/inter_f);
104 right_pos_i_ = rint (encompass_arr_.top()->head_positions_interval()[dir_i_]);
106 left_pos_i_ += dir_i_;
107 right_pos_i_ += dir_i_;
109 IMPLEMENT_STATIC_NAME(Slur);