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-10-07 15:59:44 +01:00
parent 67b97e714b
commit b1593db692
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cpdftruetype.ml
View File

@ -2,8 +2,6 @@
open Pdfutil open Pdfutil
open Pdfio open Pdfio
(* ./cpdf -font-ttf ~/repos/pdfs/fonts/NimbusRoman-Regular.ttf -add-text 'Hello, World!' hello.pdf -o out.pdf *)
type t = type t =
{flags : int; {flags : int;
minx : int; minx : int;
@ -24,7 +22,7 @@ type t =
subset : Pdfio.bytes; subset : Pdfio.bytes;
tounicode : Pdfio.bytes option} tounicode : Pdfio.bytes option}
let dbg = ref true (* text-based debug *) let dbg = ref false
let tounicode_preamble = let tounicode_preamble =
"/CIDInit /ProcSet findresource begin\n\ "/CIDInit /ProcSet findresource begin\n\
@ -310,8 +308,7 @@ let calculate_maxwidth unitsPerEm hmtxdata =
let padword n = let padword n =
let n = i32toi n in let n = i32toi n in
let r = if n mod 4 = 0 then n else 4 - n mod 4 + n in let r = n + (if n mod 4 = 0 then 0 else 4 - n mod 4) in
Printf.printf "n = %i, padword n = %i\n" n r;
i32ofi r i32ofi r
let remove_unneeded_tables major minor tables indexToLocFormat subset encoding cmap loca mk_b glyfoffset data = let remove_unneeded_tables major minor tables indexToLocFormat subset encoding cmap loca mk_b glyfoffset data =
@ -339,7 +336,7 @@ let remove_unneeded_tables major minor tables indexToLocFormat subset encoding c
let bs = make_write_bitstream () in let bs = make_write_bitstream () in
let newlen = write_glyf_table subset cmap bs mk_b glyfoffset loca in let newlen = write_glyf_table subset cmap bs mk_b glyfoffset loca in
let paddedlen = i32ofi (bytes_size (bytes_of_write_bitstream bs)) in let paddedlen = i32ofi (bytes_size (bytes_of_write_bitstream bs)) in
Printf.printf "new glyf table length = %li\n" newlen; if !dbg then Printf.printf "new glyf table length = %li\n" newlen;
glyf_table_size_reduction := i32sub (padword ttlength) paddedlen; glyf_table_size_reduction := i32sub (padword ttlength) paddedlen;
newlen newlen
else ttlength else ttlength