* scm/page-layout.scm (default-page-make-stencil): If leftmargin

[lilypond.git] / scm / page-layout.scm

diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index 3e9ec78197156bf32454908b0c61a490d8412219..4afd58b713c98265f7a8a5516c9925aafcddb4d8 100644 (file)
--- a/scm/page-layout.scm
+++ b/scm/page-layout.scm
@@ -127,11 +127,18 @@
      ((topmargin  (ly:output-def-lookup paper 'topmargin))
       
       ;; TODO: naming vsize/hsize not analogous to TeX.
+
       
-      (leftmargin (ly:output-def-lookup paper 'leftmargin))
-      (rightmargin (ly:output-def-lookup paper 'rightmargin))
       (vsize (ly:output-def-lookup paper 'vsize))
       (hsize (ly:output-def-lookup paper 'hsize))
+      
+      (lmargin (ly:output-def-lookup paper 'leftmargin))
+      (leftmargin (if lmargin
+                      lmargin
+                      (/ (- hsize
+                            (ly:output-def-lookup paper 'linewidth)) 2)))
+ 
+      (rightmargin (ly:output-def-lookup paper 'rightmargin))
       (bottom-edge (- vsize
                      (ly:output-def-lookup paper 'bottommargin)))