From 964f742edd3b1d7affdc27b419879eeb6cb37030 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Sun, 24 Sep 2023 16:45:07 +0100
Subject: [PATCH] Expose more functions in Cpdfdrawcontrol

---
 cpdfdrawcontrol.ml  | 21 +++++++++++++++++++++
 cpdfdrawcontrol.mli |  7 +++++++
 2 files changed, 28 insertions(+)

diff --git a/cpdfdrawcontrol.ml b/cpdfdrawcontrol.ml
index a9812c0..fb9bed0 100644
--- a/cpdfdrawcontrol.ml
+++ b/cpdfdrawcontrol.ml
@@ -254,3 +254,24 @@ let addopacity f =
 
 let addsopacity f =
   addop (Cpdfdraw.SOpacity f)
+
+let addleading f =
+  addop (Cpdfdraw.Leading f)
+
+let addcharspace f =
+  addop (Cpdfdraw.CharSpace f)
+
+let addwordspace f =
+  addop (Cpdfdraw.WordSpace f)
+
+let addtextscale f = 
+  addop (Cpdfdraw.TextScale f)
+
+let addrendermode i =
+  addop (Cpdfdraw.RenderMode i)
+
+let addrise f =
+  addop (Cpdfdraw.Rise f)
+
+let addnewline () = 
+  addop Cpdfdraw.Newline
diff --git a/cpdfdrawcontrol.mli b/cpdfdrawcontrol.mli
index 35ce8b0..3ddcf30 100644
--- a/cpdfdrawcontrol.mli
+++ b/cpdfdrawcontrol.mli
@@ -43,3 +43,10 @@ val addsopacity : float -> unit
 val addbt : unit -> unit
 val addet : unit -> unit
 val addnewpage : unit -> unit
+val addleading : float -> unit
+val addcharspace : float -> unit
+val addwordspace : float -> unit
+val addtextscale : float -> unit
+val addrendermode : int -> unit
+val addrise : float -> unit
+val addnewline : unit -> unit