|
|
|
@ -3,11 +3,8 @@
|
|
|
|
|
module ConsoleCommands = |
|
|
|
|
|
|
|
|
|
open System |
|
|
|
|
open Console.Waterworks |
|
|
|
|
open SmoulderingBeachBall.Domain |
|
|
|
|
open SmoulderingBeachBall.Services |
|
|
|
|
open Validation |
|
|
|
|
open System.Drawing |
|
|
|
|
|
|
|
|
|
let showEndOfCommandMessage = "[INFO.] Execution completed." |
|
|
|
|
|
|
|
|
@ -16,10 +13,14 @@
|
|
|
|
|
let exit () = Environment.Exit (Environment.ExitCode) |
|
|
|
|
|
|
|
|
|
let ``draw-image`` imgWidth imgHeight mainColour path = |
|
|
|
|
buildBasicSpec imgWidth imgHeight mainColour path |
|
|
|
|
|> makeImage |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
showEndOfCommandMessage |
|
|
|
|
try |
|
|
|
|
buildBasicSpec imgWidth imgHeight mainColour path |
|
|
|
|
|> makeImage |
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
showEndOfCommandMessage |
|
|
|
|
with |
|
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
|
| _ as ex -> ex.Message |
|
|
|
|
|
|
|
|
|
let ``draw-borderedImage`` () = |
|
|
|
|
|
|
|
|
|