From cbce71cfd103ea311f990010b9cbd5758fdbb243 Mon Sep 17 00:00:00 2001
From: John Whitington <john@coherentgraphics.co.uk>
Date: Thu, 30 Jan 2020 16:11:29 +0000
Subject: [PATCH] more

---
 cpdfwriteJSON.ml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cpdfwriteJSON.ml b/cpdfwriteJSON.ml
index afe4aab..a7cdfc5 100644
--- a/cpdfwriteJSON.ml
+++ b/cpdfwriteJSON.ml
@@ -69,11 +69,12 @@ let json_of_op = function
          J.String "cm"]
   | O.Op_d (fl, y) ->
       J.Array [J.Array (List.map (fun x -> J.Number (sof x)) fl); J.Number (sof y); J.String "d"]
+  | O.Op_w w -> J.Array [J.Number (sof w); J.String "w"]
 
   | _ -> J.Array [J.String "UNIMPLEMENTED"]
 
- (* | O.Op_w w -> J.Array [J.String "w"]
-  | O.Op_J j -> J.Array [J.String "J"]
+
+ (* | O.Op_J j -> J.Array [J.String "J"]
   | O.Op_M m -> J.Array [J.String "m"]
   | O.Op_ri s -> J.Array [J.String "ri"]
   | O.Op_i i -> J.Array [J.String "i"]