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-28 18:03:32 +01:00
parent c3eaf2597a
commit 2fb20a92d0
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
cpdftruetype.ml
View File

@ -44,10 +44,6 @@ let read_byte b = getval_31 b 8
(* Signed short *) (* Signed short *)
let read_short b = sign_extend 16 (getval_31 b 16) let read_short b = sign_extend 16 (getval_31 b 16)
(* fword *)
let read_fword = read_short
let read_ufword = read_ushort
(* f2dot14 - 2 bit signed integer part, 14 bit unsigned fraction *) (* f2dot14 - 2 bit signed integer part, 14 bit unsigned fraction *)
let read_f2dot14 b = let read_f2dot14 b =
let v = read_ushort b in let v = read_ushort b in
@ -239,6 +235,18 @@ let remove_unneeded_tables tables d =
(fun (tag, checkSum, offset, ttlength) -> (fun (tag, checkSum, offset, ttlength) ->
Printf.printf "tag = %li = %s, offset = %li\n" tag (string_of_tag tag) offset) Printf.printf "tag = %li = %s, offset = %li\n" tag (string_of_tag tag) offset)
(rev !tablesout); (rev !tablesout);
(* Reduce offsets by the reduction in header table size *)
let header_size_reduction = i32ofi (16 * (Array.length tables - length !tablesout)) in
let tables =
map
(fun (tag, checksum, offset, ttlength) -> (tag, checksum, i32sub offset header_size_reduction, ttlength))
(rev !tablesout)
in
Printf.printf "***Reduced:\n";
iter
(fun (tag, checkSum, offset, ttlength) ->
Printf.printf "tag = %li = %s, offset = %li\n" tag (string_of_tag tag) offset)
tables;
(* Write new header *) (* Write new header *)
(* Copy tables from original file based on their offset and imputed length *) (* Copy tables from original file based on their offset and imputed length *)
d d
@ -274,10 +282,10 @@ let parse ?(subset=[]) data ~encoding =
discard_bytes b 18; discard_bytes b 18;
let unitsPerEm = read_ushort b in let unitsPerEm = read_ushort b in
discard_bytes b 16; discard_bytes b 16;
let minx = pdf_unit unitsPerEm (read_fword b) in let minx = pdf_unit unitsPerEm (read_short b) in
let miny = pdf_unit unitsPerEm (read_fword b) in let miny = pdf_unit unitsPerEm (read_short b) in
let maxx = pdf_unit unitsPerEm (read_fword b) in let maxx = pdf_unit unitsPerEm (read_short b) in
let maxy = pdf_unit unitsPerEm (read_fword b) in let maxy = pdf_unit unitsPerEm (read_short b) in
discard_bytes b 6; discard_bytes b 6;
let indexToLocFormat = read_short b in let indexToLocFormat = read_short b in
let _ (*glyphDataFormat*) = read_short b in let _ (*glyphDataFormat*) = read_short b in