From: Paul Morris <paulwmorris@gmail.com>
Date: Sat, 23 Apr 2016 20:28:27 +0000 (-0400)
Subject: Issue 4828/3: Add regtest for custom ledger positions
X-Git-Tag: release/2.19.42-1~19^2~6
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=d773074cfc3eb6dd93664ac15d60c5dfa902a576;p=lilypond.git

Issue 4828/3: Add regtest for custom ledger positions
---

diff --git a/input/regression/ledger-positions-customization.ly b/input/regression/ledger-positions-customization.ly
new file mode 100644
index 0000000000..9fd2fc0d49
--- /dev/null
+++ b/input/regression/ledger-positions-customization.ly
@@ -0,0 +1,27 @@
+
+\header {
+
+texidoc = "3 ways to customize ledger line positions."
+
+}
+
+\version "2.19.41"
+\paper { ragged-right = ##t }
+
+\relative {
+  \override Staff.StaffSymbol.ledger-positions = #'(7 10)
+  f''4 g a b c d e f g a b c
+}
+
+\relative {
+  % note: the scheme procedure (lambda expression) is quoted
+  \override Staff.StaffSymbol.ledger-positions-function =
+    #'(lambda (staff-symbol-grob pos) (list pos))
+  c'''4 d e f
+}
+
+\relative {
+  c'''4
+  \once \override NoteHead.ledger-positions = #'(8 10 12 14)
+  d e f
+}