|
|
@ -35,8 +35,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 |
|
|
|
height * (float32 0.01) |
|
|
|
height * (float32 0.002) |
|
|
|
else width * (float32 0.01) |
|
|
|
else width * (float32 0.002) |
|
|
|
|
|
|
|
|
|
|
|
let buildSpec imgPath numRows numColumns pWidth colour newPath = |
|
|
|
let buildSpec imgPath numRows numColumns pWidth colour newPath = |
|
|
|
{ originalPath = imgPath |
|
|
|
{ originalPath = imgPath |
|
|
|