]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/staff-lines.ly
The grand \paper -> \layout, \bookpaper -> \paper renaming.
[lilypond.git] / input / test / staff-lines.ly
index 2e82997efad351247e92aa5cfd011fd256459bcc..5bb326096ad404ae76c81a6aa6c929b1f71d5b7a 100644 (file)
@@ -1,32 +1,34 @@
-\version "1.7.18"
+
+\version "2.3.22"
+
 \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"
+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 { }  
-  \midi { }  
-}%% new-chords-done %%
+    >>  
+    \new Staff  {
+       \override Staff.StaffSymbol  #'line-count = #4 
+        \clef bass
+        \lower
+    }
+  >>
+  \layout { raggedright=##t}  
+}