Fix and elaborate on input/test/vertical-extent.ly (Thanks Mats).

[lilypond.git] / input / test / vertical-extent.ly

diff --git a/input/test/vertical-extent.ly b/input/test/vertical-extent.ly
index f6bcfa949a5e4a80fc3a4c832c08b9bc58653ecf..1d8aa9d366a5d6bfc0de93f586ef3db987da6f92 100644 (file)
--- a/input/test/vertical-extent.ly
+++ b/input/test/vertical-extent.ly
@@ -1,29 +1,37 @@
+\version "2.7.39"
+% TODO: huh?  what's this file about?  -gp
+% This file shows that Staffs can get a very deep or high; there is a lot
+% of room between the staffs. 
 
-\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.3.145";
+\header { texidoc = "
+Vertical extents may increased by setting @code{\override VerticalAxisGroup #'minimum-Y-extent}, 
+@code{extraVerticalExtent}, and @code{verticalExtent}. In this example,
+@code{verticalExtent} is increased.
+" }
 
 \score {
-  \notes  <
-    \context Staff = upper {
-      \property Staff.VerticalExtent = #'(-15.0 . 0.0)
-      \clef alto;
-      c1 \break c1 
+    <<
+    \new Staff {
+      \override Staff.VerticalAxisGroup #'Y-extent = #'(-15.0 . 0.0)
+      \clef alto
+      a1^"15-deep staff"
+    }
+    \new Staff {
+      \clef alto
+      b1
     }
-    \context Staff = lower {
-      \property Staff.VerticalExtent = #'(-0.0 . 15.0)
-      \clef alto;
-      g1 \break g1 
+    \new Staff {
+      \clef alto
+      c1
     }
-  >
-  \paper{
-    interscoreline = 13.0\mm;
-    interscorelinefill = 0;
-    \translator{\ScoreContext \remove "Bar_number_engraver";}
-    \translator{\StaffContext MinimumVerticalExtent = #'(-2.0 . 2.0)}
+    \new Staff {
+      \clef alto
+      \override Staff.VerticalAxisGroup #'Y-extent = #'(-0.0 . 10.0)
+      d1^"10-high staff"
+    }
+  >>
+  \layout{
+      ragged-right = ##t
   }
 }
+