/*
request.cc -- implement all musical requests.
- source file of the LilyPond music typesetter
+ source file of the GNU LilyPond music typesetter
(c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
*/
#include "debug.hh"
#include "script-def.hh"
#include "text-def.hh"
-#include "voice.hh"
-#include "voice-element.hh"
+#include "music-list.hh"
-void
-Stem_req::do_print() const
-{
- Rhythmic_req::do_print();
- mtor << "dir : " << dir_i_;
-}
-Stem_req::Stem_req(int s, int d)
- : Rhythmic_req(s,d)
-{
- dir_i_ = 0;
-}
-/* ************** */
-void Musical_req::do_print()const{}
-void Request::do_print() const{}
+IMPLEMENT_IS_TYPE_B1(Musical_req,Request);
+void
+Musical_req::do_print() const{}
+void
+Tie_req::do_print() const{}
+
/* *************** */
-void
-Request::print() const
-{
- mtor << name() << " {";
- do_print();
- mtor << "}\n";
-}
-
+
+IMPLEMENT_IS_TYPE_B1(Span_req,Musical_req);
+
void
-Span_req::do_print() const
+Span_req::do_print() const
{
#ifndef NPRINT
- mtor << spantype ;
+ DOUT << spantype ;
#endif
}
-Request::Request()
+IMPLEMENT_IS_TYPE_B1(Spacing_req,Request);
+
+Spacing_req::Spacing_req()
{
- elt_l_ = 0;
- defined_ch_c_l_ = 0;
+ next = 0;
+ distance = 0;
+ strength = 0;
}
-Request::Request(Request const&src)
+
+void
+Spacing_req::do_print() const
{
- elt_l_ = 0;
- defined_ch_c_l_ = src.defined_ch_c_l_;
+#ifndef NPRINT
+ DOUT << "next " << next << "dist " << distance << "strength\n";
+#endif
}
-/* *************** */
-Spacing_req::Spacing_req()
+
+IMPLEMENT_IS_TYPE_B1 (Abbreviation_req, Musical_req);
+
+Abbreviation_req::Abbreviation_req ()
{
- next = 0;
- distance = 0;
- strength = 0;
+ type_i_ = 0;
}
+
void
-Spacing_req::do_print()const
+Abbreviation_req::do_print() const
{
#ifndef NPRINT
- mtor << "next " << next << "dist " << distance << "strength\n";
+ DOUT << "type " << type_i_ << "\n";
#endif
}
+
+IMPLEMENT_IS_TYPE_B2(Blank_req,Spacing_req,Rhythmic_req);
+
void
-Blank_req::do_print()const
+Blank_req::do_print() const
{
- Spacing_req::do_print();
+ Spacing_req::do_print();
}
/* *************** */
+
Melodic_req::Melodic_req()
{
- notename_i_ = 0;
- octave_i_ = 0;
- accidental_i_ = 0;
- forceacc_b_ = false;
+ notename_i_ = 0;
+ octave_i_ = 0;
+ accidental_i_ = 0;
+}
+
+void
+Melodic_req::transpose (Melodic_req const * delta)
+{
+ int old_pitch = pitch();
+ int delta_pitch = delta->pitch();
+ octave_i_ += delta->octave_i_;
+ notename_i_ += delta->notename_i_;
+ while (notename_i_ >= 7)
+ {
+ notename_i_ -= 7;
+ octave_i_ ++;
+ }
+
+ int new_pitch = pitch();
+ int delta_acc = new_pitch - old_pitch - delta_pitch;
+
+ accidental_i_ -= delta_acc;
+ if (abs (accidental_i_) > 2)
+ {
+ delta->warning (_("transposition makes accidental larger than 2"));
+ }
+}
+
+IMPLEMENT_IS_TYPE_B1(Melodic_req,Musical_req);
+
+bool
+Melodic_req::do_equal_b (Request*r) const
+{
+ Melodic_req* m= r->musical()->melodic ();
+ return !compare (*m, *this);
+}
+
+int
+Melodic_req::compare (Melodic_req const &m1 , Melodic_req const&m2)
+{
+ int o= m1.octave_i_ - m2.octave_i_;
+ int n = m1.notename_i_ - m2.notename_i_;
+ int a = m1.accidental_i_ - m2.accidental_i_;
+
+ if (o)
+ return o;
+ if (n)
+ return n;
+ if (a)
+ return a;
+ return 0;
}
void
Melodic_req::do_print() const
{
- mtor << "notename: " << notename_i_ << " acc: " <<accidental_i_<<" oct: "<< octave_i_;
+#ifndef NPRINT
+ DOUT << "notename: " << notename_i_
+ << " acc: " <<accidental_i_<<" oct: "<< octave_i_;
+#endif
}
int
Melodic_req::height() const
{
- return notename_i_ + octave_i_*7;
+ return notename_i_ + octave_i_*7;
}
/*
- should be settable from input to allow "viola"-mode
+ should be settable from input to allow "viola"-mode
*/
-static Byte pitch_byte_a[ 7 ] = { 0, 2, 4, 5, 7, 9, 11 };
+static Byte pitch_byte_a[ ] = { 0, 2, 4, 5, 7, 9, 11 };
int
Melodic_req::pitch() const
{
- return pitch_byte_a[ notename_i_ % 7 ] + accidental_i_ + octave_i_ * 12;
+ return pitch_byte_a[ notename_i_ % 7 ] + accidental_i_ + octave_i_ * 12;
}
-Plet_req::Plet_req()
+/* *************** */
+int
+Rhythmic_req::compare (Rhythmic_req const &r1, Rhythmic_req const &r2)
{
- type_c_ = ']';
- dur_i_ = 1;
- type_i_ = 1;
+ return (r1.duration() - r2.duration ());
}
-void
-Plet_req::do_print() const
+bool
+Rhythmic_req::do_equal_b (Request*r) const
{
- mtor << "plet: " << type_c_ << ": " << dur_i_ << "/" << type_i_;
-}
+ Rhythmic_req* rh = r->musical()->rhythmic ();
-/* *************** */
-int
-Rhythmic_req::compare(const Rhythmic_req &r1, const Rhythmic_req &r2)
-{
- return sign(r1.duration() - r2.duration());
+ return !compare (*this, *rh);
}
-Rhythmic_req::Rhythmic_req(int b, int d)
+
+void
+Rhythmic_req::set_duration (Duration d)
{
- plet_factor = 1;
- balltype = b;
- dots = d;
+ duration_ = d;
}
Rhythmic_req::Rhythmic_req()
{
- plet_factor = 1;
- balltype = 1;
- dots = 0;
}
+
+IMPLEMENT_IS_TYPE_B1(Rhythmic_req,Musical_req);
+
void
Rhythmic_req::do_print() const
{
- mtor << "ball: " << balltype ;
- int d =dots;
- while (d--)
- mtor << '.';
-
- mtor<<", plet factor"<<plet_factor<<"\n";
+#ifndef NPRINT
+ DOUT << "duration { " <<duration_.str() << "}";
+#endif
}
Moment
-Rhythmic_req::duration() const {
- return wholes(balltype,dots)*plet_factor;
+Rhythmic_req::duration() const {
+ return duration_.length();
}
/* *************** */
-Lyric_req::Lyric_req(Text_def* def_p)
- :Text_req(0, def_p)
+Lyric_req::Lyric_req (Text_def* def_p)
+ :Text_req (0, def_p)
{
- def_p->align_i_ = 0; // centre
- dir_i_ = -1; // lyrics below (invisible) staff
+ def_p->align_i_ = 0; // centre
+ dir_ = DOWN; // lyrics below (invisible) staff
}
+
+IMPLEMENT_IS_TYPE_B2(Lyric_req,Musical_req,Rhythmic_req);
+
void
Lyric_req::do_print() const
-{
- Rhythmic_req::do_print();
- Text_req::do_print();
+{
+ Rhythmic_req::do_print();
+ Text_req::do_print();
}
+
/* *************** */
+bool
+Note_req::do_equal_b (Request*r) const
+{
+ return Rhythmic_req::do_equal_b (r) && Melodic_req::do_equal_b (r);
+}
+
+
+Note_req::Note_req()
+{
+ forceacc_b_ = false;
+}
+
+IMPLEMENT_IS_TYPE_B2(Note_req,Melodic_req,Rhythmic_req);
+
void
Note_req::do_print() const
{
- Melodic_req::do_print();
- Rhythmic_req::do_print();
+#ifndef NPRINT
+ Melodic_req::do_print();
+ if (forceacc_b_)
+ {
+ DOUT << " force accidental\n";
+ }
+ Rhythmic_req::do_print();
+#endif
}
/* *************** */
+
+IMPLEMENT_IS_TYPE_B1(Rest_req,Rhythmic_req);
+
void
Rest_req::do_print() const
{
- Rhythmic_req::do_print();
+ Rhythmic_req::do_print();
}
/* *************** */
+
+IMPLEMENT_IS_TYPE_B1(Beam_req,Span_req);
+
Beam_req::Beam_req()
{
- nplet = 0;
}
-void Beam_req::do_print()const{}
-/* *************** */
-void Slur_req::do_print()const{}
-/* *************** */
-int
-Span_req:: compare(const Span_req &r1, const Span_req &r2)
+void
+Beam_req::do_print() const
{
- return r1.spantype - r2.spantype;
}
-Span_req::Span_req()
+/* *************** */
+
+IMPLEMENT_IS_TYPE_B1 (Abbreviation_beam_req, Span_req);
+
+Abbreviation_beam_req::Abbreviation_beam_req ()
{
- spantype = NOSPAN;
+ type_i_ = 0;
}
-/* *************** */
-Script_req::Script_req(int d , Script_def*def)
+void
+Abbreviation_beam_req::do_print () const
{
- dir_i_ = d;
- scriptdef_p_ = def;
}
-int
-Script_req::compare(const Script_req &d1, const Script_req &d2)
+IMPLEMENT_IS_TYPE_B1(Slur_req,Span_req);
+void
+Slur_req::do_print() const
{
- return d1.dir_i_ == d2.dir_i_ &&
- d1.scriptdef_p_->compare(*d2.scriptdef_p_);
}
-Script_req::Script_req(Script_req const &s)
- : Request( s )
+IMPLEMENT_IS_TYPE_B1(Plet_req,Span_req);
+
+Plet_req::Plet_req ()
{
- dir_i_ = s.dir_i_;
- scriptdef_p_ = new Script_def(*s.scriptdef_p_);
+ plet_i_ = 0;
}
void
-Script_req::do_print() const
+Plet_req::do_print () const
{
- mtor << " dir " << dir_i_ ;
- scriptdef_p_->print();
}
+/* *************** */
-Script_req::~Script_req()
+bool
+Span_req:: do_equal_b (Request*r) const
{
- delete scriptdef_p_;
+ Span_req * s = r->span();
+ return spantype == s->spantype;
}
+
+Span_req::Span_req()
+{
+ spantype = NOSPAN;
+}
+
/* *************** */
-int
-Text_req:: compare(const Text_req &r1, const Text_req &r2)
+Script_req::Script_req (Script_req const&s)
{
- bool b1 = (r1.dir_i_ == r2.dir_i_);
- bool b2 = (r1.tdef_p_ ->compare(*r2.tdef_p_));
- return b1 && b2;
+ dir_ = s.dir_;
+ scriptdef_p_ = s.scriptdef_p_ ? s.scriptdef_p_->clone() : 0;
}
-Text_req::~Text_req()
+
+/*
+ don't check dirs?
+
+ (d1.dir_ == d2.dir_)
+ */
+bool
+Script_req::do_equal_b (Request*r) const
{
- delete tdef_p_;
- tdef_p_ = 0;
+ Script_req * s = r->script();
+
+ return scriptdef_p_->equal_b (*s->scriptdef_p_);
}
-Text_req::Text_req(Text_req const& src)
+Script_req::Script_req()
{
- tdef_p_ = new Text_def(*src.tdef_p_);
- dir_i_ = src.dir_i_;
+ dir_ = CENTER;
+ scriptdef_p_ = 0;
}
-Text_req::Text_req(int dir_i, Text_def* tdef_p)
+
+IMPLEMENT_IS_TYPE_B1(Script_req,Request);
+
+void
+Script_req::do_print() const
{
- dir_i_ = dir_i;
- tdef_p_ = tdef_p;
+#ifndef NPRINT
+ DOUT << " dir " << dir_ ;
+ scriptdef_p_->print();
+#endif
}
void
-Text_req::do_print() const
+Musical_script_req::do_print() const
{
- mtor << " dir " << dir_i_ ;
- tdef_p_->print();
+ Script_req::do_print();
}
+
+IMPLEMENT_IS_TYPE_B2(Musical_script_req,Musical_req, Script_req);
+
+
+Script_req::~Script_req()
+{
+ delete scriptdef_p_;
+}
/* *************** */
-Moment
-Skip_req::duration() const
+
+Text_req::~Text_req()
{
- return duration_;
+ delete tdef_p_;
+ tdef_p_ = 0;
}
-void
-Skip_req::do_print() const
+Text_req::Text_req (Text_req const& src)
{
- mtor << "duration: " << duration();
+ tdef_p_ = new Text_def (*src.tdef_p_);
+ dir_ = src.dir_;
}
-Voice *
-Request::voice_l()
+Text_req::Text_req (int dir_i, Text_def* tdef_p)
{
- if (!elt_l_)
- return 0;
- else
- return (Voice*)elt_l_->voice_l_;
+ dir_ = Direction(dir_i);
+ tdef_p_ = tdef_p;
}
+
+
+IMPLEMENT_IS_TYPE_B1(Text_req,Musical_req);
+
+void
+Text_req::do_print() const
+{
+#ifndef NPRINT
+ DOUT << " dir " << dir_ ;
+ tdef_p_->print();
+#endif
+}
+
/* *************** */
+
+IMPLEMENT_IS_TYPE_B1(Skip_req,Musical_req);
+
void
-Subtle_req::do_print() const
+Skip_req::do_print() const
{
- mtor << " subtime " << subtime_;
+#ifndef NPRINT
+
+ DOUT << "duration: " << duration();
+#endif
}
+
+
+IMPLEMENT_IS_TYPE_B1(Dynamic_req,Musical_req);
+
void
Dynamic_req::do_print() const
{
- Subtle_req::do_print();
+ Musical_req::do_print();
}
+
+IMPLEMENT_IS_TYPE_B1(Absolute_dynamic_req,Musical_req);
+
void
Absolute_dynamic_req::do_print() const
{
- Dynamic_req::do_print();
- mtor << " loudness_" <<loudness_;
+#ifndef NPRINT
+ Dynamic_req::do_print();
+ DOUT << " loudness " <<loudness_str ();
+#endif
}
String
-Dynamic_req::loudness_str(Loudness l)
+Dynamic_req::loudness_static_str (Loudness l)
{
- switch (l) {
+ switch (l)
+ {
case FFF: return "fff";
case FF: return "ff";
case F: return "f";
case P: return "p";
case PP: return "pp";
case PPP: return "ppp";
+ case FP: return "fp";
+ case SF: return "sf";
+ case SFZ: return "sfz";
}
- assert(false);
- return "";
+ return "";
}
+String
+Absolute_dynamic_req::loudness_str () const
+{
+ String s = loudness_static_str (loudness_);
+ if (s.empty_b ())
+ {
+ s = "mf";
+ warning (String (_("Never heard of dynamic scale "))
+ + loudness_ + _(" assuming mf"));
+ }
+ return s;
+}
+
+
Absolute_dynamic_req::Absolute_dynamic_req()
{
- loudness_ = MF;
+ loudness_ = MF;
}
Span_dynamic_req::Span_dynamic_req()
{
- dynamic_dir_i_ = 0;
+ dynamic_dir_ = CENTER;
}
+
+IMPLEMENT_IS_TYPE_B1(Span_dynamic_req,Musical_req);
+
void
-Span_dynamic_req::do_print()const
+Span_dynamic_req::do_print() const
{
#ifndef NPRINT
- Span_req::do_print();
- mtor << "louder/louder: " <<dynamic_dir_i_;
+ Span_req::do_print();
+ DOUT << "softer/louder: " <<dynamic_dir_;
#endif
}
+
+
+IMPLEMENT_IS_TYPE_B1(Tie_req,Musical_req);