From e033d6a51b0c720db70742de3e4e5ea0ef527e59 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 31 Mar 2006 09:46:33 +0000 Subject: [PATCH] * scm/output-ps.scm (glyph-string): revert cid selectfont. * scm/output-ps.scm: glyph-string now produces smaller, more readable, and probably faster PostScript. Several findfont scalefont setfont instances changed to selectfont Hacked-up string-appends changed to formats. Patch by David Feuer. --- ChangeLog | 2 ++ scm/output-ps.scm | 8 +++++++- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 1752e475f4..25ef51986c 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2006-03-31 Han-Wen Nienhuys + * scm/output-ps.scm (glyph-string): revert cid selectfont. + * scm/framework-ps.scm: Patch by David Feuer. diff --git a/scm/output-ps.scm b/scm/output-ps.scm index fd0b768dd8..eef37c6345 100644 --- a/scm/output-ps.scm +++ b/scm/output-ps.scm @@ -143,8 +143,14 @@ cid? w-x-y-named-glyphs) - (format #f "gsave \n/~a ~a output-scale div selectfont\n~a grestore" + (format #f "gsave + /~a ~a ~a output-scale div scalefont setfont\n~a grestore" postscript-font-name + + ;; with normal findfont, GS throws /typecheck for glyphshow. + (if cid? + " /CIDFont findresource " + " findfont") size (string-append (apply -- 2.39.2