From 9602a6de93da3d612b7833fdd56168c3c8d19df1 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 6 Apr 2005 12:26:36 +0000 Subject: [PATCH] * scm/framework-ps.scm (ps-font-command): use string-hash for hashing, to ensure that 11 and 18 are processed in Emmentaler-{11,18} * scm/framework-ps.scm (munge-lily-font-name): new function (write-preamble): hack: insert PFA equivalent of CFF into .PS. This makes LilyPond output printable on normal PS printers again. --- ChangeLog | 3 +++ scm/framework-ps.scm | 6 +++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index b50bd89ba7..95c90107fb 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2005-04-06 Han-Wen Nienhuys + * scm/framework-ps.scm (ps-font-command): use string-hash for + hashing, to ensure that 11 and 18 are processed in Emmentaler-{11,18} + * lily/main.cc (setup_paths): either add mf/out to search path or fonts/{otf,type1,etc} diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm index 23cb0841c2..3a2e9db1f8 100644 --- a/scm/framework-ps.scm +++ b/scm/framework-ps.scm @@ -31,9 +31,13 @@ (define-public (ps-font-command font) (let* ((name (munge-lily-font-name (ly:font-file-name font))) (magnify (ly:font-magnification font))) + (display font) + (display name) + (display magnify) + (newline) (string-append - "magfont" (string-encode-integer (hash name 1000000)) + "magfont" (string-encode-integer (string-hash name 1000000)) "m" (string-encode-integer (inexact->exact (round (* 1000 magnify))))))) (define (tex-font? fontname) -- 2.39.5