diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 43a9b77..b016d9d 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -527,7 +527,7 @@ let args =
    fontencoding = Pdftext.WinAnsiEncoding;
    color = Cpdfaddtext.RGB (0., 0., 0.);
    opacity = 1.;
-   position = Cpdfposition.TopLeft 100.;
+   position = Cpdfposition.TopLeft (100., 100.);
    underneath = false;
    linespacing = 1.;
    midline = false;
@@ -648,7 +648,7 @@ let reset_arguments () =
   args.fontencoding <- Pdftext.WinAnsiEncoding;
   args.color <- Cpdfaddtext.RGB (0., 0., 0.);
   args.opacity <- 1.;
-  args.position <- Cpdfposition.TopLeft 100.;
+  args.position <- Cpdfposition.TopLeft (100., 100.);
   args.underneath <- false;
   args.linespacing <- 1.;
   args.midline <- false;
@@ -1177,11 +1177,11 @@ let setlistannotationsjson () =
 let setstampon f =
   setop (StampOn f) ();
   (* Due to an earlier bad decision (default position), we have this nasty hack *)
-  if args.position = Cpdfposition.TopLeft 100. then args.position <- Cpdfposition.BottomLeft 0.
+  if args.position = Cpdfposition.TopLeft (100., 100.) then args.position <- Cpdfposition.BottomLeft (0., 0.)
 
 let setstampunder f =
   setop (StampUnder f) ();
-  if args.position = Cpdfposition.TopLeft 100. then args.position <- Cpdfposition.BottomLeft 0.
+  if args.position = Cpdfposition.TopLeft (100., 100.) then args.position <- Cpdfposition.BottomLeft (0., 0.)
 
 let setstampasxobject f =
   setop (StampAsXObject f) ()
@@ -1206,28 +1206,48 @@ let settop n =
   args.justification <- Cpdfaddtext.CentreJustify
 
 let settopleft n =
-  args.position <- Cpdfposition.TopLeft (Cpdfcoord.parse_single_number empty n);
-  args.justification <- Cpdfaddtext.LeftJustify
+  let coord =
+    match Cpdfcoord.parse_coordinate empty n with
+    | (a, b) -> Cpdfposition.TopLeft (a, b)
+    | exception _ -> Cpdfposition.TopLeft (Cpdfcoord.parse_single_number empty n, 0.)
+  in
+    args.position <- coord;
+    args.justification <- Cpdfaddtext.LeftJustify
 
 let settopright n =
-  args.position <- Cpdfposition.TopRight (Cpdfcoord.parse_single_number empty n);
-  args.justification <- Cpdfaddtext.RightJustify
+  let coord =
+    match Cpdfcoord.parse_coordinate empty n with
+    | (a, b) -> Cpdfposition.TopRight (a, b)
+    | exception _ -> Cpdfposition.TopRight (Cpdfcoord.parse_single_number empty n, 0.)
+  in
+    args.position <- coord;
+    args.justification <- Cpdfaddtext.RightJustify
 
 let setleft n =
   args.position <- Cpdfposition.Left (Cpdfcoord.parse_single_number empty n);
   args.justification <- Cpdfaddtext.LeftJustify
 
 let setbottomleft n =
-  args.position <- Cpdfposition.BottomLeft (Cpdfcoord.parse_single_number empty n);
-  args.justification <- Cpdfaddtext.LeftJustify
+  let coord =
+    match Cpdfcoord.parse_coordinate empty n with
+    | (a, b) -> Cpdfposition.BottomLeft (a, b)
+    | exception _ -> Cpdfposition.BottomLeft (Cpdfcoord.parse_single_number empty n, 0.)
+  in
+    args.position <- coord;
+    args.justification <- Cpdfaddtext.LeftJustify
 
 let setbottom n =
   args.position <- Cpdfposition.Bottom (Cpdfcoord.parse_single_number empty n);
   args.justification <- Cpdfaddtext.CentreJustify
 
 let setbottomright n =
-  args.position <- Cpdfposition.BottomRight (Cpdfcoord.parse_single_number empty n);
-  args.justification <- Cpdfaddtext.RightJustify
+  let coord =
+    match Cpdfcoord.parse_coordinate empty n with
+    | (a, b) -> Cpdfposition.BottomRight (a, b)
+    | exception _ -> Cpdfposition.BottomRight (Cpdfcoord.parse_single_number empty n, 0.)
+  in
+    args.position <- coord;
+    args.justification <- Cpdfaddtext.RightJustify
 
 let setright n =
   args.position <- Cpdfposition.Right (Cpdfcoord.parse_single_number empty n);
