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