2 request.cc -- implement all musical requests.
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
9 #include "musical-request.hh"
12 #include "script-def.hh"
13 #include "text-def.hh"
14 #include "music-list.hh"
18 IMPLEMENT_IS_TYPE_B1 (Musical_req,Request);
20 Musical_req::do_print () const{}
22 Tie_req::do_print () const{}
26 IMPLEMENT_IS_TYPE_B1(Span_req,Request);
28 IMPLEMENT_IS_TYPE_B2(Musical_span_req, Span_req, Musical_span_req);
31 Musical_span_req::do_print () const
33 Span_req::do_print ();
38 Span_req::do_print () const
45 IMPLEMENT_IS_TYPE_B1 (Spacing_req,Request);
47 Spacing_req::Spacing_req ()
55 Spacing_req::do_print () const
58 DOUT << "next " << next << "dist " << distance << "strength\n";
62 IMPLEMENT_IS_TYPE_B1 (Abbreviation_req, Musical_req);
64 Abbreviation_req::Abbreviation_req ()
70 Abbreviation_req::do_print () const
73 DOUT << "type " << type_i_ << '\n';
78 IMPLEMENT_IS_TYPE_B2 (Blank_req,Spacing_req,Rhythmic_req);
81 Blank_req::do_print () const
83 Spacing_req::do_print ();
86 Melodic_req::Melodic_req ()
91 Melodic_req::transpose (Musical_pitch delta)
93 pitch_.transpose (delta);
95 if (abs (pitch_.accidental_i_) > 2)
97 warning (_f ("transposition by %s makes accidental larger than two",
102 IMPLEMENT_IS_TYPE_B1 (Melodic_req,Musical_req);
105 Melodic_req::do_equal_b (Request*r) const
107 Melodic_req* m= dynamic_cast <Melodic_req *> (r);
108 return m&& !compare (*m, *this);
112 Melodic_req::compare (Melodic_req const &m1 , Melodic_req const&m2)
114 return Musical_pitch::compare (m1.pitch_, m2.pitch_);
118 Melodic_req::do_print () const
124 Rhythmic_req::compare (Rhythmic_req const &r1, Rhythmic_req const &r2)
126 return (r1.duration () - r2.duration ());
130 Rhythmic_req::do_equal_b (Request*r) const
132 Rhythmic_req* rh = dynamic_cast <Rhythmic_req *> (r);
134 return rh&& !compare (*this, *rh);
138 Rhythmic_req::Rhythmic_req ()
143 IMPLEMENT_IS_TYPE_B1 (Rhythmic_req,Musical_req);
146 Rhythmic_req::do_print () const
149 DOUT << "duration { " <<duration_.str () << "}";
155 Rhythmic_req::duration () const
157 return duration_.length ();
161 Rhythmic_req::compress (Moment m)
163 duration_.compress (m);
169 IMPLEMENT_IS_TYPE_B1 (Lyric_req,Rhythmic_req);
172 Lyric_req::do_print () const
174 Rhythmic_req::do_print ();
179 Note_req::do_equal_b (Request*r) const
181 Note_req *n = dynamic_cast<Note_req*> (r);
182 return n&& Rhythmic_req::do_equal_b (n) && Melodic_req::do_equal_b (n);
186 Note_req::Note_req ()
188 cautionary_b_ = false;
192 IMPLEMENT_IS_TYPE_B2 (Note_req,Melodic_req,Rhythmic_req);
195 Note_req::do_print () const
198 Melodic_req::do_print ();
201 DOUT << " force cautionary accidental\n";
203 else if (forceacc_b_)
205 DOUT << " force accidental\n";
207 Rhythmic_req::do_print ();
211 IMPLEMENT_IS_TYPE_B1 (Rest_req, Rhythmic_req);
214 Rest_req::do_print () const
216 Rhythmic_req::do_print ();
222 IMPLEMENT_IS_TYPE_B1 (Multi_measure_rest_req, Rhythmic_req);
225 Multi_measure_rest_req::do_print () const
227 Rhythmic_req::do_print ();
232 IMPLEMENT_IS_TYPE_B1 (Beam_req,Span_req);
234 Beam_req::Beam_req ()
239 Beam_req::do_print () const
244 IMPLEMENT_IS_TYPE_B1 (Abbreviation_beam_req, Span_req);
246 Abbreviation_beam_req::Abbreviation_beam_req ()
252 Abbreviation_beam_req::do_print () const
256 IMPLEMENT_IS_TYPE_B1 (Slur_req,Span_req);
258 Slur_req::do_print () const
262 IMPLEMENT_IS_TYPE_B1 (Plet_req,Span_req);
264 Plet_req::Plet_req ()
270 Plet_req::do_print () const
276 Span_req:: do_equal_b (Request*r) const
278 Span_req * s = dynamic_cast <Span_req *> (r);
279 return s&& spantype == s->spantype;
282 Span_req::Span_req ()
287 Script_req::Script_req (Script_req const&s)
290 scriptdef_p_ = s.scriptdef_p_ ? s.scriptdef_p_->clone () : 0;
299 Script_req::do_equal_b (Request*r) const
301 Script_req * s = dynamic_cast <Script_req *> (r);
303 return s&& scriptdef_p_->equal_b (*s->scriptdef_p_);
306 Script_req::Script_req ()
313 IMPLEMENT_IS_TYPE_B1 (Script_req,Request);
316 Script_req::do_print () const
319 DOUT << " dir " << dir_;
320 scriptdef_p_->print ();
325 Musical_script_req::do_print () const
327 Script_req::do_print ();
331 IMPLEMENT_IS_TYPE_B2 (Musical_script_req,Musical_req, Script_req);
334 Script_req::~Script_req ()
340 Text_req::~Text_req ()
346 Text_req::Text_req (Text_req const& src)
348 tdef_p_ = new Text_def (*src.tdef_p_);
352 Text_req::Text_req (int dir_i, Text_def* tdef_p)
354 dir_ = Direction (dir_i);
359 IMPLEMENT_IS_TYPE_B1 (Text_req,Musical_req);
362 Text_req::do_print () const
365 DOUT << " dir " << dir_;
372 IMPLEMENT_IS_TYPE_B1 (Skip_req,Musical_req);
375 Skip_req::do_print () const
379 DOUT << "duration: " << duration ();
385 IMPLEMENT_IS_TYPE_B1 (Dynamic_req,Musical_req);
388 Dynamic_req::do_print () const
390 Musical_req::do_print ();
394 IMPLEMENT_IS_TYPE_B1 (Absolute_dynamic_req,Musical_req);
397 Absolute_dynamic_req::do_print () const
400 Dynamic_req::do_print ();
401 DOUT << " loudness " <<loudness_str ();
407 Absolute_dynamic_req::do_equal_b (Request *r) const
409 Absolute_dynamic_req *a = dynamic_cast <Absolute_dynamic_req *> (r);
410 return a&& loudness_ == a->loudness_;
414 Dynamic_req::loudness_static_str (Loudness l)
418 case FFF: return "fff";
419 case FF: return "ff";
421 case MF: return "mf";
422 case MP: return "mp";
424 case PP: return "pp";
425 case PPP: return "ppp";
426 case FP: return "fp";
427 case SF: return "sf";
428 case SFZ: return "sfz";
434 Absolute_dynamic_req::loudness_str () const
436 String str = loudness_static_str (loudness_);
440 warning (_f ("never heard of dynamic scale `\%s\', assuming %s",
448 Absolute_dynamic_req::Absolute_dynamic_req ()
456 Span_dynamic_req::do_equal_b (Request *req) const
458 Span_dynamic_req * s = dynamic_cast <Span_dynamic_req *> (req);
460 return s&& Span_req::do_equal_b (req) && s->dynamic_dir_ == dynamic_dir_;
463 Span_dynamic_req::Span_dynamic_req ()
465 dynamic_dir_ = CENTER;
469 IMPLEMENT_IS_TYPE_B1 (Span_dynamic_req,Musical_req);
472 Span_dynamic_req::do_print () const
475 Span_req::do_print ();
476 DOUT << "softer/louder: " << dynamic_dir_;
481 IMPLEMENT_IS_TYPE_B1 (Tie_req,Musical_req);