From 725dc927cdbe2ab9c13636a4d5df881265ac1b87 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Fri, 20 May 2005 18:45:44 +0000 Subject: [PATCH] (glyph-string): remove / before CIDs. --- ChangeLog | 4 ++++ scm/output-ps.scm | 11 ++++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/ChangeLog b/ChangeLog index 0cf52a5ee8..abb4990b35 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2005-05-20 Han-Wen Nienhuys + + * scm/output-ps.scm (glyph-string): remove / before CIDs. + 2005-05-20 Graham Percival * Documentation/user/instrument-notation.itely: remove *Engraver. diff --git a/scm/output-ps.scm b/scm/output-ps.scm index 538bd18c8e..a77a3fe3c4 100644 --- a/scm/output-ps.scm +++ b/scm/output-ps.scm @@ -176,7 +176,7 @@ postscript-font-name size cid? x-y-named-glyphs) - + (format #f "gsave 1 output-scale div 1 output-scale div scale /~a ~a ~a scalefont setfont\n~a grestore" postscript-font-name @@ -188,17 +188,18 @@ (apply string-append (map (lambda (item) - (let + (let* ((x (car item)) (y (cadr item)) - (g (caddr item))) + (g (caddr item)) + (prefix (if (string? g) "/" ""))) (if (and (= 0.0 x) (= 0.0 y)) - (format #f " /~a glyphshow\n" g) + (format #f " ~a~a glyphshow\n" prefix g) (format #f " ~a ~a rmoveto ~a~a glyphshow\n" x y - (if (string? g) "/" "") + prefix g)))) x-y-named-glyphs)))) -- 2.39.2