X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Fregression%2Faccidental-unbroken-tie-spacing.ly;h=fc3e78c6e4c99615619f53c85694ab9d3700cb12;hb=b38989c86d64ef41025672f9bd2d2fcfd6cd700e;hp=9587d656d4fa02f1e320b1929f45e36ba63d7136;hpb=d6ea2dbcdb39dd65c7fd423782fa31ccbdaf34a9;p=lilypond.git

diff --git a/input/regression/accidental-unbroken-tie-spacing.ly b/input/regression/accidental-unbroken-tie-spacing.ly
index 9587d656d4..fc3e78c6e4 100644
--- a/input/regression/accidental-unbroken-tie-spacing.ly
+++ b/input/regression/accidental-unbroken-tie-spacing.ly
@@ -1,29 +1,22 @@
 
 \header {
-texidoc = "Tied accidentaled notes (which cause reminder accidentals) don't wreak havoc in
-the spacing when unbroken."
+texidoc = "Space is allowed for the actual size of accidentals on tied notes."
 }
 
-\version "1.9.1"
-\include "deutsch.ly"
-
-rechts = \notes \relative c' {
+\version "2.19.13"
+\paper {ragged-right = ##t }
+\relative c' {
   \clef treble
   \time 3/4
-  \context Voice {
-    c8 h2  <<g h des f>>8 ~ |
-    <<g h des f>>8
-  }
-}
-
-Rechts = \context Staff \notes {
-  rechts
+  c8 b2  <g b des f>8 ~ |
+  <g b des f>8 r
+  % Large accidental
+  \override Staff.Accidental.stencil =
+  #(lambda (g)
+     (let ((alt (ly:grob-property g 'alteration)))
+       (grob-interpret-markup g
+         (make-circle-markup (number->string alt)))))
+  bes4 ~ bes ~ | bes ~ bes bes ~ | \break
+  bes ~ bes bes
 }
 
-\score {
-  \rechts
-
-  \paper {
-    raggedright = ##t
-  }
-}