fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-01-03 12:29:19 +01:00
Code Issues Packages Projects Releases Wiki Activity

Dot leaders finished

Browse Source
This commit is contained in:
John Whitington 2024-12-03 18:17:12 +00:00
parent 7145a558eb
commit 5f1446b59b
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
cpdftoc.ml
View File

@ -94,17 +94,13 @@ let used pdf fastrefnums labels title marks =
marks;
codepoints
(* Fill the space with a small space, maybe some dots, then maybe a final tiny space *)
(* Make a dot leader *)
let make_dots space fontpack fontsize =
let dots_width, dots =
let dotruns = of_utf8 fontpack fontsize "." in
let dotwidth = width_of_runs dotruns in
let runs = flatten (many dotruns (int_of_float (floor (space /. dotwidth)))) in
(width_of_runs runs, runs)
in
let right_space = space -. dots_width in
let left_space = space -. dots_width -. right_space in
[Cpdftype.HGlue left_space] @ dots @ [Cpdftype.HGlue right_space]
let dotruns = of_utf8 fontpack fontsize "." in
let dotwidth = width_of_runs dotruns in
let runs = flatten (many dotruns (int_of_float (floor (space /. dotwidth)))) in
let remainder = space -. width_of_runs runs in
[Cpdftype.HGlue remainder] @ runs
(* Typeset a table of contents with given font, font size and title. Mediabox
(and CropBox) copied from first page of existing PDF. Margin of 10% inside