Fix for beaming in Kievan notation

Implementing correct beaming functionality in Kievan notation

Fix for Issue 2492

diff --git a/lily/note-head.cc b/lily/note-head.cc
index fb93e40eeb82f02574c2fa670183d19054214fd6..287b10dc043a42ce8ebe613422a8c51fe916874b 100644 (file)
--- a/lily/note-head.cc
+++ b/lily/note-head.cc
@@ -80,6 +80,15 @@ internal_print (Grob *me, string *font_char)
         }
     }
 
+  if (style == "kievan"
+      && 3 == robust_scm2int (me->get_property ("duration-log"), 2))
+    {
+      Grob *stem = unsmob_grob (me->get_object ("stem"));
+      Grob *beam = unsmob_grob (stem->get_object ("beam"));
+      if (beam)
+        out = fm->find_by_name (idx_either + "2kievan");
+    }
+
   idx_either += suffix;
   if (out.is_empty ())
     {

diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 9bb731883cba5d9754fdc7c2030508b49bde06f4..b4a7008b8d4c1f7338557f4f0b0448285bb0b417 100644 (file)
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -1146,8 +1146,6 @@ accommodated for typesetting a piece in Kievan style."
 
  %% There are beams in Kievan notation, but they are invoked manually
  autoBeaming = ##f
- \override Beam #'beam-thickness = #0.32
- \override Beam #'length-fraction = #0.62
 }
 
 \context {