2 local-key-reg.cc -- implement Local_key_engraver
4 (c) 1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
7 #include "musical-request.hh"
8 #include "command-request.hh"
9 #include "local-key-engraver.hh"
10 #include "local-key-item.hh"
11 #include "key-engraver.hh"
13 #include "key-item.hh"
15 #include "note-head.hh"
16 #include "time-description.hh"
17 #include "engraver-group.hh"
20 Local_key_engraver::Local_key_engraver()
27 Local_key_engraver::do_creation_processing ()
32 Breaks if Key_engraver is removed from under us.
35 daddy_grav_l()->get_simple_translator (Key_engraver::static_name());
39 warning (_ ("out of tune") + "! " + _ ("can't find") + " Key_engraver");
43 key_C_ = &((Key_engraver*)result->access_Engraver ())->key_;
49 Local_key_engraver::process_acknowledged ()
51 if (!key_item_p_ && mel_l_arr_.size())
53 for (int i=0; i < mel_l_arr_.size(); i++)
55 Item * support_l = support_l_arr_[i];
56 Note_req * note_l = mel_l_arr_[i];
58 if (tied_l_arr_.find_l (support_l) &&
62 if (!note_l->forceacc_b_
63 && local_key_.different_acc (note_l->pitch_))
67 key_item_p_ = new Local_key_item;
68 announce_element (Score_element_info (key_item_p_, 0));
70 ///////// TODO: Handle cautionary accidentals
71 if (note_l->cautionary_b_)
73 warning (_("cautionary accidentals are not yet supported"));
76 key_item_p_->add (note_l->pitch_);
77 key_item_p_->add_support (support_l);
78 local_key_.set (note_l->pitch_);
85 Local_key_engraver::do_pre_move_processing()
89 for (int i=0; i < support_l_arr_.size(); i++)
90 key_item_p_->add_support (support_l_arr_[i]);
92 typeset_element (key_item_p_);
98 support_l_arr_.clear();
99 forced_l_arr_.clear();
103 Local_key_engraver::acknowledge_element (Score_element_info info)
105 Score_element * elem_l = info.elem_l_;
106 Item * item_l = elem_l->access_Item();
108 Note_req * note_l = (info.req_l_->access_Musical_req ())
109 ? info.req_l_->access_Musical_req ()->access_Note_req () : 0;
111 if (note_l && item_l && item_l->is_type_b (Note_head::static_name ()))
113 mel_l_arr_.push (note_l);
114 support_l_arr_.push (item_l);
116 else if (info.req_l_->access_Command_req ()
117 && info.req_l_->access_Command_req ()->access_Key_change_req () && key_C_)
119 local_key_ = *key_C_;
121 else if (elem_l->is_type_b (Tie::static_name ()))
123 Tie * tie_l = (Tie*)elem_l->access_Spanner ();
124 if (tie_l->same_pitch_b_)
125 tied_l_arr_.push (tie_l-> head_l_drul_[RIGHT]);
130 Local_key_engraver::do_process_requests()
132 Time_description const * time_C_ = get_staff_info().time_C_;
133 if (time_C_ && !time_C_->whole_in_measure_)
141 IMPLEMENT_IS_TYPE_B1(Local_key_engraver,Engraver);
142 ADD_THIS_TRANSLATOR(Local_key_engraver);