add test staff-ledger-positions-dotted-notes.ly

Issue 4040 (patch 2 of 2)

tests positioning of dots on dotted notes with
custom ledger line positions

diff --git a/input/regression/staff-ledger-positions-dotted-notes.ly b/input/regression/staff-ledger-positions-dotted-notes.ly
new file mode 100644 (file)
index 0000000..3237af9
--- /dev/null
+++ b/input/regression/staff-ledger-positions-dotted-notes.ly
@@ -0,0 +1,16 @@
+\header {
+
+  texidoc = "When the vertical positions of ledger lines have been
+customized by setting the @code{ledger-positions} property of the
+StaffSymbol, and a dotted note falls on a ledger line, the dot is shifted
+up to avoid the ledger line (just as with uncustomized ledger lines)."
+}
+
+\version "2.19.17"
+
+\new Staff \relative c' {
+  \override Staff.StaffSymbol.line-positions = #'(-3 0 3)
+  \override Staff.StaffSymbol.ledger-positions = #'(-3 0)
+  \override Staff.StaffSymbol.ledger-extra = #1
+  f,4. g a b c d g' a b c d e
+}