Tweak default values for beamlet lengths.

diff --git a/lily/beam.cc b/lily/beam.cc
index 46ed26ba6604bab63e8c939708d53d1b87ee5ad0..b962fde7765067ce397c00cb14e7828728b3aafc 100644 (file)
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -468,9 +468,9 @@ Beam::get_beam_segments (Grob *me_grob, Grob **common)
                    {
                      Grob *stem = stems[seg.stem_index_];
                      Drul_array<Real> beamlet_length =
-                       robust_scm2interval (stem->get_property ("beamlet-default-length"), Interval (1.0, 1.0));
+                       robust_scm2interval (stem->get_property ("beamlet-default-length"), Interval (1.1, 1.1));
                      Drul_array<Real> max_proportion =
-                       robust_scm2interval (stem->get_property ("beamlet-max-length-proportion"), Interval (0.5, 0.5));
+                       robust_scm2interval (stem->get_property ("beamlet-max-length-proportion"), Interval (0.75, 0.75));
                      Real length = beamlet_length[seg.dir_];
 
                      if (inside_stem)

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index e32cd6a7218ce47a3cdb4ee2f37ce7f428a8f365..60e4a3e8fb3b4cf4fb72840c9e99f1b908d0b523 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -1638,8 +1638,8 @@
        (thickness . 1.3)
        (cross-staff . ,ly:stem::calc-cross-staff)
        (flag . ,ly:stem::calc-flag)
-       (beamlet-default-length . (1.0 . 1.0))
-       (beamlet-max-length-proportion . (0.5 . 0.5))
+       (beamlet-default-length . (1.1 . 1.1))
+       (beamlet-max-length-proportion . (0.75 . 0.75))
        (details
         . (
            ;; 3.5 (or 3 measured from note head) is standard length