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