(outside_slur_callback): Use int in for loop;

[lilypond.git] / lily / slur.cc

diff --git a/lily/slur.cc b/lily/slur.cc
index a115f5303c93333c284182fa902dd4bf93ea7650..cde26695784ce002592e4a4630ece622ab41c044 100644 (file)
--- a/lily/slur.cc
+++ b/lily/slur.cc
@@ -17,7 +17,7 @@
 #include "group-interface.hh"
 #include "lily-guile.hh"
 #include "lookup.hh"
-#include "main.hh"
+#include "main.hh"             // DEBUG_SLUR_SCORING
 #include "note-column.hh"
 #include "output-def.hh"
 #include "rod.hh"
@@ -29,6 +29,7 @@
 #include "stencil.hh"
 #include "text-item.hh"
 #include "warn.hh"
+#include "slur-scoring.hh"
 
 MAKE_SCHEME_CALLBACK (Slur, height, 2);
 SCM
@@ -77,10 +78,10 @@ Slur::print (SCM smob)
     a = Lookup::slur (one, get_grob_direction (me) * base_thick * ss / 10.0,
                      thick);
 
-#if DEBUG_SLUR_QUANTING
+#if DEBUG_SLUR_SCORING
   SCM quant_score = me->get_property ("quant-score");
 
-  if (to_boolean (me->get_paper ()
+  if (to_boolean (me->get_layout ()
                  ->lookup_variable (ly_symbol2scm ("debug-slur-scoring")))
       && scm_is_string (quant_score))
     {
@@ -88,7 +89,7 @@ Slur::print (SCM smob)
       SCM properties = Font_interface::text_font_alist_chain (me);
 
       Stencil tm = *unsmob_stencil (Text_interface::interpret_markup
-                                   (me->get_paper ()->self_scm (), properties,
+                                   (me->get_layout ()->self_scm (), properties,
                                     quant_score));
       a.add_at_edge (Y_AXIS, get_grob_direction (me), tm, 1.0, 0);
     }
@@ -104,8 +105,8 @@ Slur::get_curve (Grob*me)
   Bezier b;
   int i = 0;
   for (SCM s = me->get_property ("control-points"); s != SCM_EOL;
-       s = ly_cdr (s))
-    b.control_[i++] = ly_scm2offset (ly_car (s));
+       s = scm_cdr (s))
+    b.control_[i++] = ly_scm2offset (scm_car (s));
 
   return b;
 }
@@ -154,6 +155,7 @@ Slur::outside_slur_callback (SCM grob, SCM axis)
   Real slur_padding = robust_scm2double (script->get_property ("slur-padding"),
                                         0.0);  // todo: slur property, script property?
   yext.widen (slur_padding);
+  Real EPS = 1e-3;
   
   Interval bezext (curve.control_[0][X_AXIS],
                   curve.control_[3][X_AXIS]);
@@ -163,16 +165,21 @@ Slur::outside_slur_callback (SCM grob, SCM axis)
   int k = 0;
   bool do_shift = false;
 
-  for (Direction d = LEFT ;  d <= RIGHT; d = Direction (d + 1))
+  for (int d = LEFT; d <= RIGHT; d++)
     {
-      Real x = xext.linear_combination (d);
+      Real x = xext.linear_combination ((Direction) d);
       consider[k] = bezext.contains (x);
 
       if (consider[k])
        {
-         ys[k] = curve.get_other_coordinate (X_AXIS, x);
+         ys[k]
+           = (fabs(bezext[LEFT] - x) < EPS)
+           ? curve.control_[0][Y_AXIS]
+           : ((fabs(bezext[RIGHT] - x) < EPS)
+              ? curve.control_[3][Y_AXIS]
+              : curve.get_other_coordinate (X_AXIS, x));
          consider[k] = true;
-
+         
          if (yext.contains (ys[k]))
            do_shift = true;
        }
@@ -182,11 +189,10 @@ Slur::outside_slur_callback (SCM grob, SCM axis)
     {
       k = 0;
       Direction dir = get_grob_direction (script);
-      for (Direction d = LEFT ;  d <= RIGHT; d = Direction (d + 1))
+      for (int d = LEFT; d <= RIGHT; d++)
        {
-         offset = 
-           dir * (dir * offset >? dir * (ys[k]
-                                         - yext[-dir] + dir * slur_padding));
+         offset = dir * (dir * offset >? dir
+                         * (ys[k] - yext[-dir] + dir * slur_padding));
          k++;
        }
     }
@@ -194,8 +200,47 @@ Slur::outside_slur_callback (SCM grob, SCM axis)
   return scm_make_real (offset);
 }
 
+static Direction
+get_default_dir (Grob*me)
+{
+  Link_array<Grob> encompasses
+    = Pointer_group_interface__extract_grobs (me, (Grob*) 0, "note-columns");
+
+  Direction d = DOWN;
+  for (int i= 0; i < encompasses.size (); i ++)
+    {
+      if (Note_column::dir (encompasses[i]) < 0)
+       {
+         d = UP;
+         break;
+       }
+    }
+  return d;
+}
+
+
+MAKE_SCHEME_CALLBACK (Slur, after_line_breaking,1);
+SCM
+Slur::after_line_breaking (SCM smob)
+{
+  Spanner *me = dynamic_cast<Spanner*> (unsmob_grob (smob));
+  if (!scm_ilength (me->get_property ("note-columns")))
+    {
+      me->suicide ();
+      return SCM_UNSPECIFIED;
+    }
+
+  if (!get_grob_direction (me))
+    set_grob_direction (me, get_default_dir (me));
+
+  if (scm_ilength (me->get_property ("control-points")) < 4)
+    set_slur_control_points (me);
+
+  return SCM_UNSPECIFIED;
+}
 
 ADD_INTERFACE (Slur, "slur-interface",
               "A slur",
               "quant-score excentricity encompass-objects control-points dashed slur-details direction height-limit note-columns ratio thickness");
 
+