Trivial stuff

[lilypond.git] / lily / slur-scoring.cc

diff --git a/lily/slur-scoring.cc b/lily/slur-scoring.cc
index f4b312e5bdad78f18f9b3723d7fa55c573b8b0ca..6371082b077676783487be3943a13b874407c919 100644 (file)
--- a/lily/slur-scoring.cc
+++ b/lily/slur-scoring.cc
@@ -354,8 +354,16 @@ Slur_score_state::get_best_curve ()
   bool debug_slurs = to_boolean (slur_->layout ()
                                 ->lookup_variable (ly_symbol2scm ("debug-slur-scoring")));
   SCM inspect_quants = slur_->get_property ("inspect-quants");
+  SCM inspect_index = slur_->get_property ("inspect-index");
   if (debug_slurs
-      && scm_is_pair (inspect_quants))
+      && scm_is_integer (inspect_index))
+    {
+      opt_idx = scm_to_int (inspect_index);
+      configurations_[opt_idx]->calculate_score (*this);
+      opt = configurations_[opt_idx]->score ();
+    }
+  else if (debug_slurs
+          && scm_is_pair (inspect_quants))
     {
       opt_idx = get_closest_index (inspect_quants);
       configurations_[opt_idx]->calculate_score (*this);
@@ -387,7 +395,6 @@ Slur_score_state::get_best_curve ()
        }
       else
        {
-         programming_error ("No optimal slur found. Guessing 0.");
          total = "no sol?";
        }
   
@@ -396,6 +403,12 @@ Slur_score_state::get_best_curve ()
     }
 #endif
 
+  if (opt_idx < 0)
+    {
+      opt_idx = 0;
+      programming_error ("No optimal slur found. Guessing 0.");
+    }
+  
   return configurations_[opt_idx]->curve_;
 }