From 4b769ac72e76940dd0aa40d257a1279441926f2f Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Tue, 10 May 2005 21:38:51 +0000 Subject: [PATCH] (load-font-via-GS): new function. --- scm/backend-library.scm | 2 +- scm/framework-ps.scm | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scm/backend-library.scm b/scm/backend-library.scm index ceac0725e4..e08c93f1bf 100644 --- a/scm/backend-library.scm +++ b/scm/backend-library.scm @@ -35,7 +35,7 @@ (let* ((pdf-name (string-append (basename name ".ps") ".pdf" )) (cmd (format #f "gs\ - -dCompatibilityLevel=1.2\ + -dCompatibilityLevel=1.4 \ -dSAFER\ -sPAPERSIZE=~a\ -q\ diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index e21cbf6a63..ded685b366 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -234,7 +234,7 @@ (define (load-font-via-GS font-name-filename) (define (ps-load-file name) - (format "(~a) (r) file .loadfontfile " name)) + (format "(~a) (r) file .loadfont " name)) (let* ((font (car font-name-filename)) (name (cadr font-name-filename)) @@ -245,7 +245,7 @@ (munge-lily-font-name name) (cond ((string-match "([eE]mmentaler|[Aa]ybabtu)" file-name) - (ps-load-file (munge-lily-font-name file-name))) + (ps-load-file (ly:find-file (format "~a.pfa" (munge-lily-font-name file-name))))) ((string? bare-file-name) (ps-load-file (munge-lily-font-name file-name))) (else @@ -315,7 +315,7 @@ (sort (apply append all-font-names) (lambda (x y) (string