diff --git a/cpdfimpose.ml b/cpdfimpose.ml
index a549f46..415c459 100644
--- a/cpdfimpose.ml
+++ b/cpdfimpose.ml
@@ -172,7 +172,7 @@ let make_space fit ~fast spacing pdf =
     (Cpdfpage.shift_pdf
       ~fast
       (many (margin, margin) endpage)
-      (Cpdfpage.scale_contents ~fast (Cpdfposition.BottomLeft 0.) ((width -. spacing) /. width) pdf all)
+      (Cpdfpage.scale_contents ~fast (Cpdfposition.BottomLeft (0., 0.)) ((width -. spacing) /. width) pdf all)
       all)
   else
     (Cpdfpage.set_mediabox
@@ -187,7 +187,7 @@ let add_border linewidth ~fast pdf =
   let firstpage = hd (Pdfpage.pages_of_pagetree pdf) in
   let _, _, w, h = Pdf.parse_rectangle pdf firstpage.Pdfpage.mediabox in
     Cpdfaddtext.addrectangle
-      fast (w -. linewidth, h -. linewidth) (RGB (0., 0., 0.)) true linewidth 1. (Cpdfposition.BottomLeft (linewidth /. 2.))
+      fast (w -. linewidth, h -. linewidth) (RGB (0., 0., 0.)) true linewidth 1. (Cpdfposition.BottomLeft (linewidth /. 2., linewidth /. 2.))
       false false (ilist 1 (Pdfpage.endpage pdf)) pdf
 
 let impose ~x ~y ~fit ~columns ~rtl ~btt ~center ~margin ~spacing ~linewidth ~fast pdf =
diff --git a/cpdfmanual.tex b/cpdfmanual.tex
index 298525e..7e52b45 100644
--- a/cpdfmanual.tex
+++ b/cpdfmanual.tex
@@ -9,6 +9,7 @@
 %Document discourage GhostScript usage, since it can strip data (-gs-malformed, embed missing fonts)
 %Document [ ] pagespecs
 %Document extensions to -info
+%Document Topleft2 etc.
 \documentclass{book}
 % Edit here to produce cpdfmanual.pdf, cpdflibmanual.pdf, pycpdfmanual.pdf,
 % dotnetcpdflibmanual.pdf, jcpdflibmanual.pdf jscpdflibmanual.pdf etc.
diff --git a/cpdfpage.ml b/cpdfpage.ml
index 14934a2..690649a 100644
--- a/cpdfpage.ml
+++ b/cpdfpage.ml
@@ -216,12 +216,12 @@ let scale_page_contents ?(fast=false) scale position pdf pnum page =
         let open Cpdfposition in
         match position with
         | Top t -> 0., -.t
-        | TopLeft t -> t, -.t
-        | TopRight t -> -.t, -.t
+        | TopLeft (a, b) -> a, -.b
+        | TopRight (a, b) -> -.a, -.b
         | Left t -> t, 0.
-        | BottomLeft t -> t, t
+        | BottomLeft (a, b) -> a, b
         | Bottom t -> 0., t
-        | BottomRight t -> -.t, t
+        | BottomRight (a, b) -> -.a, b
         | Right t -> -.t, 0.
         | _ -> 0., 0. (* centre it... FIXME: We will add a center position, eventually, for text and this... *)
     in
@@ -516,12 +516,12 @@ let stamp_shift_of_position topline midline sw sh w h p =
       | PosLeft (ox, oy) -> ox, oy -. dy
       | PosRight (ox, oy) -> ox -. sw, oy -. dy
       | Top o -> half w -. half sw, h -. o -. sh -. dy
-      | TopLeft o -> o, h -. sh -. o -. dy
-      | TopRight o -> w -. sw -. o, h -. sh -. o -. dy
+      | TopLeft (a, b) -> a, h -. sh -. b -. dy
+      | TopRight (a, b) -> w -. sw -. a, h -. sh -. b -. dy
       | Left o -> o, half h -. half sh -. dy
-      | BottomLeft o -> o, o -. dy
+      | BottomLeft (a, b) -> a, b -. dy
       | Bottom o -> half w -. half sw, o -. dy
-      | BottomRight o -> w -. sw -. o, o -. dy
+      | BottomRight (a, b) -> w -. sw -. a, b -. dy
       | Right o -> w -. sw -. o, half h -. half sh -. dy
       | Diagonal | ReverseDiagonal | Centre ->
           half w -. half sw, half h -. half sh -. dy
@@ -701,7 +701,7 @@ let combine_pages fast under over scaletofit swap equalize =
             map2
               (fun o u ->
                  do_stamp
-                   false fast (BottomLeft 0.) false false scaletofit (not swap) merged o u over)
+                   false fast (BottomLeft (0., 0.)) false false scaletofit (not swap) merged o u over)
               over_pages under_pages
           in
             (* Build the changes. 123456 -> 123123 *)
