(seconds): print desired

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

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 6787a0d04c8534c7843845496513b8ed265137cc..7753ec07edf84281c570ba6e2ea0c6e8289abb27 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -42,7 +42,9 @@
      (if (not coding-command) "" (string-append "e" coding-command)))))
 
 (define (tex-font? fontname)
-  (equal? (substring fontname 0 2) "cm"))
+  (or
+   (equal? (substring fontname 0 2) "cm")
+   (equal? (substring fontname 0 2) "ec")))
 
 (define (load-fonts bookpaper)
   (let* ((fonts (ly:bookpaper-fonts bookpaper))
@@ -165,8 +167,8 @@
   (ly:outputter-dump-stencil outputter page)
   (ly:outputter-dump-string outputter "} stop-system \nshowpage\n"))
 
-(define-public (output-framework-ps outputter book scopes fields basename)
-  (let* ((bookpaper  (ly:paper-book-book-paper book))
+(define-public (output-framework outputter book scopes fields basename)
+  (let* ((bookpaper (ly:paper-book-book-paper book))
         (pages (ly:paper-book-pages book))
         (page-number 0)
         (page-count (length pages)))
@@ -195,11 +197,12 @@
    pages)
   (ly:outputter-dump-string outputter "%%Trailer\n%%EOF\n")))
 
-(define-public (output-classic-framework-ps outputter book scopes fields
+(define-public (output-classic-framework outputter book scopes fields
                                            basename)
   (let* ((bookpaper (ly:paper-book-book-paper book))
         (lines (ly:paper-book-lines book))
         (y 0.0)
+        ;; What the F*** is 2.83463?
         (scale (* 2.83464 (ly:output-def-lookup bookpaper 'outputscale)))
         (total-y
          (apply + (map (lambda (z) (ly:paper-system-extent z Y)) lines)))