From 202f364b4f44bb34c0bb90214ef35144d5e1558d Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 4 May 2023 15:02:21 +0100
Subject: [PATCH] more

---
 cpdfdraw.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cpdfdraw.ml b/cpdfdraw.ml
index 2f6f8c9..b2b5646 100644
--- a/cpdfdraw.ml
+++ b/cpdfdraw.ml
@@ -149,6 +149,7 @@ let rec ops_of_drawop pdf endpage filename bates batespad num page = function
       let o = Pdftext.write_font pdf (Pdftext.StandardFont (s, Pdftext.WinAnsiEncoding)) in
       let n = fresh_name "/F" in
         Hashtbl.add res.fonts n o;
+        res.current_font <- (Pdftext.StandardFont (s, Pdftext.WinAnsiEncoding));
         [Pdfops.Op_Tf (n, f)]
   | BT -> [Pdfops.Op_BT]
   | ET -> [Pdfops.Op_ET]