From ba12095b0a24b8278d74a181d3f9db668b4017fe Mon Sep 17 00:00:00 2001
From: "OPTIMUS-PRIME\\craig" <craig@craigoates.net>
Date: Mon, 3 Sep 2018 16:51:49 +0100
Subject: [PATCH] fix setPenWidth bug -- use height when it is the longer side.

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

diff --git a/SmoulderingBeachBall/InternalServices.fs b/SmoulderingBeachBall/InternalServices.fs
index b2ecfc8..5844f54 100644
--- a/SmoulderingBeachBall/InternalServices.fs
+++ b/SmoulderingBeachBall/InternalServices.fs
@@ -27,9 +27,9 @@
         let setPenWidth imgWidth imgHeight =
             let width = float32 imgWidth
             let height = float32 imgHeight
-            if (width > height) || (width = height) then
+            if (width >= height) then
                 width * (float32 0.05)
-            else width * (float32 0.05)
+            else height * (float32 0.05)
 
         let createBorderPath penWidth spec =
             let offset =  penOffset penWidth