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

Correct TTF fontname from cpdfcommand.ml

This commit is contained in:
John Whitington 2023-07-17 12:40:49 +01:00
parent cb3f29b59f
commit 8ded8853f2
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfcommand.ml
View File

@ -1728,9 +1728,10 @@ let setidironlypdfs () =
let setnowarnrotate () = let setnowarnrotate () =
args.no_warn_rotate <- true args.no_warn_rotate <- true
let setfontttf s = let setfontttf s =
args.font <- EmbeddedFont s let fontname, _ = Hashtbl.find ttfs s in
args.font <- EmbeddedFont s;
args.fontname <- fontname
let setfontttfencoding s = let setfontttfencoding s =
args.fontencoding <- args.fontencoding <-
@ -1759,9 +1760,6 @@ let addop o =
| (n, ops)::t -> drawops := (n, (o::ops))::t | (n, ops)::t -> drawops := (n, (o::ops))::t
| [] -> error "no drawops" | [] -> error "no drawops"
let endxobj () = let endxobj () =
match !drawops with match !drawops with
| (n, ops)::t -> | (n, ops)::t ->