hairpin.cc: apply bound padding for lone hairpins.

Finish fixing issue 2130

diff --git a/lily/concurrent-hairpin-engraver.cc b/lily/concurrent-hairpin-engraver.cc
index 873e8b5994e01d9ca908bc800b365649f4656b89..5d04d258fe8fab77519367679f0544edd0561b38 100644 (file)
--- a/lily/concurrent-hairpin-engraver.cc
+++ b/lily/concurrent-hairpin-engraver.cc
@@ -75,8 +75,8 @@ Concurrent_hairpin_engraver::stop_translation_timestep ()
   if (arriving_hairpins_.size ())
     {
       if (arriving_hairpins_.size () > 1)
-        for (vsize i = 0; i < arriving_hairpins_.size (); i++)
-          for (vsize j = i; j < arriving_hairpins_.size (); j++)
+        for (vsize i = 0; i < arriving_hairpins_.size () - 1; i++)
+          for (vsize j = i + 1; j < arriving_hairpins_.size (); j++)
             {
               Pointer_group_interface::add_grob (arriving_hairpins_[i], ly_symbol2scm ("concurrent-hairpins"), arriving_hairpins_[j]);
               Pointer_group_interface::add_grob (arriving_hairpins_[j], ly_symbol2scm ("concurrent-hairpins"), arriving_hairpins_[i]);

diff --git a/lily/hairpin.cc b/lily/hairpin.cc
index 4ccce328b856f15f8f2c18ce352f3ef778f4afe7..bf590a564bbbf9d0f1b742bdfeebd2ac6338081d 100644 (file)
--- a/lily/hairpin.cc
+++ b/lily/hairpin.cc
@@ -176,7 +176,8 @@ Hairpin::print (SCM smob)
             x_points[d] = e[-d];
           else
             {
-              Real broken_bound_padding = 0.0;
+              Real broken_bound_padding
+                = robust_scm2double (me->get_property ("broken-bound-padding"), 0.0);
               extract_grob_set (me, "concurrent-hairpins", chp);
               for (vsize i = 0; i < chp.size (); i++)
                 {