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 2021-12-05 16:25:50 -08:00
parent e30714962d
commit ad5a235c61
3 changed files with 33 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
cpdfcommand.ml
View File

@ -2971,12 +2971,17 @@ let typeset_table_of_contents ~font pdf =
let f = (Pdftext.StandardFont (font, Pdftext.WinAnsiEncoding), args.fontsize) in
let big = (Pdftext.StandardFont (font, Pdftext.WinAnsiEncoding), args.fontsize *. 2.) in
let firstpage = hd (Pdfpage.pages_of_pagetree pdf) in
let firstpage_papersize =
let width, height =
let firstpage_papersize, pmaxx, pmaxy =
let width, height, xmax, ymax =
match Pdf.parse_rectangle firstpage.Pdfpage.mediabox with
xmin, ymin, xmax, ymax -> (xmax -. xmin, ymax -. ymin)
xmin, ymin, xmax, ymax -> xmax -. xmin, ymax -. ymin, xmax, ymax
in
Pdfpaper.make Pdfunits.PdfPoint width height
Pdfpaper.make Pdfunits.PdfPoint width height, xmax, ymax
in
let firstpage_cropbox =
match Pdf.lookup_direct pdf "/CropBox" firstpage.Pdfpage.rest with
| Some r -> Some (Pdf.parse_rectangle r)
| None -> None
in
let labels = Pdfpagelabels.read pdf in
let lines =
@ -3004,10 +3009,27 @@ let typeset_table_of_contents ~font pdf =
(fun l -> [Cpdftype.Text l; Cpdftype.NewLine])
(split_toc_title [] (explode args.toc_title)))
in
Cpdftype.typeset 50. 50. 50. 50. firstpage_papersize pdf
([Cpdftype.Font big] @ title @
[Cpdftype.VGlue {glen = args.fontsize *. 2.; gstretch = 0.};
Cpdftype.Font f] @ flatten lines)
let lm, rm, tm, bm =
match firstpage_cropbox with
| None -> (50., 50., 50., 50.)
| Some (cminx, cminy, cmaxx, cmaxy) ->
(cminx +. 50., (pmaxx -. cmaxx) +. 50., cminy +. 50., (pmaxy -. cmaxy) +. 50.)
in
Cpdftype.typeset lm rm tm bm firstpage_papersize pdf
([Cpdftype.Font big] @ title @
[Cpdftype.VGlue {glen = args.fontsize *. 2.; gstretch = 0.};
Cpdftype.Font f] @ flatten lines)
in
let toc_pages =
match firstpage_cropbox with
| Some (a, b, c, d) ->
let rect =
Pdf.Array [Pdf.Real a; Pdf.Real b; Pdf.Real c; Pdf.Real d]
in
map
(fun p -> {p with Pdfpage.rest = Pdf.add_dict_entry p.Pdfpage.rest "/CropBox" rect})
toc_pages
| None -> toc_pages
in
let original_pages = Pdfpage.pages_of_pagetree pdf in
let toc_pages_len = length toc_pages in

2
cpdfmanual.tex
View File

@ -9,7 +9,7 @@
%Document -print-font-table
%Document NOT and DUP page ranges
%Document new colourspaces for -add-text -add-rectangle
%Document -table-of-contents, -table-of-contents-title (inc. newlines), -font
%Document -table-of-contents, -table-of-contents-title (inc. newlines), -font. Mention -upright.
%Document -typeset
\documentclass{book}
% Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf etc.

3
cpdftype.ml
View File

@ -139,7 +139,7 @@ let paginate tmargin bmargin papersize i =
let o = ref [] in
let s = initial_state () in
s.ypos <- tmargin;
let max_ypos = height -. tmargin -. bmargin in
let max_ypos = height -. bmargin in
let rec process = function
| VGlue {glen} as glue ->
s.ypos <- s.ypos +. glen;
@ -174,6 +174,7 @@ let make_annotations annots =
dictionaries. New page only
creates a page when that page has content. *)
let typeset lmargin rmargin tmargin bmargin papersize pdf i =
Printf.printf "l = %f, r = %f, b = %f, t = %f\n" lmargin rmargin tmargin bmargin;
let debug = false in
if debug then (print_endline "***input:\n\n"; print_endline (to_string i));
let i = layout lmargin rmargin papersize i in