lily/key-engraver.cc

   1 /*
   2   key-engraver.cc -- implement Key_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   7   */
   8
   9 #include "key-engraver.hh"
  10 #include "key-item.hh"
  11 #include "command-request.hh"
  12 #include "local-key-engraver.hh"
  13 #include "musical-request.hh"
  14 #include "local-key-item.hh"
  15 #include "bar.hh"
  16 #include "timing-translator.hh"
  17
  18 Key_engraver::Key_engraver ()
  19 {
  20   item_p_ = 0;
  21   do_post_move_processing ();
  22 }
  23
  24 bool
  25 Key_engraver::key_changed_b () const
  26 {
  27   return keyreq_l_ ;
  28 }
  29
  30 void
  31 Key_engraver::create_key ()
  32 {
  33   if (!item_p_)
  34     {
  35       item_p_ = new Key_item;
  36       item_p_->set_elt_property ("break-aligned", SCM_BOOL_T); // ugh
  37
  38       item_p_->multi_octave_b_ = key_.multi_octave_b_;
  39       announce_element (Score_element_info (item_p_,keyreq_l_));
  40
  41
  42       for (int i = 0; i < accidental_idx_arr_.size(); i++)
  43         {
  44           Musical_pitch m_l =accidental_idx_arr_[i];
  45           int a =m_l.accidental_i_;
  46           if (key_.multi_octave_b_)
  47             item_p_->add (m_l.steps (), a);
  48           else
  49             item_p_->add (m_l.notename_i_, a);
  50         }
  51
  52       for (int i = 0 ; i < old_accidental_idx_arr_.size(); i++)
  53         {
  54           Musical_pitch m_l =old_accidental_idx_arr_[i];
  55           int a =m_l.accidental_i_;
  56           if (key_.multi_octave_b_)
  57             item_p_->add_old (m_l.steps  (), a);
  58           else
  59             item_p_->add_old (m_l.notename_i_, a);
  60         }
  61     }
  62 }
  63
  64
  65 bool
  66 Key_engraver::do_try_music (Music * req_l)
  67 {
  68   if (Key_change_req *kc = dynamic_cast <Key_change_req *> (req_l))
  69     {
  70       if (keyreq_l_)
  71         warning (_ ("FIXME: key change merge"));
  72       keyreq_l_ = kc;
  73       read_req (keyreq_l_);
  74       return true;
  75     }
  76   return  false;
  77 }
  78
  79 void
  80 Key_engraver::acknowledge_element (Score_element_info info)
  81 {
  82   if (dynamic_cast <Clef_change_req *> (info.req_l_))
  83     {
  84       SCM c =  get_property ("createKeyOnClefChange", 0);
  85       if (gh_boolean_p (c) && gh_scm2bool (c))
  86         create_key ();
  87     }
  88   else if (dynamic_cast<Bar *> (info.elem_l_)
  89            && accidental_idx_arr_.size ())
  90     {
  91       bool def =  (!item_p_);
  92       create_key ();
  93       if (!def)
  94         {
  95           item_p_->set_elt_property ("visibility-lambda",
  96                                     ly_eval_str ("all-visibility"));
  97         }
  98     }
  99
 100 }
 101
 102 void
 103 Key_engraver::do_process_requests ()
 104 {
 105   if (keyreq_l_)
 106     {
 107       create_key ();
 108     }
 109 }
 110
 111 void
 112 Key_engraver::do_pre_move_processing ()
 113 {
 114   if (item_p_)
 115     {
 116       typeset_element (item_p_);
 117       item_p_ = 0;
 118     }
 119 }
 120
 121
 122 /*
 123   TODO Slightly hairy.
 124  */
 125 void
 126 Key_engraver::read_req (Key_change_req const * r)
 127 {
 128   old_accidental_idx_arr_ = accidental_idx_arr_;
 129   key_.clear ();
 130   SCM prop = get_property ("keyOctaviation", 0);
 131
 132   key_.multi_octave_b_ = gh_boolean_p (prop) && gh_scm2bool (prop);
 133
 134   accidental_idx_arr_.clear ();
 135
 136   if (r->key_.ordinary_key_b_)
 137     {
 138       int no_of_acc = r->key_.ordinary_accidentals_i ();
 139
 140       // Hmm, can't these be handled/constructed by Key_change_req?
 141       if (no_of_acc < 0)
 142         {
 143           int accidental = 6 ; // First accidental: bes
 144           for ( ; no_of_acc < 0 ; no_of_acc++ )
 145             {
 146               Musical_pitch m;
 147               m.accidental_i_ = -1;
 148               m.notename_i_ = accidental;
 149               if (key_.multi_octave_b_)
 150                 key_.set (m);
 151               else
 152                 key_.set (m.notename_i_, m.accidental_i_);
 153               accidental_idx_arr_.push (m);
 154
 155               accidental = (accidental + 3) % 7 ;
 156             }
 157         }
 158       else
 159         {
 160           int accidental = 3 ; // First accidental: fis
 161           for ( ; no_of_acc > 0 ; no_of_acc-- )
 162             {
 163               Musical_pitch m;
 164               m.accidental_i_ = 1;
 165               m.notename_i_ = accidental;
 166               if (key_.multi_octave_b_)
 167                 key_.set (m);
 168               else
 169                 key_.set (m.notename_i_, m.accidental_i_);
 170               accidental_idx_arr_.push (m);
 171
 172               accidental = (accidental + 4) % 7 ;
 173             }
 174         }
 175     }
 176   else // Special key
 177     {
 178       for (int i = 0; i < r->key_.pitch_arr_.size (); i ++)
 179         {
 180           Musical_pitch m_l =r->key_.pitch_arr_[i];
 181           if (key_.multi_octave_b_)
 182             key_.set (m_l);
 183           else
 184             key_.set (m_l.notename_i_, m_l.accidental_i_);
 185
 186           accidental_idx_arr_.push (m_l);
 187         }
 188     }
 189 }
 190
 191 void
 192 Key_engraver::do_post_move_processing ()
 193 {
 194   keyreq_l_ = 0;
 195   old_accidental_idx_arr_.clear ();
 196 }
 197
 198 ADD_THIS_TRANSLATOR (Key_engraver);
 199