]> git.donarmstrong.com Git - lilypond.git/blob - input/test/staff-lines.ly
406dd5c3bb603cafebed0da2f6d686494ed2a98c
[lilypond.git] / input / test / staff-lines.ly
1
2 \version "1.9.8"
3
4 \header { texidoc="@cindex Staff Lines
5 Staff symbol property set workaround. "
6 }
7
8
9 upper = \notes\relative c'' {
10   c1-"x" d-"x" e-"x" f-"x"
11 }
12
13 lower = \notes\relative c {
14   c1-"x" b-"x" a-"x" g-"x"
15 }
16
17 \score {
18   \context PianoStaff <<
19     %\time 4/4
20     \new Staff <<
21       \upper
22     >>  
23     \new Staff <<
24       \clef bass
25       \lower
26       \applyoutput #(outputproperty-compatibility
27                      (make-type-checker 'staff-symbol-interface)
28                      'line-count  4)
29     >>  
30   >>
31   \paper { raggedright=##t}  
32 }