-#(ly:set-option 'old-relative)
-\version "1.9.0"
-\header { texidoc="@cindex Staff Lines
-Staff symbol property set workaround. "
+\version "2.1.7"
+
+\header {
+
+ texidoc="@cindex Staff Lines Staff symbol properties may also be
+ set with @code{\\property}. "
+
}
upper = \notes\relative c'' {
- c1-"x" d-"x" e-"x" f-"x"
+ c1 d e f
}
lower = \notes\relative c {
- c1-"x" b-"x" a-"x" g-"x"
+ c1 b a g
}
\score {
- \context PianoStaff <
- %\time 4/4
- \context Staff = upper <
+ \context PianoStaff <<
+ \new Staff <<
\upper
- \outputproperty #(make-type-checker 'staff-symbol-interface)
- #'line-count = #5
- >
- \context Staff = lower <
- \clef bass
- \lower
- \outputproperty #(make-type-checker 'staff-symbol-interface)
- #'line-count = #4
- >
- >
+ >>
+ \new Staff {
+ \property Staff.StaffSymbol \set #'line-count = #4
+ \clef bass
+ \lower
+ }
+ >>
\paper { raggedright=##t}
}