Beams: be transparent if the first stem is transparent; issue 2866

so that \hideNotes does not hide automatic beams that could have,
but did not, start on a hidden note.

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 85ae984374b58e02894c76b4eb042ced9482e096..8ea9cdbead38f52dadc61e7909407716b4f6da4e 100644 (file)
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -263,16 +263,15 @@ hideNotes = {
   \override Dots.transparent = ##t
   \override NoteHead.transparent = ##t
   \override NoteHead.no-ledgers = ##t
+  % assume that any Beam inherits transparency from its parent Stem
   \override Stem.transparent = ##t
   \override Flag.transparent = ##t
-  \override Beam.transparent = ##t
   \override Accidental.transparent = ##t
   \override Rest.transparent = ##t
   \override TabNoteHead.transparent = ##t
 }
 unHideNotes = {
   \revert Accidental.transparent
-  \revert Beam.transparent
   \revert Stem.transparent
   \revert Flag.transparent
   \revert NoteHead.transparent

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 9ab189d16cae1705e6e40ad2ab97856836ec881d..6f169978a4b4025e69afbba0a23ea4655b6ec48c 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -409,6 +409,8 @@
        (positions . ,beam::place-broken-parts-individually)
        (springs-and-rods . ,ly:beam::calc-springs-and-rods)
        (X-positions . ,ly:beam::calc-x-positions)
+        (transparent . ,(grob::inherit-parent-property
+                         X 'transparent))
 
        ;; this is a hack to set stem lengths, if positions is set.
        (quantized-positions . ,ly:beam::set-stem-lengths)

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 16e035bcbbe1ea71b1afc0ae6869d238f7675837..b08ecb7fab13958552ee86cf640cd128b6f04862 100644 (file)
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -1945,7 +1945,7 @@ base onto the following musical context."
                 (blot (ly:output-def-lookup layout 'blot-diameter)))
            ; Hide spanned stems
            (map (lambda (st)
-                  (set! (ly:grob-property st 'transparent) #t))
+                  (set! (ly:grob-property st 'stencil) #f))
              stems)
            ; Draw a nice looking stem with rounded corners
            (ly:round-filled-box (ly:grob-extent root root X) yextent blot))