X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusical-request.cc;h=c4a58d0ed206c40fc26b42302826992738288948;hb=d765f3af45be51f15da55cf570a4b172200e1035;hp=c2d0d0450a5f13504e2868c63237c0a85121c886;hpb=6bc0a8a090e82c4bce57df8e980b48cc78cb422b;p=lilypond.git

diff --git a/lily/musical-request.cc b/lily/musical-request.cc
index c2d0d0450a..c4a58d0ed2 100644
--- a/lily/musical-request.cc
+++ b/lily/musical-request.cc
@@ -3,473 +3,105 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1997--1998 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 "warn.hh"
 #include "music-list.hh"
 
 
-
-IMPLEMENT_IS_TYPE_B1 (Musical_req,Request);
-void
-Musical_req::do_print () const{}
-void
-Tie_req::do_print () const{}
-
-
-/* *************** */
-
-
-
-
-IMPLEMENT_IS_TYPE_B1 (Span_req,Musical_req);
-
-void
-Span_req::do_print () const
-{
-#ifndef NPRINT
-  DOUT << spantype ;
-#endif
-}
-
-IMPLEMENT_IS_TYPE_B1 (Spacing_req,Request);
-
-Spacing_req::Spacing_req ()
-{
-  next = 0;
-  distance = 0;
-  strength = 0;
-}
-
-void
-Spacing_req::do_print () const
-{
-#ifndef NPRINT
-  DOUT << "next " << next << "dist " << distance << "strength\n";
-#endif
-}
-
-IMPLEMENT_IS_TYPE_B1 (Abbreviation_req, Musical_req);
-
-Abbreviation_req::Abbreviation_req ()
-{
-  type_i_ = 0;
-}
-
-void
-Abbreviation_req::do_print () const
+Tremolo_req::Tremolo_req ()
 {
-#ifndef NPRINT
-  DOUT << "type " << type_i_ << "\n";
-#endif
 }
 
