release commit

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

diff --git a/scm/framework-tex.scm b/scm/framework-tex.scm
index 69d4a99ada1bd3cb4c18872c8e25c8ef9f05ce23..f19d0f2d8361e3cc650edc10f1d586019f6431b0 100644 (file)
--- a/scm/framework-tex.scm
+++ b/scm/framework-tex.scm
@@ -69,23 +69,25 @@
                     "{" (sanitize-tex-string str) "}%\n")))
 
 (define (header creator time-stamp bookpaper page-count classic?)
+  (let*
+      ((scale (ly:output-def-lookup bookpaper 'outputscale)))
+    
   (string-append
    "% Generated by " creator "\n"
    "% at " time-stamp "\n"
    (if classic?
        (tex-string-def "lilypond" 'classic "1")
        "")
-   ;; FIXME: duplicated in every backend
-   "\\def\\lilypondtagline{Engraved by LilyPond (version "
-   (lilypond-version)")}\n"
 
-   ;; FIXME
-   ;; this is -of course- severely broken, (--hwn)
    (tex-string-def  "lilypondpaper" 'linewidth
-                   (ly:number->string (/ 18 0.175))) ; 18 cm.
+                   (ly:number->string (* scale
+                                         (ly:output-def-lookup bookpaper 'linewidth))))
+
    (tex-string-def  "lilypondpaper" 'interscoreline
-                   (ly:number->string 0.0))
-   ))
+                   (ly:number->string
+                    (* scale
+                    (ly:output-def-lookup bookpaper 'interscoreline))))
+   )))
 
 (define (header-end)
   (string-append