From c6e552bdd67b72759d47002de9c720a541fe0e42 Mon Sep 17 00:00:00 2001
From: "OPTIMUS-PRIME\\craig" <craig@craigoates.net>
Date: Fri, 14 Sep 2018 17:30:57 +0100
Subject: [PATCH] update the pen width for add-default in CLI.

---
 DeathSocketCLI/Validation.fs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/DeathSocketCLI/Validation.fs b/DeathSocketCLI/Validation.fs
index 1df6f1f..d922e05 100644
--- a/DeathSocketCLI/Validation.fs
+++ b/DeathSocketCLI/Validation.fs
@@ -35,8 +35,8 @@
             let width = float32 imgWidth
             let height = float32 imgHeight
             if (width >= height) then
-                height * (float32 0.01)
-            else width * (float32 0.01)
+                height * (float32 0.002)
+            else width * (float32 0.002)
 
     let buildSpec imgPath numRows numColumns pWidth colour newPath =
         { originalPath = imgPath