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