]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/slur-scoring.cc
Fix some bugs in the dynamic engraver and PostScript backend
[lilypond.git] / lily / slur-scoring.cc
index 6371082b077676783487be3943a13b874407c919..f4b312e5bdad78f18f9b3723d7fa55c573b8b0ca 100644 (file)
@@ -354,16 +354,8 @@ 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_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))
+      && scm_is_pair (inspect_quants))
     {
       opt_idx = get_closest_index (inspect_quants);
       configurations_[opt_idx]->calculate_score (*this);
@@ -395,6 +387,7 @@ Slur_score_state::get_best_curve ()
        }
       else
        {
+         programming_error ("No optimal slur found. Guessing 0.");
          total = "no sol?";
        }
   
@@ -403,12 +396,6 @@ 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_;
 }