lily/command-request.cc

   1 /*
   2   commandrequest.cc -- implement Nonmusical reqs
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c)  1997--1998 Han-Wen Nienhuys <hanwen@stack.nl>
   7 */
   8
   9 #include "command-request.hh"
  10 #include "debug.hh"
  11 #include "musical-request.hh"
  12
  13 void
  14 Command_script_req::do_print() const
  15 {}
  16 Command_script_req::Command_script_req(){}
  17 Command_script_req::~Command_script_req(){}
  18
  19 IMPLEMENT_IS_TYPE_B1(Command_script_req,Command_req);
  20
  21
  22 IMPLEMENT_IS_TYPE_B1(Cadenza_req, Timing_req);
  23
  24 void
  25 Cadenza_req::do_print() const
  26 {
  27 #ifndef NPRINT
  28   DOUT << on_b_;
  29 #endif
  30 }
  31
  32 bool
  33 Cadenza_req::do_equal_b (Request*r) const
  34 {
  35   Cadenza_req*cad =  r->command()->timing ()->cadenza ();
  36
  37   return cad->on_b_ == on_b_;
  38 }
  39
  40 Cadenza_req::Cadenza_req (bool b)
  41 {
  42   on_b_ =b;
  43 }
  44 /* *************** */
  45
  46
  47 bool
  48 Bar_req::do_equal_b (Request*r) const
  49 {
  50   Bar_req * b = r->command()->bar ();
  51   return type_str_ == b->type_str_;
  52 }
  53
  54
  55 IMPLEMENT_IS_TYPE_B1(Bar_req,Command_req);
  56
  57 void
  58 Bar_req::do_print() const
  59 {
  60   DOUT << type_str_;
  61 }
  62
  63 Bar_req::Bar_req (String s)
  64 {
  65   type_str_ = s;
  66 }
  67
  68 Partial_measure_req::Partial_measure_req (Moment m)
  69 {
  70   duration_ =m;
  71 }
  72
  73 bool
  74 Partial_measure_req::do_equal_b (Request* r) const
  75 {
  76   Partial_measure_req *p = r->command()->timing ()->partial ();
  77
  78   return p->duration_ == duration_;
  79 }
  80
  81
  82 IMPLEMENT_IS_TYPE_B1(Timing_req,Command_req);
  83
  84 void
  85 Timing_req::do_print() const{}
  86
  87
  88 IMPLEMENT_IS_TYPE_B1(Command_req,Request);
  89
  90 void
  91 Command_req::do_print() const{}
  92
  93 IMPLEMENT_IS_TYPE_B1(Barcheck_req,Timing_req);
  94
  95 void
  96 Barcheck_req::do_print() const{}
  97
  98 bool
  99 Barcheck_req::do_equal_b (Request*) const
 100 {
 101   return true;
 102 }
 103 /* *************** */
 104
 105 IMPLEMENT_IS_TYPE_B1(Clef_change_req,Command_req);
 106
 107 void
 108 Clef_change_req::do_print() const
 109 {
 110 #ifndef NPRINT
 111   DOUT << clef_str_ ;
 112 #endif
 113 }
 114
 115 Clef_change_req::Clef_change_req (String s)
 116 {
 117   clef_str_ = s;
 118 }
 119
 120 /* *************** */
 121
 122
 123 IMPLEMENT_IS_TYPE_B1(Partial_measure_req,Timing_req);
 124
 125 void
 126 Partial_measure_req::do_print() const
 127 {
 128   DOUT << duration_;
 129 }
 130
 131
 132 IMPLEMENT_IS_TYPE_B1(Meter_change_req,Timing_req);
 133
 134 void
 135 Meter_change_req::do_print() const
 136 {
 137 #ifndef NPRINT
 138   DOUT << beats_i_ << "/" << one_beat_i_;
 139 #endif
 140 }
 141
 142 bool
 143 Meter_change_req::do_equal_b (Request * r) const
 144 {
 145   Meter_change_req * m = r->command()->timing ()->meterchange ();
 146
 147   return m->beats_i_ == beats_i_
 148     && one_beat_i_ == m->one_beat_i_;
 149 }
 150
 151 Meter_change_req::Meter_change_req()
 152 {
 153   beats_i_ = 0;
 154   one_beat_i_ =0;
 155 }
 156
 157 void
 158 Meter_change_req::set (int b,int o)
 159 {
 160   beats_i_=b;
 161   one_beat_i_=o;
 162 }
 163
 164
 165 Tempo_req::Tempo_req()
 166 {
 167   metronome_i_ = 60;
 168   dur_. durlog_i_ = 2;
 169 }
 170
 171 void
 172 Tempo_req::do_print() const
 173 {
 174   DOUT << dur_.str() << " = " <<metronome_i_ ;
 175 }
 176 IMPLEMENT_IS_TYPE_B1(Tempo_req, Timing_req);
 177
 178 bool
 179 Tempo_req::do_equal_b (Request *r) const
 180 {
 181   Tempo_req *t = r->command()->timing ()->tempo ();
 182
 183   return t->dur_.length()== dur_.length () && metronome_i_ == t->metronome_i_;
 184 }
 185
 186 /* *************** */
 187
 188
 189 IMPLEMENT_IS_TYPE_B1(Measure_grouping_req,Timing_req);
 190
 191 void
 192 Measure_grouping_req::do_print() const
 193 {
 194   for (int i=0; i < elt_length_arr_.size(); i++)
 195     {
 196       DOUT << beat_i_arr_[i] <<"*" << elt_length_arr_[i]<<" ";
 197     }
 198 }
 199
 200
 201 bool
 202 Measure_grouping_req::do_equal_b (Request*) const
 203 {
 204   return false;         // todo
 205 }
 206
 207 /* *************** */
 208
 209 void
 210 Key_change_req::transpose (Melodic_req const * d) const
 211 {
 212   WARN << _("don't know how to transpose a key. \n");
 213   for (int i=0; i < melodic_p_arr_.size(); i++)
 214     {
 215       melodic_p_arr_[i]->transpose (d);
 216     }
 217 }
 218
 219
 220 IMPLEMENT_IS_TYPE_B1(Key_change_req,Command_req);
 221 void
 222 Key_change_req::squash_octaves()
 223 {
 224   for (int i=0; i < melodic_p_arr_.size(); i++)
 225     {
 226       melodic_p_arr_[i]->octave_i_ = 0;
 227     }
 228 }
 229
 230 void
 231 Key_change_req::do_print() const
 232 {
 233 #ifndef NPRINT
 234   for (int i=0; i < melodic_p_arr_.size(); i++)
 235     {
 236       melodic_p_arr_[i]->print();
 237     }
 238 #endif
 239 }
 240
 241 Key_change_req::Key_change_req()
 242 {
 243   minor_b_ = false;
 244   multi_octave_b_= false;
 245 }
 246
 247 IMPLEMENT_IS_TYPE_B1(Break_req, Command_req);
 248
 249 Break_req::Break_req ()
 250 {
 251   penalty_i_ = 0;
 252 }
 253
 254 void
 255 Break_req::do_print () const
 256 {
 257 }
 258
 259 Key_change_req::Key_change_req (Key_change_req const&c)
 260   : Command_req (c)
 261 {
 262   for (int i=0; i < c.melodic_p_arr_.size(); i++)
 263     melodic_p_arr_.push (c.melodic_p_arr_[i]->clone()->musical ()->melodic ());
 264   minor_b_ = c.minor_b_;
 265   multi_octave_b_ = c.multi_octave_b_;
 266 }
 267
 268 Key_change_req::~Key_change_req()
 269 {
 270   for (int i=0; i < melodic_p_arr_.size(); i++)
 271     delete melodic_p_arr_[i];
 272 }
 273
 274 int
 275 Key_change_req::flats_i()
 276 {
 277   int flats_i = 0;
 278   for (int i = 0; i < melodic_p_arr_.size(); i++)
 279     {
 280       Melodic_req* mel_l = melodic_p_arr_[i]->melodic();
 281       assert (mel_l);
 282       if (mel_l->accidental_i_ < 0)
 283         flats_i -= mel_l->accidental_i_;
 284     }
 285   return flats_i;
 286 }
 287
 288 int
 289 Key_change_req::minor_b()
 290 {
 291   return minor_b_;
 292 }
 293
 294 int
 295 Key_change_req::sharps_i()
 296 {
 297   int sharps_i = 0;
 298   for (int i = 0; i < melodic_p_arr_.size(); i++)
 299     {
 300       Melodic_req* mel_l = melodic_p_arr_[i]->melodic();
 301       assert (mel_l);
 302       if (mel_l->accidental_i_ > 0)
 303         sharps_i+= mel_l->accidental_i_;
 304     }
 305   return sharps_i;
 306 }