X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fstaff-size.ly;h=ca02169a75e4db24cb858dff3bee2e3ceea1763b;hb=d9b0ecea8fe504411ab0832ebbe33fd1dbfe818f;hp=40db541ff0e4b694a509782bfcfcc9c0fb0d967e;hpb=78ed9c22a8cbf56ff5390553e0a2854aa42cbbc5;p=lilypond.git

diff --git a/input/test/staff-size.ly b/input/test/staff-size.ly
index 40db541ff0..ca02169a75 100644
--- a/input/test/staff-size.ly
+++ b/input/test/staff-size.ly
@@ -1,17 +1,36 @@
+#(ly:set-option 'old-relative)
+\version "1.9.8"
+
+\header { texidoc = "@cindex Staff Size
+
+Setting staff sizes is a little clumsy.  There are two options: using
+@code{StaffContainer} and override/revert, or
+@code{\applyoutput}. Both methods are shown in this example. "
+
+}
+
 \score {
-  \notes \relative c' < \context Voice {
-	\property Staff.staffLineLeading = "4"
-	\property Staff.fontSize = "-1"
-	\property Voice.fontSize = "-1"	
+  \notes \relative c' << \new StaffContainer {
+     \property StaffContainer.StaffSymbol \set #'staff-space = #(/ 16 20)
+
+	\property Staff.fontSize = #-1
+	\property Voice.fontSize = #-1
 	
-	\property Voice . dynamicDir = \up \stemdown
-%\key gis;
-	c8 d [e f g a] b c \ff
-  }
+	\dynamicUp\stemDown
 
-\context Staff = VB {  \property Voice . dynamicDir = \down c,,4 \ff c c c  }
+	%\key gis \major
+	c8 d  e[ f g a] b c \ff
+  }
 
->
-\paper { linewidth = -1.; }
+\new Staff \relative c'' { \dynamicDown c,,4 \ff c c c  }
+\new Staff {
+  \context Staff \applyoutput #(outputproperty-compatibility (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}
 }
-\version "1.1.52"; 
+
+