@ -35,8 +35,8 @@
let width = float32 imgWidth
let height = float32 imgHeight
if (width >= height) then
height * (float32 0.01)
else width * (float32 0.01)
height * (float32 0.002)
else width * (float32 0.002)
let buildSpec imgPath numRows numColumns pWidth colour newPath =
{ originalPath = imgPath