|
|
@ -59,8 +59,9 @@ |
|
|
|
let ``add-grid`` imgPath numRows numColumns pWidth colour newPath = |
|
|
|
let ``add-grid`` imgPath numRows numColumns pWidth colour newPath = |
|
|
|
try |
|
|
|
try |
|
|
|
printfn "[INFO.] Adding grid to image..." |
|
|
|
printfn "[INFO.] Adding grid to image..." |
|
|
|
buildSpec imgPath numRows numColumns pWidth colour newPath |
|
|
|
Brush (buildSpec imgPath numRows numColumns pWidth colour newPath) |
|
|
|
|> applyBrushSpecGridAsync |
|
|
|
|> applyImageToGrid |
|
|
|
|
|
|
|
//|> applyBrushSpecGridAsync |
|
|
|
|> Async.Start |
|
|
|
|> Async.Start |
|
|
|
showEndOfCommandMessage |
|
|
|
showEndOfCommandMessage |
|
|
|
with |
|
|
|
with |
|
|
|