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