fix setPenWidth bug -- use height when it is the longer side.

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