lily/musical-request.cc

   1 /*
   2   request.cc -- implement all musical requests.
   3
   4   source file of the GNU LilyPond music typesetter
   5
   6   (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
   7 */
   8
   9 #include "musical-request.hh"
  10 #include "misc.hh"
  11 #include "debug.hh"
  12 #include "script-def.hh"
  13 #include "text-def.hh"
  14 #include "music-list.hh"
  15
  16
  17
  18 IMPLEMENT_IS_TYPE_B1(Musical_req,Request);
  19 void
  20 Musical_req::do_print() const{}
  21 void
  22 Tie_req::do_print() const{}
  23
  24
  25 /* *************** */
  26
  27
  28
  29
  30 IMPLEMENT_IS_TYPE_B1(Span_req,Musical_req);
  31
  32 void
  33 Span_req::do_print() const
  34 {
  35 #ifndef NPRINT
  36   DOUT << spantype ;
  37 #endif
  38 }
  39
  40 IMPLEMENT_IS_TYPE_B1(Spacing_req,Request);
  41
  42 Spacing_req::Spacing_req()
  43 {
  44   next = 0;
  45   distance = 0;
  46   strength = 0;
  47 }
  48
  49 void
  50 Spacing_req::do_print() const
  51 {
  52 #ifndef NPRINT
  53   DOUT << "next " << next << "dist " << distance << "strength\n";
  54 #endif
  55 }
  56
  57 IMPLEMENT_IS_TYPE_B1 (Abbreviation_req, Musical_req);
  58
  59 Abbreviation_req::Abbreviation_req ()
  60 {
  61   type_i_ = 0;
  62 }
  63
  64 void
  65 Abbreviation_req::do_print() const
  66 {
  67 #ifndef NPRINT
  68   DOUT << "type " << type_i_ << "\n";
  69 #endif
  70 }
  71
  72
  73 IMPLEMENT_IS_TYPE_B2(Blank_req,Spacing_req,Rhythmic_req);
  74
  75 void
  76 Blank_req::do_print() const
  77 {
  78   Spacing_req::do_print();
  79 }
  80 /* *************** */
  81
  82 Melodic_req::Melodic_req()
  83 {
  84   notename_i_ = 0;
  85   octave_i_ = 0;
  86   accidental_i_ = 0;
  87 }
  88
  89 void
  90 Melodic_req::transpose (Melodic_req const & delta)
  91 {
  92   int old_pitch = pitch();
  93   int delta_pitch = delta.pitch();
  94   octave_i_ += delta.octave_i_;
  95   notename_i_ += delta.notename_i_;
  96   while  (notename_i_ >= 7)
  97     {
  98         notename_i_ -= 7;
  99         octave_i_ ++;
 100     }
 101
 102   int new_pitch = pitch();
 103   int delta_acc = new_pitch - old_pitch - delta_pitch;
 104
 105   accidental_i_ -= delta_acc;
 106   if (abs (accidental_i_) > 2)
 107     {
 108         delta.warning ("transposition makes accidental larger than 2");
 109     }
 110 }
 111
 112 IMPLEMENT_IS_TYPE_B1(Melodic_req,Musical_req);
 113
 114 bool
 115 Melodic_req::do_equal_b (Request*r) const
 116 {
 117   Melodic_req* m= r->musical()->melodic ();
 118   return !compare (*m, *this);
 119 }
 120
 121 int
 122 Melodic_req::compare (Melodic_req const &m1 , Melodic_req const&m2)
 123 {
 124   int o=  m1.octave_i_ - m2.octave_i_;
 125   int n = m1.notename_i_ - m2.notename_i_;
 126   int a = m1.accidental_i_ - m2.accidental_i_;
 127
 128   if (o)
 129         return o;
 130   if (n)
 131         return n;
 132   if (a)
 133         return a;
 134   return 0;
 135 }
 136
 137 void
 138 Melodic_req::do_print() const
 139 {
 140 #ifndef NPRINT
 141   DOUT << "notename: " << notename_i_
 142          << " acc: " <<accidental_i_<<" oct: "<< octave_i_;
 143 #endif
 144 }
 145
 146 int
 147 Melodic_req::height() const
 148 {
 149   return  notename_i_ + octave_i_*7;
 150 }
 151
 152 /*
 153   should be settable from input to allow "viola"-mode
 154  */
 155 static Byte pitch_byte_a[  ] = { 0, 2, 4, 5, 7, 9, 11 };
 156
 157 int
 158 Melodic_req::pitch() const
 159 {
 160   return  pitch_byte_a[ notename_i_ % 7 ] + accidental_i_ + octave_i_ * 12;
 161 }
 162
 163 /* *************** */
 164 int
 165 Rhythmic_req::compare (Rhythmic_req const &r1, Rhythmic_req const &r2)
 166 {
 167   return (r1.duration() - r2.duration ());
 168 }
 169
 170 bool
 171 Rhythmic_req::do_equal_b (Request*r) const
 172 {
 173   Rhythmic_req* rh = r->musical()->rhythmic ();
 174
 175   return !compare (*this, *rh);
 176 }
 177
 178 void
 179 Rhythmic_req::set_duration (Duration d)
 180 {
 181   duration_ = d;
 182 }
 183
 184 Rhythmic_req::Rhythmic_req()
 185 {
 186 }
 187
 188
 189 IMPLEMENT_IS_TYPE_B1(Rhythmic_req,Musical_req);
 190
 191 void
 192 Rhythmic_req::do_print() const
 193 {
 194 #ifndef NPRINT
 195   DOUT << "duration { " <<duration_.str() << "}";
 196 #endif
 197 }
 198
 199
 200 Moment
 201 Rhythmic_req::duration() const {
 202   return duration_.length();
 203 }
 204 /* *************** */
 205
 206 Lyric_req::Lyric_req (Text_def* def_p)
 207   :Text_req (0, def_p)
 208 {
 209   def_p->align_i_ = 0;  // centre
 210   dir_ = DOWN;          // lyrics below (invisible) staff
 211 }
 212
 213
 214 IMPLEMENT_IS_TYPE_B2(Lyric_req,Musical_req,Rhythmic_req);
 215
 216 void
 217 Lyric_req::do_print() const
 218 {
 219   Rhythmic_req::do_print();
 220   Text_req::do_print();
 221 }
 222
 223 /* *************** */
 224 bool
 225 Note_req::do_equal_b (Request*r) const
 226 {
 227   return Rhythmic_req::do_equal_b (r) && Melodic_req::do_equal_b (r);
 228 }
 229
 230
 231 Note_req::Note_req()
 232 {
 233   forceacc_b_ = false;
 234 }
 235
 236 IMPLEMENT_IS_TYPE_B2(Note_req,Melodic_req,Rhythmic_req);
 237
 238 void
 239 Note_req::do_print() const
 240 {
 241 #ifndef NPRINT
 242   Melodic_req::do_print();
 243   if (forceacc_b_)
 244     {
 245         DOUT << " force accidental\n";
 246     }
 247   Rhythmic_req::do_print();
 248 #endif
 249 }
 250 /* *************** */
 251
 252 IMPLEMENT_IS_TYPE_B1(Rest_req,Rhythmic_req);
 253
 254 void
 255 Rest_req::do_print() const
 256 {
 257       Rhythmic_req::do_print();
 258 }
 259
 260 /* *************** */
 261
 262 IMPLEMENT_IS_TYPE_B1(Beam_req,Span_req);
 263
 264 Beam_req::Beam_req()
 265 {
 266   nplet = 0;
 267 }
 268
 269 void
 270 Beam_req::do_print() const
 271 {
 272 }
 273
 274 /* *************** */
 275
 276 IMPLEMENT_IS_TYPE_B1 (Abbreviation_beam_req, Span_req);
 277
 278 Abbreviation_beam_req::Abbreviation_beam_req ()
 279 {
 280   type_i_ = 0;
 281 }
 282
 283 void
 284 Abbreviation_beam_req::do_print () const
 285 {
 286 }
 287
 288 IMPLEMENT_IS_TYPE_B1(Slur_req,Span_req);
 289
 290 void
 291 Slur_req::do_print() const
 292 {
 293 }
 294
 295 /* *************** */
 296
 297 bool
 298 Span_req:: do_equal_b (Request*r) const
 299 {
 300   Span_req * s = r->span();
 301   return spantype - s->spantype;
 302 }
 303
 304 Span_req::Span_req()
 305 {
 306   spantype = NOSPAN;
 307 }
 308
 309 /* *************** */
 310 Script_req::Script_req (Script_req const&s)
 311 {
 312   dir_ = s.dir_;
 313   scriptdef_p_ = s.scriptdef_p_ ? s.scriptdef_p_->clone() : 0;
 314 }
 315
 316 /*
 317   don't check dirs?
 318
 319   (d1.dir_ == d2.dir_)
 320  */
 321 bool
 322 Script_req::do_equal_b (Request*r) const
 323 {
 324   Script_req * s = r->script();
 325
 326   return  scriptdef_p_->equal_b (*s->scriptdef_p_);
 327 }
 328
 329 Script_req::Script_req()
 330 {
 331   dir_ = CENTER;
 332   scriptdef_p_ = 0;
 333 }
 334
 335
 336 IMPLEMENT_IS_TYPE_B1(Script_req,Request);
 337
 338 void
 339 Script_req::do_print() const
 340 {
 341 #ifndef NPRINT
 342   DOUT << " dir " << dir_ ;
 343   scriptdef_p_->print();
 344 #endif
 345 }
 346
 347 void
 348 Musical_script_req::do_print() const
 349 {
 350   Script_req::do_print();
 351 }
 352
 353
 354 IMPLEMENT_IS_TYPE_B2(Musical_script_req,Musical_req, Script_req);
 355
 356
 357 Script_req::~Script_req()
 358 {
 359   delete scriptdef_p_;
 360 }
 361 /* *************** */
 362
 363
 364 Text_req::~Text_req()
 365 {
 366   delete tdef_p_;
 367   tdef_p_ = 0;
 368 }
 369
 370 Text_req::Text_req (Text_req const& src)
 371 {
 372   tdef_p_ = new Text_def (*src.tdef_p_);
 373   dir_ = src.dir_;
 374 }
 375
 376 Text_req::Text_req (int dir_i, Text_def* tdef_p)
 377 {
 378   dir_ = Direction(dir_i);
 379   tdef_p_ = tdef_p;
 380 }
 381
 382
 383 IMPLEMENT_IS_TYPE_B1(Text_req,Musical_req);
 384
 385 void
 386 Text_req::do_print() const
 387 {
 388 #ifndef NPRINT
 389   DOUT << " dir " << dir_ ;
 390   tdef_p_->print();
 391 #endif
 392 }
 393
 394 /* *************** */
 395
 396
 397 IMPLEMENT_IS_TYPE_B1(Skip_req,Musical_req);
 398
 399 void
 400 Skip_req::do_print() const
 401 {
 402 #ifndef NPRINT
 403
 404   DOUT << "duration: " << duration();
 405 #endif
 406 }
 407
 408
 409
 410 IMPLEMENT_IS_TYPE_B1(Dynamic_req,Musical_req);
 411
 412 void
 413 Dynamic_req::do_print() const
 414 {
 415   Musical_req::do_print();
 416 }
 417
 418
 419 IMPLEMENT_IS_TYPE_B1(Absolute_dynamic_req,Musical_req);
 420
 421 void
 422 Absolute_dynamic_req::do_print() const
 423 {
 424 #ifndef NPRINT
 425   Dynamic_req::do_print();
 426   DOUT << " loudness " <<loudness_str ();
 427 #endif
 428 }
 429
 430 String
 431 Dynamic_req::loudness_static_str (Loudness l)
 432 {
 433   switch (l)
 434     {
 435     case FFF: return "fff";
 436     case FF: return "ff";
 437     case F: return "f";
 438     case MF: return "mf";
 439     case MP: return "mp";
 440     case P: return "p";
 441     case PP: return "pp";
 442     case PPP: return "ppp";
 443     case FP: return "fp";
 444     case SF: return "sf";
 445     case SFZ: return "sfz";
 446     }
 447   return "";
 448 }
 449
 450 String
 451 Absolute_dynamic_req::loudness_str () const
 452 {
 453   String s = loudness_static_str (loudness_);
 454   if (s.empty_b ())
 455     {
 456       s = "mf";
 457       warning (String ("Never heard of dynamic scale ")
 458                + loudness_ + " assuming mf");
 459     }
 460   return s;
 461 }
 462
 463
 464 Absolute_dynamic_req::Absolute_dynamic_req()
 465 {
 466   loudness_ = MF;
 467 }
 468
 469
 470 Span_dynamic_req::Span_dynamic_req()
 471 {
 472   dynamic_dir_  = CENTER;
 473 }
 474
 475
 476 IMPLEMENT_IS_TYPE_B1(Span_dynamic_req,Musical_req);
 477
 478 void
 479 Span_dynamic_req::do_print() const
 480 {
 481 #ifndef NPRINT
 482   Span_req::do_print();
 483   DOUT << "softer/louder: " <<dynamic_dir_;
 484 #endif
 485 }
 486
 487
 488 IMPLEMENT_IS_TYPE_B1(Tie_req,Musical_req);
 489
 490