+2005-05-10 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+ * lily/pango-font.cc (pango_item_string_stencil): add support for
+ CID keyed font.
+
+ * scm/output-ps.scm (glyph-string): add support for CID keyed font.
+
2005-05-10 Graham Percival <gperlist@shaw.ca>
* Documentation/user/basic-notation.itely: add @ref.
PangoGlyphGeometry ggeo = pgi->geometry;
FT_Get_Glyph_Name (ftface, pg, glyph_name, GLYPH_NAME_LEN);
+
+
+ SCM char_id;
+ if (glyph_name[0] == '\0')
+ {
+ /*
+ CID entry
+ */
+ char_id = scm_from_int (pg);
+ }
+ else
+ char_id = scm_makfrom0str (glyph_name);
*tail = scm_cons (scm_list_3 (scm_from_double (ggeo.x_offset * scale_ + dx),
scm_from_double (ggeo.y_offset * scale_),
- scm_makfrom0str (glyph_name)),
+ char_id),
SCM_EOL);
dx = 0.0;
tail = SCM_CDRLOC (*tail);
(if (and (= 0.0 x)
(= 0.0 y))
(format #f " /~a glyphshow\n" g)
- (format #f " ~a ~a rmoveto /~a glyphshow\n"
- x y g))))
+ (format #f " ~a ~a rmoveto ~a~a glyphshow\n"
+ x y
+ (if (string? g) "/" "")
+ g))))
x-y-named-glyphs))))
(define (grob-cause offset grob)