craig.oates
/
smouldering-beach-ball
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
Browse Source

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

master
Craig Oates 6 years ago
parent
9049607887
commit
ba12095b0a
1 changed files with 2 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 4
      SmoulderingBeachBall/InternalServices.fs

4
SmoulderingBeachBall/InternalServices.fs
Unescape View File

@ -27,9 +27,9 @@
let setPenWidth imgWidth imgHeight = let setPenWidth imgWidth imgHeight =
let width = float32 imgWidth let width = float32 imgWidth
let height = float32 imgHeight let height = float32 imgHeight
if (width > height) || (width = height) then if (width >= height) then
width * (float32 0.05) width * (float32 0.05)
else width * (float32 0.05) else height * (float32 0.05)
let createBorderPath penWidth spec = let createBorderPath penWidth spec =
let offset = penOffset penWidth let offset = penOffset penWidth

Write Preview
Loading…
Cancel
Save