This commit is contained in:
John Whitington 2023-07-17 16:39:41 +01:00
parent e257c1c62b
commit 7408a79186
1 changed files with 1 additions and 1 deletions

View File

@ -2103,7 +2103,7 @@ let setfont f =
begin match args.op with Some Draw -> addop (Cpdfdraw.FontPack (f, embed_font (), null_hash ())) | _ -> () end begin match args.op with Some Draw -> addop (Cpdfdraw.FontPack (f, embed_font (), null_hash ())) | _ -> () end
let loadttf n = let loadttf n =
Printf.printf "loadttf: %s\n" n; (*Printf.printf "loadttf: %s\n" n;*)
let name, filename = let name, filename =
match String.split_on_char '=' n with match String.split_on_char '=' n with
| [name; filename] -> name, filename | [name; filename] -> name, filename