Added flate level changing for -squeeze

This commit is contained in:
John Whitington 2014-10-06 15:32:18 +01:00
parent a4f9d0322f
commit 1b0fefc00f
3 changed files with 1 additions and 10 deletions

View File

@ -198,6 +198,7 @@ let squeeze pdf =
Printf.printf "Squeezing page data and xobjects\n%!"; Printf.printf "Squeezing page data and xobjects\n%!";
squeeze_all_content_streams pdf; squeeze_all_content_streams pdf;
Printf.printf "Recompressing document\n%!"; Printf.printf "Recompressing document\n%!";
Pdfcodec.flate_level := 9;
ignore (recompress_pdf pdf) ignore (recompress_pdf pdf)
with with
e -> raise (Pdf.PDFError "Squeeze failed. No output written") e -> raise (Pdf.PDFError "Squeeze failed. No output written")

Binary file not shown.

View File

@ -1,13 +1,3 @@
%To document for next version:
% Anil's changes to output format of -list-annotations
% The new -open-at-page, -open-at-page-fit options
% Add -args, clean up -control documentation
% Explain quadruple backslash on command line leading to single real slash \\\\ -> \\ -> \
% Explain page labels in -page-info
% Correct the documentation for -diagonal and -reverse-diagonal
% Explain octal escape sequences in meta fields with -raw
% is scale_to_fit in do_stamp documented?
\documentclass[a4paper,makeidx]{memoir} \documentclass[a4paper,makeidx]{memoir}
\usepackage{palatino} \usepackage{palatino}
\usepackage{microtype} \usepackage{microtype}