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 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(Disallow_break_req,Command_req);
  94
  95 void
  96 Disallow_break_req::do_print() const
  97 {
  98 }
  99 /* *************** */
 100
 101 IMPLEMENT_IS_TYPE_B1(Barcheck_req,Timing_req);
 102
 103 void
 104 Barcheck_req::do_print() const{}
 105
 106 bool
 107 Barcheck_req::do_equal_b (Request*) const
 108 {
 109   return true;
 110 }
 111 /* *************** */
 112
 113 IMPLEMENT_IS_TYPE_B1(Clef_change_req,Command_req);
 114
 115 void
 116 Clef_change_req::do_print() const
 117 {
 118 #ifndef NPRINT
 119   DOUT << clef_str_ ;
 120 #endif
 121 }
 122
 123 Clef_change_req::Clef_change_req (String s)
 124 {
 125   clef_str_ = s;
 126 }
 127
 128 /* *************** */
 129
 130
 131 IMPLEMENT_IS_TYPE_B1(Partial_measure_req,Timing_req);
 132
 133 void
 134 Partial_measure_req::do_print() const
 135 {
 136   DOUT << duration_;
 137 }
 138
 139
 140 IMPLEMENT_IS_TYPE_B1(Meter_change_req,Timing_req);
 141
 142 void
 143 Meter_change_req::do_print() const
 144 {
 145 #ifndef NPRINT
 146   DOUT << beats_i_ << "/" << one_beat_i_;
 147 #endif
 148 }
 149
 150 bool
 151 Meter_change_req::do_equal_b (Request * r) const
 152 {
 153   Meter_change_req * m = r->command()->timing ()->meterchange ();
 154
 155   return m->beats_i_ == beats_i_
 156     && one_beat_i_ == m->one_beat_i_;
 157 }
 158
 159 Meter_change_req::Meter_change_req()
 160 {
 161   beats_i_ = 0;
 162   one_beat_i_ =0;
 163 }
 164
 165 void
 166 Meter_change_req::set (int b,int o)
 167 {
 168   beats_i_=b;
 169   one_beat_i_=o;
 170 }
 171
 172
 173 Tempo_req::Tempo_req()
 174 {
 175   metronome_i_ = 60;
 176   dur_. durlog_i_ = 2;
 177 }
 178
 179 void
 180 Tempo_req::do_print() const
 181 {
 182   DOUT << dur_.str() << " = " <<metronome_i_ ;
 183 }
 184 IMPLEMENT_IS_TYPE_B1(Tempo_req, Timing_req);
 185
 186 bool
 187 Tempo_req::do_equal_b (Request *r) const
 188 {
 189   Tempo_req *t = r->command()->timing ()->tempo ();
 190
 191   return t->dur_.length()== dur_.length () && metronome_i_ == t->metronome_i_;
 192 }
 193
 194 /* *************** */
 195
 196
 197 IMPLEMENT_IS_TYPE_B1(Measure_grouping_req,Timing_req);
 198
 199 void
 200 Measure_grouping_req::do_print() const
 201 {
 202   for (int i=0; i < elt_length_arr_.size(); i++)
 203     {
 204       DOUT << beat_i_arr_[i] <<"*" << elt_length_arr_[i]<<" ";
 205     }
 206 }
 207
 208
 209 bool
 210 Measure_grouping_req::do_equal_b (Request*) const
 211 {
 212   return false;         // todo
 213 }
 214
 215 /* *************** */
 216
 217 void
 218 Key_change_req::transpose (Melodic_req const * d) const
 219 {
 220   WARN << _("don't know how to transpose a key. \n");
 221   for (int i=0; i < melodic_p_arr_.size(); i++)
 222     {
 223       melodic_p_arr_[i]->transpose (d);
 224     }
 225 }
 226
 227
 228 IMPLEMENT_IS_TYPE_B1(Key_change_req,Command_req);
 229 void
 230 Key_change_req::squash_octaves()
 231 {
 232   for (int i=0; i < melodic_p_arr_.size(); i++)
 233     {
 234       melodic_p_arr_[i]->octave_i_ = 0;
 235     }
 236 }
 237
 238 void
 239 Key_change_req::do_print() const
 240 {
 241 #ifndef NPRINT
 242   for (int i=0; i < melodic_p_arr_.size(); i++)
 243     {
 244       melodic_p_arr_[i]->print();
 245     }
 246 #endif
 247 }
 248
 249 Key_change_req::Key_change_req()
 250 {
 251   minor_b_ = false;
 252   multi_octave_b_= false;
 253 }
 254
 255 void
 256 Break_force_req::do_print () const
 257 {
 258 }
 259
 260 IMPLEMENT_IS_TYPE_B1(Break_force_req, Command_req);
 261
 262 Key_change_req::Key_change_req (Key_change_req const&c)
 263   : Command_req (c)
 264 {
 265   for (int i=0; i < c.melodic_p_arr_.size(); i++)
 266     melodic_p_arr_.push (c.melodic_p_arr_[i]->clone()->musical ()->melodic ());
 267   minor_b_ = c.minor_b_;
 268   multi_octave_b_ = c.multi_octave_b_;
 269 }
 270
 271 Key_change_req::~Key_change_req()
 272 {
 273   for (int i=0; i < melodic_p_arr_.size(); i++)
 274     delete melodic_p_arr_[i];
 275 }
 276
 277 int
 278 Key_change_req::flats_i()
 279 {
 280   int flats_i = 0;
 281   for (int i = 0; i < melodic_p_arr_.size(); i++)
 282     {
 283       Melodic_req* mel_l = melodic_p_arr_[i]->melodic();
 284       assert (mel_l);
 285       if (mel_l->accidental_i_ < 0)
 286         flats_i -= mel_l->accidental_i_;
 287     }
 288   return flats_i;
 289 }
 290
 291 int
 292 Key_change_req::minor_b()
 293 {
 294   return minor_b_;
 295 }
 296
 297 int
 298 Key_change_req::sharps_i()
 299 {
 300   int sharps_i = 0;
 301   for (int i = 0; i < melodic_p_arr_.size(); i++)
 302     {
 303       Melodic_req* mel_l = melodic_p_arr_[i]->melodic();
 304       assert (mel_l);
 305       if (mel_l->accidental_i_ > 0)
 306         sharps_i+= mel_l->accidental_i_;
 307     }
 308   return sharps_i;
 309 }