[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [PATCH] Corrected on_line for better ledger lines for different staf
From: |
Kevin Dalley |
Subject: |
Re: [PATCH] Corrected on_line for better ledger lines for different staffs. |
Date: |
Mon, 19 Mar 2007 06:05:44 -0700 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) XEmacs/21.4.19 (linux) |
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