lily/local-key-engraver.cc

   1 /*
   2   local-key-engraver.cc -- implement Local_key_engraver
   3
   4   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   5 */
   6
   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"
  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-engraver.hh"
  18 #include "grace-align-item.hh"
  19
  20 Local_key_engraver::Local_key_engraver()
  21 {
  22   key_grav_l_ = 0;
  23   key_item_p_ =0;
  24   grace_align_l_ =0;
  25 }
  26
  27 void
  28 Local_key_engraver::do_creation_processing ()
  29 {
  30   /*
  31     UGHGUHGUH.
  32
  33     Breaks if Key_engraver is removed from under us.
  34    */
  35   Translator * result =
  36     daddy_grav_l()->get_simple_translator ("Key_engraver");
  37
  38   key_grav_l_ = dynamic_cast<Key_engraver *> (result);
  39
  40   if (!key_grav_l_)
  41     {
  42       warning (_ ("out of tune:"));
  43       warning (_f ("Can't find: `%s'", "Key_engraver"));
  44     }
  45   else
  46     {
  47       local_key_ = key_grav_l_->key_;
  48     }
  49
  50   /*
  51     TODO
  52     (if we are grace) get key info from parent Local_key_engraver
  53   */
  54 }
  55
  56 void
  57 Local_key_engraver::process_acknowledged ()
  58 {
  59   if (!key_item_p_ && mel_l_arr_.size())
  60     {
  61       SCM f = get_property ("forgetAccidentals",0);
  62       bool forget = gh_boolean_p (f) && gh_scm2bool(f);
  63       for (int i=0; i  < mel_l_arr_.size(); i++)
  64         {
  65           Item * support_l = support_l_arr_[i];
  66           Note_req * note_l = mel_l_arr_[i];
  67
  68           if (tied_l_arr_.find_l (support_l) &&
  69               !note_l->forceacc_b_)
  70             {
  71               if (!forget)
  72                 local_key_.set (note_l->pitch_);
  73               continue;
  74             }
  75
  76           if (!note_l->forceacc_b_
  77               && local_key_.different_acc (note_l->pitch_))
  78             continue;
  79           if (!key_item_p_)
  80             {
  81               key_item_p_ = new Local_key_item;
  82               announce_element (Score_element_info (key_item_p_, 0));
  83             }
  84
  85
  86           key_item_p_->add_pitch (note_l->pitch_,
  87                                   note_l->cautionary_b_);
  88           key_item_p_->add_support (support_l);
  89
  90           if (!forget)
  91             local_key_.set (note_l->pitch_);
  92         }
  93     }
  94   if (key_item_p_ && grace_align_l_)
  95     {
  96       grace_align_l_->add_support (key_item_p_);
  97       grace_align_l_ =0;
  98     }
  99
 100 }
 101
 102 void
 103 Local_key_engraver::do_removal_processing ()
 104 {
 105   // TODO: signal accidentals to Local_key_engraver the
 106 }
 107
 108 void
 109 Local_key_engraver::do_pre_move_processing()
 110 {
 111   if (key_item_p_)
 112     {
 113       for (int i=0; i < support_l_arr_.size(); i++)
 114         key_item_p_->add_support (support_l_arr_[i]);
 115
 116       typeset_element (key_item_p_);
 117       key_item_p_ =0;
 118     }
 119
 120   grace_align_l_ = 0;
 121   mel_l_arr_.clear();
 122   tied_l_arr_.clear();
 123   support_l_arr_.clear();
 124   forced_l_arr_.clear();
 125 }
 126
 127 void
 128 Local_key_engraver::acknowledge_element (Score_element_info info)
 129 {
 130   SCM wg= get_property ("weAreGraceContext", 0);
 131
 132   bool selfgr = gh_boolean_p (wg) &&gh_scm2bool (wg);
 133   bool he_gr = info.elem_l_->get_elt_property (grace_scm_sym) != SCM_BOOL_F;
 134
 135   Grace_align_item * gai = dynamic_cast<Grace_align_item*> (info.elem_l_);
 136   if (he_gr && !selfgr && gai)
 137     {
 138       grace_align_l_ = gai;
 139     }
 140   Note_req * note_l =  dynamic_cast <Note_req *> (info.req_l_);
 141   Note_head * note_head = dynamic_cast<Note_head *> (info.elem_l_);
 142
 143
 144
 145   if (he_gr != selfgr)
 146     return;
 147
 148   if (note_l && note_head)
 149     {
 150       mel_l_arr_.push (note_l);
 151       support_l_arr_.push (note_head);
 152     }
 153  else if (Tie * tie_l = dynamic_cast<Tie *> (info.elem_l_))
 154     {
 155       tied_l_arr_.push (tie_l-> head_l_drul_[RIGHT]);
 156     }
 157 }
 158
 159 void
 160 Local_key_engraver::do_process_requests()
 161 {
 162   Time_description const * time_C_ = get_staff_info().time_C_;
 163   if (time_C_ && !time_C_->whole_in_measure_)
 164     {
 165       SCM n =  get_property ("noResetKey",0);
 166       bool no_res = gh_boolean_p (n) && gh_scm2bool (n);
 167       if (!no_res && key_grav_l_)
 168         local_key_= key_grav_l_->key_;
 169     }
 170   else if (key_grav_l_ && key_grav_l_->key_changed_b ())
 171     {
 172       local_key_ = key_grav_l_->key_;
 173     }
 174 }
 175
 176
 177
 178 ADD_THIS_TRANSLATOR(Local_key_engraver);