input/regression/accidental-unbroken-tie-spacing.ly

   1
   2 \header {
   3 texidoc = "Space is allowed for the actual size of accidentals on tied notes."
   4 }
   5
   6 \version "2.19.21"
   7 \paper {ragged-right = ##t }
   8 \relative {
   9   \clef treble
  10   \time 3/4
  11   c'8 b2  <g b des f>8 ~ |
  12   <g b des f>8 r
  13   % Large accidental
  14   \override Staff.Accidental.stencil =
  15   #(lambda (g)
  16      (let ((alt (ly:grob-property g 'alteration)))
  17        (grob-interpret-markup g
  18          (make-circle-markup (number->string alt)))))
  19   bes4 ~ bes ~ | bes ~ bes bes ~ | \break
  20   bes ~ bes bes
  21 }
  22