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