-
-IMPLEMENT_IS_TYPE_B2 (Blank_req,Spacing_req,Rhythmic_req);
-
-void
-Blank_req::do_print () const
-{
-  Spacing_req::do_print ();
-}
-/* *************** */
-
-Melodic_req::Melodic_req ()
-{
-}
-
-void
-Melodic_req::transpose (Musical_pitch delta)
-{
-  pitch_.transpose (delta);
-  
-  if (abs (pitch_.accidental_i_) > 2)
-    {
-	warning (_ ("transposition by ") + delta.str () + _(" 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)
-{
-  return Musical_pitch::compare (m1.pitch_, m2.pitch_);
-}
-
-void
-Melodic_req::do_print () const
-{
-pitch_.print ();
-}
-
-/* *************** */
-int
-Rhythmic_req::compare (Rhythmic_req const &r1, Rhythmic_req const &r2)
+Melodic_req::do_equal_b (Request const* r) const
 {
-  return (r1.duration () - r2.duration ());
+  Melodic_req const* m= dynamic_cast <Melodic_req const*> (r);
+  return m; // && !compare (*m, *this);
 }
 
 bool
-Rhythmic_req::do_equal_b (Request*r) const
-{
-  Rhythmic_req* rh = r->musical ()->rhythmic ();
-
-  return !compare (*this, *rh);
-}
-
-void
-Rhythmic_req::set_duration (Duration d)
-{
-  duration_ = d;
-}
-
-Rhythmic_req::Rhythmic_req ()
+Rhythmic_req::do_equal_b (Request const* r) const
 {
-}
-
+  Rhythmic_req const* rh = dynamic_cast <Rhythmic_req const*> (r);
 
-IMPLEMENT_IS_TYPE_B1 (Rhythmic_req,Musical_req);
-
-void
-Rhythmic_req::do_print () const
-{
-#ifndef NPRINT
-  DOUT << "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)
+Rhythmic_req::length_mom () const
 {
-  def_p->align_i_ = CENTER;	// 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 ();
-}
-
-/* *************** */
-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
-{
-#ifndef NPRINT
-  Melodic_req::do_print ();
-  if (forceacc_b_)
+  Duration *d = unsmob_duration (get_mus_property ("duration"));
+  if (!d)
     {
-	DOUT << " force accidental\n";
+      Moment m ;
+      programming_error("Rhythmic_req has no duration");
+      return m;
     }
-  Rhythmic_req::do_print ();
-#endif
-}
-/* *************** */
-
-IMPLEMENT_IS_TYPE_B1 (Rest_req, Rhythmic_req);
-
-void
-Rest_req::do_print () const
-{
-      Rhythmic_req::do_print ();
+  return d->length_mom ();
 }
 
-/* *************** */
-
-
-
-IMPLEMENT_IS_TYPE_B1 (Multi_measure_rest_req, Rhythmic_req);
-
 void
-Multi_measure_rest_req::do_print () const
-{
-      Rhythmic_req::do_print ();
-}
-
-
-/* *************** */
-
-IMPLEMENT_IS_TYPE_B1 (Beam_req,Span_req);
-
-Beam_req::Beam_req ()
+Rhythmic_req::compress (Moment m)
 {
+  Duration *d =  unsmob_duration (get_mus_property ("duration"));
+  if (d)
+    set_mus_property ("duration", d ->compressed (m.main_part_).smobbed_copy ());
 }
 
-void
-Beam_req::do_print () const
-{
-}
-
-/* *************** */
-
-IMPLEMENT_IS_TYPE_B1 (Abbreviation_beam_req, Span_req);
-
-Abbreviation_beam_req::Abbreviation_beam_req ()
-{
-  type_i_ = 0;
-}
-
-void
-Abbreviation_beam_req::do_print () const
-{
-}
-
-IMPLEMENT_IS_TYPE_B1 (Slur_req,Span_req);
-void
-Slur_req::do_print () const
+bool
+Note_req::do_equal_b (Request const* r) const
 {
+  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_IS_TYPE_B1 (Plet_req,Span_req);
-
-Plet_req::Plet_req ()
-{
-  plet_i_ = 0;
-}
 
-void
-Plet_req::do_print () const
+Note_req::Note_req ()
 {
 }
 
-/* *************** */
 
 bool
-Span_req:: do_equal_b (Request*r) const
+Span_req::do_equal_b (Request const*r) const
 {
-  Span_req * s = r->span ();
-  return spantype == s->spantype;
+  Span_req const* s = dynamic_cast <Span_req const*> (r);
+  return s && get_span_dir () == s->get_span_dir ();
 }
 
 Span_req::Span_req ()
 {
-  spantype = NOSPAN;
 }
 
-/* *************** */
-Script_req::Script_req (Script_req const&s)
-{
-  dir_ = s.dir_;
-  scriptdef_p_ = s.scriptdef_p_ ? s.scriptdef_p_->clone () : 0;
-}
-
-/*
-  don't check dirs?
 
-  (d1.dir_ == d2.dir_)
- */
 bool
-Script_req::do_equal_b (Request*r) const
+Text_script_req::do_equal_b (Request const* r) const
 {
-  Script_req * s = r->script ();
-
-  return  scriptdef_p_->equal_b (*s->scriptdef_p_);
+  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"));
 }
 
-Script_req::Script_req ()
-{
-  dir_ = CENTER;
-  scriptdef_p_ = 0;
-}
-
-
-IMPLEMENT_IS_TYPE_B1 (Script_req,Request);
-
-void
-Script_req::do_print () const
-{
-#ifndef NPRINT
-  DOUT << " dir " << dir_ ;
-  scriptdef_p_->print ();
-#endif
-}
-
-void
-Musical_script_req::do_print () const
-{
-  Script_req::do_print ();
-}
-
-
-IMPLEMENT_IS_TYPE_B2 (Musical_script_req,Musical_req, Script_req);
-
-
-Script_req::~Script_req ()
-{
-  delete scriptdef_p_;
-}
-/* *************** */
-
-
-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_ = src.dir_;
-}
-
-Text_req::Text_req (int dir_i, Text_def* tdef_p)
-{
-  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
-Skip_req::do_print () const
-{
-#ifndef NPRINT
-
-  DOUT << "duration: " << duration ();
-#endif
-}
-
-
-
-IMPLEMENT_IS_TYPE_B1 (Dynamic_req,Musical_req);
-
-void
-Dynamic_req::do_print () const
-{
-  Musical_req::do_print ();
-}
-
-
-IMPLEMENT_IS_TYPE_B1 (Absolute_dynamic_req,Musical_req);
-
-void
-Absolute_dynamic_req::do_print () const
-{
-#ifndef NPRINT
-  Dynamic_req::do_print ();
-  DOUT << " loudness " <<loudness_str ();
-#endif
-}
-
-
 bool
-Absolute_dynamic_req::do_equal_b (Request *r) const
-{
-  Absolute_dynamic_req *a = r->musical ()->dynamic ()->absdynamic ();
-  return loudness_ == a->loudness_;
-}
-
-String
-Dynamic_req::loudness_static_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";
-    case FP: return "fp";
-    case SF: return "sf";
-    case SFZ: return "sfz";
-    }
-  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 ()
+String_number_req::do_equal_b (Request const* r) const
 {
-  loudness_ = MF;
+  String_number_req const* s  = dynamic_cast<String_number_req const*> (r);
+  return s && gh_equal_p (get_mus_property ("string"),
+			  s->get_mus_property ("string"));
 }
 
 
-Span_dynamic_req::Span_dynamic_req ()
-{
-  dynamic_dir_  = CENTER;
-}
-
-
-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 ();
-  DOUT << "softer/louder: " <<dynamic_dir_;
-#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_IS_TYPE_B1 (Tie_req,Musical_req);
+ADD_MUSIC(String_number_req);