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-10-19 18:43:12 +01:00
parent dba0c51094
commit e1b1950d3b
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdf.ml
View File

@ -2778,7 +2778,10 @@ let impose_transforms n fx fy columns rtl btt center margin spacing linewidth me
let extra_x = ref 0. in let extra_x = ref 0. in
let extra_y = ref 0. in let extra_y = ref 0. in
let addtr px py = let addtr px py =
trs := Pdftransform.matrix_of_transform [Pdftransform.Translate (px +. !extra_x, py +. !extra_y)]::!trs let ex, ey =
(if rtl then ~-.(!extra_x) else !extra_x), (if btt then ~-.(!extra_y) else !extra_y)
in
trs := Pdftransform.matrix_of_transform [Pdftransform.Translate (px +. ex, py +. ey)]::!trs
in in
let x = int_of_float fx in let x = int_of_float fx in
let y = int_of_float fy in let y = int_of_float fy in
@ -2787,7 +2790,7 @@ let impose_transforms n fx fy columns rtl btt center margin spacing linewidth me
in in
if columns then if columns then
for col = 0 to x - 1 do for col = 0 to x - 1 do
if center && !len < y then if !extra_y = 0. then extra_y := (height *. float_of_int (y - !len)) /. 2.; if center && !len < y then if !extra_y = 0. then extra_y := ~-.(height *. float_of_int (y - !len)) /. 2.;
for row = y - 1 downto 0 do for row = y - 1 downto 0 do
let row, col = order row col in let row, col = order row col in
if !len > 0 then addtr (width *. float_of_int col) (height *. float_of_int row); if !len > 0 then addtr (width *. float_of_int col) (height *. float_of_int row);