From 73dba405764d6301b3e66bf130b50f181dd9d4f6 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Mon, 18 Oct 2021 18:33:52 +0100
Subject: [PATCH] more

---
 cpdfcommand.ml | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 215d11a..bd4cc4e 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -3327,6 +3327,8 @@ let collate (names, pdfs, ranges) =
     done;
     split3 (rev !nis)
 
+let impose fit columns rtl btt center margin spacing linewidth pdf = pdf
+
 (* Main function *)
 let go () =
   match args.op with
@@ -4030,8 +4032,11 @@ let go () =
       write_pdf false (Cpdf.twoup args.fast (get_single_pdf args.op false))
   | Some TwoUpStack ->
       write_pdf false (Cpdf.twoup_stack args.fast (get_single_pdf args.op false))
-  | Some Impose x ->
-      write_pdf false (get_single_pdf args.op false)
+  | Some Impose fit ->
+      write_pdf false
+        (impose fit args.impose_columns args.impose_rtl args.impose_btt args.impose_center
+                    args.impose_margin args.impose_spacing args.impose_linewidth
+                (get_single_pdf args.op false))
   | Some (StampOn over) ->
       let overpdf =
         match over with