X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=input%2Ftest%2Fvertical-extent.ly;h=251f97f328c9d3b4179dda5949fc6ada36074ba8;hb=80bb174de95ebb8a08e5bdfae0855c525b8e7736;hp=40e7a0730a8cd8f4f1a5f367ed01c84798f64ea0;hpb=95e7eaeeffd28d3a32b3e32578e257197248456b;p=lilypond.git

diff --git a/input/test/vertical-extent.ly b/input/test/vertical-extent.ly
index 40e7a0730a..251f97f328 100644
--- a/input/test/vertical-extent.ly
+++ b/input/test/vertical-extent.ly
@@ -1,29 +1,27 @@
+\version "2.1.30"
+% TODO: huh?  what's this file about?  -gp
 
-\header { texidoc = "vertical extents may be overriden by
-verticalExtent, verticalExtent, verticalExtent. These are
-normal property values, and are written itno the grob when the
-associated context finishes, so using it in \property works.
-
- " }
-\version "1.5.68"
+\header { texidoc = "
+Vertical extents may increased by setting @code{minimumVerticalExtent}, 
+@code{extraVerticalExtent}, and @code{verticalExtent}. In this example,
+@code{verticalExtent} is increased.
+" }
 
 \score {
-  \notes  <
-    \context Staff = upper {
-      \property Staff.verticalExtent = #'(-15.0 . 0.0)
+  \notes  <<
+    \new Staff {
+      \set Staff.verticalExtent = #'(-15.0 . 0.0)
       \clef alto
-      c1 \break c1 
+      c1
     }
-    \context Staff = lower {
-      \property Staff.verticalExtent = #'(-0.0 . 15.0)
+    \new Staff {
+      \set Staff.verticalExtent = #'(-0.0 . 15.0)
       \clef alto
-      g1 \break g1 
+      g1
     }
-  >
+  >>
   \paper{
-    interscoreline = 13.0\mm
-    interscorelinefill = 0
-    \translator{\ScoreContext \remove "Bar_number_engraver"}
-    \translator{\StaffContext minimumVerticalExtent = #'(-2.0 . 2.0)}
+      raggedright = ##t
   }
 }
+