* scm/framework-ps.scm:

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

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index 5e8581ecfe26425defa7c5bffd8b9597f41ab258..65fa29194422afe5f2e4cc7a2fc66b0399919a30 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -42,8 +42,10 @@
   (define font-list (ly:paper-fonts paper))
   (define (define-font command fontname scaling)
     (string-append
-     "/" command " { /" fontname " findfont "
-     (ly:number->string scaling) " output-scale div scalefont } bind def\n"))
+      "/" command " { /" fontname " " (ly:number->string scaling) " output-scale div selectfont } bind def\n"))
+;    (string-append
+;     "/" command " { /" fontname " findfont "
+;     (ly:number->string scaling) " output-scale div scalefont } bind def\n"))
 
   (define (standard-tex-font? x)
     (or (equal? (substring x 0 2) "ms")
@@ -469,9 +471,11 @@
     (let* ((scale (ly:output-def-lookup paper 'output-scale))
           (box (map
                 (lambda (x)
-                  (inexact->exact
-                   (round (/ (* x scale) (ly:bp 1))))) mmbox)))
-
+                  (if (or (nan? x) (inf? x))
+                      0
+                      (inexact->exact
+                       (round (/ (* x scale) (ly:bp 1)))))) mmbox)))
+      
     (list (car box)
          (cadr box)
          (max (1+ (car box)) (caddr box))