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-10-25 16:27:18 +01:00
parent b93b230fa4
commit 82e8fc02b0
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
cpdf.ml
View File

@@ -2977,17 +2977,17 @@ let twoup fast pdf =
let endpage = Pdfpage.endpage pdf in let endpage = Pdfpage.endpage pdf in
let all = ilist 1 endpage in let all = ilist 1 endpage in
let pdf = scale_pdf ~fast (many (sc, sc) endpage) pdf all in let pdf = scale_pdf ~fast (many (sc, sc) endpage) pdf all in
Pdfwrite.pdf_to_file pdf "scaled.pdf"; Pdfwrite.pdf_to_file pdf "debug/scaled.pdf";
let pdf = let pdf =
impose impose
~x:2. ~y:1. ~fit:false ~columns:false ~rtl:false ~btt:false ~center:true ~x:2. ~y:1. ~fit:false ~columns:false ~rtl:false ~btt:false ~center:true
~margin:0. ~spacing:0. ~linewidth:0. ~fast pdf ~margin:0. ~spacing:0. ~linewidth:0. ~fast pdf
in in
Pdfwrite.pdf_to_file pdf "imposed.pdf"; Pdfwrite.pdf_to_file pdf "debug/imposed.pdf";
let endpage = Pdfpage.endpage pdf in let endpage = Pdfpage.endpage pdf in
let all = ilist 1 endpage in let all = ilist 1 endpage in
let pdf = upright all (rotate_pdf ~-90 pdf all) in let pdf = upright all (rotate_pdf ~-90 pdf all) in
Pdfwrite.pdf_to_file pdf "uprighted.pdf"; Pdfwrite.pdf_to_file pdf "debug/uprighted.pdf";
scale_to_fit_pdf ~fast Cpdfposition.Diagonal 1. (many (width, height) endpage) () pdf all scale_to_fit_pdf ~fast Cpdfposition.Diagonal 1. (many (width, height) endpage) () pdf all
(* \section{Output info} *) (* \section{Output info} *)