This commit is contained in:
John Whitington 2023-05-04 15:02:21 +01:00
parent 04b395a526
commit 202f364b4f
1 changed files with 1 additions and 0 deletions

View File

@ -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]