X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fmusical-request.cc;h=d24721587661cea36a26773704d7904d8b199e30;hb=7bfd28ec3876ca0adff5fe9e574ade748a3191af;hp=bf1b56c44c1785334fed7d31a1a02a184722307d;hpb=01ddcb81463d7a68530971100469d3e2baf8c94b;p=lilypond.git

diff --git a/lily/musical-request.cc b/lily/musical-request.cc
index bf1b56c44c..d247215876 100644
--- a/lily/musical-request.cc
+++ b/lily/musical-request.cc
@@ -1,7 +1,7 @@
 /*
   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>
 */
@@ -11,343 +11,427 @@
 #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{}
+
 
 /* *************** */
 
+
+
+
+IMPLEMENT_IS_TYPE_B1(Span_req,Musical_req);
+
 void
-Request::print() const
+Span_req::do_print() const
 {
 #ifndef NPRINT
-    mtor << name() << " {";
-    do_print();
-    mtor << "}\n";
+  DOUT << spantype ;
 #endif
 }
-     
 
+IMPLEMENT_IS_TYPE_B1(Spacing_req,Request);
+
+Spacing_req::Spacing_req()
+{
+  next = 0;
+  distance = 0;
+  strength = 0;
+}
 
 void
-Span_req::do_print() const    
+Spacing_req::do_print() const
 {
 #ifndef NPRINT
-    mtor  << spantype ;
+  DOUT << "next " << next << "dist " << distance << "strength\n";
 #endif
 }
 
-Request::Request()
-{
-    elt_l_ = 0;
-    defined_ch_c_l_ = 0;
-}
-Request::Request(Request const&src)
-{
-    elt_l_ = 0;
-    defined_ch_c_l_ = src.defined_ch_c_l_;
-}
-/* *************** */
-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;
+  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
 {
 #ifndef NPRINT
-	mtor << "notename: " << notename_i_ << " acc: " <<accidental_i_<<" oct: "<< octave_i_;
+  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
 {
-#ifndef NPRINT
-    mtor << "plet: " << type_c_ << ": " << dur_i_ << "/" << type_i_;
-#endif
-}
+  Rhythmic_req* rh = r->musical()->rhythmic ();
 
-/* *************** */
-int
-Rhythmic_req::compare(Rhythmic_req const &r1, Rhythmic_req const &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
 {
 #ifndef NPRINT
-    mtor << "ball: " << balltype ;
-    int d =dots;
-    while (d--)
-	mtor << '.';
-    
-    mtor<<", plet factor"<<plet_factor<<"\n";
+  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;
+  forceacc_b_ = false;
 }
+
+IMPLEMENT_IS_TYPE_B2(Note_req,Melodic_req,Rhythmic_req);
+
 void
 Note_req::do_print() const
 {
 #ifndef NPRINT
-    mtor << " forceacc_b_ " << forceacc_b_ << '\n';
-    Melodic_req::do_print();
-    Rhythmic_req::do_print();
+  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;
+  nplet = 0;
+}
+
+void
+Beam_req::do_print() const
+{
 }
 
-void Beam_req::do_print()const{}
 /* *************** */
-void Slur_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
+{
+}
+
 /* *************** */
-int
-Span_req:: compare(Span_req const &r1, Span_req const &r2)
+
+bool
+Span_req:: do_equal_b (Request*r) const
 {
-     return r1.spantype - r2.spantype;
+  Span_req * s = r->span();
+  return spantype - s->spantype;
 }
 
 Span_req::Span_req()
 {
-    spantype = NOSPAN;
+  spantype = NOSPAN;
 }
 
 /* *************** */
-Script_req::Script_req(int d , Script_def*def)
+Script_req::Script_req (Script_req const&s)
 {
-    dir_i_ = d;
-    scriptdef_p_ = def;
+  dir_ = s.dir_;
+  scriptdef_p_ = s.scriptdef_p_ ? s.scriptdef_p_->clone() : 0;
 }
 
-int
-Script_req::compare(Script_req const &d1, Script_req const &d2)
+/*
+  don't check dirs?
+
+  (d1.dir_ == d2.dir_)
+ */
+bool
+Script_req::do_equal_b (Request*r) const
 {
-    return d1.dir_i_ == d2.dir_i_ &&
-	d1.scriptdef_p_->compare(*d2.scriptdef_p_);
+  Script_req * s = r->script();
+
+  return  scriptdef_p_->equal_b (*s->scriptdef_p_);
 }
 
-Script_req::Script_req(Script_req const &s)
-    : Request( s )
+Script_req::Script_req()
 {
-    dir_i_ = s.dir_i_;
-    scriptdef_p_ = new Script_def(*s.scriptdef_p_);
+  dir_ = CENTER;
+  scriptdef_p_ = 0;
 }
 
+
+IMPLEMENT_IS_TYPE_B1(Script_req,Request);
+
 void
 Script_req::do_print() const
 {
-    mtor << " dir " << dir_i_ ;
-    scriptdef_p_->print();
+#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_;
+  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_ ->compare(*r2.tdef_p_));
-    return b1 && b2;
-}
+
+
 Text_req::~Text_req()
 {
-    delete tdef_p_;
-    tdef_p_ = 0;
+  delete tdef_p_;
+  tdef_p_ = 0;
 }
 
-Text_req::Text_req(Text_req const& src)
+Text_req::Text_req (Text_req const& src)
 {
-    tdef_p_ = new Text_def(*src.tdef_p_);
-    dir_i_ = src.dir_i_;
+  tdef_p_ = new Text_def (*src.tdef_p_);
+  dir_ = src.dir_;
 }
 
-Text_req::Text_req(int dir_i, Text_def* tdef_p)	
+Text_req::Text_req (int dir_i, Text_def* tdef_p)
 {
-    dir_i_ = dir_i;
-    tdef_p_ = 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
-
-    mtor << " dir " << dir_i_ ;
-    tdef_p_->print();
+  DOUT << " dir " << dir_ ;
+  tdef_p_->print();
 #endif
 }
 
 /* *************** */
 
-Moment
-Skip_req::duration() const
-{
-    return duration_;
-}
+
+IMPLEMENT_IS_TYPE_B1(Skip_req,Musical_req);
 
 void
 Skip_req::do_print() const
 {
 #ifndef NPRINT
 
-    mtor << "duration: " << duration();
+  DOUT << "duration: " << duration();
 #endif
 }
 
-Voice *
-Request::voice_l()
-{
-    if (!elt_l_)
-	return 0;
-    else
-	return (Voice*)elt_l_->voice_l_;
-}
-/* *************** */
 
-void
-Subtle_req::do_print() const
-{
-#ifndef NPRINT
-	mtor << " subtime " <<  subtime_;
-#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";
@@ -356,27 +440,49 @@ Dynamic_req::loudness_str(Loudness l)
     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);