Re: [PATCH] Corrected on_line for better ledger lines for different staffs.

[Kevin Dalley]

Kevin Dalley <address@hidden> writes:

> Here's a patch for problems with ledger lines when using
> line-positions.  

And here's the regression test I missed for the earlier patch.

>From 2d1ca459f4f2f85bab955025dae551f0d0f11d12 Mon Sep 17 00:00:00 2001
From: Kevin Dalley <address@hidden>
Date: Mon, 19 Mar 2007 05:52:37 -0700
Subject: [PATCH] Add regression test for ledger lines
for various staff layouts.
---
 input/regression/ledger-lines-varying-staffs.ly |   61 +++++++++++++++++++++++
 1 files changed, 61 insertions(+), 0 deletions(-)
 create mode 100644 input/regression/ledger-lines-varying-staffs.ly

diff --git a/input/regression/ledger-lines-varying-staffs.ly 
b/input/regression/ledger-lines-varying-staffs.ly
new file mode 100644
index 0000000..b81ce3b
--- /dev/null
+++ b/input/regression/ledger-lines-varying-staffs.ly
@@ -0,0 +1,61 @@
+\version "2.10"
+
+\header {
+  texidoc = "Ledger lines should appear at every other location for a variety 
of staff using both line-count and line-positions."
+}
+
+notes = {
+  \time 4/4
+  c'1
+  d'
+  e'1 f'1 g' a'1
+  b' c'' | d '' e'' f''  | g'' | a'' |
+}
+
+\new Staff \with {
+}
+{
+%upper and lower lines both odd
+  #(define mylines '(-1 0 1))
+  \override Staff.StaffSymbol #'line-count = #(length mylines)
+  \override Staff.StaffSymbol #'line-positions = #mylines
+
+  \notes
+}
+
+\new Staff \with {
+}
+{
+%upper and lower lines both even
+  #(define mylines '(-2 0 2))
+  \override Staff.StaffSymbol #'line-positions = #mylines
+
+  \override Staff.StaffSymbol #'line-count = #(length mylines)
+  \notes
+}
+
+\new Staff \with {
+}
+{
+%lower line odd, upper line even
+  #(define mylines '(-1 0 2))
+  \override Staff.StaffSymbol #'line-positions = #mylines
+
+  \override Staff.StaffSymbol #'line-count = #(length mylines)
+  \notes
+}
+
+\new Staff \with {
+}
+{
+%odd line count
+  \override Staff.StaffSymbol #'line-count = 5
+  \notes
+}
+\new Staff \with {
+}
+{
+%even line count
+  \override Staff.StaffSymbol #'line-count = 4
+  \notes
+}
-- 
1.5.0.3