/*
- local-key-reg.cc -- implement Local_key_engraver
+ local-key-engraver.cc -- implement Local_key_engraver
- (c) 1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
+// clean up!
#include "musical-request.hh"
#include "command-request.hh"
#include "key-item.hh"
#include "tie.hh"
#include "note-head.hh"
-#include "time-description.hh"
-#include "engraver-group.hh"
+#include "timing-translator.hh"
+#include "engraver-group-engraver.hh"
+#include "grace-align-item.hh"
+#include "staff-symbol-referencer.hh"
+#include "side-position-interface.hh"
+#include "engraver.hh"
+
+#include "parray.hh"
+
+
+/**
+ Make accidentals. Catches note heads, ties and notices key-change
+ events. Due to interaction with ties (which don't come together
+ with note heads), this needs to be in a context higher than Tie_engraver.
+ (FIXME).
+ */
+struct Local_key_engraver : Engraver {
+ Local_key_item *key_item_p_;
+protected:
+ VIRTUAL_COPY_CONS(Translator);
+ virtual void do_process_music();
+ virtual void acknowledge_element (Score_element_info);
+ virtual void do_pre_move_processing();
+ virtual void do_creation_processing ();
+ virtual void process_acknowledged ();
+ virtual void do_removal_processing ();
+public:
+
+ Newkey local_key_;
+ Key_engraver *key_grav_l_;
+ Array<Note_req* > mel_l_arr_;
+ Array<Item*> support_l_arr_;
+ Link_array<Item > forced_l_arr_;
+ Link_array<Item > tied_l_arr_;
+ Local_key_engraver();
+ bool self_grace_b_;
+ Grace_align_item * grace_align_l_;
+ Timing_translator * time_trans_l_ ;
+};
+
Local_key_engraver::Local_key_engraver()
{
- key_C_ = 0;
+ key_grav_l_ = 0;
key_item_p_ =0;
+ grace_align_l_ =0;
+ time_trans_l_ = 0;
}
void
UGHGUHGUH.
Breaks if Key_engraver is removed from under us.
- */
+ */
Translator * result =
- daddy_grav_l()->get_simple_translator (Key_engraver::static_name());
+ daddy_grav_l()->get_simple_translator ("Key_engraver");
- if (!result)
+ key_grav_l_ = dynamic_cast<Key_engraver *> (result);
+
+ if (!key_grav_l_)
{
- warning (_ ("out of tune") + "! " + _ ("can't find") + " Key_engraver");
+ warning (_ ("out of tune:"));
+ warning (_f ("can't find: `%s'", "Key_engraver"));
}
else
{
- key_C_ = &((Key_engraver*)result->access_Engraver ())->key_;
- local_key_ = *key_C_;
+ local_key_ = key_grav_l_->key_;
}
+
+ /*
+ TODO
+ (if we are grace) get key info from parent Local_key_engraver
+ */
+
+ Translator * tr = daddy_grav_l()->get_simple_translator ("Timing_engraver"); // ugh
+ time_trans_l_ = dynamic_cast<Timing_translator*> (tr);
}
void
{
if (!key_item_p_ && mel_l_arr_.size())
{
+ SCM f = get_property ("forgetAccidentals");
+ bool forget = to_boolean (f);
for (int i=0; i < mel_l_arr_.size(); i++)
{
Item * support_l = support_l_arr_[i];
Note_req * note_l = mel_l_arr_[i];
- if (tied_l_arr_.find_l (support_l) &&
- !note_l->forceacc_b_)
- continue;
-
- if (!note_l->forceacc_b_
- && local_key_.different_acc (note_l->pitch_))
- continue;
- if (!key_item_p_)
+ /* see if there's a tie that "changes" the accidental */
+ /* works because if there's a tie, the note to the left
+ is of the same pitch as the actual note */
+
+ int prev_acc =local_key_.get (note_l->pitch_.octave_i_,
+ note_l->pitch_.notename_i_);
+ bool different = prev_acc != note_l->pitch_.accidental_i_;
+
+ bool tie_changes = tied_l_arr_.find_l (support_l) && different;
+ if (!forget
+ && (note_l->forceacc_b_
+ || !different)
+ && !tie_changes)
+ {
+ if (!key_item_p_)
+ {
+ key_item_p_ = new Local_key_item (get_property ("basicLocalKeyProperties"));
+ Side_position_interface (key_item_p_).set_axis (X_AXIS);
+ Side_position_interface (key_item_p_).set_direction (LEFT);
+ staff_symbol_referencer(key_item_p_).set_interface ();
+
+ announce_element (Score_element_info (key_item_p_, 0));
+ }
+
+
+ bool extra_natural
+ = sign (prev_acc) * (prev_acc - note_l->pitch_.accidental_i_) == 1 ;
+
+ key_item_p_->add_pitch (note_l->pitch_,
+ note_l->cautionary_b_,
+ extra_natural);
+ Side_position_interface (key_item_p_).add_support (support_l);
+ }
+
+ if (!forget)
{
- key_item_p_ = new Local_key_item;
- announce_element (Score_element_info (key_item_p_, 0));
+ local_key_.set (note_l->pitch_.octave_i_, note_l->pitch_.notename_i_,
+ note_l->pitch_.accidental_i_);
+#if 0
+ if (!tied_l_arr_.find_l (support_l))
+ {
+ local_key_.clear_internal_forceacc (note_l->pitch_);
+ }
+ else if (tie_changes)
+ {
+ local_key_.set_internal_forceacc (note_l->pitch_);
+ }
+#endif
}
- key_item_p_->add (note_l->pitch_);
- key_item_p_->add_support (support_l);
- local_key_.set (note_l->pitch_);
- }
-
+ }
}
+ if (key_item_p_ && grace_align_l_)
+ {
+ Side_position_interface (grace_align_l_).add_support (key_item_p_);
+ grace_align_l_ =0;
+ }
+
+}
+
+void
+Local_key_engraver::do_removal_processing ()
+{
+ // TODO: signal accidentals to Local_key_engraver the
}
void
if (key_item_p_)
{
for (int i=0; i < support_l_arr_.size(); i++)
- key_item_p_->add_support (support_l_arr_[i]);
+ Side_position_interface (key_item_p_).add_support (support_l_arr_[i]);
typeset_element (key_item_p_);
key_item_p_ =0;
}
-
+
+ grace_align_l_ = 0;
mel_l_arr_.clear();
tied_l_arr_.clear();
support_l_arr_.clear();
void
Local_key_engraver::acknowledge_element (Score_element_info info)
-{
- Score_element * elem_l = info.elem_l_;
- Item * item_l = elem_l->access_Item();
-
- Note_req * note_l = (info.req_l_->access_Musical_req ())
- ? info.req_l_->access_Musical_req ()->access_Note_req () : 0;
+{
+ SCM wg= get_property ("weAreGraceContext");
+
+ bool selfgr = gh_boolean_p (wg) &&gh_scm2bool (wg);
+ bool he_gr = to_boolean (info.elem_l_->get_elt_property ("grace"));
- if (note_l && item_l && item_l->is_type_b (Note_head::static_name ()))
+ Grace_align_item * gai = dynamic_cast<Grace_align_item*> (info.elem_l_);
+ if (he_gr && !selfgr && gai)
{
- mel_l_arr_.push (note_l);
- support_l_arr_.push (item_l);
+ grace_align_l_ = gai;
}
- else if (info.req_l_->access_Command_req ()
- && info.req_l_->access_Command_req ()->access_Key_change_req () && key_C_)
+ Note_req * note_l = dynamic_cast <Note_req *> (info.req_l_);
+ Note_head * note_head = dynamic_cast<Note_head *> (info.elem_l_);
+
+
+
+ if (he_gr != selfgr)
+ return;
+
+ if (note_l && note_head)
{
- local_key_ = *key_C_;
+ mel_l_arr_.push (note_l);
+ support_l_arr_.push (note_head);
}
- else if (elem_l->is_type_b (Tie::static_name ()))
+ else if (Tie * tie_l = dynamic_cast<Tie *> (info.elem_l_))
{
- Tie * tie_l = (Tie*)elem_l->access_Spanner ();
- if (tie_l->same_pitch_b_)
- tied_l_arr_.push (tie_l-> head_l_drul_[RIGHT]);
+ tied_l_arr_.push (tie_l->head (RIGHT));
}
}
void
-Local_key_engraver::do_process_requests()
+Local_key_engraver::do_process_music()
{
- Time_description const * time_C_ = get_staff_info().time_C_;
- if (time_C_ && !time_C_->whole_in_measure_)
+
+ SCM smp = get_property ("measurePosition");
+ Moment mp = (unsmob_moment (smp)) ? *unsmob_moment (smp) : Moment (0);
+
+ if (!mp)
{
- if (key_C_)
- local_key_= *key_C_;
+ if (!to_boolean (get_property ("noResetKey")) && key_grav_l_)
+ local_key_= key_grav_l_->key_;
+ }
+ else if (key_grav_l_ && key_grav_l_->key_changed_b ())
+ {
+ local_key_ = key_grav_l_->key_;
}
}
-IMPLEMENT_IS_TYPE_B1(Local_key_engraver,Engraver);
+
ADD_THIS_TRANSLATOR(Local_key_engraver);
+