source file of the GNU LilyPond music typesetter
- (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+ (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "musical-request.hh"
#include "misc.hh"
#include "debug.hh"
-#include "script-def.hh"
-#include "text-def.hh"
#include "music-list.hh"
-IMPLEMENT_STATIC_NAME(Stem_req);
-IMPLEMENT_IS_TYPE_B1(Stem_req,Rhythmic_req);
-void
-Stem_req::do_print() const
-{
-#ifndef NPRINT
- Rhythmic_req::do_print();
- mtor << "dir : " << dir_i_;
-#endif
-}
-
-Stem_req::Stem_req()
-{
- dir_i_ = 0;
-}
-
-/* ************** */
-IMPLEMENT_STATIC_NAME(Musical_req);
-IMPLEMENT_IS_TYPE_B1(Musical_req,Request);
-void
-Musical_req::do_print()const{}
-void
-Tie_req::do_print()const{}
-
-
-/* *************** */
-
-
-
-IMPLEMENT_STATIC_NAME(Span_req);
-IMPLEMENT_IS_TYPE_B1(Span_req,Musical_req);
-
-void
-Span_req::do_print() const
-{
-#ifndef NPRINT
- mtor << spantype ;
-#endif
-}
-
-Spacing_req::Spacing_req()
-{
- next = 0;
- distance = 0;
- strength = 0;
-}
-IMPLEMENT_STATIC_NAME(Spacing_req);
-IMPLEMENT_IS_TYPE_B1(Spacing_req,Request);
-
-void
-Spacing_req::do_print()const
-{
-#ifndef NPRINT
- mtor << "next " << next << "dist " << distance << "strength\n";
-#endif
-}
-
-IMPLEMENT_STATIC_NAME(Blank_req);
-IMPLEMENT_IS_TYPE_B2(Blank_req,Spacing_req,Rhythmic_req);
-
-void
-Blank_req::do_print()const
-{
- Spacing_req::do_print();
-}
-/* *************** */
-Melodic_req::Melodic_req()
-{
- 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_STATIC_NAME(Melodic_req);
-IMPLEMENT_IS_TYPE_B1(Melodic_req,Musical_req);
-
-int
-Melodic_req::compare(Melodic_req const&m1, Melodic_req const&m2)
-{
- if (m1.octave_i_ != m2.octave_i_)
- return m1.octave_i_ -m2.octave_i_;
- else if (m1.notename_i_ != m2.notename_i_)
- return m1.notename_i_ - m2.notename_i_;
- else if (m1.accidental_i_ != m2.accidental_i_)
- return m1.accidental_i_ - m2.accidental_i_;
- return 0;
-}
-
-void
-Melodic_req::do_print() const
-{
-#ifndef NPRINT
- mtor << "notename: " << notename_i_ << " acc: " <<accidental_i_<<" oct: "<< octave_i_;
-#endif
-}
-
-int
-Melodic_req::height() const
-{
- return notename_i_ + octave_i_*7;
-}
-
-/*
- should be settable from input to allow "viola"-mode
- */
-static Byte pitch_byte_a[ 7 ] = { 0, 2, 4, 5, 7, 9, 11 };
-
-int
-Melodic_req::pitch() const
-{
- return pitch_byte_a[ notename_i_ % 7 ] + accidental_i_ + octave_i_ * 12;
-}
-/* *************** */
-int
-Rhythmic_req::compare(Rhythmic_req const &r1, Rhythmic_req const &r2)
+Tremolo_req::Tremolo_req ()
{
- return sign(r1.duration() - r2.duration());
}
-void
-Rhythmic_req::set_duration(Duration d)
+bool
+Melodic_req::do_equal_b (Request const* r) const
{
- duration_ = d;
+ Melodic_req const* m= dynamic_cast <Melodic_req const*> (r);
+ return m; // && !compare (*m, *this);
}
-Rhythmic_req::Rhythmic_req()
+bool
+Rhythmic_req::do_equal_b (Request const* r) const
{
-}
-
-IMPLEMENT_STATIC_NAME(Rhythmic_req);
-IMPLEMENT_IS_TYPE_B1(Rhythmic_req,Musical_req);
+ Rhythmic_req const* rh = dynamic_cast <Rhythmic_req const*> (r);
-void
-Rhythmic_req::do_print() const
-{
-#ifndef NPRINT
- mtor << "duration { " <<duration_.str() << "}";
-#endif
+ return rh; // ; && !compare (*this, *rh);
}
-
Moment
-Rhythmic_req::duration() const {
- return duration_.length();
-}
-/* *************** */
-
-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
-}
-
-IMPLEMENT_STATIC_NAME(Lyric_req);
-IMPLEMENT_IS_TYPE_B2(Lyric_req,Musical_req,Rhythmic_req);
-
-void
-Lyric_req::do_print() const
-{
- Rhythmic_req::do_print();
- Text_req::do_print();
-}
-
-/* *************** */
-Note_req::Note_req()
-{
- forceacc_b_ = false;
-}
-IMPLEMENT_STATIC_NAME(Note_req);
-IMPLEMENT_IS_TYPE_B2(Note_req,Melodic_req,Rhythmic_req);
-
-void
-Note_req::do_print() const
-{
-#ifndef NPRINT
- Melodic_req::do_print();
- if (forceacc_b_) {
- mtor << " force accidental\n";
- }
- Rhythmic_req::do_print();
-#endif
-}
-/* *************** */
-IMPLEMENT_STATIC_NAME(Rest_req);
-IMPLEMENT_IS_TYPE_B1(Rest_req,Rhythmic_req);
-
-void
-Rest_req::do_print() const
-{
- Rhythmic_req::do_print();
-}
-
-/* *************** */
-Beam_req::Beam_req()
-{
- nplet = 0;
-}
-IMPLEMENT_STATIC_NAME(Beam_req);
-IMPLEMENT_IS_TYPE_B1(Beam_req,Span_req);
-void
-Beam_req::do_print()const{}
-/* *************** */
-IMPLEMENT_STATIC_NAME(Slur_req);
-IMPLEMENT_IS_TYPE_B1(Slur_req,Span_req);
-void
-Slur_req::do_print()const{}
-/* *************** */
-int
-Span_req:: compare(Span_req const &r1, Span_req const &r2)
-{
- return r1.spantype - r2.spantype;
-}
-
-Span_req::Span_req()
-{
- spantype = NOSPAN;
-}
-
-/* *************** */
-Script_req::Script_req(Script_req const&s)
-{
- dir_i_ = s.dir_i_;
- scriptdef_p_ = s.scriptdef_p_ ? s.scriptdef_p_->clone() : 0;
-}
-
-int
-Script_req::compare(Script_req const &d1, Script_req const &d2)
-{
- return d1.dir_i_ == d2.dir_i_ &&
- d1.scriptdef_p_->equal_b(*d2.scriptdef_p_);
-}
-
-Script_req::Script_req()
-{
- dir_i_ = 0;
- scriptdef_p_ = 0;
-}
-
-IMPLEMENT_STATIC_NAME(Script_req);
-IMPLEMENT_IS_TYPE_B1(Script_req,Request);
-
-void
-Script_req::do_print() const
-{
- mtor << " dir " << dir_i_ ;
- scriptdef_p_->print();
-}
-
-void
-Musical_script_req::do_print() const
-{}
-
-IMPLEMENT_STATIC_NAME(Musical_script_req);
-IMPLEMENT_IS_TYPE_B2(Musical_script_req,Musical_req, Script_req);
-
-
-Script_req::~Script_req()
-{
- delete scriptdef_p_;
-}
-/* *************** */
-int
-Text_req:: compare(Text_req const &r1, Text_req const &r2)
-{
- bool b1 = (r1.dir_i_ == r2.dir_i_);
- bool b2 = (r1.tdef_p_ ->equal_b(*r2.tdef_p_));
- return b1 && b2;
-}
-Text_req::~Text_req()
-{
- delete tdef_p_;
- tdef_p_ = 0;
-}
-
-Text_req::Text_req(Text_req const& src)
-{
- tdef_p_ = new Text_def(*src.tdef_p_);
- dir_i_ = src.dir_i_;
-}
-
-Text_req::Text_req(int dir_i, Text_def* tdef_p)
-{
- dir_i_ = dir_i;
- tdef_p_ = tdef_p;
-}
-
-IMPLEMENT_STATIC_NAME(Text_req);
-IMPLEMENT_IS_TYPE_B1(Text_req,Musical_req);
-
-void
-Text_req::do_print() const
+Rhythmic_req::length_mom () const
{
-#ifndef NPRINT
-
- mtor << " dir " << dir_i_ ;
- tdef_p_->print();
-#endif
+ Duration *d = unsmob_duration (get_mus_property ("duration"));
+ if (!d){
+ Moment m ;
+ programming_error("Rhythmic_req has no duration");
+ return m;
+ }
+ return d->length_mom ();
}
-/* *************** */
-
-IMPLEMENT_STATIC_NAME(Skip_req);
-IMPLEMENT_IS_TYPE_B1(Skip_req,Musical_req);
-
void
-Skip_req::do_print() const
+Rhythmic_req::compress (Moment m)
{
-#ifndef NPRINT
-
- mtor << "duration: " << duration();
-#endif
+ Duration *d = unsmob_duration (get_mus_property ("duration"));
+ if (d)
+ set_mus_property ("duration", d ->compressed (m.main_part_).smobbed_copy ());
}
-Voice *
-Request::voice_l()
+bool
+Note_req::do_equal_b (Request const* r) const
{
- if (!parent_music_l_)
- return 0;
- else
- return (Voice*)parent_music_l_;
+ Note_req const* n = dynamic_cast<Note_req const*> (r);
+ return n&& Rhythmic_req::do_equal_b (n) && Melodic_req::do_equal_b (n);
}
-/* *************** */
-IMPLEMENT_STATIC_NAME(Subtle_req);
-IMPLEMENT_IS_TYPE_B1(Subtle_req,Musical_req);
-void
-Subtle_req::do_print() const
+Note_req::Note_req ()
{
-#ifndef NPRINT
- mtor << " subtime " << subtime_;
-#endif
}
-IMPLEMENT_STATIC_NAME(Dynamic_req);
-IMPLEMENT_IS_TYPE_B1(Dynamic_req,Musical_req);
-void
-Dynamic_req::do_print() const
+bool
+Span_req::do_equal_b (Request const*r) const
{
- Subtle_req::do_print();
+ Span_req const* s = dynamic_cast <Span_req const*> (r);
+ return s && get_span_dir () == s->get_span_dir ();
}
-IMPLEMENT_STATIC_NAME(Absolute_dynamic_req);
-IMPLEMENT_IS_TYPE_B1(Absolute_dynamic_req,Musical_req);
-
-void
-Absolute_dynamic_req::do_print() const
+Span_req::Span_req ()
{
- Dynamic_req::do_print();
- mtor << " loudness " <<loudness_;
-}
-
-String
-Dynamic_req::loudness_str(Loudness l)
-{
- switch (l) {
- case FFF: return "fff";
- case FF: return "ff";
- case F: return "f";
- case MF: return "mf";
- case MP: return "mp";
- case P: return "p";
- case PP: return "pp";
- case PPP: return "ppp";
- }
- assert(false);
- return "";
-}
-
-Absolute_dynamic_req::Absolute_dynamic_req()
-{
- loudness_ = MF;
}
-Span_dynamic_req::Span_dynamic_req()
+bool
+Text_script_req::do_equal_b (Request const* r) const
{
- dynamic_dir_i_ = 0;
+ Text_script_req const* t = dynamic_cast<Text_script_req const*> (r);
+ return t && gh_equal_p (get_mus_property ("text"),
+ t->get_mus_property ("text"));
}
-IMPLEMENT_STATIC_NAME(Span_dynamic_req);
-IMPLEMENT_IS_TYPE_B1(Span_dynamic_req,Musical_req);
-
-void
-Span_dynamic_req::do_print()const
+bool
+Articulation_req::do_equal_b (Request const* r) const
{
-#ifndef NPRINT
- Span_req::do_print();
- mtor << "louder/louder: " <<dynamic_dir_i_;
-#endif
+ Articulation_req const* a = dynamic_cast<Articulation_req const*> (r);
+
+ return a && gh_equal_p (get_mus_property ("articulation-type"),
+ r->get_mus_property ("articulation-type"))
+ && get_direction () == a->get_direction ();
}
-IMPLEMENT_STATIC_NAME(Tie_req);
-IMPLEMENT_IS_TYPE_B1(Tie_req,Musical_req);