lily/local-key-grav.cc

   1 /*
   2   local-key-reg.cc -- implement Local_key_engraver
   3
   4   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   5 */
   6
   7 #include "musical-request.hh"
   8 #include "command-request.hh"
   9 #include "local-key-grav.hh"
  10 #include "local-key-item.hh"
  11 #include "key-grav.hh"
  12 #include "debug.hh"
  13 #include "key-item.hh"
  14 #include "tie.hh"
  15 #include "note-head.hh"
  16 #include "time-description.hh"
  17 #include "engraver-group.hh"
  18
  19
  20 Local_key_engraver::Local_key_engraver()
  21 {
  22   key_C_ = 0;
  23   key_item_p_ =0;
  24 }
  25
  26 void
  27 Local_key_engraver::do_creation_processing ()
  28 {
  29   Translator * result =
  30     daddy_grav_l()->get_simple_translator (Key_engraver::static_name());
  31
  32   if (!result)
  33     {
  34       warning ("Out of tune! Can't find key engraver");
  35     }
  36   else
  37     {
  38       key_C_ = &((Key_engraver*)result->engraver_l ())->key_;
  39       local_key_ = *key_C_;
  40     }
  41 }
  42
  43 void
  44 Local_key_engraver::process_acknowledged ()
  45 {
  46   if (!key_item_p_ && mel_l_arr_.size())
  47     {
  48       for (int i=0; i  < mel_l_arr_.size(); i++)
  49         {
  50           Item * support_l = support_l_arr_[i];
  51           Note_req * note_l = mel_l_arr_[i];
  52
  53           if (tied_l_arr_.find_l (support_l) &&
  54               !note_l->forceacc_b_)
  55             continue;
  56
  57           if (!note_l->forceacc_b_ &&
  58               local_key_.oct (note_l->octave_i_).acc (note_l->notename_i_)
  59               == note_l->accidental_i_)
  60             continue;
  61           if (!key_item_p_)
  62             {
  63               int c0_i=0;
  64
  65               Staff_info inf = get_staff_info();
  66               if (inf.c0_position_i_l_)
  67                 c0_i = *get_staff_info().c0_position_i_l_;
  68
  69               key_item_p_ = new Local_key_item (c0_i);
  70               announce_element (Score_elem_info (key_item_p_, 0));
  71             }
  72           key_item_p_->add (note_l);
  73           key_item_p_->add_support (support_l);
  74           local_key_.oct (note_l->octave_i_)
  75             .set (note_l->notename_i_, note_l->accidental_i_);
  76         }
  77
  78     }
  79 }
  80
  81 void
  82 Local_key_engraver::do_pre_move_processing()
  83 {
  84   if (key_item_p_)
  85     {
  86       for (int i=0; i < support_l_arr_.size(); i++)
  87         key_item_p_->add_support (support_l_arr_[i]);
  88
  89       typeset_element (key_item_p_);
  90       key_item_p_ =0;
  91     }
  92
  93   mel_l_arr_.clear();
  94   tied_l_arr_.clear();
  95   support_l_arr_.clear();
  96   forced_l_arr_.clear();
  97 }
  98
  99 void
 100 Local_key_engraver::acknowledge_element (Score_elem_info info)
 101 {
 102   Score_elem * elem_l = info.elem_l_;
 103   if (info.req_l_->musical() && info.req_l_->musical ()->note ())
 104     {
 105       Note_req * note_l = info.req_l_->musical()->note ();
 106       Item * item_l = info.elem_l_->item();
 107
 108       mel_l_arr_.push (note_l);
 109       support_l_arr_.push (item_l);
 110     }
 111   else if (info.req_l_->command()
 112            && info.req_l_->command()->keychange () && key_C_)
 113     {
 114       local_key_ = *key_C_;
 115     }
 116   else if (elem_l->is_type_b (Tie::static_name ()))
 117     {
 118       Tie * tie_l = (Tie*)elem_l->spanner();
 119       if (tie_l->same_pitch_b_)
 120         tied_l_arr_.push (tie_l-> head_l_drul_[RIGHT]);
 121     }
 122 }
 123
 124 void
 125 Local_key_engraver::do_process_requests()
 126 {
 127   Time_description const * time_C_ = get_staff_info().time_C_;
 128   if (time_C_ && !time_C_->whole_in_measure_)
 129     {
 130       if (key_C_)
 131         local_key_= *key_C_;
 132     }
 133 }
 134
 135
 136 IMPLEMENT_IS_TYPE_B1(Local_key_engraver,Engraver);
 137 ADD_THIS_TRANSLATOR(Local_key_engraver);