Restore proper font cleaving
This commit is contained in:
parent
bdc9d8e239
commit
126b10bd61
|
@ -496,14 +496,13 @@ let write_font filename data =
|
||||||
close_out fh
|
close_out fh
|
||||||
|
|
||||||
let find_main encoding subset =
|
let find_main encoding subset =
|
||||||
(take subset 5, [drop subset 5])
|
let encoding_table = Pdftext.table_of_encoding encoding in
|
||||||
(*let encoding_table = Pdftext.table_of_encoding encoding in
|
|
||||||
let first, rest =
|
let first, rest =
|
||||||
List.partition
|
List.partition
|
||||||
(fun u -> try ignore (Hashtbl.find encoding_table u); true with Not_found -> false)
|
(fun u -> try ignore (Hashtbl.find encoding_table u); true with Not_found -> false)
|
||||||
subset
|
subset
|
||||||
in
|
in
|
||||||
(first, splitinto 224 rest)*)
|
(first, splitinto 224 rest)
|
||||||
|
|
||||||
let parse ~subset data encoding =
|
let parse ~subset data encoding =
|
||||||
let mk_b byte_offset = bitbytes_of_input (let i = input_of_bytes data in i.seek_in byte_offset; i) in
|
let mk_b byte_offset = bitbytes_of_input (let i = input_of_bytes data in i.seek_in byte_offset; i) in
|
||||||
|
|
Loading…
Reference in New Issue