diff --git a/DeathSocketCLI/Validation.fs b/DeathSocketCLI/Validation.fs index 1df6f1f..d922e05 100644 --- a/DeathSocketCLI/Validation.fs +++ b/DeathSocketCLI/Validation.fs @@ -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