Merge branch 'master' of ssh://hanwen@repo.or.cz/srv/git/lilypond into master-hanwen

[lilypond.git] / input / test / staff-lines.ly

diff --git a/input/test/staff-lines.ly b/input/test/staff-lines.ly
index abfdb46d73f4c9686961da580cefd1a868ddd404..bfca8e4b4fd85acbb5abc906d68a490274a88615 100644 (file)
--- a/input/test/staff-lines.ly
+++ b/input/test/staff-lines.ly
@@ -1,33 +1,34 @@
-#(ly:set-option 'old-relative)
-\version "1.9.0"
 
-\header { texidoc="@cindex Staff Lines
-Staff symbol property set workaround. "
+\version "2.7.39"
+
+\header {
+
+    texidoc="@cindex Staff Lines 
+The number of lines in a staff may changed by overriding @code{line-count}
+in the properties of @code{StaffSymbol}.
+"
+         
 }
 
 
-upper = \notes\relative c'' {
-  c1-"x" d-"x" e-"x" f-"x"
+upper = \relative c'' {
+  c1 d e f
 }
 
-lower = \notes\relative c {
-  c1-"x" b-"x" a-"x" g-"x"
+lower = \relative c {
+  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
-    >  
-  >
-  \paper { raggedright=##t}  
+    >>  
+    \new Staff  {
+       \override Staff.StaffSymbol  #'line-count = #4 
+        \clef bass
+        \lower
+    }
+  >>
+  \layout { ragged-right=##t}  
 }