* scm/paper.scm (set-staff-size): new function: set default

[lilypond.git] / input / test / fill-a4.ly

diff --git a/input/test/fill-a4.ly b/input/test/fill-a4.ly
index ff82211fb2946acca79fc86362e25404c0154d9c..937e2a12b5f812209f2c3cade71c6d4cb20c39e0 100644 (file)
--- a/input/test/fill-a4.ly
+++ b/input/test/fill-a4.ly
@@ -1,24 +1,31 @@
-%
+\version "2.1.11"
+%possible rename to paper-fill-a4.ly -gp
+% candidate for reg -gp
+% Han says no, but keeping this comment temporarily so that I don't
+% forget and nominate it for reg again.  :)  -gp
+
 % test file to get a4 paper really filled,
 % without having to resort to the ever-ugly oversizing hack:
 %
 %   `textheight = 310.0\mm'
 %
-% process this file with ly2dvi, and make sure footskip/headsep are set
+% process this file with lilypond, and make sure footskip/headsep are set
 % at a reasonably (small) value.  -- jcn
 %
-\header{
-tagline="Ligly";
+\header{ texidoc="@cindex Paper a4 Fill
+This should fill a4 paper. "
 }
-\include "paper13.ly";
+
+#(set-staff-size 13)
+
 \score{
        \context Voice \notes\relative c'{
-               \clef alto;
+               \clef alto
                \repeat "unfold" 36 c1
        }
        \paper{
-               \paper_thirteen
-               indent = 0.0\mm;
+               \paperThirteen
+               indent = 0.0\mm
                % URG
                % Vertical space is rather precious when typesetting
                % music.  But we can only set textheight here, and must
@@ -26,12 +33,13 @@ tagline="Ligly";
                % footers.  If we want a header or footer on some page,
                % all other pages suffer shortened `textheight'.
                % Try the maximum for a4, without loosing footers:
-               textheight = 297.0\mm - 7.0\mm;
-               papersize = "a4";
-               linewidth = 15.0\mm;
+               textheight = 297.0\mm - 7.0\mm
+               papersize = "a4"
+               linewidth = 15.0\mm
                \translator {
                        \StaffContext
-                       StaffMinimumVerticalExtent = #(cons 0 0)
+                       minimumVerticalExtent = #(cons 0 0)
                }
        }
 }
+