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@cs.uu.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->access_Command_req ()->access_Timing_req ()->access_Cadenza_req ();
  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->access_Command_req ()->access_Bar_req ();
  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->access_Command_req ()->access_Timing_req ()->access_Partial_measure_req ();
  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(Time_signature_change_req,Timing_req);
 133
 134 void
 135 Time_signature_change_req::do_print() const
 136 {
 137 #ifndef NPRINT
 138   DOUT << beats_i_ << "/" << one_beat_i_;
 139 #endif
 140 }
 141
 142 bool
 143 Time_signature_change_req::do_equal_b (Request * r) const
 144 {
 145   Time_signature_change_req * m = r->access_Command_req ()->access_Timing_req ()->access_Time_signature_change_req ();
 146
 147   return m->beats_i_ == beats_i_
 148     && one_beat_i_ == m->one_beat_i_;
 149 }
 150
 151 Time_signature_change_req::Time_signature_change_req()
 152 {
 153   beats_i_ = 0;
 154   one_beat_i_ =0;
 155 }
 156
 157
 158 Tempo_req::Tempo_req()
 159 {
 160   metronome_i_ = 60;
 161   dur_. durlog_i_ = 2;
 162 }
 163
 164 void
 165 Tempo_req::do_print() const
 166 {
 167   DOUT << dur_.str() << " = " << metronome_i_;
 168 }
 169 IMPLEMENT_IS_TYPE_B1(Tempo_req, Timing_req);
 170
 171 bool
 172 Tempo_req::do_equal_b (Request *r) const
 173 {
 174   Tempo_req *t = r->access_Command_req ()->access_Timing_req ()->access_Tempo_req ();
 175
 176   return t->dur_.length()== dur_.length () && metronome_i_ == t->metronome_i_;
 177 }
 178
 179
 180
 181
 182 IMPLEMENT_IS_TYPE_B1(Measure_grouping_req,Timing_req);
 183
 184 void
 185 Measure_grouping_req::do_print() const
 186 {
 187   for (int i=0; i < elt_length_arr_.size(); i++)
 188     {
 189       DOUT << beat_i_arr_[i] << "*" << elt_length_arr_[i].str () << " ";
 190     }
 191 }
 192
 193
 194 bool
 195 Measure_grouping_req::do_equal_b (Request*) const
 196 {
 197   return false;         // todo
 198 }
 199
 200 void
 201 Key_change_req::transpose (Musical_pitch d)
 202 {
 203   if (ordinary_key_b_ )
 204     {
 205       if (pitch_arr_.size () > 0)
 206         pitch_arr_[0].transpose(d);
 207       else
 208         {
 209           warning(_ ("don't know how handle empty keys")); // TODO
 210         }
 211     }
 212   else
 213     {
 214       Array<Musical_pitch> old_pitch_arr_;
 215       for (int i = 0; i < pitch_arr_.size(); i++)
 216         {
 217           old_pitch_arr_.push(pitch_arr_[i]);
 218         }
 219       // set accidentals for \key d (as in Key_engraver::read_req)
 220       // (later called "new accidentals")
 221       int p = d.semitone_pitch ();
 222       /* Solve the equation 7*no_of_acc mod 12 = p, -6 <= no_of_acc <= 5 */
 223       int no_of_acc = (7*p) % 12;
 224       no_of_acc = (no_of_acc + 18) % 12 -6;
 225
 226       /* Correct from flats to sharps or vice versa */
 227       if (no_of_acc * d.accidental_i_ < 0)
 228       no_of_acc += 12 * sign (d.accidental_i_);
 229
 230       pitch_arr_.clear ();
 231       if (no_of_acc < 0)
 232         {
 233           int accidental = 6 ; // First accidental: bes
 234           for ( ; no_of_acc < 0 ; no_of_acc++ )
 235             {
 236               Musical_pitch m;
 237               m.accidental_i_ = -1;
 238               m.notename_i_ = accidental;
 239               pitch_arr_.push(m);
 240
 241               accidental = (accidental + 3) % 7 ;
 242             }
 243         }
 244       else
 245         {
 246           int accidental = 3 ; // First accidental: fis
 247           for ( ; no_of_acc > 0 ; no_of_acc-- )
 248             {
 249               Musical_pitch m;
 250               m.accidental_i_ = 1;
 251               m.notename_i_ = accidental;
 252               pitch_arr_.push(m);
 253
 254               accidental = (accidental + 4) % 7 ;
 255             }
 256         }
 257       // Check if transposed old accidentals and the new ones coincide
 258       no_of_acc = pitch_arr_.size();
 259       int acc_found;
 260       Musical_pitch mm;
 261       for (int i=0; i < old_pitch_arr_.size(); i++)
 262         {
 263           acc_found = 0;
 264           mm = old_pitch_arr_[i];
 265           mm.transpose(d);
 266           for (int j=0; ((j < no_of_acc) && (acc_found == 0)); j++)
 267             {
 268               if (pitch_arr_[j].notename_i_ == mm.notename_i_)
 269                 {
 270                   if (mm.accidental_i_ == 0)
 271                     {
 272                       // remove new accidental
 273                       pitch_arr_.del(j);
 274                       no_of_acc--;
 275                       acc_found = 1;
 276                     }
 277                   else
 278                     {
 279                       // change new accidental
 280                       pitch_arr_[j].accidental_i_ = mm.accidental_i_;
 281                       acc_found = 1;
 282                     }
 283                 }
 284             }
 285           if (acc_found == 0)
 286             {
 287               // add transposed old accidental
 288               pitch_arr_.push(mm);
 289             }
 290         }
 291     }
 292 }
 293
 294 IMPLEMENT_IS_TYPE_B1(Key_change_req,Command_req);
 295 void
 296 Key_change_req::squash_octaves()
 297 {
 298   for (int i=0; i < pitch_arr_.size(); i++)
 299     {
 300       pitch_arr_[i].octave_i_ = 0;
 301     }
 302 }
 303
 304 void
 305 Key_change_req::do_print() const
 306 {
 307 #ifndef NPRINT
 308   for (int i=0; i < pitch_arr_.size(); i++)
 309     {
 310       pitch_arr_[i].print();
 311     }
 312 #endif
 313 }
 314
 315 Key_change_req::Key_change_req()
 316 {
 317   minor_b_ = false;
 318   ordinary_key_b_= false;
 319 }
 320
 321 IMPLEMENT_IS_TYPE_B1(Break_req, Command_req);
 322
 323 Break_req::Break_req ()
 324 {
 325   penalty_i_ = 0;
 326 }
 327
 328 void
 329 Break_req::do_print () const
 330 {
 331 }
 332
 333 IMPLEMENT_IS_TYPE_B1 (Mark_req, Command_req);
 334
 335 Mark_req::Mark_req (String s)
 336 {
 337   str_ = s;
 338 }
 339
 340 void
 341 Mark_req::do_print () const
 342 {
 343   DOUT << str_;
 344 }
 345
 346 int
 347 Key_change_req::flats_i()
 348 {
 349   int flats_i = 0;
 350   for (int i = 0; i < pitch_arr_.size(); i++)
 351     {
 352       if (pitch_arr_[i].accidental_i_ < 0)
 353         flats_i -= pitch_arr_[i].accidental_i_;
 354     }
 355   return flats_i;
 356 }
 357
 358 bool
 359 Key_change_req::minor_b() const
 360 {
 361   return minor_b_;
 362 }
 363
 364 int
 365 Key_change_req::sharps_i()
 366 {
 367   int sharps_i = 0;
 368   for (int i = 0; i < pitch_arr_.size(); i++)
 369     {
 370       if (pitch_arr_[i].accidental_i_ > 0)
 371         sharps_i += pitch_arr_[i].accidental_i_;
 372     }
 373   return sharps_i;
 374 }