(fill_pages): New method. Try to cramp or

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

diff --git a/input/test/staff-lines.ly b/input/test/staff-lines.ly
index 633e4339e1bc7be0c9d55fe1f1962bcb58856a95..42aa58f3fc1fb3a589d9b44fc621fa35db9cf36f 100644 (file)
--- a/input/test/staff-lines.ly
+++ b/input/test/staff-lines.ly
@@ -1,32 +1,34 @@
-\version "1.7.16"
+
+\version "2.1.30"
+
 \header {
-texidoc="staff symbol property set workaround"
+
+    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"
+  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
-    >  
-  >
-  \paper { }  
-  \midi { }  
-}%% new-chords-done %%
+    >>  
+    \new Staff  {
+       \override Staff.StaffSymbol  #'line-count = #4 
+        \clef bass
+        \lower
+    }
+  >>
+  \paper { raggedright=##t}  
+}