From 7a7324ff927ed723ed4056022aee9fc3bc57fe8a Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 15 Dec 2022 20:15:43 +0000
Subject: [PATCH] more

---
 cpdfcommand.ml | 42 +++++++++++++++++++++++++++++++++++++-----
 1 file changed, 37 insertions(+), 5 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 4ee042c..05f9e57 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -1778,15 +1778,47 @@ let addline s =
 let endpath () =
   drawops := Cpdfdraw.EndPath::!drawops
 
-let setthickness s = ()
+let setthickness s =
+  try
+    drawops := Cpdfdraw.SetLineThickness (float_of_string s)::!drawops
+  with
+    _ -> error "Thickness must be a number"
 
-let setcap s = ()
+let setcap s =
+  let num =
+    match s with
+    | "butt" -> 0
+    | "round" -> 1
+    | "square" -> 2
+    | _ -> error "Unknown cap type"
+  in
+    drawops := Cpdfdraw.SetLineCap num::!drawops
 
-let setjoin s = ()
+let setjoin s =
+  let num =
+    match s with
+    | "miter" -> 0
+    | "round" -> 1
+    | "bevel" -> 2
+    | _ -> error "Unknown join type"
+  in
+    drawops := Cpdfdraw.SetLineJoin num::!drawops
 
-let setmiter s = ()
+let setmiter s = 
+  try
+    drawops := Cpdfdraw.SetMiterLimit (float_of_string s)::!drawops
+  with
+    _ -> error "Miter limit must be a number"
 
-let setdash s = ()
+let setdash s =
+  try
+  let x, y =
+    let nums = map float_of_string (String.split_on_char ' ' s) in
+      all_but_last nums, last nums
+  in
+    drawops := Cpdfdraw.SetDashPattern (x, y)::!drawops
+  with
+   _ -> error "Dash pattern elements must one or more numbers"
 
 (* Parse a control file, make an argv, and then make Arg parse it. *)
 let rec make_control_argv_and_parse filename =