CVSROOT: /cvsroot/lilypond
Module name: lilypond
Branch:
Changes by: Han-Wen Nienhuys <[EMAIL PROTECTED]> 05/05/20 18:45:44
Modified files:
. : ChangeLog
scm : output-ps.scm
Log message:
(glyph-string): remove / before CIDs.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/ChangeLog.diff?tr1=1.3645&tr2=1.3646&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/lilypond/lilypond/scm/output-ps.scm.diff?tr1=1.139&tr2=1.140&r1=text&r2=text
Patches:
Index: lilypond/ChangeLog
diff -u lilypond/ChangeLog:1.3645 lilypond/ChangeLog:1.3646
--- lilypond/ChangeLog:1.3645 Fri May 20 18:09:02 2005
+++ lilypond/ChangeLog Fri May 20 18:45:42 2005
@@ -1,3 +1,7 @@
+2005-05-20 Han-Wen Nienhuys <[EMAIL PROTECTED]>
+
+ * scm/output-ps.scm (glyph-string): remove / before CIDs.
+
2005-05-20 Graham Percival <[EMAIL PROTECTED]>
* Documentation/user/instrument-notation.itely: remove *Engraver.
Index: lilypond/scm/output-ps.scm
diff -u lilypond/scm/output-ps.scm:1.139 lilypond/scm/output-ps.scm:1.140
--- lilypond/scm/output-ps.scm:1.139 Fri May 20 18:09:02 2005
+++ lilypond/scm/output-ps.scm Fri May 20 18:45:44 2005
@@ -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))))
_______________________________________________
Lilypond-cvs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/lilypond-cvs
