|
|
@ -12,6 +12,13 @@ |
|
|
|
|
|
|
|
|
|
|
|
let exit () = Environment.Exit (Environment.ExitCode) |
|
|
|
let exit () = Environment.Exit (Environment.ExitCode) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(* possibe function -- save to desktop and almost set to "default"? |
|
|
|
|
|
|
|
might be to goto for most command calls... |
|
|
|
|
|
|
|
let `draw-basic` imgWidth imgHeight = |
|
|
|
|
|
|
|
buildSimpleSpec |
|
|
|
|
|
|
|
|> makeImage |
|
|
|
|
|
|
|
*) |
|
|
|
|
|
|
|
|
|
|
|
let ``draw-image`` imgWidth imgHeight mainColour path = |
|
|
|
let ``draw-image`` imgWidth imgHeight mainColour path = |
|
|
|
try |
|
|
|
try |
|
|
|
buildBasicSpec imgWidth imgHeight mainColour path |
|
|
|
buildBasicSpec imgWidth imgHeight mainColour path |
|
|
@ -22,13 +29,22 @@ |
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
| _ as ex -> ex.Message |
|
|
|
| _ as ex -> ex.Message |
|
|
|
|
|
|
|
|
|
|
|
let ``draw-borderedImage`` () = |
|
|
|
let ``draw-borderedImage`` imgWidth imgHeight mainColour oColour oType path = |
|
|
|
|
|
|
|
try |
|
|
|
showEndOfCommandMessage |
|
|
|
buildOverlaySpec imgWidth imgHeight mainColour oColour oType path |
|
|
|
|
|
|
|
|> makeImage |
|
|
|
|
|
|
|
|> Async.RunSynchronously |
|
|
|
|
|
|
|
showEndOfCommandMessage |
|
|
|
|
|
|
|
with |
|
|
|
|
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
|
|
|
|
| _ as ex -> ex.Message |
|
|
|
|
|
|
|
|
|
|
|
let ``draw-overlayedImage`` () = |
|
|
|
let ``draw-overlayedImage`` () = |
|
|
|
|
|
|
|
try |
|
|
|
showEndOfCommandMessage |
|
|
|
showEndOfCommandMessage |
|
|
|
|
|
|
|
with |
|
|
|
|
|
|
|
| :? ArgumentException as ex -> ex.Message |
|
|
|
|
|
|
|
| _ as ex -> ex.Message |
|
|
|
|
|
|
|
|
|
|
|
let ``list-colours`` () = |
|
|
|
let ``list-colours`` () = |
|
|
|
printfn "[INFO.] Listing available colours..." |
|
|
|
printfn "[INFO.] Listing available colours..." |
|
|
|