Fix #122.

Add Stem::is_normal_stem(), which disregards stemlet-length.  Use it
for concaveness/slope calculations.

diff --git a/input/regression/beam-slope-stemlet.ly b/input/regression/beam-slope-stemlet.ly
new file mode 100644 (file)
index 0000000..a0657e8
--- /dev/null
+++ b/input/regression/beam-slope-stemlet.ly
@@ -0,0 +1,22 @@
+
+\header {
+
+  texidoc = "For slope calculations, stemlets are treated
+as invisible stems."
+
+}
+
+\version "2.10.7"
+
+\layout {
+  ragged-right = ##t
+  indent = #0
+}
+
+\relative c' {
+  \times 2/3 {r8[ c' g']}
+  \override Stem #'stemlet-length = #0.5
+  \times 2/3 {r8[ c, g']}
+}
+
+

diff --git a/lily/beam-concave.cc b/lily/beam-concave.cc
index ee351d0a26739d2fba275b4615cd108b3bfad33b..a37005c17ca35e57d9a59e4cc9f2b73e5aebc9e3 100644 (file)
--- a/lily/beam-concave.cc
+++ b/lily/beam-concave.cc
@@ -96,13 +96,13 @@ Beam::calc_concaveness (SCM smob)
   Direction beam_dir = CENTER;
   for (vsize i = stems.size (); i--;)
     {
-      if (Stem::is_invisible (stems[i]))
-       stems.erase (stems.begin () + i);
-      else
+      if (Stem::is_normal_stem (stems[i]))
        {
          if (Direction dir = get_grob_direction (stems[i]))
            beam_dir = dir;
        }
+      else
+       stems.erase (stems.begin () + i);
     }
 
   if (stems.size () <= 2)

diff --git a/lily/beam.cc b/lily/beam.cc
index 58fd432493f3db625afa4a27138d6e3af7c05a93..a2e7a3cb9214a5ceecd79c0406f790049d50dba6 100644 (file)
--- a/lily/beam.cc
+++ b/lily/beam.cc
@@ -894,8 +894,9 @@ Beam::calc_least_squares_positions (SCM smob, SCM posns)
       for (vsize i = 0; i < stems.size (); i++)
        {
          Grob *s = stems[i];
-         if (Stem::is_invisible (s))
+         if (!Stem::is_normal_stem (s))
            continue;
+
          ideals.push_back (Offset (x_posns[i],
                               Stem::get_stem_info (s).ideal_y_
                               + s->relative_coordinate (commony, Y_AXIS)
@@ -1287,7 +1288,7 @@ Beam::first_visible_stem (Grob *me)
 
   for (vsize i = 0; i < stems.size (); i++)
     {
-      if (!Stem::is_invisible (stems[i]))
+      if (Stem::is_normal_stem (stems[i]))
        return stems[i];
     }
   return 0;
@@ -1300,7 +1301,7 @@ Beam::last_visible_stem (Grob *me)
 
   for (vsize i = stems.size (); i--;)
     {
-      if (!Stem::is_invisible (stems[i]))
+      if (Stem::is_normal_stem (stems[i]))
        return stems[i];
     }
   return 0;

diff --git a/lily/include/stem.hh b/lily/include/stem.hh
index 8808d16665576eec2b82a9786684e911945cd78e..b3663b6eeeef3046ff6e655708b8f87a7950f486 100644 (file)
--- a/lily/include/stem.hh
+++ b/lily/include/stem.hh
@@ -33,6 +33,7 @@ public:
   static Real thickness (Grob *);
   static int head_count (Grob *);
   static bool is_invisible (Grob *);
+  static bool is_normal_stem (Grob *);
   static Interval head_positions (Grob *);
   static Real stem_end_position (Grob *);
   static Stencil flag (Grob *);

diff --git a/lily/stem.cc b/lily/stem.cc
index d333690491c6d98de4d1e85bb21688afb96728f8..6757582869960d15ecd600493113f6af459a225c 100644 (file)
--- a/lily/stem.cc
+++ b/lily/stem.cc
@@ -222,6 +222,14 @@ Stem::is_invisible (Grob *me)
           && scm_to_int (me->get_property ("duration-log")) >= 1);
 }
 
+
+bool
+Stem::is_normal_stem (Grob *me)
+{
+  return head_count (me) && scm_to_int (me->get_property ("duration-log")) >= 1;
+}
+
+
 MAKE_SCHEME_CALLBACK (Stem, pure_height, 3)
 SCM
 Stem::pure_height (SCM smob, SCM start, SCM end)