From 96ace7ef8ce4f541b6734a77376ff7707cb5e9fa Mon Sep 17 00:00:00 2001
From: Johan Vromans <jvromans@squirrel.nl>
Date: Mon, 23 Mar 2020 08:45:11 +0100
Subject: [PATCH] (PDF::API2::Content) Add glyphByCId.

---
 lib/PDF/API2/Content.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/PDF/API2/Content.pm b/lib/PDF/API2/Content.pm
index 55a2f3d9..1537daf1 100644
--- a/lib/PDF/API2/Content.pm
+++ b/lib/PDF/API2/Content.pm
@@ -1931,6 +1931,18 @@ sub text_fill_justified {
     return($width,$ret);
 }
 
+=item $txt->glyphByCId($cid)
+
+Adds a single glyph specified by its CId.
+
+=cut
+
+sub PDF::API2::Content::glyphByCId {
+    my ( $self, $cid ) = @_;
+    $self->add( sprintf("<%04x> Tj", $cid ) );
+    $self->{' font'}->fontfile->subsetByCId($cid);
+}
+
 # =item $overflow_text = $txt->paragraph $text, $width, $height, %options
 #
 # ** DEVELOPER METHOD **