2 local-key-engraver.cc -- implement Local_key_engraver
4 (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
8 #include "musical-request.hh"
9 #include "command-request.hh"
10 #include "local-key-engraver.hh"
11 #include "local-key-item.hh"
12 #include "key-engraver.hh"
14 #include "key-item.hh"
16 #include "note-head.hh"
17 #include "timing-translator.hh"
18 #include "engraver-group-engraver.hh"
19 #include "grace-align-item.hh"
20 #include "staff-symbol-referencer.hh"
21 #include "side-position-interface.hh"
22 #include "engraver.hh"
28 Make accidentals. Catches note heads, ties and notices key-change
29 events. Due to interaction with ties (which don't come together
30 with note heads), this needs to be in a context higher than Tie_engraver.
33 struct Local_key_engraver : Engraver {
34 Local_key_item *key_item_p_;
36 VIRTUAL_COPY_CONS(Translator);
37 virtual void do_process_music();
38 virtual void acknowledge_element (Score_element_info);
39 virtual void do_pre_move_processing();
40 virtual void do_creation_processing ();
41 virtual void process_acknowledged ();
42 virtual void do_removal_processing ();
46 Key_engraver *key_grav_l_;
47 Array<Note_req* > mel_l_arr_;
48 Array<Item*> support_l_arr_;
49 Link_array<Item > forced_l_arr_;
50 Link_array<Item > tied_l_arr_;
53 Grace_align_item * grace_align_l_;
54 Timing_translator * time_trans_l_ ;
59 Local_key_engraver::Local_key_engraver()
68 Local_key_engraver::do_creation_processing ()
73 Breaks if Key_engraver is removed from under us.
76 daddy_grav_l()->get_simple_translator ("Key_engraver");
78 key_grav_l_ = dynamic_cast<Key_engraver *> (result);
82 warning (_ ("out of tune:"));
83 warning (_f ("can't find: `%s'", "Key_engraver"));
87 local_key_ = key_grav_l_->key_;
92 (if we are grace) get key info from parent Local_key_engraver
95 Translator * tr = daddy_grav_l()->get_simple_translator ("Timing_engraver"); // ugh
96 time_trans_l_ = dynamic_cast<Timing_translator*> (tr);
100 Local_key_engraver::process_acknowledged ()
102 if (!key_item_p_ && mel_l_arr_.size())
104 SCM f = get_property ("forgetAccidentals");
105 bool forget = to_boolean (f);
106 for (int i=0; i < mel_l_arr_.size(); i++)
108 Item * support_l = support_l_arr_[i];
109 Note_req * note_l = mel_l_arr_[i];
111 /* see if there's a tie that "changes" the accidental */
112 /* works because if there's a tie, the note to the left
113 is of the same pitch as the actual note */
114 bool tie_changes = tied_l_arr_.find_l (support_l)
115 && !local_key_.different_acc (note_l->pitch_);
119 && ((note_l->forceacc_b_
120 || !local_key_.different_acc (note_l->pitch_)
121 || local_key_.internal_forceacc (note_l->pitch_)))
127 key_item_p_ = new Local_key_item (get_property ("basicLocalKeyProperties"));
128 Side_position_interface (key_item_p_).set_axis (X_AXIS);
129 Side_position_interface (key_item_p_).set_direction (LEFT);
130 staff_symbol_referencer(key_item_p_).set_interface ();
132 announce_element (Score_element_info (key_item_p_, 0));
135 key_item_p_->add_pitch (note_l->pitch_,
136 note_l->cautionary_b_,
137 local_key_.double_to_single_acc(note_l->pitch_));
138 Side_position_interface (key_item_p_).add_support (support_l);
143 local_key_.set (note_l->pitch_);
144 if (!tied_l_arr_.find_l (support_l))
146 local_key_.clear_internal_forceacc (note_l->pitch_);
148 else if (tie_changes)
150 local_key_.set_internal_forceacc (note_l->pitch_);
155 if (key_item_p_ && grace_align_l_)
157 Side_position_interface (grace_align_l_).add_support (key_item_p_);
164 Local_key_engraver::do_removal_processing ()
166 // TODO: signal accidentals to Local_key_engraver the
170 Local_key_engraver::do_pre_move_processing()
174 for (int i=0; i < support_l_arr_.size(); i++)
175 Side_position_interface (key_item_p_).add_support (support_l_arr_[i]);
177 typeset_element (key_item_p_);
184 support_l_arr_.clear();
185 forced_l_arr_.clear();
189 Local_key_engraver::acknowledge_element (Score_element_info info)
191 SCM wg= get_property ("weAreGraceContext");
193 bool selfgr = gh_boolean_p (wg) &&gh_scm2bool (wg);
194 bool he_gr = to_boolean (info.elem_l_->get_elt_property ("grace"));
196 Grace_align_item * gai = dynamic_cast<Grace_align_item*> (info.elem_l_);
197 if (he_gr && !selfgr && gai)
199 grace_align_l_ = gai;
201 Note_req * note_l = dynamic_cast <Note_req *> (info.req_l_);
202 Note_head * note_head = dynamic_cast<Note_head *> (info.elem_l_);
209 if (note_l && note_head)
211 mel_l_arr_.push (note_l);
212 support_l_arr_.push (note_head);
214 else if (Tie * tie_l = dynamic_cast<Tie *> (info.elem_l_))
216 tied_l_arr_.push (tie_l->head (RIGHT));
221 Local_key_engraver::do_process_music()
224 SCM smp = get_property ("measurePosition");
225 Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
229 if (!to_boolean (get_property ("noResetKey")) && key_grav_l_)
230 local_key_= key_grav_l_->key_;
232 else if (key_grav_l_ && key_grav_l_->key_changed_b ())
234 local_key_ = key_grav_l_->key_;
240 ADD_THIS_TRANSLATOR(Local_key_engraver);