fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

more

This commit is contained in:
John Whitington 2022-09-29 14:48:34 +01:00
parent f0d4d40fa7
commit 4ac9e7c61e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
cpdfembed.ml
View File

@ -56,16 +56,16 @@ let embed_truetype pdf ~fontfile ~fontname ~codepoints ~encoding =
in in
let f = Cpdftruetype.parse ~subset:accepted_unicodepoints fontfile ~encoding in let f = Cpdftruetype.parse ~subset:accepted_unicodepoints fontfile ~encoding in
let name_1 = basename () in let name_1 = basename () in
let module TT = Cpdftruetype in
let fontfile = let fontfile =
let len = Pdfio.bytes_size fontfile in let len = Pdfio.bytes_size f.TT.subset in
Pdf.Stream Pdf.Stream
{contents = {contents =
(Pdf.Dictionary (Pdf.Dictionary
[("/Length", Pdf.Integer len); ("/Length1", Pdf.Integer len)], [("/Length", Pdf.Integer len); ("/Length1", Pdf.Integer len)],
Pdf.Got fontfile)} Pdf.Got f.TT.subset)}
in in
let fontfile_num = Pdf.addobj pdf fontfile in let fontfile_num = Pdf.addobj pdf fontfile in
let module TT = Cpdftruetype in
let open Pdftext in let open Pdftext in
let fontmetrics = let fontmetrics =
let a = Array.make 256 0. in let a = Array.make 256 0. in