From 6c068d96d70c7eba930e5788bcb68835aa261dab Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Fri, 2 Dec 2022 17:14:09 +0000
Subject: [PATCH] more

---
 cpdfcommand.ml | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/cpdfcommand.ml b/cpdfcommand.ml
index 73fe27e..497a12f 100644
--- a/cpdfcommand.ml
+++ b/cpdfcommand.ml
@@ -3137,11 +3137,21 @@ let embed_font () =
 
 type state =
   {mutable fill : drawops_colspec;
-   mutable stroke : drawops_colspec}
+   mutable stroke : drawops_colspec;
+   mutable linewidth : float;
+   mutable linecap : int;
+   mutable linejoin : int;
+   mutable miterlimit : float;
+   mutable dashpattern : float list * float}
 
 let state =
   {fill = NoCol;
-   stroke = RGB (0., 0., 0.)}
+   stroke = RGB (0., 0., 0.);
+   linewidth = 1.;
+   linecap = 0;
+   linejoin = 0;
+   miterlimit = 10.;
+   dashpattern = ([], 0.)}
 
 let ops_of_drawop = function
   | Rect (x, y, w, h) -> [Pdfops.Op_re (x, y, w, h)]