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 }
  24
  25 void
  26 Local_key_engraver::do_creation_processing ()
  27 {
  28   Translator * result =
  29     daddy_grav_l()->get_simple_translator (Key_engraver::static_name());
  30
  31   if (!result)
  32     {
  33       warning ("Out of tune! Can't find key engraver");
  34     }
  35   else
  36     {
  37       key_C_ = &((Key_engraver*)result->engraver_l ())->key_;
  38       local_key_ = *key_C_;
  39     }
  40 }
  41
  42 void
  43 Local_key_engraver::do_pre_move_processing()
  44 {
  45   Local_key_item *key_item_p = 0;
  46   if (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
  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   if (key_item_p)
  80     {
  81       for (int i=0; i < support_l_arr_.size(); i++)
  82         key_item_p->add_support (support_l_arr_[i]);
  83
  84       announce_element (Score_elem_info (key_item_p, 0)); // ugh ugh ugh
  85       typeset_element (key_item_p);
  86     }
  87
  88   mel_l_arr_.clear();
  89   tied_l_arr_.clear();
  90   support_l_arr_.clear();
  91   forced_l_arr_.clear();
  92 }
  93
  94 /*
  95   whoah .. this looks hairy!
  96  */
  97 void
  98 Local_key_engraver::acknowledge_element (Score_elem_info info)
  99 {
 100   Score_elem * elem_l = info.elem_l_;
 101   if (info.req_l_->musical() && info.req_l_->musical ()->note ())
 102     {
 103       Note_req * note_l = info.req_l_->musical()->note ();
 104       Item * item_l = info.elem_l_->item();
 105
 106       mel_l_arr_.push (note_l);
 107       support_l_arr_.push (item_l);
 108     }
 109   else if (info.req_l_->command()
 110            && info.req_l_->command()->keychange ())
 111     {
 112       local_key_ = *key_C_;
 113     }
 114   else if (elem_l->is_type_b (Tie::static_name ()))
 115     {
 116       Tie * tie_l = (Tie*)elem_l->spanner();
 117       if (tie_l->same_pitch_b_)
 118         tied_l_arr_.push (tie_l-> head_l_drul_[RIGHT]);
 119     }
 120 }
 121
 122 void
 123 Local_key_engraver::do_process_requests()
 124 {
 125   Time_description const * time_C_ = get_staff_info().time_C_;
 126   if (time_C_ && !time_C_->whole_in_measure_)
 127     {
 128       if (key_C_)
 129         local_key_= *key_C_;
 130     }
 131 }
 132
 133
 134 IMPLEMENT_IS_TYPE_B1(Local_key_engraver,Engraver);
 135 ADD_THIS_TRANSLATOR(Local_key_engraver);