]> git.donarmstrong.com Git - lilypond.git/blobdiff - input/test/staff-size.ly
*** empty log message ***
[lilypond.git] / input / test / staff-size.ly
index 05d7cde1b1dd52777dcec3d6e9784c0553deded2..a8a4159b101d8793beabefaea09cf825152b8ae7 100644 (file)
@@ -1,36 +1,26 @@
-\version "1.7.18"
+\version "2.1.22"
 
 \header { texidoc = "@cindex Staff Size
 
-Setting staff sizes is a little clumsy.  There are two options: using
-@code{StaffContainer} and override/revert, or
-@code{\outputproperty}. Both methods are shown in this example. "
+For setting staff sizes, both @code{staff-space} and @code{fontSize}
+must be set."
 
 }
 
 \score {
-  \notes \relative c' < \context StaffContainer = SA{
-     \property StaffContainer.StaffSymbol \set #'staff-space = #(/ 16 20)
-
-       \property Staff.fontSize = #-1
-       \property Voice.fontSize = #-1
-       
-       \dynamicUp\stemDown
-
-       %\key gis \major
-       c8 d  e-[ f g a] b c -\ff
-  }
-
-\context Staff = SB \relative c'' { \dynamicDown c,,4 -\ff c c c  }
-\context Staff = SC {
-  \context Staff \outputproperty #(make-type-checker 'staff-symbol-interface)
-    #'staff-space =  #0.8
-  \property Staff.fontSize = #-1
-  \clef bass
-  c8 c c c  c c c c
-}
->
-\paper { raggedright = ##t}
+  \notes \relative c' <<
+      \new Staff \relative c'' {
+         \dynamicDown c,,4 \ff c c c
+      }
+      \new Staff \with {
+         fontSize = #-1
+         StaffSymbol \set #'staff-space = #(magstep -1)
+      } {
+         \clef bass
+         c8 c c c  c c c c
+      }
+  >>
+  \paper { raggedright = ##t}
 }