lily/clef-grav.cc

   1 /*
   2   clef.cc -- implement Clef_engraver
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>,
   7   Mats Bengtsson <matsb@s3.kth.se>
   8 */
   9
  10 #include "bar.hh"
  11 #include "clef-grav.hh"
  12 #include "clef-item.hh"
  13 #include "debug.hh"
  14 #include "command-request.hh"
  15 #include "time-description.hh"
  16
  17 Clef_engraver::Clef_engraver()
  18 {
  19   clef_p_ = 0;
  20   clef_req_l_ =0;
  21   clef_type_str_ = 0;
  22   c0_position_i_ =0;
  23 }
  24
  25 /*
  26   Ugh.  Should have support for Dictionaries in mudela.
  27  */
  28 bool
  29 Clef_engraver::set_type (String s)
  30 {
  31   clef_type_str_ = s;
  32   if (clef_type_str_ == "violin")
  33     c0_position_i_= -6;
  34   else if (clef_type_str_ == "french")
  35     c0_position_i_= -8;
  36   else if (clef_type_str_ == "soprano")
  37     c0_position_i_= -4;
  38   else if (clef_type_str_ == "mezzosoprano")
  39     c0_position_i_ = -2;
  40   else if (clef_type_str_ == "alto")
  41     c0_position_i_= 0;
  42   else if (clef_type_str_ == "tenor")
  43     c0_position_i_= 2;
  44   else if (clef_type_str_ == "baritone")
  45     c0_position_i_ = 4;
  46   else if (clef_type_str_ == "varbaritone")
  47     c0_position_i_ = 4;
  48   else if (clef_type_str_ == "bass")
  49     c0_position_i_= 6;
  50   else if (clef_type_str_ == "subbass")
  51     c0_position_i_ = 8;
  52   else
  53     return false;
  54
  55   return true;
  56 }
  57
  58 void
  59 Clef_engraver::fill_staff_info (Staff_info &i)
  60 {
  61   i.c0_position_i_l_ = &c0_position_i_;
  62 }
  63
  64 void
  65 Clef_engraver::read_req (Clef_change_req*c_l)
  66 {
  67   if (!set_type (c_l->clef_str_))
  68     c_l->error (_("unknown clef type "));
  69 }
  70
  71
  72 /**
  73   Generate a clef at the start of a measure. (when you see a Bar,
  74   ie. a breakpoint)
  75   */
  76 void
  77 Clef_engraver::acknowledge_element (Score_elem_info info)
  78 {
  79   if (info.elem_l_->is_type_b (Bar::static_name ())
  80       && clef_type_str_.length_i())
  81     {
  82       create_clef();
  83       if (!clef_req_l_)
  84         clef_p_->default_b_ = true;
  85     }
  86 }
  87
  88 void
  89 Clef_engraver::do_creation_processing()
  90 {
  91   Scalar def = get_property ("defaultclef");
  92   if (def.operator bool ()) // egcs: Scalar to bool is ambiguous
  93     set_type (def);
  94   if (clef_type_str_.length_i ())
  95     create_clef();
  96   clef_p_->default_b_ = false;
  97 }
  98
  99 bool
 100 Clef_engraver::do_try_request (Request * r_l)
 101 {
 102   Command_req* creq_l= r_l->command();
 103   if (!creq_l || !creq_l->clefchange())
 104     return false;
 105
 106   clef_req_l_ = creq_l->clefchange();
 107   read_req (clef_req_l_);
 108   return true;
 109 }
 110
 111 void
 112 Clef_engraver::create_clef()
 113 {
 114   if (!clef_p_)
 115     {
 116       clef_p_ = new Clef_item;
 117       clef_p_->break_priority_i_ = -2; // ugh
 118       announce_element (Score_elem_info (clef_p_,clef_req_l_));
 119     }
 120   clef_p_->read (*this);
 121 }
 122
 123 void
 124 Clef_engraver::do_process_requests()
 125 {
 126   if (clef_req_l_)
 127     {
 128       create_clef();
 129       clef_p_->default_b_ = false;
 130     }
 131 }
 132
 133 void
 134 Clef_engraver::do_pre_move_processing()
 135 {
 136   if (clef_p_)
 137     {
 138       typeset_element (clef_p_);
 139       clef_p_ = 0;
 140     }
 141 }
 142 void
 143 Clef_engraver::do_post_move_processing()
 144 {
 145   clef_req_l_ = 0;
 146 }
 147
 148 void
 149 Clef_engraver::do_removal_processing()
 150 {
 151   delete clef_p_;
 152   clef_p_ =0;
 153 }
 154
 155
 156 IMPLEMENT_IS_TYPE_B1(Clef_engraver,Engraver);
 157 ADD_THIS_TRANSLATOR(Clef_engraver);