release: 0.1.45

[lilypond.git] / lily / slur.cc

diff --git a/lily/slur.cc b/lily/slur.cc
index 1b7bb0f76a028a13d27da1cb8fbeebd4d8947802..88b2c6cc3378661071b2dd6b018bdaac21e8e447 100644 (file)
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -1,18 +1,16 @@
 /*
   slur.cc -- implement  Slur
 
-  source file of the LilyPond music typesetter
+  source file of the GNU LilyPond music typesetter
 
   (c) 1996, 1997 Han-Wen Nienhuys <hanwen@stack.nl>
 */
 
 /*
-
   TODO:
   
   think about crossing stems.
   Begin and end should be treated as a Script.
-  
  */
 #include "slur.hh"
 #include "scalar.hh"
@@ -25,65 +23,154 @@
 #include "debug.hh"
 #include "boxes.hh"
 
-
-
 void
-Slur::add(Note_column*n)
+Slur::add (Note_column*n)
 {
-    encompass_arr_.push(n);
-    add_dependency(n);
+  encompass_arr_.push (n);
+  add_dependency (n);
 }
 
 void
-Slur::set_default_dir()
+Slur::set_default_dir ()
 {
-    dir_i_ = -1;
-    for (int i=0; i < encompass_arr_.size(); i ++) {
-       if (encompass_arr_[i]->dir_i_ < 0) {
-           dir_i_ =1;
-           break;
+  dir_ = DOWN;
+  for (int i=0; i < encompass_arr_.size (); i ++) 
+    {
+      if (encompass_arr_[i]->dir_ < 0) 
+       {
+         dir_ = UP;
+         break;
        }
     }
 }
 
 void
-Slur::do_pre_processing()
+Slur::do_add_processing ()
 {
-    right_col_l_  = encompass_arr_.top()->pcol_l_;
-    left_col_l_ = encompass_arr_[0]->pcol_l_;    
+  set_bounds (LEFT, encompass_arr_[0]);    
+  if (encompass_arr_.size () > 1)
+    set_bounds (RIGHT, encompass_arr_.top ());
 }
 
-Spanner*
-Slur::do_break_at(PCol*l, PCol*r) const
+void
+Slur::do_pre_processing ()
 {
-    assert(l->line_l_ == r->line_l_);
-    Slur*ret = new Slur(*this);
+  // don't set directions
+}
 
-    ret->encompass_arr_.set_size(0);
-    for (int i =0; i < encompass_arr_.size(); i++) {
-       if (encompass_arr_[i]->pcol_l_->line_l_==l->line_l_)
-           ret->encompass_arr_.push(encompass_arr_[i]);
+void
+Slur::do_substitute_dependency (Score_elem*o, Score_elem*n)
+{
+  int i;
+  while ((i = encompass_arr_.find_i ((Note_column*)o->item ())) >=0) 
+    {
+      if (n)
+       encompass_arr_[i] = (Note_column*)n->item ();
+      else
+       encompass_arr_.del (i);
     }
+}
 
-    return ret;
+static int 
+Note_column_compare (Note_column *const&n1 , Note_column* const&n2)
+{
+  return Item::left_right_compare (n1, n2);
 }
 
 void
-Slur::do_post_processing()
+Slur::do_post_processing ()
+{
+  encompass_arr_.sort (Note_column_compare);
+  if (!dir_)
+    set_default_dir ();
+  Real interline_f = paper ()->interline_f ();
+  Real inter_f = interline_f / 2;
+
+  /* 
+   [OSU]: slur and tie placement
+
+   slurs:
+   * x = centre of head (upside-down: inner raakpunt stem) - d * gap
+
+   * y = length < 5ss : horizontal raakpunt + d * 0.25 ss
+     y = length >= 5ss : y next interline - d * 0.25 ss
+     --> height <= 5 length ?? we use <= 3 length, now...
+
+   * suggested gap = ss / 5;
+   */
+  // jcn: 1/5 seems so small?
+  Real gap_f = interline_f / 2; // 5;
+  
+  Drul_array<Note_column*> extrema;
+  extrema[LEFT] = encompass_arr_[0];
+  extrema[RIGHT] = encompass_arr_.top ();
+
+  Direction d=LEFT;
+  Real nw_f = paper ()->note_width ();
+ 
+  do 
+    {
+      if  (extrema[d] != spanned_drul_[d]) 
+       {
+         dx_f_drul_[d] = -d 
+           *(spanned_drul_[d]->width ().length () -0.5*nw_f);
+       }
+      else if (extrema[d]->stem_l_ && !extrema[d]->stem_l_->transparent_b_) 
+        {
+         dy_f_drul_[d] = (int)rint (extrema[d]->stem_l_->height ()[dir_]);
+         /* normal slur from notehead centre to notehead centre, minus gap */
+         dx_f_drul_[d] += -d * gap_f;
+       }
+      else 
+        {
+         dy_f_drul_[d] = (int)rint (extrema[d]->head_positions_interval ()[dir_])* inter_f;
+       }
+      dy_f_drul_[d] += dir_ * interline_f;
+    }
+  while ((d *= -1) != LEFT);
+}
+
+Real
+Slur::height_f () const
 {
-    if (!dir_i_)
-       set_default_dir();
-    Real inter_f = paper()->internote();
-    if (encompass_arr_[0]->stem_l_)
-        left_pos_i_ = encompass_arr_[0]->stem_l_->height()[dir_i_]/inter_f;
-    else
-        left_pos_i_ = 0;
-    if (encompass_arr_.top()->stem_l_)
-        right_pos_i_ = encompass_arr_.top()->stem_l_->height()[dir_i_]/inter_f;
-    else
-        right_pos_i_ = 0;
-
-    left_pos_i_ += dir_i_;
-    right_pos_i_ += dir_i_;
+  /*
+   rather braindead way that of adjusting slur height 
+   for heads/stems that extend beyond default slur
+   works quite good
+   */
+
+  Real interline_f = paper ()->interline_f ();
+  Real nh_f = interline_f / 2;
+  Real h = 0;
+  Real dx = width ().length ();
+  Real dy = dy_f_drul_[RIGHT] - dy_f_drul_[LEFT];
+  Stem* stem = encompass_arr_[0]->stem_l_;
+  Real lx = stem->hpos_f ();
+  Real centre = (width ().min () + width ().max ()) / 2;
+  Real ly = stem->dir_ == dir_ ? stem->stem_end_f () : stem->stem_begin_f () 
+    + dir_ * nh_f / 2;
+  for (int i = 0; i < encompass_arr_.size (); i++) 
+    {
+      Stem* stem = encompass_arr_[i]->stem_l_;
+      Real sx = abs (centre - stem->hpos_f ());
+      Real sy = stem->dir_ == dir_ ? stem->stem_end_f () 
+        : stem->stem_begin_f () + dir_ * nh_f / 2;
+      sy = dir_ * (sy - (ly + ((stem->hpos_f () - lx) / dx) * dy));
+      /*
+        uhm, correct for guess bezier curve (more if further from centre)
+        forget the cos alpha...
+       */
+      if (sy > 0)
+       h = h >? sy * (1 + 2 * sx / dx);
+    }
+  Real ratio = 1.0/3; // duh
+  /* 
+    correct h for slur ratio
+   */
+  Real staffheight = paper ()->get_var ("barsize");
+  if (h)
+    h *= ((h * interline_f) / dx ) / ratio;
+  return h;
 }
-IMPLEMENT_STATIC_NAME(Slur);
+
+IMPLEMENT_IS_TYPE_B1(Slur,Spanner);