fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

more

Browse Source
This commit is contained in:
John Whitington
2022-11-23 16:10:32 +00:00
parent a257ce355a
commit 65e4b8c027
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
cpdftruetype.ml
View File

@@ -303,9 +303,7 @@ let padword n =
let fonumr = ref (-1)
let fonum () =
fonumr += 1;
!fonumr
let fonum () = fonumr += 1; !fonumr
let subset_font major minor tables indexToLocFormat subset encoding cmap loca mk_b glyfoffset data =
let tables = Array.of_list (sort (fun (_, _, o, _) (_, _, o', _) -> compare o o') tables) in
@@ -406,12 +404,15 @@ let subset_font major minor tables indexToLocFormat subset encoding cmap loca mk
with
_ -> ())
newtables;
let bytes = bytes_of_write_bitstream bs in
if !dbg then Printf.printf "Made subset font of length %i bytes\n" (bytes_size bytes);
let o = open_out_bin ("fontout" ^ string_of_int (fonum ()) ^ ".ttf") in
output_string o (string_of_bytes bytes);
close_out o;
bytes
let obs = bytes_of_write_bitstream bs in
if !dbg then
begin
Printf.printf "Made subset font of length %i bytes\n" (bytes_size obs);
let o = open_out_bin ("fontout" ^ string_of_int (fonum ()) ^ ".ttf") in
output_string o (string_of_bytes obs);
close_out o
end;
obs
let parse ?(subset=[]) data encoding =
Printf.printf "********SUBSET is ";