diff --git a/cpdfposition.ml b/cpdfposition.ml
index a81ba3a..faed2f5 100644
--- a/cpdfposition.ml
+++ b/cpdfposition.ml
@@ -5,12 +5,12 @@ type position =
   | PosLeft of float * float
   | PosRight of float * float
   | Top of float
-  | TopLeft of float
-  | TopRight of float
+  | TopLeft of float * float
+  | TopRight of float * float
   | Left of float
-  | BottomLeft of float
+  | BottomLeft of float * float
   | Bottom of float
-  | BottomRight of float
+  | BottomRight of float * float
   | Right of float
   | Diagonal
   | ReverseDiagonal
@@ -21,12 +21,12 @@ let string_of_position = function
   | PosLeft (a, b) -> Printf.sprintf "PosLeft %f %f" a b
   | PosRight (a, b) -> Printf.sprintf "PosRight %f %f" a b
   | Top a -> Printf.sprintf "Top %f" a
-  | TopLeft a -> Printf.sprintf "TopLeft %f" a
-  | TopRight a -> Printf.sprintf "TopRight %f" a
+  | TopLeft (a, b) -> Printf.sprintf "TopLeft %f %f" a b
+  | TopRight (a, b) -> Printf.sprintf "TopRight %f %f" a b
   | Left a -> Printf.sprintf "Left %f" a
-  | BottomLeft a -> Printf.sprintf "BottomLeft %f" a
+  | BottomLeft (a, b) -> Printf.sprintf "BottomLeft %f %f" a b
   | Bottom a -> Printf.sprintf "Bottom %f" a
-  | BottomRight a -> Printf.sprintf "BottomRight %f" a
+  | BottomRight (a, b) -> Printf.sprintf "BottomRight %f %f" a b
   | Right a -> Printf.sprintf "Right %f" a
   | Diagonal -> "Diagonal"
   | ReverseDiagonal -> "Reverse Diagonal"
@@ -60,24 +60,28 @@ let calculate_position ignore_d w (xmin, ymin, xmax, ymax) pos =
     | Top d ->
         let d = if ignore_d then 0. else d in
           (xmin +. xmax) /. 2. -. w /. 2., ymax -. d, rot
-    | TopLeft d ->
-        let d = if ignore_d then 0. else d in
-          xmin +. d, ymax -. d, rot
-    | TopRight d ->
-        let d = if ignore_d then 0. else d in
-        xmax -. d -. w, ymax -. d, rot
+    | TopLeft (a, b) ->
+        let a = if ignore_d then 0. else a in
+        let b = if ignore_d then 0. else b in
+          xmin +. a, ymax -. b, rot
+    | TopRight (a, b) ->
+        let a = if ignore_d then 0. else a in
+        let b = if ignore_d then 0. else b in
+        xmax -. a -. w, ymax -. b, rot
     | Left d ->
         let d = if ignore_d then 0. else d in
           xmin +. d, (ymax +. ymin) /. 2., rot
-    | BottomLeft d ->
-        let d = if ignore_d then 0. else d in
-          xmin +. d, ymin +. d, rot
+    | BottomLeft (a, b) ->
+        let a = if ignore_d then 0. else a in
+        let b = if ignore_d then 0. else b in
+          xmin +. a, ymin +. b, rot
     | Bottom d ->
         let d = if ignore_d then 0. else d in
           (xmin +. xmax) /. 2. -. w /. 2., ymin +. d, rot
-    | BottomRight d ->
-        let d = if ignore_d then 0. else d in
-          xmax -. d -. w, ymin +. d, rot
+    | BottomRight (a, b) ->
+        let a = if ignore_d then 0. else a in
+        let b = if ignore_d then 0. else b in
+          xmax -. a -. w, ymin +. b, rot
     | Right d ->
         let d = if ignore_d then 0. else d in
           xmax -. d -. w, (ymax +. ymin) /. 2., rot
diff --git a/cpdfposition.mli b/cpdfposition.mli
index bf715cc..46b3c30 100644
--- a/cpdfposition.mli
+++ b/cpdfposition.mli
@@ -6,12 +6,12 @@ type position =
   | PosLeft of float * float
   | PosRight of float * float
   | Top of float
-  | TopLeft of float
-  | TopRight of float
+  | TopLeft of float * float
+  | TopRight of float * float
   | Left of float
-  | BottomLeft of float
+  | BottomLeft of float * float
   | Bottom of float
-  | BottomRight of float
+  | BottomRight of float * float
   | Right of float
   | Diagonal
   | ReverseDiagonal