From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 6 Apr 2005 12:26:36 +0000 (+0000)
Subject: * scm/framework-ps.scm (ps-font-command): use string-hash for
X-Git-Tag: release/2.5.19~46
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9602a6de93da3d612b7833fdd56168c3c8d19df1;p=lilypond.git

* 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.
---

diff --git a/ChangeLog b/ChangeLog
index b50bd89ba7..95c90107fb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2005-04-06  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* 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)