* scm/framework-tex.scm (dump-line): Fix dimensions for \lybox.

[lilypond.git] / scm / framework-tex.scm

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 048dc3f996a491dcbb9d0f955f8e35b93d23522a..20a04f5a1611eeed6f8d83feb639b74a6cf86b2a 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -202,13 +202,11 @@
 (define (dump-line putter line last?)
   (ly:outputter-dump-string
    putter
-   (string-append "\\lybox{"
-                 (ly:number->string
-                  (interval-length (ly:paper-system-extent line X)))
-                 "}{"
-                 (ly:number->string
-                  (interval-length (ly:paper-system-extent line Y)))
-                 "}{%\n"))
+   (format "\\lybox{~a}{~a}{%\n"
+          (ly:number->string
+           (max 0 (interval-end (ly:paper-system-extent line X))))
+          (ly:number->string
+           (interval-length (ly:paper-system-extent line Y)))))
 
   (ly:outputter-dump-stencil putter (ly:paper-system-stencil line))
   (ly:outputter-dump-string