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 (Musical_pitch  d) const
 211 {
 212   WARN << _("don't know how to transpose a key. \n"); //  TODO!
 213 }
 214
 215
 216 IMPLEMENT_IS_TYPE_B1(Key_change_req,Command_req);
 217 void
 218 Key_change_req::squash_octaves()
 219 {
 220   for (int i=0; i < pitch_arr_.size(); i++)
 221     {
 222       pitch_arr_[i].octave_i_ = 0;
 223     }
 224 }
 225
 226 void
 227 Key_change_req::do_print() const
 228 {
 229 #ifndef NPRINT
 230   for (int i=0; i < pitch_arr_.size(); i++)
 231     {
 232       pitch_arr_[i].print();
 233     }
 234 #endif
 235 }
 236
 237 Key_change_req::Key_change_req()
 238 {
 239   minor_b_ = false;
 240   multi_octave_b_= false;
 241 }
 242
 243 IMPLEMENT_IS_TYPE_B1(Break_req, Command_req);
 244
 245 Break_req::Break_req ()
 246 {
 247   penalty_i_ = 0;
 248 }
 249
 250 void
 251 Break_req::do_print () const
 252 {
 253 }
 254
 255 int
 256 Key_change_req::flats_i()
 257 {
 258   int flats_i = 0;
 259   for (int i = 0; i < pitch_arr_.size(); i++)
 260     {
 261       if (pitch_arr_[i].accidental_i_ < 0)
 262         flats_i -= pitch_arr_[i].accidental_i_;
 263     }
 264   return flats_i;
 265 }
 266
 267 int
 268 Key_change_req::minor_b()
 269 {
 270   return minor_b_;
 271 }
 272
 273 int
 274 Key_change_req::sharps_i()
 275 {
 276   int sharps_i = 0;
 277   for (int i = 0; i < pitch_arr_.size(); i++)
 278     {
 279       if (pitch_arr_[i].accidental_i_ < 0)
 280         sharps_i += pitch_arr_[i].accidental_i_;
 281     }
 282   return sharps_i;
 283 }