X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fstaff-size.ly;h=6abe3d17d895ae4b58a815e827a1f7aaf6107b32;hb=f7322110755e46623208fe6754805224c865d9ac;hp=2df82c477d66e9616118b74ebb479aea66202100;hpb=e9bd265943d37689b1a6892217cb6f67bbe69f73;p=lilypond.git

diff --git a/input/test/staff-size.ly b/input/test/staff-size.ly
index 2df82c477d..6abe3d17d8 100644
--- a/input/test/staff-size.ly
+++ b/input/test/staff-size.ly
@@ -1,37 +1,23 @@
-#(ly:set-option 'old-relative)
-\version "1.9.1"
+\version "2.10.0"
 
 \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. "
+In order to change staff sizes, both @code{staff-space} and @code{fontSize}
+must be scaled."
 
 }
 
-\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}
-}
+\layout { ragged-right = ##t}
+
+\relative c' <<
+%    \new Staff \relative c'' { \dynamicDown c4 \ff c c c }
+    \new Staff \with {
+	fontSize = #-3
+	\override StaffSymbol #'staff-space = #(magstep -3)
+    } {
+	\clef bass
+	c8 c c c  c c c c
+    }
+>>