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
2021-11-18 15:23:38 -08:00
parent 87fb7e0dff
commit dfff828575
1 changed files with 15 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
cpdftype.ml
View File

@@ -56,16 +56,18 @@ let initial_state () =
(* Split text into lines, resolve all hglue stretches to 0, remove Newlines. *) (* Split text into lines, resolve all hglue stretches to 0, remove Newlines. *)
let layout_element s xpos_max fo = function let layout_element s xpos_max fo = function
| _ -> () | e -> fo e
let layout lmargin rmargin papersize i = let layout lmargin rmargin papersize i =
i let width =
(*let o = ref [] in Pdfunits.convert 72. (Pdfpaper.unit papersize) Pdfunits.PdfPoint (Pdfpaper.width papersize)
in
let o = ref [] in
let s = initial_state () in let s = initial_state () in
let xpos_max = Pdfpaper.width papersize -. lmargin in let xpos_max = Pdfpaper.width papersize -. lmargin in
s.xpos <- lmargin; s.xpos <- lmargin;
iter (layout_element s xpos_max (fun e -> o := e::!o)) i; iter (layout_element s xpos_max (fun e -> o := e::!o)) i;
rev !o*) rev !o
(* Resolve all hglue stretches, insert NewPage as needed. *) (* Resolve all hglue stretches, insert NewPage as needed. *)
let paginate tmargin bmargin papersize i = i let paginate tmargin bmargin papersize i = i
@@ -81,9 +83,10 @@ let make_resources fontobjnums =
let typeset lmargin rmargin tmargin bmargin papersize pdf i = let typeset lmargin rmargin tmargin bmargin papersize pdf i =
let i = layout lmargin rmargin papersize i in let i = layout lmargin rmargin papersize i in
let i = paginate tmargin bmargin papersize i in let i = paginate tmargin bmargin papersize i in
let height = Pdfpaper.height papersize -. tmargin in let height = Pdfunits.convert 72. (Pdfpaper.unit papersize) Pdfunits.PdfPoint (Pdfpaper.height papersize) in
let s = initial_state () in let s = initial_state () in
s.xpos <- lmargin; s.xpos <- lmargin;
s.ypos <- tmargin;
let ops = ref [] in let ops = ref [] in
let fonts = ref [] in let fonts = ref [] in
let thispagefontnums = ref [] in let thispagefontnums = ref [] in
@@ -97,7 +100,6 @@ let typeset lmargin rmargin tmargin bmargin papersize pdf i =
Pdfpage.rotate = Pdfpage.Rotate0; Pdfpage.rotate = Pdfpage.Rotate0;
Pdfpage.rest = Pdf.Dictionary []} Pdfpage.rest = Pdf.Dictionary []}
in in
Printf.printf "Writing a page\n";
pages := page :: !pages pages := page :: !pages
in in
let typeset_element = function let typeset_element = function
@@ -115,10 +117,12 @@ let typeset lmargin rmargin tmargin bmargin papersize pdf i =
| None -> failwith "font not found" | None -> failwith "font not found"
in in
ops := ops :=
Pdfops.Op_ET Pdfops.Op_Q
::Pdfops.Op_ET
::Pdfops.Op_Tj charcodestring ::Pdfops.Op_Tj charcodestring
::Pdfops.Op_BT ::Pdfops.Op_BT
::Pdfops.Op_cm (Pdftransform.mktranslate s.xpos (height -. s.ypos)) ::Pdfops.Op_cm (Pdftransform.mktranslate s.xpos (height -. s.ypos))
::Pdfops.Op_q
::!ops ::!ops
| Font (f, fontsize) -> | Font (f, fontsize) ->
let name, objnum = let name, objnum =
@@ -136,7 +140,7 @@ let typeset lmargin rmargin tmargin bmargin papersize pdf i =
| HGlue {glen} -> | HGlue {glen} ->
s.xpos <- s.xpos +. glen s.xpos <- s.xpos +. glen
| VGlue {glen} -> | VGlue {glen} ->
s.ypos <- s.ypos -. glen s.ypos <- s.ypos +. glen
| NewLine -> | NewLine ->
s.xpos <- 0. s.xpos <- 0.
| NewPage -> | NewPage ->
@@ -151,7 +155,7 @@ let typeset lmargin rmargin tmargin bmargin papersize pdf i =
let example_pdf () = let example_pdf () =
let pdf = Pdf.empty () in let pdf = Pdf.empty () in
let pages = typeset 50. 50. 50. 50. Pdfpaper.a4 pdf example in let pages = typeset 20. 20. 20. 20. Pdfpaper.a4 pdf example in
let pdf, pageroot = Pdfpage.add_pagetree pages pdf in let pdf, pageroot = Pdfpage.add_pagetree pages pdf in
Pdfpage.add_root pageroot [] pdf Pdfpage.add_root pageroot [] pdf